作者:乔山办公网日期:
返回目录:excel表格制作
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
如果是来语句可以直接在要换行的位加一个空格一个下划:源
Dim MyPath As String, MyName As String, _
tmpPath As String
如果是字符串可以加以加一百个度空格一个&和一个空格加一个下划线:
x = "ABCDEFG" & _
"HIJKLMNO"
解决办法如下:zhidao
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 5 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub
上面是>5,即数据输到E列,回再往右就会换行。答
字符串续航一般先把字符串分成几个小字串,用 & 连接,并使用换行符
str="12311231312323" & _
"dsafasdasdasd"