Числа формата Excel VBA к определенному значению в пользовательской форме

user7202022 спросил: 03 ноября 2018 в 08:29 в: excel

У меня есть пользовательская форма, которая отображает значения вне ячеек на моем листе"Расчеты цен". Первый столбец A на листе "Расчет цены" содержит текст в строках с 72 по 88. Все остальные столбцы D, E, F, G, H ... и т. Д. Содержат цифры, которые я хочу отформатировать.

Я хочу отформатировать ячейки в определенный формат для значений с 17 строками k=17 (столбцы D, E, F, G, H ... и т. Д.) - мой код. Я хочу использовать формат Format(XXX.Value, "#,##0.00"), чтобы мои числа выглядели как 71 000,00 вместо 71 000

Private Sub UserForm_Initialize()Dim vDB As Variant, a As Variant, c As Variant
Dim Ws As Worksheet
Dim i As Integer, j As Integer, n As Integer
Dim k As IntegerSet Ws = ThisWorkbook.Sheets("Price calculation")a = Array("a", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n") 'column characters
c = Array(409, 444, 480, 516, 552, 588, 624, 660, 696, 732, 768, 804) 'label numbersFor i = LBound(a) To UBound(a)
    If i = 0 Then
        k = 16
    Else
        k = 17
    End If
    vDB = Ws.Range(a(i) & 72).Resize(k)
    n = 0
    For j = c(i) To c(i) + k - 1
        n = n + 1
        Me.Controls("Label" & j).Caption = vDB(n, 1)
    Next j
Next i

0 ответов