精华内容
下载资源
问答
  • 大家好,今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,简单的组合起来就是一个复杂的过程,也是一个学习的过程。VBA过程代码36:返回系统的当前日期Sub MyNZ()Dim MyDate, ...

    分享成果,随喜真能量。大家好,今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,简单的组合起来就是一个复杂的过程,也是一个学习的过程。

    VBA过程代码36:返回系统的当前日期

    Sub MyNZ()

    Dim MyDate, MyDay

    MyDate = Date

    MyDay = Day(MyDate)

    MsgBox MyDay

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框提示当前的日期。其中Date是当前的日期,含年月日,Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。

    95aee32ceba22997daf3a6d3f3e517a9.png

    VBA过程代码37:返回系统的当前年份

    Sub MyNZ()

    Dim MyDate, MyYear

    MyDate = Date

    MyYear = Year(MyDate)

    MsgBox MyYear

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框,提示当前的年。其中Date是当前的日期,含年月日,Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。

    6e7dcc636b3fc0300a385c07a08fa697.png

    VBA过程代码38:返回系统的当前月份

    Sub MyNZ()

    Dim MyDate, MyMonth

    MyDate = Date

    MyMonth = month(MyDate)

    MsgBox MyMonth

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将弹出一个对话框,提示当前的月。其中Date是当前的日期,含年月日,month(MyDate)是从上述的当前日期中提出月。最后用MsgBox弹出对话框显示这个月。

    VBA过程代码39:inputbox

    Sub MyNZ()

    XX=InputBox ("Enter number to add!")

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将弹出一个输入对话框,提示输入的信息:"Enter number to add!" 最后用变量XX记录这个输入。

    VBA过程代码40:得到一个文件名

    Sub MyNZ()

    Dim kk As String

    kk = Application.GetOpenFilename("EXCEL (*.XLSM), *.XLSM", Title:="提示:请打开一个EXCEL文件:")

    msgbox kk

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将弹出一个打开的对话框,让用户选择某个文件,并用变量KK记录这个文件名,这个文件名是包含地址的FULLNAME。注意此时的代开对话框并不是真的打开这个文件。

    e653ed392cbdf7af48b701b913dbd42b.png

    看板:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的"干货",欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频,"每天20分钟,半年精进VBA"活动正在火热进行中,越早报名,回馈越多。现在第一册48讲内容已经录制完成,第一阶段的优惠活动即将结束。

    展开全文
  • 大家好,今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下:VBA中,常用的过程又哪几类.VBA过程代码26:返回选定区域的非空单元格的个数Sub MyNZ()H = Application.WorksheetFunction....

    分享成果,随喜真能量。大家好,今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下:VBA中,常用的过程又哪几类.

    VBA过程代码26:返回选定区域的非空单元格的个数

    Sub MyNZ()

    H = Application.WorksheetFunction.CountA(Selection)

    MsgBox "非空单元格数" & H & "个."

    End Sub

    代码的解析说明:上述代码过程运用工作表函数CountA返回选定区域的非空单元格的个数。其中Application.WorksheetFunction是对工作表函数的引用,Selection是选择的区域,MsgBox是弹出对话框,反馈结果。

    备注:前些时有朋友问如何引用EXCEL功能区提示的数据个数,用上述方法即可实现。

    VBA过程代码27:返回选定区域的行数

    Sub MyNZ()

    MsgBox Selection.Rows.Count

    END SUB

    代码的解析说明:上述代码过程返回选定区域的行数。Selection.Rows.Count是选定区域行数的数目,MsgBox是弹出对话框,反馈结果。

    c268e3793d861198919775d0eee16b2d.png

    VBA过程代码28:返回选定区域的列数

    Sub MyNZ()

    MsgBox Selection.Columns.Count

    END SUB

    代码的解析说明:上述代码过程返回选定区域的列数。Selection.Columns.Count是选定区域列数的数目,MsgBox是弹出对话框,反馈结果。

    VBA过程代码29:返回选定区域的地址

    Sub MyNZ()

    MsgBox Selection.Address

    END SUB

    代码的解析说明:上述代码过程返回选定区域的返回选定区域的地址。Selection.Address是选定区域地址,MsgBox是弹出对话框,反馈结果。注意:这里的地址是一种绝对地址的引用。

    参考:单元格地址绝对引用是在构成单元地址的字母和数字前分别加"$"。绝对引用:就是不管公式在那一列,或者是在那一行,所引用的单元不会因此而发生变化。

    备注:对于绝对引用和相对引用,有兴趣的朋友可以查找一下我之前的文章。他们的变换是F4键。

    b517b7f47a8c5232fb02fad235e9b8e4.png

    VBA过程代码30:代码过程在执行过程中将忽略所有的错误

    Sub MyNZ()

    ON ERROR RESUME NEXT

    ……..

    ………

    ……..

    END SUB

    代码的解析说明:上述代码过程在执行过程中,如果遇到错误会忽略掉,继续往下执行

    看板:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的"干货",欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频,"每天20分钟,半年精进VBA"活动正在火热进行中,越早报名,回馈越多。现在第一册很快录制完成。

    ac5338c54289abfdeab6cae8ed83eb2a.png
    展开全文
  • 大家好,今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,组合起来就是一个大的过程,不积跬步无以至千里。看板:下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验...

    分享成果,随喜真能量。大家好,今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一,组合起来就是一个大的过程,不积跬步无以至千里。

    看板:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的"干货",欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频,"每天20分钟,半年精进VBA"活动正在火热进行中,越早报名,回馈越多。现在第一册48讲内容已经录制完成,第一阶段的优惠活动即将结束。

    VBA过程代码31:代码过程在执行过程中将遇错跳转

    Sub MyNZ()

    on error goto err_handle

    ………….

    ………….

    err_handle:

    ………….

    ………….

    END SUB

    代码的解析说明:上述代码过程在执行过程中,如果遇到错误会转跳到标签处往下执行。

    VBA过程代码32:代码过程在执行过程中将删除一个文件

    Sub MyNZ()

    kill "c:/1.txt"

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将删除一个文件。注意,kill命令删除文件是直接删除,而不是放到回收站中,所以要慎用此命令。

    d397dad72656cb0d8d8e32a33121e0af.png

    VBA过程代码33:代码过程在执行过程中将定制自己的状态栏

    Sub MyNZ()

    Application.StatusBar = "现在时刻: " & Time

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将定制自己的状态栏,状态栏上将显示现在的时刻,如下:

    7c4805b78b92a5f994f89dc3be67eef2.png

    VBA过程代码34:代码过程在执行过程中将恢复默认的状态栏

    Sub MyNZ()

    Application.StatusBar = false

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将定制的状态栏,恢复状态栏的默认状态。

    VBA过程代码35:代码过程在执行过程中将用代码执行一个宏

    Sub MyNZ()

    Application.Run macro:=" MyNZ1"

    END SUB

    代码的解析说明:上述代码过程在执行过程中,将执行一个宏" MyNZ1"

    3cc95474e4db780f4bd95f736487af91.png
    展开全文
  • 大家好,今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下:VBA中,常用的过程又哪几类.VBA过程代码26:返回选定区域的非空单元格的个数Sub MyNZ()H = Application.WorksheetFunction....

    c0628031e5300f36e897890c323b9165.png

    分享成果,随喜真能量。大家好,今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下:VBA中,常用的过程又哪几类.

    VBA过程代码26:返回选定区域的非空单元格的个数

    Sub MyNZ()

    H = Application.WorksheetFunction.CountA(Selection)

    MsgBox "非空单元格数" & H & "个."

    End Sub

    代码的解析说明:上述代码过程运用工作表函数CountA返回选定区域的非空单元格的个数。其中Application.WorksheetFunction是对工作表函数的引用,Selection是选择的区域,MsgBox是弹出对话框,反馈结果。

    备注:前些时有朋友问如何引用EXCEL功能区提示的数据个数,用上述方法即可实现。

    VBA过程代码27:返回选定区域的行数

    Sub MyNZ()

    MsgBox Selection.Rows.Count

    END SUB

    代码的解析说明:上述代码过程返回选定区域的行数。Selection.Rows.Count是选定区域行数的数目,MsgBox是弹出对话框,反馈结果。

    e5d696e805dc38e9c9524a2276d529e2.png

    VBA过程代码28:返回选定区域的列数

    Sub MyNZ()

    MsgBox Selection.Columns.Count

    END SUB

    代码的解析说明:上述代码过程返回选定区域的列数。Selection.Columns.Count是选定区域列数的数目,MsgBox是弹出对话框,反馈结果。

    VBA过程代码29:返回选定区域的地址

    Sub MyNZ()

    MsgBox Selection.Address

    END SUB

    代码的解析说明:上述代码过程返回选定区域的返回选定区域的地址。Selection.Address是选定区域地址,MsgBox是弹出对话框,反馈结果。注意:这里的地址是一种绝对地址的引用。

    参考:单元格地址绝对引用是在构成单元地址的字母和数字前分别加“$”。绝对引用:就是不管公式在那一列,或者是在那一行,所引用的单元不会因此而发生变化。

    备注:对于绝对引用和相对引用,有兴趣的朋友可以查找一下我之前的文章。他们的变换是F4键。

    13f1caf5efe5dd4495ebc86d21abbaaa.png

    VBA过程代码30:代码过程在执行过程中将忽略所有的错误

    Sub MyNZ()

    ON ERROR RESUME NEXT

    ……..

    ………

    ……..

    END SUB

    代码的解析说明:上述代码过程在执行过程中,如果遇到错误会忽略掉,继续往下执行

    看板:

    下面是我根据我自己20多年的VBA实际利用经验,编写的几部经验教程,全是满满的“干货”,欢迎有需要的朋友联络(WeChat:NZ9668),分享。

    1 《VBA代码解决方案》是VBA中各个知识点的讲解,覆盖了绝大多数的知识点。

    2 《VBA数据库解决方案》是数据处理的利器;

    3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

    4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频,“每天20分钟,半年精进VBA”活动正在火热进行中,越早报名,回馈越多。现在第一册很快录制完成。

    6536896c27c072b2594cf511f77c0949.png
    展开全文
  • VBA编程常用过程代码方案,供大家写代码参考,陆续发表:VBA过程代码6:返回当前单元格的位移Sub MyNZ() on error resume nextActiveCell.Offset(0, 1).Select '当前单元格向左移动一格ActiveCell.Offset(0, -1)....
  • 数控编程代码大全FANUC车床G代码FANUC铣床G代码FANUC M指令代码SIEMENS铣床 G代码SIEMENS802S/CM 固定循环SIEMENS802DM/810/840DM 固定循环SIEMENS车床 G 代码SIEMENS 801、802S/CT、 802SeT 固定循环SIEMENS 802D、...
  • 下面我收集了大部分的代码 很多但是 红颜色才是我们常用的 先了解记住红颜色的就基本能看懂程序 要成为手编大师的话 要掌握的就不仅仅这些G代码:G00 快速定位 G01 直线插补 G02 圆弧插补/螺旋线插补CW G03圆弧插补/...
  • 学习Excel技术,关注微信公众号:excelperfect图表是数据可视化的一种常用呈现方式,VBA代码...下面是一些基本的Excel图表编程代码,供参考!代码1:创建图表方法1Sub CreateChart() Dim rng As Range Dim cht As...
  • 本文是《代码大全2》[1]的读书笔记。之前也读过一些代码整洁相关的书籍,但是随着时间推移,很多都遗忘了。因此,在开始读这本书之前,打算尝试做着记录,以便翻阅查询、回忆。首先,尝试一种方式,读5分钟,思考5...
  • 还是老规矩,我们先看一下动画效果动画效果制作教程这里我们使用VBA代码处理,才能达到一键的效果具体代码如下,已注释源码:Option Explicit'日期:2020-5-15'作者:EXCEL办公实战-小易'功能:提取EXCEl中的所有公式...
  • 关于程序员类的技术书籍有很多,但是往往没有时间阅读,下面的这些书籍,由John Sonmez精选,可以帮助软件开发人员打下其...1、《代码大全(第2版)》这本书里涵盖了许多如何编写良好代码的建议,无论你使用何种编程...
  • Excel中对单元格操作有一些固定的窗口来进行设置,有些设置可能不是那么容易找到,这里做一个小小改动,直接将格式设置引入鼠标...通过是对vba一些学习认识,会理解一些关于excel应用对话框的编码规则。其中所有功...
  • W3Cschool『编程狮』是一款专业的编程入门学习App,致力于帮助初学者入门及提升程序员开发效率,目前已提供1000+常见编程语言教程和免费技术文档,涵盖前端开发/Python/Java/PHP等热门编程语言。学编程,从这里开始...
  • https://simpleprogrammer.com/best-programming-books-2019/关于程序员类的技术书籍有很多,但是往往没有时间阅读,下面的这些书籍,由John Sonmez精选,可以帮助软件开发人员打下其领域所需的基础1、《代码大全(第...
  • 学习Excel技术,关注微信公众号:excelperfect为了帮助有兴趣的朋友从零开始快速学习ExcelVBA编程,从第179周开始,陆续在完美Excel社群上分享了Excel编程周末速成班系列。这个系列是以《ExcelProgramming Weekend ...
  • 今天韩老师给几行代码一次完成查询功能: Sub xf() Dim i%, k%, irow% '定义整形变量 irow = Range("a1").CurrentRegion.Rows.Count 'irow为当前数据表数据行数 k = 4 '因为查询数据从F4单元格开始显示,所以...
  • 面向对象、设计原则、设计模式、编程规范、重构面向对象主流的三个编程风格有:面向对象,面向过程,函数式编程。面向对象是最主流的风格,面向对象具有丰富的特性(封装,抽象,继承,多态)。面向对象面向对象的4大...
  • 学习Excel技术,关注微信公众号:excelperfect图表是数据可视化的一种常用呈现方式,VBA代码...下面是一些基本的Excel图表编程代码,供参考!代码1:创建图表方法1Sub CreateChart() Dim rng As Range Dim cht As...
  • Excel2010数据透视表应用大全详解,上百集动画教程Excel数据透视表因其操作简单易用,功能强大,深受大家喜爱。下面动画教程将其技术特点和应用方法,深入揭示数据透视表的原理,并配合大量典型实用的应用实例,帮助...
  • Excel2010公式与函数辞典大全-秘技大全,你想学的,都在里面此文档内含12部分,按照功能对344个函数进行解说,将函数知识与行政、工程、财务、统计等各领域经典实例相结合讲解,同时含600多个查找技巧如有需要,请...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧189 保护VBA代码 459 189-1 设置工程密码 459 189-2 设置“工程不可查看” 460 技巧190 优化代码 462 190-1 关闭屏幕刷新 462 190-2 使用工作表函数 464 190-3 使用更快的单元格操作方法 465 190-4 使用With语句...
  • excel vba 编程大全

    2011-01-01 15:03:25
    详细介绍vba编程的语法,主要讲解如何用vba来对excel作二次开发,并配有详细的实例。 简单明了,代码实用,可以直接用于实际工作中。
  • 《Excel VBA常用代码实战大全》重点强调实践性,旨在帮助Excel初学者和有一定ExcelVBA编程基础、希望进一步提高的读者掌握VBA编程设计的技巧。全书精选150个典型范例,近245个技巧,以实用为主,知识点针对性强,并...
  • 这本书还是很赞的,书里面有150个范例,200多个技巧,还是以实用为主,知识点针对性强,适合Excel初学者和有一定ExcelVBA编程基础的同学
  • VBA编程练习

    2020-06-24 14:56:01
    仿照《Excel VBA经典代码应用大全》书中“更安全的密码输入界面”的例子,自己敲一遍代码。结果在运行中碰到了两个问题,一个是运行代码时偶尔会让Excel异常停止运行程序,另一个是在密码输入窗口的输入框里输入数字...
  • Excel 2007 VBA参考大全

    2019-03-07 21:52:52
    第1部分为第1章,介绍了VBA编程和Excel对象模型的基础知识。第2部分为第2章~第27章,通过大量的实例介绍了Excel的关键对象,并介绍了Excel 2007新的Office XML文件格式和RibbonX开发技术,其中一些章节专门介绍了为...
  • 在前面说了很多其他的VBA使用方法,今天要和大家介绍的是利用VBA代码写出来的一个小小游戏,也是我们常数的数字推盘小游戏。这个游戏的原理其实非常简单,利用我们的窗体来显示和完成数据操作,当然这个游戏是19世纪...

空空如也

空空如也

1 2 3
收藏数 45
精华内容 18
关键字:

vba编程代码大全