EXCEL VBA代码换行问题

2024-12-04 13:54:08

推荐回答（3个）

回答（1）：

真不行就找个单元格例如sheet1.cells(1000,1000)
Sheet1.Cells(1000, 1000) = "=VLookup(" & ComboBox1.Text & ", A1:B100, 2,False)"
Lable6.Caption=sheet1.cells(1000,1000)

回答（2）：

不能换。是空格加_，前面少了空格

回答（3）：

Private Sub ComboBox1_Change()
Sheets("品名").Select
Lable6.Caption = Application.WorksheetFunction _
.VLookup(ComboBox1.Text, Range("A1:B100"), 2, False)
Label5.Caption = Application.WorksheetFunction _
.VLookup(ComboBox1.Text, Range("A1:E100"), 3, False)
TextBox1.Text = ""
TextBox1.SetFocus
Sheets("登记数据").Select
End Sub