前面的几篇图文,咱们讲了关于VBA二次开发的一些控件,这次咱们继续说一个控件.combobox控件,中文的翻译名叫做复合框.在这里咱们要与checkbox做一个区分,combobox是复合框,而checkbox叫做复选框.
一,combobox控件复合框.
往本质上说,combobox应该两个的文本框与下拉列表框的组合.因为复合框也确实具备了两者的功能.一是通过复合框来录入数据,同时又可以通过下拉列表来选择数据.
combobox其实就是文字框的加强版.
二,复合框常修改的属性.
复合框与文字框比较类似,它是没有caption属性的,只有text属性.我们可以通过复合框往数据库(或者数据表)里录入数据,但其本身是不具备名称属性标识的.
1,height与width属性.
我们点选工具箱的复合框控件,在窗体里按住鼠标的左键就可以"画"出一个combobox控件,这时的复合框是具有height与width属性的.前者是高度的值,后者是宽度的值.当然,我们也可以属性栏里直接修改其数值而改变其高度与宽度.
2.font属性.
一般情况下,我们修改font属性也就是要改变其字体的字型,大小,是否有下划线,粗体,斜体等属性.比较觉的是修改其字体的大小与字型的名称.其它的font属性的修改是比较少见的.
3.forecolor属性.
forcolor属性即是修改字体的颜色的属性.一般情况下,我们是不需要修改这个属性的,默认情况下,字体的颜色,即前景色是黑色的,但是遇到一些需要提醒的数值时,我们可能要修改一下颜色的显示效果的,如货币的数值,或者出入库的数量的汇总的结果,或者是账目收入支出的总额等.
三,常用的VBA代码.
对于复合框来说,其天生的本职工作就是往数据库(或数据表)里录入数据,或者通过其下拉列表选择相应的数值,所以combobox控件有两段代码是最为常见的.
1.Additem方法添加项目.
下面咱们以往userform1里添加项目来说明VBA代码.
private sub userform_initialize()
dim i as integer
with userform1
for i = 4 to sheets("设置").range("g65536").end(3).row
.combobox1.additem sheets("设置").cells(i,"g").value
next
end with
end sub
2.从下拉列表框里选择数据,再录入至数据表的情况.
下面以combobox1的数据要录入至"信息表"的K列单元格为例来说明.
sheets("信息表").cells(i,"k").value=userform1.combobox1.text
以上内容是关于combobox最为常见的一些知识的讲解,本文由头条作者Excel小彭原创编写,请各位搬运工大师手留情.
如果想了解更多的关于VBA二次开发的知识,可以在这方面下更多的功夫,毕竟从事职场工作,关于各类信息报表的工作肯定是少不了的.另外,也希望职场人士可以养成良好的学习习惯,这样才可以更好的解决自己所遇到的各类的工作上的难题.
