Форматирование числа: баксы или рубли...Все просто, но...

[sonata]

Вот элементарный код, который переводит фомат числа, либо
в обычный, либо со значком доллара впереди...Вчера все прекрасно работало, а сегодня -нет...
Не могу понять причину такой внезапной смены настроения....
Хотя "программа" женского рода", но...все-таки?
Может кто-нибудь подскажет?

Код: Выделить всё

Public Sub Baks_Text()
If (Selection.NumberFormat = "[$$-C09]#,##0.00") Then
Selection.NumberFormat = "#,##0.00"
ElseIf (Selection.NumberFormat = "#,##0.00") Then
Selection.NumberFormat = "[$$-C09]#,##0.00"
End If
End Sub

[GSerg]

Попробуй "_-[$$-C09]* # ##0,00"
Кстати, зачем тебе австралийские доллары?

[sonata]

Код: Выделить всё

Public Sub Baks_Text()
If (ActiveCell.NumberFormat Like "[$$-C09]") Then
ActiveCell.NumberFormat = "#,##0.00"
ElseIf (ActiveCell.NumberFormat = "#,##0.00") Then
ActiveCell.NumberFormat = "[$$-C09]#,##0.00"
Else
ActiveCell.NumberFormat = "#,##0.00"
End If
End Sub

Это для закрытия вопроса!

[Saturn.65]

Можно ли отформатировать по своему?
Вывод остатка рублей:

Код: Выделить всё

Text1.Text = Format(Text2.Text, "# ### рублей")


Все форматирует нормально. Дело в том, что когда идет перерасход денег, то получается число с минусом. А можно ли так сделать. чтоб минуса небыло?
Хотелось бы такой вариант: Перерасход: - 100 рублей поменять на перерасход: 100 рублей. Это более читабельно выглядит.

[alibek]

Если ты почитаешь хелп к функции Format$(), увидишь, что в строке формата для чисел может быть до четырех форматов.