Как отобразить баланс или любую фигуру от листа до формы пользователя? - PullRequest
Новая
       8

Как отобразить баланс или любую фигуру от листа до формы пользователя?

0 голосов
/ 02 ноября 2018

Мне нужно иметь баланс с листа, показанного в форме пользователя. Если кто-то может помочь в этом, я буду очень признателен.

Использую ли я список для отображения номеров? Баланс автоматически обновляется на листе, поэтому последняя строка или последний обновленный номер должны отображаться в пользовательской форме.

Заранее спасибо за помощь. Приветствия.

Код в пользовательской форме1: 

Private Sub UserForm_Initialize()

Dim i As Long
For i = 1 To ThisWorkbook.Sheets.Count
    Me.ComboBox1.AddItem ThisWorkbook.Sheets(i).Name
Next

End Sub

Ответы [ 2 ]

0 голосов
/ 03 ноября 2018

Исходя из вашего комментария, вам нужен код: 

Private Sub UserForm_Initialize()    
Dim LastRow As Long
Dim ws As Worksheet

Set ws = Sheets("Sheet1")

LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).row

'Text Label 1 should display
Label1.Caption = "Balance is: " & ws.Cells(LastRow,7).Value

end sub
0 голосов
/ 03 ноября 2018

Это действительно зависит от того, что вы хотите показать и как.

Предполагая, что нужное вам значение (то, что вы называете «балансом») является значением, хранящимся в последней заполненной ячейке столбца A, и которое вы хотите отобразить в текстовом поле, вы можете: 

Private Sub UserForm_Initialize()        
    LastRow = Sheets("Sheet1").Range("A" & 
Sheets("Sheet1").Rows.Count).End(xlUp).Row

'TextBox Store
TextBox.Value = Sheets("Sheet1").Cells(LastRow, 1).Value

end sub

Если вы хотите отобразить эту информацию в метке, чтобы предоставить дополнительную информацию пользователю, вы должны ввести метку, называемую, например, Label1, и добавить в свой код что-то вроде: 

Label1.Caption = "Balance is: " & Sheets("Sheet1").Cells(LastRow,1).Value
...