下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、1-1多列列表框写入工作表在把多列列表框的写入工作表中时,只能把BoundColumn属性所指定列中的值写入工作表中,不能把选中的整行内容写入到工作表中。如果需要把多列列表框中选中行的整行内容写入工作表中,可以使用循环语句将列表框各列的写入工作表,如下面的代码所示。# 001 Private Sub UserForm_Initialize()# 002 Dim iRow As Integer#003 iRow = Sheet2.Range("A65536").End(xlUp).Row# 004With Me.ListBox1# 005.ColumnCount = 7#00
2、6.ColumnWidths = "45,45,45,45,45,30,45"# 007.BoundColumn = 1# 008.ColumnHeads = True# 009.RowSource = Sheet2.Range("A2:G"&iRow).Address(External:=True)# 010 End With# 011 End Sub# 012 Private Sub ListBox1_Click()# 013Dim iRow As Integer# 014Dim i As Byte#015 iRow = Sheet1.Ran
3、ge("A65536").End(xlUp).Row + 1# 016 For i = 1 To ListBox1.ColumnCount# 017 Sheet1.Cells(iRow, i) = ListBox1.Column(i -1)# 018 Next# 019 End Sub代码解析:第1行到第11行代码窗体的Initialize事件过程,在窗体初始化时为多列列表框添加列 表项,请参阅技巧 错误!未找到引用源。第8行代码,设置多列列表框中的第一行为列标题行。ColumnHeads 属性显示列表框、组合框及接受列题注的对象中的列标题行,语法如下:object.Col
4、umnHeads = Boolean参数object是必需的,一个有效的对象。参数Boolean是可选的,指定是否显示列标题。将ColumnHeads 属性设置为 True ,多列列表框的第一行显示为列标题,默认值为 False ,不显示列标题。需要注意的是,当数据项中的第一行作为列标题时,则不可选中该行。第9行代码,使用 RowSource属性设置多列列表框中列表的来源。关于 RowSource 属性请参阅技巧 错误!未找到引用源。注意如果已将多列列表框中列表项来源的第一行设置为列标题,在设置RowSource属性时应从列表项来源的第二行开始设置。第12行到第19行代码列表框的 Click事
5、件,单击多列列表框时把选中行的整行内容写 入工作表中。其中第 17行代码,使用循环语句将多列列表框选中行的各列的值写入工作表 对应的单元格中。关于 Column属性请参阅技巧 错误!未找到引用源。,在本例中没有指定 row参数,所以是把当前选中行的内容写入工作表。运行窗体后,单击列表框将选中的整行内容写入工作表中,如图 错误!文档中没有指 定样式的文字。-1所示。A1人员编号20B0043 080054BCDEF _G_1230.00740. 00256. 0070. 0060. 002356. 00935.00S60.00145 00 |60.00164. 002063,00技能工资岗位工资
6、工龄工资浮动工资具祗应发合计8TW1112131415161718典815. 001010.00Tz.oa60.0069 00ZK6. 0080021415 00800.003L2.00B0. 0064 002&71. 0008003U95.00做00240。70.0064.002429. 008004935.00860.00144.0060. CO64.002063. 00唧051230.00740.00255.0070.0060.002然.000600&1230.00620.00251 ao70.00ST 002233. 0008007995. 00&20.00144. aoea. oaST 001ST6 0006003T40. 00BZO. 00S5.0050.005T,001963. DOl 一80091060.00520.00208.0070.005S,001944.00080111160.00520 00208 0070.0056.002014 0080121090 00520.00192.0070.0056.001928 00080131055.00520.00134,0070.0056.。1385.008014565. 00520.0033.005
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年度甘肃省安全员之A证(企业负责人)押题练习试卷B卷附答案
- 简单拉土合同(2篇)
- 2024年日用及医用橡胶制品合作协议书
- 2024年细编含钨丝织物合作协议书
- 2024年电动机项目合作计划书
- 2024年金属压力及大型容器项目发展计划
- 金融投资项目居间合作协议
- 2024版合同签订审核管理办法
- 2024版合同管理-GBK合同管理
- 2024版合同-承揽合同
- 【课件】海水的性质课件高中地理人教版(2019)必修一
- LNG加气站专项事故应急预案
- 制造业质量卓越保障方案
- (中职组)数字产品检测与维护赛项竞赛考试题库(含答案)
- 中学生追星好不好辩论赛正方(5篇)
- 吉林省吉林市2023-2024学年高三上学期第一次模拟考试 物答案
- 专题2检验食品中的铁元素(教学设计)高一化学
- 西藏自治区山南市贡嘎县森布日小学2023-2024学年五年级上学期期中数学试卷
- 5.1国内外顶管技术的发展
- 2023-2024学年高中政治统编版必修二3-2 推动高质量发展 第2课时 教案
- 儿童生理药代动力学模型及其在儿科药物研究中的应用
评论
0/150
提交评论