[已解决]怎样设置和制作“在窗体里的复合框里”

qhllqhll

求各位大师帮助：
怎样在窗体里的复合框里，一点右边朝下的小黑箭头
问题1、可已选 “一”,“二”,“三”,“四”,“全部”
问题2、让其选的字，赋值到 [A1]单元格里，
问题3、复选的 “一”,“二”,“三”,“四” 以外；
       当选到“全部” 时 [A1]=""
      
例如：选“一” 就在 [A1] 单元格里 显示 “一”
      选“二” 就在 [A1] 单元格里 显示 “二”
      选“三” 就在 [A1] 单元格里 显示 “三”
      选“四” 就在 [A1] 单元格里 显示 “四”
      选“全部” 就在 [A1] 单元格里 显示 “空”
谢谢
新建 Microsoft Excel 工作表.rar (7.71 KB, 下载次数: 36)

2013-1-20 09:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-20 10:46

新建 Microsoft Excel 工作表2.rar (16.96 KB, 下载次数: 176)

2013-1-20 10:46 上传

点击文件名下载附件 {:041:}

跳转到最佳答案楼层

爱疯

新建 Microsoft Excel 工作表2.rar (16.96 KB, 下载次数: 176)

2013-1-20 10:46 上传

点击文件名下载附件 {:041:}

qhllqhll

爱疯 发表于 2013-1-20 10:46

非常感谢版主的帮忙（耽误您的休闲时间了,不好意思啊？）

qhllqhll

爱疯 发表于 2013-1-20 10:46

请问版主：下面的代码在vb6.0里应该怎样写啊？
Private Sub UserForm_Initialize()
    ComboBox1.List = Array("一", "二", "三", "四", "全部")
    ComboBox1.Value = "一"
End Sub
谢谢

爱疯

qhllqhll 发表于 2013-1-20 12:42
请问版主：下面的代码在vb6.0里应该怎样写啊？
Private Sub UserForm_Initialize()
    ComboBox1.List ...

我没接触VB过，只好等高手来帮忙了。

qhllqhll

爱疯 发表于 2013-1-20 13:28
我没接触VB过，只好等高手来帮忙了。

谢谢版主老师

爱疯

新建 Microsoft Excel 工作表3.rar (16.6 KB, 下载次数: 52)

2013-1-20 13:51 上传

点击文件名下载附件

Private Sub UserForm_Initialize()
'    ComboBox1.List = Array("一", "二", "三", "四", "全部")
'    ComboBox1.Value = "一"
    ComboBox1.AddItem "一"
    ComboBox1.AddItem "二"
    ComboBox1.AddItem "三"
    ComboBox1.AddItem "四"
    ComboBox1.AddItem "全部"
End Sub

改成这样了，不知行不行

qhllqhll

爱疯 发表于 2013-1-20 13:52
Private Sub UserForm_Initialize()
'    ComboBox1.List = Array("一", "二", "三", "四", "全部")
...

谢谢大师
我测试一下

qhllqhll

爱疯 发表于 2013-1-20 13:52
Private Sub UserForm_Initialize()
'    ComboBox1.List = Array("一", "二", "三", "四", "全部")
...

大师您好
测试放到vb6.0里
调出窗体里的复合框有（是空的）
等会我发个附件您帮我看看吧
谢谢

qhllqhll

爱疯 发表于 2013-1-20 13:52
Private Sub UserForm_Initialize()
'    ComboBox1.List = Array("一", "二", "三", "四", "全部")
...

谢谢版主的帮助