Вывод данных из UserForm'a в ячейку в денежном формате

Пользователь

Сообщений: 4 Регистрация: 11.01.2018

01.02.2018 17:42:38

Доброго времени суток.
Возник вопрос, вставший перед мордой.
Дано:
Юзерформа с ФИО, адресом, датой/типом/суммой вклада.
Необходимо:
Вывести в заданные ячейки полученные значения в денежном эквиваленте (со значком рубля, требование преподавателя)
Где-то там мозг понимает, что нужно шурудить в этой области (код ниже), но как конкретно облобзать - пока не хватает опыта

Код

With ActiveSheet
    .Cells(nomer, 1).Value = fam
    .Cells(nomer, 2).Value = nam
    .Cells(nomer, 3).Value = adr
    .Cells(nomer, 4).Value = data
    .Cells(nomer, 5).Value = tip
    .Cells(nomer, 6).Value = otdel
    .Cells(nomer, 7).Value = teksch
    .Cells(nomer, 8).Value = vklad
    .Cells(nomer, 9).Value = summa
End With

Вывод в денежный формат нужен на последние три.
Была бы благодарна тычку носом в нужное русло.

Пытливый

Пользователь

Сообщений: 4725 Регистрация: 22.12.2012

01.02.2018 17:45:30

Доброго. Поизучайте Cells.NumberFormat (по F1 много интересного)

Заодно еще учтите, что вводя значения в форму вы получаете значение типа "строка". А в ячейку надо записать число. А потом к нему уже применять формат. Конечно, Excel умеет распознавать данные и может преобразование выполнить сам и неявно, но бывают варианты!

Так что можно еще поизучать про функции преобразования типов данных, например CDbl() (тоже из VBE по F1 доступно).

Изменено: Пытливый - 01.02.2018 17:47:50

Кому решение нужно - тот пример и рисует.

Sanja

Модератор

Сообщений: 19638 Регистрация: 10.01.2013

01.02.2018 17:51:15

Код

With ActiveSheet
    .Cells(nomer, 1).Value = fam
    .Cells(nomer, 2).Value = nam
    .Cells(nomer, 3).Value = adr
    .Cells(nomer, 4).Value = Data
    .Cells(nomer, 5).Value = tip
    .Cells(nomer, 6).Value = otdel
    'или так
    .Cells(nomer, 7).Value = Format(teksch, "Currency")
    .Cells(nomer, 8).Value = Format(vklad, "Currency")
    .Cells(nomer, 9).Value = Format(summa, "Currency")
    'или так
    .Range(.Cells(nomer, 7), .Cells(nomer, 9)).NumberFormat = "#,##0.00 $"
End With

Согласие есть продукт при полном непротивлении сторон

Asmadei Пользователь Сообщений: 4 Регистрация: 11.01.2018	#4 01.02.2018 17:59:49 Пытливый, спасибо большое за конкретный тычок, будем штудировать на досуге Sanja, премного благодарна

Читают тему