Question

我需要在用户表格上显示的工作表中保持平衡。如果有人可以帮助您，我将非常感激。

我使用列表框显示数字吗？余额会在工作表中自动更新，因此最后一行或最后更新的数字应显示在用户表单上。

在此先感谢您的帮助。干杯。

Userform1中的代码为：

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

Answer 1

这实际上取决于您要显示什么以及如何显示。

假设您需要的值（称为“余额”）是存储在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

Answer 2

根据您的评论，您需要的代码是：

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

如何从工作表到用户表单显示余额或任何数字？

2 个答案: