关于VB SHEET的控件使用

it_sy_boy 2008-03-09 06:03:48
在VB中插入EXCEL工作表设计器后,出现的SHEET控件怎么使用?
如何与指定的EXCEL文件帮订?
怎么通过程序对单元格进行操作?
如何获取单元格的信息?
...全文
581 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
it_sy_boy 2008-03-09
  • 打赏
  • 举报
回复
excel的摸版是用户自定义的,不可能让用户去录制宏啊。
呵呵,第一次用这个控件,不懂的东西太多啊。见笑了!
pcwe2002 2008-03-09
  • 打赏
  • 举报
回复
在EXCEL中录制一个宏,进行你需要的操作,将宏代码拷入到你的VB里面就行了
it_sy_boy 2008-03-09
  • 打赏
  • 举报
回复
怎么没有人指教?是嫌分数太少吗?如果是这样可以商量
经验证,可于EXCEL的VBA中使用的二维码(QRMAKER)控件VBA中调用QRmaker 由于VBA的窗体环境和VB中的差不多,所以在VBA窗体中调用QRmaker就不再描述,这里主要说明一下如何在表格中引用QRmaker。 第一步:单击Office按钮,在Excel选项中开启“开发工具”项,从而让“开发工具”选项卡显示出来。 第二步,插入→其他控件,选择QRmaker。 然后就是在合适的地方绘出QRmaker控件,这时会自动进入“设计模式”,单击“属性”可以展开控件的“属性”栏,可根据需要设置相关属性,和VB中的操作雷同。 接下来与VB中不一样的地方就是如何在VBA代码中引用QRmaker控件了,这点和VB中有点小区别。 添加“模块”,添加“过程”,输入代码。 Public Sub QRCodeTest() '定义QRString变量,存储要生成二维码的字符串 Dim QRString As String '给QRString赋值,根据实际情况赋值 QRString = Sheet1.Range("E14") & Sheet1.Range("F14") & ";" & Sheet1.Range("E15") & Sheet1.Range("F15") & ";" & Sheet1.Range("E16") & Sheet1.Range("F16") & "_" & Sheet1.Range("G16") & "_" & Sheet1.Range("F17") & "_" & Sheet1.Range("G17") Sheet1.Select '设置QRmaker的AutoRedraw属性为ArOn Sheet1.QRmaker1.AutoRedraw = ArOn '将字符串传递给QRmaker控件 Sheet1.QRmaker1.InputData = QRString '刷新QRmaker的内容,如果AutoRedraw属性为On,则无需此句 'Sheet1.QRmaker1.Refresh End Sub 然后就可以在Excel表格中生成二维码了,根据实际情况,在填写相关数据后,执行上面的语句就可以了,其他的工作该咋的就咋的吧。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧