精华内容
下载资源
问答
  • 简单的区域选择和赋值 Sub 单元格复制() Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).Value End Sub Resize函数,是用于调整指定区域的大小,返回代表调整后的区域,也就是原来有个区域,返回值...

    单元格的选取和赋值,都是有规则,后续肯定是要专门写一个赋值和区域选择的内容。

    简单的区域选择和赋值

    Sub 单元格复制()
        Range("H8").Resize(5, 3).Value = Range("A1").Resize(5, 3).Value
    End Sub

    Resize函数,是用于调整指定区域的大小,返回代表调整后的区域,也就是原来有个区域,返回值是另外一个区域。

    具体语法:Range.Resize(RowSize,ColumnSize)。RowSize代表重置后的行数,Column代表重置后的列数,如果参数省略,则代表新区域的行数或者列数保持不变。


    就这么多,更多详细内容,请参考一下内容:

    VBA中Resize函数详解


    展开全文
  • 函数代码: (ALT+F11快速进入宏编辑) Public Sub Demo1() Rem|"视图-此处为第一种注释方法" ' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法 Load UserForm1 If ActiveWindow.ActiveView...

    函数代码: (ALT+F11快速进入宏编辑)

    Public Sub Demo1()
    Rem|"视图-此处为第一种注释方法"
    ' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法
     Load UserForm1
       If ActiveWindow.ActiveView.Type = cdrEnhancedView Then
          UserForm1.Text = "Enhanced"
       ElseIf ActiveWindow.ActiveView.Type = cdrNormalView Then
          UserForm1.Text = "Normal"
       ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView Then
          UserForm1.Text = "Wireframe"
       ElseIf ActiveWindow.ActiveView.Type = cdrSimpleWireframeView Then
          UserForm1.Text = "Simple Wireframe"
       ElseIf ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints Then
          UserForm1.Text = "Enhanced WithOverprints"
       Else
          UserForm1.Text = "Draft"
    '此处结束If语句判断
       End If
    '显示(名称)为UserForm1的窗口
      UserForm1.Show
    '函数结束语
    End Sub

    窗口效果图: 

    查看窗口代码: 

    Private Sub Bt1_Click()
    '赋值视图类型
    ActiveWindow.ActiveView.Type = cdrSimpleWireframeView
    MsgBox "简单线框"
    '给文本框赋值
    Text.Text = "Simple Wireframe"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt2_Click()
    ActiveWindow.ActiveView.Type = cdrWireframeView
    MsgBox "线框"
    Text.Text = "Wireframe"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt3_Click()
    ActiveWindow.ActiveView.Type = cdrDraftView
    MsgBox "草稿"
    Text.Text = "Draft"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt4_Click()
    ActiveWindow.ActiveView.Type = cdrNormalView
    MsgBox "正常"
    Text.Text = "Normal"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt5_Click()
    ActiveWindow.ActiveView.Type = cdrEnhancedView
    MsgBox "增强"
    Text.Text = "Enhanced"
    '刷新显示
    UserForm1.Repaint
    End Sub
    
    Private Sub Bt6_Click()
    ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints
    MsgBox "使用叠印增强"
    Text.Text = "Enhanced WithOverprints"
    '刷新显示
    UserForm1.Repaint
    End Sub

     到绘图界面运行宏名称为Demo1的宏

    效果图:

    …………………………………………………………4:46继续更新

    展开全文
  • EXCEL VBA应用开发与实例精讲

    热门讨论 2009-05-06 15:34:29
    1.3 简单VBA实例 1.4 VBA的学习方法 1.5 调试方 1.6 小结 第2章 VBA的语法基础 2.1 常量和变量 2.2 VBA中的数据类型 2.3 数组 2.4 运算符 2.5 分支语句 2.6 判断语句 2.7 循环语句 2.8 用于退出或暂停程序的语句 2.9...
  • EXCEL VBA应用开发与实例精讲完整版

    热门讨论 2012-04-16 14:17:15
    1.3 简单VBA实例 1.4 VBA的学习方法 1.5 调试方 1.6 小结 第2章 VBA的语法基础 2.1 常量和变量 2.2 VBA中的数据类型 2.3 数组 2.4 运算符 2.5 分支语句 2.6 判断语句 2.7 循环语句 2.8 用于退出或暂停...
  • SQL语句中的一些简单计算函数:如max函数SELECT MAX(列字段) AS 别名1 FROM [工作表名$]如AVG函数SELECT AVG(列字段) AS 别名1 FROM [工作表名$]使用实例说明:源数据:查询内容对英语成绩最高分:对英语成绩平均分...

    SQL语句中的一些简单计算函数:

    如max函数

    SELECT MAX(列字段) AS 别名1 FROM [工作表名$]

    如AVG函数

    SELECT AVG(列字段) AS 别名1 FROM [工作表名$]

    使用实例说明:

    源数据:

    272a3a5f707c72dfcfa7c7d392b203df.png

    查询内容

    对英语成绩最高分:

    e82855a26c6334921a95710015701097.png

    对英语成绩平均分:

    d0defebd2ba3370f88099e8e23e60694.png

    代码运行的结果如下:

    1eef6c07e4a0e0b2a32cb7aa32e50f6d.gif
    56e4cbe940fe783748c925580aa8cee0.gif

    代码如下:

    32a77e8831d4da68391ecc5cbb85943f.png
    974bc41f65eb1ba077d371e4b2d0d9dc.png

    Sub FuYun_Sql_Avg()

    Dim cnn As Object, rst As Object

    Dim Mypath As String, Str_cnn As String, Sql As String

    Dim i As Long

    Set cnn = CreateObject("adodb.connection")

    '以上是第一步,后期绑定ADO

    Mypath = ThisWorkbook.FullName

    '以上获取当前工作簿的路径及名称

    If Application.Version < 12 Then

    '格式为.xls,调用下述语句

    Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath

    Else

    '格式为.xlsx,调用下述语句

    Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath

    End If

    cnn.Open Str_cnn

    '以上是第二步,建立链接

    Sql = "SELECT avg(英语) as 平均分 FROM [英语-成绩单$]"

    'Sql语句,查询所有数据,并按照英语成绩进行排序

    [g2:g1000].ClearContents

    '清空[g2:g1000]区域内容

    Range("g2").CopyFromRecordset cnn.Execute(Sql)

    'Execute语句先执行SQL语句

    '使用单元格对象的CopyFromRecordset方法将SQL查询到的内容复制到D2单元格为左上角的单元格区域

    '以上是第三步,执行SQL语句并将数据读入表格指定区域

    cnn.Close

    '关闭链接

    Set cnn = Nothing

    '释放内存

    End Sub

    代码解析

    代码我放了一个例子,大部分的代码是一致的,只有SQL的句子不一样。 SQL支持的函数有 COUNT函数(计数)、SUM函数(求和)、MIN(最小值)

    SELECT COUNT(列字段) AS 别名1 FROM [工作表名$]SELECT SUM(列字段) AS 别名1 FROM [工作表名$]SELECT MIN(列字段) AS 别名1 FROM [工作表名$]

    多种函数还可以一起使用。比如最高分和平均分:

    Sql = "SELECT MAX(英语) as 最高分,SELECT avg(英语) as 平均分 FROM [英语-成绩单$]"

    延伸阅读

    VBA+ADO+SQL语句,小试牛刀。

    SQL 查询语句-WHERE

    SQL 的排序 ORDER BY

    VBA+SQL-按顺序提取

    私信 SQL 可以获取SQL代码的Excel文件

    私信 视频 可以获取54集VBA入门视频

    私信 VBA或 vba 可以获取文章中含VBA代码的Excel文件

    展开全文
  • 请教编写vba程序要用到函数吗?函数和程序是姐妹关系,在程序中经常用到函数来实现某些功能能举个例子说明吗?比如:if [a1].value="编程太难" then msgbox "a1单元格是“编程太难”" 上面程序中的 if 就是个最基本...

     请教编写vba程序要用到函数吗?

    函数和程序是姐妹关系,在程序中经常用到函数来实现某些功能

    能举个例子说明吗?

    比如:if [a1].value="编程太难"  then msgbox "a1单元格是“编程太难”"

    上面程序中的 if 就是个最基本函数,用于条件判断

    看不懂,好像是天书,是什么意思啊?

    上面代码意思是:如果a1单元格中输入的是编程太难 ,那么就会弹出一个消息框,显示

     a1单元格是“编程太难“  这句话

    如果不是“编程太难“,就不会弹出这个框框

    请问上面的代码如何实现功能?

    你可以在工作表里面添加一个按钮,用菜单的的控件工具箱的一个 按钮 形状的东东,单击一下然后画出一个 命令按钮

    然后双击按钮,进入代码编辑 界面,把那句代码复制过来,放在中间位置,如下:

    Private Sub CommandButton1_Click()

    if [a1].value="编程太难"  then msgbox "a1单元格是“编程太难”"

    End Sub

    下面进行测试:

    在a1单元格输入”编程太难“,然后点击按钮,看一下出现了什么。

    请问,我删除了单元格汉字,怎么没有 消息框 呢?

    我开始讲过,if函数本身就是条件判断,如果条件为真,即成立,就会执行后面的代码

    你删除变成空格,条件就不成立了呀,当然没框 了

    我终于做出了第一个程序。。。。。。。。。。。。。

    接着你可以把按钮改名,办法是 控件工具箱上第一个按钮(绿色的),点击一下进入可编辑状态

    看到了,按钮周围出现了一些小圆圈。。。。

    然后 按钮上点击右键,选择  属性

    找到caption 的这个属性,双击CommandButton1改为”编程不难,不会炒鱿鱼的“

    请教如果a1单元格是1,就跳出“是1”如果a1单元格是2,就跳出“是2”  ,怎么办?

    你按照上面的方法,再做第二个按钮,输入复制下面代码:


    aa = [a1].Value
    If [a1] = 1 Then MsgBox "是:" & aa
    If [a1] = 2 Then MsgBox "是:" & aa

    把按钮改名为”单元格值的判断“

    麻烦您解释一下,aa=[a1].value 是什么意思?

    aa=[a1].value 是什么意思:

    这里的aa是个变量,表示你在a1单元格中输入的值,接着下面就能引用变量的值了

    msgbox "是:aa", 这样写可以吗?

    不可以的

     MsgBox "是:aa"   结果只能显示      是:aa
    变量如果包括在双引号之内,就不再是变量,只是普通字符aa

     "是:" & aa

    这里的&起到了连接作用,左边是字符,右边是变量

    而变量aa的值就是你在单元格输入的值,而不是aa字符

    请问:比如单元格a1 ,这里的行次1我想让它成为可变, 怎么办?

    这里你先知道单元格的几种表示方法:

    同样是a1单元格,有下面 几种常用的表示方法:

    cells(1,1)

    range("a1")

    [a1]

    我先介绍这三种,它们都表示a1单元格,只是形式不同

    太好了,我过去就是不知道怎么引用单元格,只知道a1 、 b1等。。。。。。

    cells(行,列),如

    cells(2,3)

    表示第2行,第3列,即C2单元格

    现在讲怎么用变量表示其中的行或列

    先看:认识一下for循环赋值:

    for aa=1 to 10

    cells(aa,1).value=aa

    next

    老师,这个代码什么作用?

    你先另外做个按钮,把代码复制过去,看一下达到什么效果。

    单元格自动出现了10个数,太灵验了,这是我经常碰到但束手无策的。。。。。。

    这就是今后常用到的循环赋值在A列前10个单元格自动产生数字1-10

    那请老师介绍一下代码的意思?

    for aa=1 to 10            '1是初值,10是终值

    cells(aa,1).value=aa

    next

    其中for循环结构是  for 变量=初始值 to 终值 step 步长

    这里的步长没写,默认为1

    步长是什么意思?

    如果我改为 for aa=1 to 10 step 2

    加上步长2,则单元格产生数字就不连续了,这里的aa值就不是1,2,3,4,...10

    而是1,3,5,7,9

    你在学校里肯定会跳远吧,如果步长值 是2,则是二级跳,如果是3,则是三步一跳

    补充一下 for aa=1 to 10 step 2  只会在a1,a3,a5,a7,a9这几个单元格自动产生值,即隔行赋值

    for aa=1 to 10

    cells(aa,1).value=aa

    next

    这里的红色代码是赋值语句,cells(aa,1)表示行是变量aa,列是1,即第1列

    其中的aa变量值、个数已经由for aa=1 to 10限定,共有10个变量值

    注意for循环后面应该有next ,即通俗讲,next是执行下一个变量值的意思,比如第一次循环时,aa是1,next以后aa变量是2,依次类推

    老师,对了,我不用cells表示,用range?

    用range表示方法是  range("a" & aa)

    例如:

    Private Sub CommandButton5_Click()
    For aa = 1 To 10 Step 2

    Range("a" & aa) = aa
    Next
    End Sub

     

    展开全文
  • 在介绍自定义函数的具体使用之前,不得不先介绍一下VBA,原因很简单,自定义函数就是用它创建的。VBA的全称是Visual Basic for Application,它是微软最好的通用应用程序脚本编程语言,它的特点是容易上手,而且功能...
  • SQL语句中的一些简单计算函数:如max函数SELECT MAX(列字段) AS 别名1 FROM [工作表名$]如AVG函数SELECT AVG(列字段) AS 别名1 FROM [工作表名$]使用实例说明:源数据:查询内容对英语成绩最高分:对英语成绩平均分...
  • 的循环,书签(Bookmarks)中的循环等等,函数的应用、选择性分支语句、判断语句、 错误处理、类模块的使用、用户窗体的使用、数组的应用、Automation等等,不一一 列举,读者可根据自身情况,逐一进行渐进式学习。 ...
  • ExcelVBA查询LOL战斗力

    2014-07-28 19:46:36
    利用EXCEL的VBA "xmlHttp"连接 LOL盒子战斗力网页 解析地址语法 并且获得网页源码 应用简单的split函数进行解析 抓去特定的网页信息 为VB6.0/VBA开发 提供了一个简单实例~ 实例中 需要UTF-8转码。
  • excel快递查询实例

    2014-07-28 19:42:19
    利用EXCEL的VBA调用网络第三方API接口 查询快递 并且获得JSON的信息 应用简单的split函数进行解析 为VB6.0/VBA开发 提供了一个简单实例~
  • 本书以AutoCAD 2005中文版为开发平台,通过73个精彩的编程实例,向读者展示了AutoCAD VBA开发的高级技术。 1图书信息 中文名:AutoCAD VBA二次开发教程 作者:张帆 主编 郑立楷 卢择临 王成煌 编著 ISBN:...
  • VBA之正则表达式(13)-- 字符串变换

    千次阅读 2019-06-01 12:05:21
    实际应用场景中,字符串可能是完全不规则的,就需要使用VBA的字符串函数逐个读取字符,并进行判断,提取数字之后,进行运算,然后再拼接字符串也可以实现,有些麻烦。 处理字符的任务,还是需要使用正则这个神器。
  • 有的朋友可能会选择函数公式、高级的vba、甚至数据透视表!今天小编教大家一个很简单的办法来快速对比差异,你可能都不会想到还有这种操作???第一步首先点击开始程序中的【Microsoft Office】工具下的...
  • Excel2007宝典.pdf

    2019-07-23 10:13:54
    本书以全新的文字、图形和实例文件全面介绍了MicrosoftExcel2007的强大功能和使用方法。...最后一部分内容则简单介绍了VBA宏,并介绍了与VBA宏相关的信息,列举了大量详细的VBA实例帮助您进一步深入理解相关内容。
  • 自选图形的艺术组合——圆形

    千次阅读 2011-01-02 23:23:00
     相对其它高级语言,VBA的绘图优势在于它不需要大量的绘图函数,你要做只是对PPT的各种图形对象进行摆放。简单的,手工完成;繁琐的,交VBA完成。 实例:圆环的艺术组合 最终效果图 实例描述 将一个半径为R的...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    当这个主题打开后,再链接到其他相关的部分就简单多了。 好了,让我们试一试,体会体会!学习几个语句,研究几种方法,或者熟悉几个函数。你就能学会如何巧妙地运用 VBScript 语言,充分发挥 VBScript 语言的强大...
  • vb Script参考文档

    2009-07-28 22:13:02
    当这个主题打开后,再链接到其他相关的部分就简单多了。 好了,让我们试一试,体会体会!学习几个语句,研究几种方法,或者熟悉几个函数。你就能学会如何巧妙地运用 VBScript 语言,充分发挥 VBScript 语言的强大...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    RegExp 对象 提供简单正则表达式的支持。 Rem 语句 包含程序中的注释。 Replace 函数 返回一个字符串,其中某个指定的子串被另一个子串替换,替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的...
  • 今天就为朋友们分享一种单纯的使用函数、不包含任何VBA代码和数据透视表功能制作的可以实时自动更新的汇总表。一.实例要求:销售电器的记录会根据实际情况实时更新,要求计算下图中每一位的销售员的不同电器的销售量...
  • AutoCAD ActiveX二次开发技术.pdf

    热门讨论 2015-07-14 18:37:10
    全书共有20章,第1章到第4章,主要介绍AutoCAD ActiveX基础知识及VBA的使用和简单的程序示例。第5章到第9章,介绍AutoCAD ActiveX编程基础,意在使读者更详细地了解各个部分的编辑,使读者学会如何使用AutoCAD ...
  • 任务15: 简单函数的介绍 任务16: countif、sumif、rank函数 任务17: 逻辑函数 任务18: 闰年的判断 任务19: 文本函数 任务20: vlookup函数 任务21: hlookup函数 任务22: indirect函数 任务23: index、match...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    vba functions.xlsm:一个包含用于工作表公式的VBA函数的工作簿。 Chapter 41 change case.xlsm:使用UserForm以让用户进行选择的VBA宏。 show message.xlsm:一个包含显示信息的UserForm的工作簿。 Chapter 42 ...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    完整清晰版 PDF ,有目录。共 140MB,分为 2 个分卷 ...第14章 VBA概述与基本实例/355 14.1 VBA简介/355 14.2 宏录制器和图表/357 14.3 Chart对象模型/359 14.3.1 使用对象变量/360 14.3.2 使用With-EndWith结构/361...
  • 4.4.1 支持多窗体实例 84 4.4.2 检查Employees窗体的代码 84 4.4.3 自动关闭Employees窗体 86 4.5 小 结 87 第5章 使用DAO 88 5.1 理解DAO 88 5.1.1 了解数据库的内部构造 89 5.1.2 DAO初步 90 ...
  • 12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
  • MYSQL中文手册

    2013-03-11 21:21:34
    12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE...
  • 12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
  • (1)人性化设计, 可视化窗体操作, 操作更方便, 使用更简单. GB2/BIG5转换,快速取数与录入功能为创新领先功能. (2)功能强大, 160多项超实用功能, 集成了许多日常操作程式及功能更实用以及独特的函数以及多个动画功能...
  • 12.2.3 实现IDisposable接口和析构函数 12.3 不安全的代码 12.3.1 用指针直接访问内存 12.3.2 指针示例:PointerPlayaround 12.3.3 使用指针优化性能 12.4 小结 第13章 反射 13.1 定制特性 13.1.1 编写定制特性 ...

空空如也

空空如也

1 2 3
收藏数 41
精华内容 16
关键字:

vba函数简单实例