![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vba
Delusion_luck
这个作者很懒,什么都没留下…
展开
-
门店销售记录
Dim arr()Dim ID As StringDim DJ As LongPrivate Sub CommandButton1_Click()If Me.ListBox1.Value <> "" And Me.ListBox2.Value <> "" And Me.ListBox3.Value <> "" And Me.TextBox1 > 0 Then Me.ListBox4.AddItem Me.ListBox4.List(Me..原创 2020-05-31 12:41:42 · 608 阅读 · 1 评论 -
触类旁通:图形、图片、与表单控件
按位置插入并调整图片(靠帮助)'插入照片Sub test2()Dim i As IntegerDim shp As Shape'防止报错On Error Resume Next'循坏遍历,删除对象For Each shp In Sheet1.Shapes shp.DeleteNext'for循环到数据尾行For i = 2 To Sheet1.UsedRange.Rows.Count Sheet1.Shapes.AddPicture "D:\DATA\" &原创 2020-05-28 23:14:25 · 228 阅读 · 0 评论 -
ADO操作外部数据
使用ADO连接外部Excel数据源1 在VBE界面中 工具—引用勾选Microsoft ActiveX Data Object x.x Library2 连接代码Sub test()Dim conn As New ADODB.Connectionconn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel 12.0;HDR=YES”""’这原创 2020-05-28 14:41:02 · 268 阅读 · 0 评论 -
VBA中的信息交互
MsgboxMsgbox对话框的样式参数参数:Msgbox(提示文字,按钮类型,标题文本,帮助文件,帮助文件索引)示例:Msgbox “你还好吗? “,4 + 32,“打招呼对话框”, “C:/a.chm”,0Msgbox对话框的样式参数按钮类型:可使用加好连接Msgbox对话框的返回值示例:A = Msgbox“你还好吗?“,4+ 32 ,“打招呼对话框”,“C:/a.chm",0)InputboxInputbox函数样式参数参数:Inputbox(提示文字,标题文字,默认原创 2020-05-27 16:21:13 · 519 阅读 · 0 评论 -
ActiveX控件以及窗体的运用
ActiveX控件(按钮控件)CommandButton按钮控件常用属性Enabled 可用性Caption 标题Visible 可见性(标签控件)Label按钮控件常用属性Enabled 可用性Caption 标题Visible 可见性(单选按钮控件)OptionButton单选按钮控件常用属性Caption 标题Enabled 可用性GroupName 组名Value 返回值Visi原创 2020-05-26 15:38:51 · 550 阅读 · 1 评论 -
VBA 简易考试系统
这里写自定义目录标题界面代码界面界面题库代码下面展示一些 内联代码片。// A code blockvar foo = 'bar';// 模块Sub xieru()Dim str As Stringstr = Sheet2.TextBox1.ValueWith Sheet2 '将题目写入题库 For i = 1 To Sheet2.Range("a65536").End(xlUp).Row - 1 .Range("a" & i + 1)原创 2020-05-24 10:31:01 · 3470 阅读 · 4 评论