EXCEL VBA代码换行问题

Private Sub ComboBox1_Change()
Sheets("品名").Select
Lable6.Cqption = 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
其中
Lable6.Cqption = Application.WorksheetFunction_
.VLookup(ComboBox1.Text, Range("A1:B100"), 2,False).
说编译错误，请各位高手帮帮忙!!!
我刚才试了下一楼的，还是不行。另外2楼说的是我写错了，是Caption ，是不是换行出现了错误！

举报该问题

推荐答案 2010-03-09

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://88.wendadaohang.com/zd/MSMaKBMMV.html

其他回答

第1个回答 2010-03-09

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

第2个回答 2010-03-09

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本回答被提问者采纳

相似回答

excel中VBA textbox换行问题。答：创建TextBox1 和CommandButton1 sub CommandButton1_Click()dim n as integer dim str as string n=sheets(1).usedrange.rows.count+1 str=textbox1.text sheets(1).cells(n,1)=str end sub

EXCEL的VBA这么实现单元格内3个字符就换行,一个单元格里面的字数是随机...答：1.将A1按换行符分开到B之后的列中：2.alt+F11，输入如下代码：3.F5运行代码，结果如下：

各位高手,请教一下用VBA设置单元格的格式为“自动换行”答：5，VBA支持调用Windows底层API，关键是，他们与VB几乎一样，这意味着，你使用Google搜索一个需要的函数的时候返回的查询结果可能是几千个而且很多有实例代码，而使用其他语言，其精确的查询结果往往是0.6,VBA 一般嵌入在应用软件之中，他们常常与应用软件有很好的接口，你不用单独购买开发工具就可以立即着...

VBA如何把Excel中一个单元格的内用换行替代逗号,如下图所示答：爱电脑、爱数学、爱音乐; 熟悉VB、C/C++、JAVA; EXCEL与VBA有所研究…… 数学,一些会,一些被忘却…… 向TA提问私信TA 关注展开全部假设以A1单元格为例,代码如下:Sub myReplace() [A1] = Application.WorksheetFunction.Substitute([A1], ",", Chr(10))End Sub注意:我假设你的逗号是英文状态的逗号,...

Excel VBA 读取txt文件,把txt中的"#13#10"换成换行。答：Close #1 Dim FilePath, NeiRong As String, Rng As Range, Crng As Range Dim arr() As String FilePath = Application.GetOpenFilename("文本文件(*.txt),*.txt")If FilePath = False Then Exit Sub Open FilePath For Input As #1 NeiRong = StrConv(InputB(LOF(1), 1), vbUnicode...

VBA如何读取Excel单元格内的换行?答：用下replace(sheet1.cells(1,1),chr(10),chr(13))替换一下看看,前面那个是换行符,后面那个是回车符.将换行符替换位回车符应该可以吧.呵呵,可惜的是不知道这里的换行是怎么编码的啊

如何利用VBA实现excel中的表格自动跳行(不是自动换行)答：间接方法：工作表中添加一个文本框控件，在选中单元格事件中将文本框大小、位置属性调整与单元格重合，并激活文本框，输入文字时就在文本框输入（看着像在单元格输入），这时就可用文本框事件来进行比较跳行等满足你的要求。虽然思路有了，但实现起来还有很多细节问题要解决，也非常麻烦的。劝你还是放弃，先...

用vb编程找出excel表中数据之间的空格,换行和单引号等所在位置_百度知 ...答：主要用几个循环就可以查出来了，如果你是刚刚入门，就每个字符用一个循环，再用sheet.cells输出来就可以了，chaohua008的例子还不错，但简单了点，你是要查所有的行和列的所含的那些字符吧，自己用条件修饰一下再改改，应该可以实现功能！！

大家正在搜

excel VBA 换行 vba实现单元格换行代码 vba换行代码 vba代码字符串换行宏换行的代码代码太长能换行吗代码换行 html换行代码 python代码换行