精华内容
下载资源
问答
  • VB/VBA调用控件生成条形码,可以通过控件在VB窗体,Excel、Word等支持VBA的基础上自动显示对应的条形编号。
  • Excel VBA(08)窗体控件

    千次阅读 2020-04-29 16:36:58
    要么用代码调用窗体的 show 方法 3、关闭窗体 代码关闭是 unload testform方法 4、显示设置 窗体标题:caption 背景色:backcolor 背景图片:picture,代码里面可以使用loadpicture()方法进行加载 属性窗口...

    基础部分

    一、窗体的基本操作

    1、窗体插入

    2、运行窗体

    • 要么直接在窗体的界面点击运行按钮
    • 要么用代码调用窗体的 show 方法

    3、关闭窗体

    • 代码关闭是 unload testform方法

    4、显示设置

    • 窗体标题:caption
    • 背景色:backcolor
    • 背景图片:picture,代码里面可以使用loadpicture()方法进行加载

    属性窗口里面可以查看

    5、位置大小

    • top、left、height、width
    • startupPosition 启动显示位置

    6、显示行为

    • showModal 的值就是 true 或者false 可以设置显示窗体的时候是否可以进行其他的操作

    7、删除窗体

    二、控件的基本操作

    1、控件插入

    在这里插入图片描述

    2、删除

    3、对齐

    • 菜单栏格式里面
    • 可以选中多个控件进行布局的操作

    4、tab键相关

    在这里插入图片描述

    5、控件循环

    • 所有控件集合 controls
    • controls(index) controls("name")可以选定具体的控件

    6、控件类型判断

    • typename 判断控件类型
    Private Sub UserForm_Click()
        For i = 0 To Controls.Count - 1
            If TypeName(Controls(i)) = "TextBox" Then
                MsgBox Controls(i).Value
            End If
        Next i
    End Sub
    

    窗体事件

    • 和前面讲的工作表事件等是一样的,只需要特别注意一下键盘事件和鼠标事件
      在这里插入图片描述

    一、键盘事件

    1、keydown

    • keyCode 唯一,shift 参数不同的值分别代表ctrl、shift、alt
    Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ''''''''''''''code
    End Sub
    

    2、keyup

    Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ''''''''''''''code
    End Sub
    

    3、keypress

    Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ''''''''''''''code
    End Sub
    

    keydown keypress 都是按键按下,但是一般使用keydown,功能更加强大

    二、鼠标事件

    1、mousedown

    • button不同的值分别代表左右和中键
    • shift 也是和上面一样
    • x 和 y 就是鼠标的位置坐标
    Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    End Sub
    

    2、mouseup

    Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    End Sub
    

    3、mousemove

    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    End Sub
    

    vba一行的代码很长的话可以使用空格加下划线然后enter的方式进行换行


    标签和按钮

    一、按钮

    1、快捷键设置

    • 就是设置 Accelerator 属性,然后通过 alt 键加设置的键就可以激活按钮的 click 事件

    2、enter 和 esc 响应

    • 就是 default 和 cancel 属性都设置为true,然后窗体显示并且焦点在按钮上的时候按 esc 和 enter 就会激发按钮的 click 事件

    二、标签

    • label 标签基本就是用来显示一定的提示内容
    • 具体的属性使用的时候可以通过属性窗口进行摸索

    文字框

    • maxLength 和 autoTab 属性可以实现输入多少个字符自动切换
    • 基本的事件也是可以通过名字完全看懂的,不多说
    • 其他的使用基本上也是琢磨属性窗口的内容

    列表和组合框

    • 这两个的用法基本是一致的,就是下拉框比一般的列表更加节省空间而已
    • 选项的填充可以使用 additem 方法,可以用数组赋值给 list 属性,可以直接引用单元格区域赋值到RowSource 属性
    • 选项的移除使用 removeitem 方法

    一、combobox

    • listIndex 代表当前选中项的索引:ComboBox1.List(ComboBox1.ListIndex, 2)
    • list 可以获取到具体的某个行列的值,第一个参数是行数,后一个是列数

    二、listbox

    • multiselect 设置是否可以选中多行
    • selected 方法可以判断选项是否选中
    Private Sub ComboBox1_Change()
        Label1.Caption = "选中项的返回值是:" & ComboBox1.Value
    End Sub
    
    Private Sub CommandButton1_Click()
        Dim arr
        arr = Sheets(1).Range("a8:e15")
        ComboBox1.ColumnCount = 5 '设置下拉框显示的列数
        ComboBox1.BoundColumn = 3 '设置选中返回的列的数据
        ComboBox1.TextColumn = 3 '设置选中下拉框的显示列
        ComboBox1.List = arr
    End Sub
    Private Sub CommandButton2_Click()
        ListBox1.RowSource = "Sheet1!A8:E12"
        ListBox1.ColumnCount = 5
        ListBox1.ColumnHeads = True
        ListBox1.BoundColumn = 3
        ListBox1.TextColumn = 2
    End Sub
    
    Private Sub CommandButton3_Click()
        MsgBox ComboBox1.List(ComboBox1.ListIndex, 2)
    End Sub
    
    Private Sub CommandButton4_Click()
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                MsgBox ListBox1.List(i, 2)
            End If
        Next i
    End Sub
    

    在这里插入图片描述


    单选、复选、框架、多页

    一、单选、复选、框架

    • 单选和复选必须要通过框架才能成组
    • 不然对于单选框一个窗体的话只能有一个被选中
    Private Sub Frame1_Click()
        If 男.Value Then sr = "you sex:" & 男.Caption
        If 女.Value Then sr = "you sex:" & 女.Caption
        If 中.Value Then sr = "you sex:" & 中.Caption
        TextBox1.Value = sr
    End Sub
    
    Private Sub Frame2_Click()
        Dim sr As String
        sr = "爱好:"
        If 唱歌.Value Then sr = sr & 唱歌.Caption & Chr(10)
        If 跳舞.Value Then sr = sr & 跳舞.Caption & Chr(10)
        If 篮球.Value Then sr = sr & 篮球.Caption & Chr(10)
        TextBox2.Value = sr    
    End Sub
    

    在这里插入图片描述

    二、微调、滚动调节

    • 二者基本的使用都是一致的
    • 都包含 max 、min最大最小值属性
    • 滚动条支持步长 smallChange 和 largeChange 属性,微调只支持前者
    • 对滚动条来说 smallChange 设置的是点击箭头按钮的该表量,largeChange 是设置直接点击滚动条的改变量
    Private Sub ScrollBar1_Change()
        ScrollBar1.SmallChange = 2
        ScrollBar1.LargeChange = 10
        ScrollBar1.Min = 10
        ScrollBar1.Max = 80
        TextBox4.Value = ScrollBar1.Value
    End Sub
    
    Private Sub SpinButton1_Change()
        SpinButton1.SmallChange = 2
        TextBox3.Value = SpinButton1.Value
    End Sub
    

    在这里插入图片描述

    vba 中的Me变量代表代码所在的对象,如果是工作表代码就代表该工作表,如果是窗体代码就代表窗体

    三、多页

    1、图片控件

    Private Sub Image1_Click()
        f = Dir("C:\Users\user\Desktop\*.jpg")
        Do
            ListBox1.AddItem f
            f = Dir
        Loop While (Len(f) <> 0)
    End Sub
    Private Sub ListBox1_Click()
        Dim path As String
        path = "C:\Users\user\Desktop\" & ListBox1.Value
        Image1.Picture = LoadPicture(path)
    End Sub
    

    在这里插入图片描述

    2、多页

    • 选项卡的索引是从 0 开始的
    • style 属性设置为 2 可以隐藏上面的 tab 卡
    Private Sub Label1_Click()
        MultiPage1.Style = 2
    End Sub
    
    Private Sub MultiPage1_Change()
        MsgBox MultiPage1.Value
        MultiPage1.Value = 3
    End Sub
    

    ListView控件


    TreeView控件


    日期和进度条(略)


    综合实例


    命令栏操作(略)
    功能区操作(略)
    代码操作代码(略)

    展开全文
  • 合并拆分文件,图片插入更新,批量生成图表,用户登录控制,一机一码注册加密,数组字典详解,窗体控件详解,你想要学的都在这里,所有案例均与实际工作场景结合,即学即用!!! 本人全职VBA程序员 Excel vba二次...

    fe29526621dc9efd3e71fcd535fbdfd5.png

    合并拆分文件,图片插入更新,批量生成图表,用户登录控制,一机一码注册加密,数组字典详解,窗体控件详解,你想要学的都在这里,所有案例均与实际工作场景结合,即学即用!!! 本人全职VBA程序员 Excel vba二次开发12年经验 常用代码175例+,超过210集 ,超60小时逐行手写直播实况教学视频 极速入门,快速提高!【高手课】

    本套教程目录如下

    3f738807b2b3cf7829d79895b43ba5ee.png

    d23d8e11be02bebf0c24f1515644f601.png

    4db2d9917ec4905a6e9da69a2088897b.png

    5d19bb39f661cedcc46502a8a086f603.png

    137a3423c053b0c51d5e81e49bd5a971.png

    2ebe8c2f8f30ac526fdce641d9d4469f.png

    c805e2ba7fe75c85d6ce067eb453379c.png

    e127b42c55137aabafcc67e1440b22e3.png

    566eddd4ec23fbf3680600feaa9d0925.png

    16122585af984d35379019d6d47b61d7.png

    f357ad85689018947892d541abdcf5a8.png

    636b44a013f0f0a69fb3c89204f573a0.png

    高手课《学好了效率高!Excel实战技巧208例》作者高手课VBA代码助手作者,全职Excel vba程序员 。高手课承包了你大学考试职业生涯所需要的考试资料、职业考试资料、软件以及教程。

    502b5bb218292f0eea54b5d6c62a10ad.png
    1. 熟练掌握单元格的操作要领
    2. VBA代码中获得单元格的8种常见方法
    3. 在屏幕上模拟手工选择或者激活单元格区域的3种方法
    4. 获得指定行、列中的最后一个非空单元格行号
    5. 录制宏入门详解 快速选定特殊类型单元格
    6. 根据指定内容批量查找数据的2种常见方法
    7. 多组待查值与替换值的批量替换
    8. 复制粘贴单元格区域
    9. 仅复制数值到另一区域
    10. 选中单元格后自动进入编辑状态
    11. 阻止用户自由拖放单元格以及使用下拉自动填充
    12. 用代码设置单元格格式
    13. 用VBA代码控制数据有效性
    14. VBA中操作单元格中的公式
    15. VBA操作单元格中的批注
    16. 单元格的合并与拆分 合并单元格操作详解
    17. 仿WPS阅读模式,高亮显示单元格区域
    18. 去掉双击被保护单元格时显示的提示消息框
    19. 强制重算指定单元格区域
    20. 录入数据后单元格自动保护 防止篡改数据
    21. 工作表常用事件中Target参数的使用方法
    22. 熟练操作Worksheet工作表
    23. 5种最常用的引用工作表方式
    24. 选择和激活工作表的方法
    25. For 循环入门 循环访问多个工作表的方法
    26. 在工作表中前后翻页 用按钮实现循环翻页
    27. 工作表的批量添加与删除及On Error应用
    28. 禁止工作表重命名 固定工作表名称
    29. 自动建立工作表目录 用事件实现点击单元格跳转到表
    30. 工作表的深度隐藏 强制用户启用VBA 否则无法看到工作表
    31. 用户更改工作表的名称后自动改回原名
    32. 工作表中批量插入多行
    33. 批量删除工作表中的空行
    34. 按需删除工作表的重复行 可选择保留最先出现或者最后出现
    35. 利用定位功能快速删除特定内容所在的行
    36. 判断用户当前是否选中整行
    37. 限制工作表在指定区域内滚动
    38. 复制自动筛选后的不连续数据区到其他表
    39. 代码中调用高级筛选获得不重复记录 拆分表
    40. 保护作表解除保护密码的2种方法
    41. 分别按奇偶页打印工作表
    42. Workbook(工作簿)对象详解
    43. 4种访问工作簿的方法
    44. 新建工作簿文件并初始化多个sheet表写入表头
    45. 打开指定的工作簿, 如果已经打开则直接获取
    46. 判断指定工作簿是否打开
    47. 禁用工作簿的关闭按钮
    48. 保存工作簿的方法
    49. 保存指定1个或多个工作表为工作簿文件
    50. 设置工作簿文档属性信息
    51. 不打开工作簿取得其他工作簿数据
    52. 单工作簿中多工作表数据合并 循环进阶
    53. 多文件多工作表数据合并 遍历文件+双循环
    54. VBA中函数的使用
    55. 调用工作表函数求和 工作表函数的使用技巧
    56. 利用工作表函数查找统计多个最大、最小值
    57. 禁止录入重复值CHANGE事件+COUNTIF函数
    58. 获得当月的最后一天 VBA自带函数的使用
    59. 使用日期函数 计算星期、季度、日期差和日期加减
    60. 四舍五入运算 VBA自带Round函数缺陷修正
    61. 使用字符串函数 变量构造字符串的常规技巧
    62. 判断是否为数值 判断数据类型的IS系列函数
    63. 格式化输出数值、日期和时间 Format函数详解
    64. 数字列号转换为字母列标 Split函数用法
    65. 批量删除空白工作表 TypeName函数实例
    66. 跨工作簿查找指定表名的工作表是否存在
    67. 查找指定工作簿是否打开
    68. VBA自定义函数实现人民币大写函数
    69. 个人所得税自定义函数 多级提成类解决方法
    70. 正则表达式提取函数 分别提取中文 英文 数字
    71. 自定义字符串连接函数 仿Office365中Textjoin函数
    72. 窗体与控件及用户接口常见案例详解
    73. 窗体与控件基础知识 仿记录单形式显示单元格数据
    74. 文本框回车自动输入到工作表中最后一行 键盘事件
    75. 限制文本框的输入 只允许输入指定类型字符
    76. 自动选择文本框内容
    77. 设置文本框数据格式以及文本框自动计算
    78. 文本框录入错误后清空内容并重置输入光标
    79. 文本框及弹出的对话框文字换行
    80. 多个文本框里Text数据相加,用字符串访问控件,使用类
    81. 多个控件跟随选择单元格,限定作用区域,执行不同任务
    82. 鼠标移动到按钮上高亮变色显示
    83. 组合框和列表框入门,添加列表项目的方法
    84. 去除ListBox添加项目时对源数据去重 去空值
    85. 字典Dictionary入门 数组去重写入到ListBox控件
    86. 移动Listbox列表框条目的位置 交换位置
    87. 多项选择的列表框 选择多项结果写入单个单元格
    88. 列表框显示多列数据,多列设置及整行写入表格的技巧
    89. 省市下拉选择二级联动组合框
    90. 使用自定义日期输入窗体 辅助输入数据
    91. 在窗体中使用RefEdit控件让用户选择单元格区域
    92. 遍历窗体控件以及工作表中控件的5种方法
    93. 窗体的2种状态 模式和非模式状态 应用场合
    94. 使数值条件按钮能调节小数 窗体控件实例
    95. 不打印工作表中的控件
    96. 在框架中使用滚动条 利用Frame限定控件区域
    97. 解决Lable标签文字无法垂直居中对齐的问题
    98. 自制封装进度条窗体,在循环代码中调用示范
    99. 窗体中使用多页控件 分类显示信息及控件分组
    100. 制作多用户登录窗体+简单权限管理+窗体美化
    101. 使用第三方控件 显示GIF动画图片 仅限32位office
    102. 使用flash控件播放Flash文件
    103. 用代码在工作表中添加窗体控件
    104. 用代码在工作表中添加ActiveX控件 及添加新代码
    105. 逐步输入提示 中文+拼音首字母模糊搜索
    106. 使用spreadsheet控件 在窗体中显示sheet
    107. 使用Listview控件显示更美观的列表数据
    108. 使用TreeView控件显示多级分层数据 兼容32+64位
    109. 设置窗口标题栏个性图标 winapi
    110. 用户窗体添加最大最小化按纽
    111. 禁用窗体标题栏的关闭按钮
    112. 制作无标题栏窗体
    113. 制作带倒计时关闭的无标题栏无边框的欢迎屏幕
    114. 制作年月选择窗体 文本框+数值调节框组合
    115. 自定义窗体中的鼠标指针类型
    116. 文本框添加右键快捷菜单
    117. 调整窗体的显示位置 做个永远点不中的窗体!
    118. 根据单元格确定窗体显示位置 跟随单元格
    119. 在窗体及表格中使用颜色选择对话框
    120. 选择单元格后 窗体颜色跟随单元格颜色改变
    121. 在窗体中显示图表.单元格区域以及表格中的图片
    122. 窗体高级功能 为控件和窗体添加自适应大小功能
    123. 右键弹出三级省市区菜单 辅助输入神器 移植方法
    124. 在窗体中用代码生成100个按钮 并绑定事件
    125. 制作一个简易计算器用户交互 批量生成按钮事件 类入门
    126. 用户窗体的全屏最大化显示
    127. 使用Webbrowser控件显示网页 利用html语句制作跑马灯文字
    128. 如何注册控件
    129. 使用弹出对话框
    130. msgbox弹出对话框,按钮组合及多行信息排版
    131. 自动关闭的消息框 定时x秒后关闭 API函数调用
    132. 使用InputBox对话框 接收用户输入
    133. Application.InputBox方法 选择单元格区域
    134. Applicaiton内置对话框 选择文件另存等
    135. 调用操作系统“关于”对话框
    136. 图形与图表对象
    137. 用VBA代码一键绘制三栏斜表头
    138. VBA导出工作表中的图片+导出单元格区域为图片
    139. 为表格中的图片添加点击放大缩小的功能
    140. 遍历工作表中的图形 按指定类型以及 按指定名称
    141. 移动、旋转、放大对象 制作一个跳动的红心
    142. 工作表中批量插入图片
    143. 合并带图片的工作表时 不丢失图片以及保留图片大小的方法
    144. 使用VBA自动生成图表(选学 不建议深究)
    145. 在窗体下拉框选择人名动态显示图表
    146. 根据数据源逐行生成图表并 封装Chart.Export函数
    147. 批量生成多行多列图表 模板化思维
    148. Application对象
    149. 取得Excel版本信息 根据不同判断运行不同代码
    150. Excel中的“定时器”,时间倒计时显示及定时刷新
    151. 动态设置Excel窗口标题栏,标题栏加入当前时间刷新
    152. 获得当前点击的的按钮名称及所在位置,执行批量任务
    153. 指定宏快捷键及屏蔽、改变组合键的功能
    154. 状态栏显示当前运行进度百分比
    155. 根据情况选择关闭工作簿还是关闭Excel程序
    156. 隐藏Excel主窗口的3种方法
    157. 窗体列出打印机列表 设置活动打印机的名称
    158. 文件及文件夹操作
    159. 导入文本文件 读取文本文件
    160. 将数据写入文本文件可输出为unicode格式
    161. 文件修改的日期和时间 获取最近日期文件 按日期排序
    162. 查找文件或文件夹 Dir函数遍历文件
    163. 遍历多层文件夹 递归遍历子文件
    164. 创建和删除文件夹 按列表批量创建文件夹
    165. 文件重命名工具表的制作与使用
    166. 复制指定的文件 FileCopy语句
    167. 删除指定的文件 删除前提示 表格文件自杀
    168. 使用FileSystemObject处理文件 推荐代替Dir函数
    169. 文件归类整理 按分类列表对文件重新分类
    170. 数组和字典应用
    171. VBA数组的定义,使用,读取和写入单元格
    172. VBA数组排序,合并和拆分
    173. 字典入门单列及多列关键字去重、分类汇总及查找
    174. 数组及字典实现高效一对多及多对多查找
    175. 其他杂项应用
    176. 取得电脑名称 判断指定电脑名称才能运行
    177. 取得逻辑盘序列号 利用文件对象 根据C盘ID保护项目
    178. 制作一机一码硬件注册机 保护个人作品不得随意传播
    179. 延缓代码运行速度 在Excel中实现动画效果
    180. 定时关机 Shell语句 打开其他程序
    181. 定制VBE代码编辑器 多色任选
    182. VBA代码调用COD对象批量发送邮件
    183. 保护VBA代码 设定密码及工程不可查看
    184. 优化代码速度的一般原则和技巧
    185. 代码运行中播放提示音
    186. 防止用户中断代码运行
    187. 一线真实综合案例详解
    188. 金蝶K3财务系统 账套模板 Excel数据导入模板输出
    189. 按单号合并多行多列状态数据到单行多列
    190. 批量自动生成多人工资发放条
    191. 循环中调用COUNTIF对满足条件的多表多列条件求和
    192. 奇葩数据 隔行日期 员工销售额人名日期汇总3字典联合应用

    高手课承包了你大学考试职业生涯所需要的考试资料、职业考试资料、软件以及教程。本套视频适合各阶层Excel vba爱好者学习,以案例为导向,穿插基础知识在案例实现中,无理论纯实战教学法!每一节课我都会从0开始带大家一起敲代码,告诉大家vba代码编写过程中的诸多注意事项!

    e988e85e7e1d4f50d0ab381e74885257.png
    展开全文
  •       本课程属性Excel VBA中比较高阶的课程,主要讲解关于各种事件的应用,...第2章:窗体控件应用第3章:ActiveX控件应用第4章:类模块应用第5章:vba+ado+sql第6章:实战应用(考试系统开发)
  • 验证vba中可用的免费QR码二维码控件

    热门讨论 2012-03-25 23:13:15
    由于VBA窗体环境和VB中的差不多,所以在VBA窗体调用QRmaker就不再描述,这里主要说明一下如何在表格中引用QRmaker。 第一步:单击Office按钮,在Excel选项中开启“开发工具”项,从而让“开发工具”选项卡显示...
  • VBA事件过程

    2018-12-03 16:43:29
    是由VBA自行声明并附在窗体控件、工作表、工作簿对象上。用户不可以对事件过程声明进行增加或删除。当用户在某个对象上引发一个动作时,Windows会通知VBA产生一个事件,并且VBA会自动地调用与该事件相关的事件过程...

    事件子过程:
    是由VBA自行声明并附在窗体、控件、工作表、工作簿对象上。用户不可以对事件过程声明进行增加或删除。当用户在某个对象上引发一个动作时,Windows会通知VBA产生一个事件,并且VBA会自动地调用与该事件相关的事件过程。
    事件Sub子过程的调用格式如下:

    Private Sub 对象名_事件名([参数表])
        语句块
    End Sub 
    

    对象名是对象在VBE属性窗口的名称属性。事件名种类非常多,而且不同的对象类型其事件也可能不一样。例如,窗体对象包含了初始化事件和卸载事件,文本框包含了文本框改变事件。

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧128 在工作表中添加窗体控件 12 128-1 使用AddFormControl方法 12 128-2 使用Add方法 12 技巧129 在工作表中添加ActiveX控件 12 129-1 使用Add方法 12 129-2 使用AddOLEObject方法 12 技巧130 使用spreadsheet...
  • Excel_VBA教程

    2014-09-22 11:36:34
    28.编写VBA过程对窗体控件事件反应 211 29.编写过程来初始化窗体 211 30.编写过程填充列表框控件 213 31.编写过程控制选项按钮 213 32.编写过程同步文字框和旋转按钮 214 33.编写过程关闭用户窗体 214 34.转移窗体...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧128 在工作表中添加窗体控件 302 128-1 使用AddFormControl方法 303 128-2 使用Add方法 305 技巧129 在工作表中添加ActiveX控件 307 129-1 使用Add方法 308 129-2 使用AddOLEObject方法 310 技巧130 使用...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    28.编写VBA过程对窗体控件事件反应 211 29.编写过程来初始化窗体 211 30.编写过程填充列表框控件 213 31.编写过程控制选项按钮 213 32.编写过程同步文字框和旋转按钮 214 33.编写过程关闭用户窗体 214 34.转移窗体...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • 01064获取Excel窗体工具栏信息 01065获取Excel外部数据工具栏信息 01066获取Excel公式审核工具栏信息 01067获取Excel控件工具箱工具栏信息 01068获取Excel绘图工具栏信息 01069获取Excel命令按钮的外观图像和FaceID...
  • 在access vba中,因为要对表中数据的操作,编写代码经常需要调用SQL语句。我们通常不会在VBA代码中键入复杂的查询语句,而是在查询的设计视图中创建一个查询,将其切换到SQL视图,复制并粘贴到VBA中。但是如果sql...

    在access vba中,因为要对表中数据的操作,编写代码经常需要调用SQL语句。

    我们通常不会在VBA代码中键入复杂的查询语句,而是在查询的设计视图中创建一个查询,将其切换到SQL视图,复制并粘贴到VBA中。

    但是如果sql语句太长,我们需要折行,同时要整理引号和行尾

    1. 创建一个新窗体,添加一个选项卡控件,的第一页中,添加一个未绑定的文本框,名为“txtSql”。

    2. 在选项卡控件的第二页,添加另一个未绑定的文本框,将其命名为“txtVBA ”。

    3. 最后添加命令按钮,将其命名为“cmdSql2Vba”。

    48db4c8ac2177d926586cceb686eb3bf.png

    详细按钮代码:

    Private Sub cmdSql2Vba_Click() Dim strSql As String 'Purpose: Convert a SQL statement into a string to paste into VBA code. Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"  If IsNull(Me.txtSql) Then Beep Else strSql = Me.txtSql strSql = Replace(strSql, 
    展开全文
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • 在access vba中,因为要对表中数据的操作,编写代码经常需要调用SQL语句。我们通常不会在VBA代码中键入复杂的查询语句,而是在查询的设计视图中创建一个查询,将其切换到SQL视图,复制并粘贴到VBA中。但是如果sql...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    3.6 使用用户窗体 16 3.7 疑难解答 17 第四课 理解变量和变量的作用 17 4.1 代码存在的位置:模块 17 4.2 对模块的概览 18 4.2.1 创建过程 18 4.2.2 运行宏 19 4.3 保存对模块所做的改变 19 4.4 变量 19 4.4.1 变量...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    3.6 使用用户窗体 16 3.7 疑难解答 17 第四课 理解变量和变量的作用 17 4.1 代码存在的位置:模块 17 4.2 对模块的概览 18 4.2.1 创建过程 18 4.2.2 运行宏 19 4.3 保存对模块所做的改变 19 4.4 变量 19 4.4.1 变量...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    一、VBA语言基础...................................................................................................................1 第一节标识符...........................................................
  • 3.6 使用用户窗体 8 3.7 疑难解答 9 第四课 理解变量和变量的作用 9 4.1 代码存在的位置:模块 9 4.2 对模块的概览 9 4.2.1 创建过程 10 4.2.2 运行宏 11 4.3 保存对模块所做的改变 11 4.4 变量 11 4.4.1 变量的数据...
  • WHC第三方控件

    2018-07-16 12:51:42
    1. 跨线程的控件安全访问方式(CallCtrlWithThreadSafety.cs) 2. CheckBoxList(CheckBoxListUtil.cs) 3. 窗口管理类(ChildWinManagement.cs) 4. 由马丁•米勒http://msdn.microsoft.com/en-us/library/ms996492.aspx...
  • (65KB) 4,rgsysmoncal.ZIP 日期控件(35KB) 5,datadrn.ZIP 创建数据驱动窗体(7KB) 6,tooltip.zip 利用VB建立ToolTip窗口(4KB) 7,trans.zip 建立透明的窗口(2KB) 8,Anicur.zip 在...
  • 前言我们在运行某个比较耗时的功能的...操作步骤1、在窗体的构造函数中添加://不捕获对错误线程的调用 CheckForIllegalCrossThreadCalls = false;举个栗子,创建控件label的线程是页面启动的主线程,如果在另一个...
  • Access2000中文版高级编程 目录 第一部分 编程基础 1 第1章 宏与代码 3 1.1 何时使用代码代替宏 4 1.1.1 何时用宏 4 ...第2章 使用VBA编写代码 13 ...14.3.4 使用VBA创建和填充ListView控件 ...
  • 14.7 用StatusBar控件创建单独窗体的状态栏 459 14.7.1 StatusBar Panels集合的属性 460 14.7.2 在运行阶段设置StatusBar属性 461 14.8 用ToolBar控件丰富窗体上的工具栏 462 14.9 应用TreeView控件查看数据文件...
  • Excel学习小记

    2015-11-26 18:29:03
    下班啦,不过外面高峰,还是躲一下再走吧。 最近囫囵吞枣式地过完了...简言之,它比入门多出来的内容主要是对vba事件(比如MouseUp,MouseDown),windows系统对象的调用(比如放个音乐,扒个网页)和窗体控件的摆弄
  • Excel编程初体验

    2005-09-20 10:43:00
    昨天按捺住用vb编程的冲动,改用excel自带的vba写了一段处理过程,感觉还可以。 语法跟vb一样,写起来非常顺手...过程的调用通过控件实现 对单元格的引用,很多,找到一种就懒得再找了:sheet1.cells(1,1),参数...

空空如也

空空如也

1 2 3 4 5
收藏数 95
精华内容 38
关键字:

vba调用窗体控件