狐偃 20:43:21
[qqimg]oldimg/{8AEF9C2F-98B8-687B-6114-361E40A7AE6D}.jpg[/qqimg]我要编一个这样的下拉列表,程序怎么写啊,列表内容有q235-A,45钢,40Cr,40CrNi,20CiNi
求大神给编一下 啊
sqbao 20:47:46
Private Sub Form_Load()
With Form1.Combo1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
End sub
这是vb的代码 不是vba的
前提 你窗体名称Form1
组合框名称combo1
有声 20:48:43
看得出有硕士水准
狐偃 20:49:01
我要VBA的
sqbao 20:51:09
vba不是和vb 6.0一会事么
狐偃 20:51:20
这个房里面还是不出现下拉列表啊,大神求解决啊
sqbao 20:51:48
。。
这必然的
vba代码需要改动一点
狐偃 20:52:21
请指导啊
sqbao 20:54:12
习惯用vb了 忘了vba怎么初始加载放在那儿。
With Form1.Combo1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
[luozh7682]筑路人 20:54:27
VBA跟具体的宿主应用程序相关,不能编译成.EXE或.DLL文件,只有有密码加密保护。
sqbao 20:54:32
你把这个放在程序的第一行试试
飞马 20:54:47
挺好的学习网站
狐偃 20:56:08
结果我运行后,在下拉列表里还是什么都没有
sqbao 20:56:43
你组合框叫什么名字
狐偃 20:57:23
combox1
亦凡天空 20:57:24
百度下组合框的使用
加入就行了
狐偃 20:58:26
Private Sub ComboBox1_Change()
With Form1.Combo1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
End Sub
亦凡天空 20:58:47
。。。函数放错了
sqbao 20:58:55
函数不对吧
亦凡天空 20:59:01
放在启动加载函数里
sqbao 20:59:13
放在启动项
With Combobox1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
我不知道vba启动项在哪
用vb习惯了
狐偃 20:59:57
Private Sub UserForm_Initialize()
亦凡天空 20:59:58
。。。。
sqbao 21:00:10
嗯 就放着
With Combobox1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
把这个粘贴上
再看看
第一行可以加一个combobox1.clear以防万一
sqbao 21:01:56
我这弄得匆忙 你注意把"40Cr "里面的空格去掉
狐偃 21:02:44
搞定了
谢谢各位大神
sqbao 21:03:40
你是做化工机械的?
这有点像轴的材料
狐偃 21:04:03
不是
sqbao 21:04:16
哦 这样
狐偃 21:04:24
就是做一个减速器的设计
sqbao 21:04:45
减速器?
课程设计?
狐偃 21:06:21
毕业设计
sqbao 21:06:31
我说呢
你这还不错
我带的本科生屁事都干不了
也不学
清风明月名字897 21:07:16
请问,在LPS中,单行文本类型为“TEXT”, 在VBA中如何取得这个属性呢?
狐偃 21:07:19
对了,虽然这些下拉列表出现了,但是确不能选择
你是大学老师
sqbao 21:07:40
研究生。
清风明月名字897 21:07:41
请问,在LPS中,单行文本类型为“TEXT”, 在VBA中如何取得这个属性呢?
轻舞飞扬 21:08:41
LPS是什么东西
狐偃 21:10:22
Private Sub ComboBox1_Change()
With ComBox1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
End Sub
我这个程序应该怎么改啊
不然我不能选择
sqbao 21:10:47
。。
说了放在Private Sub UserForm_Initialize()里
狐偃 21:11:09
下拉列表出现了,但不能选择
我放了
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "q235-A"
.AddItem "45钢"
.AddItem "40Cr "
.AddItem "40CrNi "
.AddItem "20CiNi "
End With
sqbao 21:14:06
With UserForm1.ComboBox1改成这个看看
狐偃 21:17:15
现在是连下拉列表都没了
sqbao 21:17:47
ComboBox1.AddItem "q235-A"
sqbao 21:19:59
Private Sub UserForm_Initialize()
ComboBox1.AddItem "q235-A"
ComboBox1.AddItem "45钢"
ComboBox1.AddItem "40Cr "
ComboBox1.AddItem "40CrNi "
ComboBox1.AddItem "20CiNi "
ComboBox1.Text="q235-A"
End sub
那就来笨的 看看这个行不行
狐偃 21:21:18
这个终于可以了
太谢谢了
sqbao 21:22:04
你试试好不好用
狐偃 21:22:19
这个挺好的
谢谢了 |