
1、修改窗体的名称:
找到属性栏中的名称,一般在第一栏,更改名称右侧表格里面的内容即可。
2、窗体的标题栏显示文字,默认的文字时userform1,这里我们设置为测试文件,在属性中找到"caption"属性,在右侧中输入对应的值即可。
3、更改窗体的背景颜色:
选择属性backcolor,再选择一个颜色即可。
4、添加背景图片:
选择属性中的picture,选择一张图片。
5、更改背景图片的填充方式:
选择属性picturesizemode选择即可。
把这段代码加到你的按钮的事件中,后面的每个textbox换成你的文本框的变量名,userform1是你的窗体变量名Sub transferinfo()
Activesheet.range("A2")=Userform1.TextBox1.text
Activesheet.range("A3")=Userform1.TextBox2.text
Activesheet.range("A4")=Userform1.TextBox3.text
Activesheet.range("A7")=Userform1.TextBox4.text
Activesheet.range("A9")=Userform1.TextBox5.text
End Sub
以下的这些表达式都是可以的.
指定在sheet1的A1单元格赋值
sheets("sheet1").range("A1")=userform1.textbox1.text
sheets("sheet1").cells(1,1)=userform1.textbox1.text
sheets("sheet1").[a1]=userform1.textbox1.text
在当前工作表的A1单元格赋值
activesheet.range("A1")=userform1.textbox1.text
activesheet.cells(1,1)=userform1.textbox1.text
activesheet.[a1]=userform1.textbox1.text
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)