精华内容
下载资源
问答
  • vba点击开始按钮 在控件中变化显示数字 点击停止不再变化 ,并显示获得的数字
  • 上周,我发了关于Excel VBA的第一篇文章后,社群里就砸开了锅 看到辣么多小伙伴们,辣么喜欢,我的干劲儿就更足了。于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA界的黑山老妖了。 今天是这...

    34dd236af5c1e56607631f5d3f31b2b2.png

    上周,我发了关于Excel VBA的第一篇文章后,社群里就砸开了锅

    42ac22f62aa71a3a1e55136adc32dae7.png

    看到辣么多小伙伴们,辣么喜欢,我的干劲儿就更足了。

    于是,我准备把Excel VBA写成一个系列免费教程,撸完这个系列你也是VBA界的黑山老妖了。

    e48d0bd6594ecf30a9142d60d7dd276c.png

    今天是这个系列的第2篇,我们用「如何利用VBA加减乘除运算」的例子,帮助大家理解VBA的一些基础概念。

    基础很重要,正所谓“基础不牢,地动山摇”。好了,闲话不多说,直接上硬菜(大家看图自己跟着实操)

    1. 准备案例

    (1)新建一个Excel工作簿,随意命名

    (2)单元格A4输入「10」,单元格B4输入「+」,单元格C4输入「8」,单元格D4输入「=」

    877cb981284d8190dc296f9aae4de05e.png

    2. 如何计算上述运算,并写入单元格E4里?

    (1)青铜小白-符号运算

    ebd8e1a4c7cd63b3f599f27767dac965.png

    (2)铂金老鸟-公式运算

    e94eaf6c48fd15babd8715fc07360134.png

    (3)王者大牛-代码运算

    ef5dac223f66b130c289d81797faa890.png

    有经验的同学,看到这里,肯定嘴角上扬45度,“我用公式就能轻松实现,何必用VBA呢?”

    不错,用公式确实能够实现上述案例的结果,但是,VBA拥有公式无可比拟的优越性:

    第一,公式无法使用「按钮控件」; 第二,日常的工作场景一般会涉及加减乘除等综合运算,如果我们使用公式就会格外的复杂而难以控制。

    按钮控件:大家可以将其类比我们常见的“保存”、 “预览” 、“确定”等按钮,当然了还有需要输入文本的“文本框”、“下拉列表”、“复选框”等

    18181e8242187e997b4b43a0605562e1.png

    3. 那VBA如何操作呢?

    (1)点选「开发工具」-「插入」-「按钮(窗体控件)」

    b1e88c338dafe313351856beff375ad5.png

    (2)鼠标变为「黑色+号」,按住鼠标「左键」,向右拖动

    7b2433ce5200a1ae2cb068a6708fc06a.png

    (3)松开,自动弹出一个窗口

    f28c3f4924bf528ea5cbc8723552bc05.png

    指定宏:是指按下某个按钮,运行哪一段VBA小程序

    宏(Macro):简单理解就是一段用VBA编写的小程序

    (4)修改宏名「加减法」,点击「新建」

    f8288c3af57767e3cbe8b47f6fb3090e.png

    (5)自动弹出界面,进入了VBA代码编辑器

    f34d58919881295a920775b16c17af78.png

    上次介绍了什么是VBA以后,我们知道多数代码放置在标准代码「模块」中。刚刚的操作自动在左边的「工程」窗口插入「模块1」,而右边是「模块1」的代码区域

    8cedd124ab199055360a8a3630867517.png

    (6)系统自建的代码解释

    fe2715dcf02a25a1f984694ecc0ab019.png

    sub和End sub:VBA系统保留字,具有特殊含义。

    大白话就是“看到这些单词系统就去执行指定的动作”,比如:sub代表一个程序的开始,End sub代表该程序的结束。

    做减法:这段小程序的名字。

    要点注意:

    a. sub和小程序之间有1个空格,切记别忘了 b. 程序名称尽量采用英文 c. 1对圆括号为输入法「英文模式下」的输入内容

    (7)题目分析

    我们将题目翻译为白话就是:计算「单元格A4」和「单元格C4」的和,将结果写入「单元格E4」中

    26da151d43c70c03c39e20e3f97c19b6.png

    (8)开始写代码

    我们按照正常的思考思路,在代码块区域输入“单元格E4 等于 单元格 A4 加上 单元格C4”,按下键盘「Enter」,发现立刻报错,我们看到:

    a. 弹窗提示「编译错误」

    b. 出错的内容自动变为红色

    c. 以「蓝色」模糊定位到出错的位置

    13946e097f695541fde2cd37a66e2f3e.png

    出错的主要原因是我们采用了“人类语言”,而不是计算机能够识别的语言,Excel只能识别VBA的语法。

    那么,VBA语法是什么呢?别急,接着往下看~

    (9)题目过渡

    1ca5ccb351e2b79858ebb60320a9f05c.png

    既然,我们知道怎样等价变换「加号」和「等号」,那么关于「单元格」就必须要引入一个重要的概念【cells属性】

    (10)Cells属性

    cd311729eba8024aee5d28a07282882c.png

    要点注意]:

    a. Cells属性中是先行后列的次序,别颠倒了; b. 字母的数字代表在26个英文字母中的位置,比如:A=1,B=2,C=3.....以此类推.

    (11)书写代码

    我们输入“Cells(4, 4) = Cells(4, 1) + Cells(4, 3)”,发现程序没有报错,然后删除上方错误的代码

    abe9643d0398ec6d4dd0b9ca3ab7d490.png

    (12)保存代码

    点击右上方「保存」,VBA弹窗出现提示,我们点击「否」,在「保存类型」中选择「Excel启用宏的工作簿(*.xlsm)」

    91a139bda3d4c8cd7fe1517e7b326640.png

    5bc71566de68c73d076e168d8173aa02.png

    要点注意:

    a.文件报错为「.xlsm」,而不是「.xlsx」

    (13)点击「按钮1」,我们就可以查看结果

    04ca8a875680adb92a315c8134313af1.png

    (14)鼠标右键 「编辑文字」,然后将「按钮1」变为「查看结果」

    5ea85e422336ed0f582253a3c3c464cd.png

    840f774fa5a892c3d8e99fe10154beb0.png

    4. 总结

    好了,最后,画一下知识点。

    (1)什么是宏?

    一段用VBA编写的小程序。

    (2)宏的结构

    eb26b2312b6540b63ed346f8b89a9a80.png

    (3)cells属性以及cells操作Excel单元格

    cd311729eba8024aee5d28a07282882c.png

    (4)如何在Excel放置按钮,并关联宏

    通过5步实现:

    点选「开发工具」-「插入」-「按钮(窗体控件)」--->

    鼠标变为「黑色+号」,按住鼠标「左键」,向右拖动 --->

    松开,自动弹出一个窗口 --->

    修改宏名「加减法」,点击「新建」

    ---> 编辑代码即可

    要点注意:

    在案例Excel文件中,附赠有日常工作中常用的「指定区域英文首字母自动转换为大写」小程序,大家可以直接拿去用,也可以分析一下那个代码。

    340fefa284443212f3bd9d1eff71584e.png

    最后,留个课后小练习:如何在Excel中其做他运算,并且各种运算符号能够随着按钮自动变换呢?

    4ac3d4f625a475bc5b0c71d66374b07d.png

    推荐:人工智能时代的必学技能

    28d46fe831100d8c06a7772a1ce471a3.png
    展开全文
  • VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。 例如下面网址,就有一个文件浏览按钮: ... 我做了一个exe文件,可以在...

    VBA调用InternetExplorer操作IE浏览器,自动弹出文件选择对话框时,VBA会处于阻塞状态,你必须手工关闭文件选择对话框,VBA才能继续向后运行。

    例如下面网址,就有一个文件浏览按钮:

    http://www.zytxs.com/web1/upload.aspx

    我做了一个exe文件,可以在另一个进程中来处理文件对话框。

    Sub Test()
        Dim File As MSHTML.HTMLInputFileElement
        Dim WSH As Object
        Set File = IE.document.getElementById("myfile")
        Set WSH = CreateObject("WScript.Shell")
        WSH.Run "E:\Office_VBA\AutoSelectFile\AutoSelectFile.exe E:\Office_VBA\Translate.rar", vbHide, False
        File.Click
    End Sub
    

      上述代码,WSH.Run的参数中,包含两部分,空格左侧是处理文件对话框的exe文件路径(在本帖中可以下载并解压缩)

    后面的 E:\Office_VBA\Translate.rar 是电脑中随便的一个文件路径,也就是要往文件选择对话框中上传的那个文件。

    执行上述Test过程,VBA会自动打开文件浏览对话框,然后自动给对话框设置路径,并确定。

     

     

    exe文件下载地址

    AutoSelectFile.rar

    下载后,解压缩到不含空格的路径下。请勿点击exe文件。

    请打开Excel文件,然后点击工作表上的按钮进行测试。

     

    转载于:https://www.cnblogs.com/ryueifu-VBA/p/10034782.html

    展开全文
  • VBA自动执行代码

    2014-01-15 23:34:56
    VBA自动定时执行代码执行,可以定期执行
  • 如何自动点击网页按钮http://club.请问如何点击这个网页上的“领取”按钮(三个如何区分)?谢谢。ttp://www.红包 --Excel Home论坛 - var STYLEID = '2', STATICURL = 'static/', IMGDIR = 'comiis_19lou', VERHASH =...

    ca56232b3bbedf9a539d07f37fffb99a.gif

    3144d8b7615c79d9f638db40d5689d26.gif

    a218af6549b45ee526caf607ebff1358.gif

    0f8df0e29816ae721419de940fb833d1.gif

    如何自动点击网页按钮

    http://club.

    请问如何点击这个网页上的“领取”按钮(三个如何区分)?谢谢。

    ttp://www.

    红包 -  -  Excel Home论坛 -

    GS_googleEnableAllServices();

    GA_googleFetchAds();

    Microsoft技术社区联盟成员,全球领先的Excel2003/2007/2010门户,Office培训学习的最佳社区

    function getElementsByName_iefix(tag, name) {

    var elem = document.getElementsByTagName(tag);

    var arr = new Array();

    for(i = 0,iarr = 0; i < elem.length; i++) {

    att = elem[i].getAttribute("name");

    if(att == name) {

    arr[iarr] = elem[i];

    iarr++;

    }

    }

    return arr;

    }

    function chgrank() {

    var rankschg = getElementsByName_iefix('div', 'ranks');

    for(var j = 0;j < rankschg.length;j++) {

    if(rankschg[j].style.display == 'block') {

    rankschg[j].style.display = 'none';

    if(j == rankschg.length - 1) {

    rankschg[0].style.display = 'block';

    } else {

    rankschg[j+1].style.display = 'block'

    }

    break;

    }

    }

    setTimeout("chgrank()", 5000);

    }

    window.onload = chgrank();

    Excel Home祝您好运连连!

    红包领取排行榜

    1. 用户名领取红包数
    2. huangyun242
    3. erso230
    4. llaomo228
    5. 庄生梦227
    6. id5596227
    7. csmpaul216
    8. 海浪飞天214
    9. 李兴德211
    10. hmhffy195
    11. jiahua1010194

    红包列表

    每日早茶 此红包已被领取 0 个,点击查看领取详情。

    名称:每日早茶 

    说明:喝杯早茶,一天好心情!128份,先到先得!

    版主2倍哦!

    发放时间:2012-5-4 09:30:00 ~ 2012-5-4 10:00:00

    积分项:财富: 2 ~ 5     

    已领取/总数:[本红包已被领取光了]

    领取
    每日夜宵 此红包已被领取 0 个,点击查看领取详情。

    名称:每日夜宵 

    说明:吃顿夜宵,补充能量,准备做个美梦!

    发放时间:2012-5-4 21:00:00 ~ 2012-5-4 21:30:00

    积分项:财富: 2 ~ 5     

    已领取/总数:0 / 128

    领取
    午后好运来 此红包已被领取 128 个,点击查看领取详情。

    名称:午后好运来 

    说明:领包要谨慎,祝君好运来!

    发放时间:2012-5-4 14:00:00 ~ 2012-5-4 16:00:00

    积分项:财富: -5 ~ 10     

    已领取/总数:[本红包已被领取光了]

    领取

    function checkval(pid, link, moderate) {

    ajaxresponse(pid, link, moderate);

    }

    function ajaxresponse(pid, data, mod) {

    var x = new Ajax('XML', mod+pid);

    x.get(data, function(s){

    var obj = $(mod+pid);

    s = trim(s);

    if(s.indexOf('bad_mod') < 0) {

    if(s.indexOf('通过审核') > -1) {

    obj.style.display = '';

    obj.innerHTML = ' check_right.gif ' + s;

    obj.className = "warning";

    $('no_pass' + pid).innerHTML = '';

    $('trbg' + pid).style.background="#fff";

    }

    if(s.indexOf('已删除') > -1) {

    obj.style.display = '';

    obj.innerHTML = ' check_right.gif ' + s;

    obj.className = "warning";

    }

    } else {

    warning(obj, '操作失败');

    }

    });

    }

    function warning(obj, msg) {

    obj.style.display = '';

    obj.innerHTML = ' error_tip ' + msg;

    obj.className = "warning";

    }

    function killErrors() {return true;}

    window.onerror = killErrors;

    var invisiblestatus = '在线';

    var loginstatusobj = $('loginstatusid');

    if(loginstatusobj != undefined && loginstatusobj != null) loginstatusobj.innerHTML = invisiblestatus;

    积分 2381, 距离下一级还需 819 积分

    回顶部

    展开全文
  • 现在的日常工作中,大家都会遇到要在网页表单输入或者录入一些数据的情况,而这时可以用“阿冲全能点击王”软件来实现批量自动录入,代替我们手工做这些重复劳累的工作。阿冲全能点击王软件是一款完全图形化界面的...

    bc453574f16176a62e98ec11aca89507.png

    现在的日常工作中,大家都会遇到要在网页表单输入或者录入一些数据的情况,而这时可以用“阿冲全能点击王”软件来实现批量自动录入,代替我们手工做这些重复劳累的工作。阿冲全能点击王软件是一款完全图形化界面的脚本工具软件,能实现各种自动填写操作,自动登录点击发布等。其实来说,只要是电脑前的一切鼠标键盘按键这些重复性动作,都能用它自动完成,还有文件提取自动录入,自动打开办公窗口输入,自动上传文件等很多功能。

    22c98f33f673b59d512766f69d276fee.png

    1-对于在网页上录入点击的,首先是要把鼠标光标定位到输入框区域,可以用阿冲全能点击王软件里的自动点击任务设置点击坐标,这个自动点击任务就是代替鼠标的一些常用操作。支持特定坐标点击,随机区域坐标点击等,能满足灵活多样的鼠标点击操作。

    bc49a686f55ab2c281702e41c97c56af.png

    3d13256e8f7a7eb4d0859161322871ad.png

    bc154f4675b1a19fcd2b40f30871d934.png

    2-接下来就是数据输入操作,我们这里是预先准备有个TXT文本,所以使用阿冲全能点击王软件里的文件提取任务,可以依次从里面提取录入。关于“文件提取”任务的使用也比较灵活,可以一般文件也可以按键文件,主要区别就是一般文件在提取后要通过按键ctrl+v录入,而按键文件则可自己按键输入。当然,如是Excel文件,也是可以通过vba宏转换到TXT文本,实现数据录入。

    6e738e7e349dffb5ac607846a49a3b99.png

    e2dc488c57bde50043751bec6b898337.png

    0c76e71faa5d471334f653c4f36a74a5.png

    3-还有就是我们日常的键盘按键操作,可以使用阿冲全能点击王软件里的自动按键任务,能模拟各类键盘操作。而且在界面上的多个编辑框进行跳转的时候,也可以使用模拟按tab键切换即可。关于阿冲全能点击王软件的自动按键任务使用,也很简单。具体步骤是进入“自动按键任务”,点开始捕获,然后按下要捕获的按键即可。

    d9880f42147fc40afbdbaeec65ab0c81.png

    f072b07505fbe6e1b85629c42300d541.png

    4-还有就是最关键的停留时间操作,因为我们日常的办公操作都是有个停顿,不可能是一瞬间完成的,所以我们在软件里每一个任务后面也要加上这样的延时停顿。通过在阿冲全能点击王软件里的延时停顿任务设置。延时停顿分为指定时间,随机时间,还有每天特定时刻运行三种,大家可以根据自己需要灵活选择。

    94d9afe357269d70b31e192172563a17.png

    a57c7ac0ec87187e4bbcfdaf16171082.png

    最后就是把这些任务按照我们日常办公操作的顺序依次添加组合,再编辑即可。设置完以后,阿冲全能点击王就能代替我们手工来自动化循环执行,就像一个智能机器人一样自动化操作。

    22c98f33f673b59d512766f69d276fee.png

    dd8ae950e5234e280accd8d8cd419f9c.png

    其实简单来说,这个阿冲全能点击王软件就相当于一个脚本工具软件,只要是我们日常电脑前的一切重复性动作都可以用它来替代,解放我们劳累的双手,提高工作效率。比如一些办公数据自动录入,网页自动登录点击,自动群发上传等。

    展开全文
  • 满意答案ywwlg2013.04.26采纳率:42%等级:13已帮助:9064人想做个程序让它自动点击网页中的提交按钮,我已经从网上找了很久,虽然找到了一个方法是可以找到按钮并提交的,代码如下:Dim Dov As ObjectDim Tag As ...
  • 功能需求:点击运行,可实现打开指定文件夹下的任一文件,并将此文件的sheet1表格的数据复制到当前VBA代码所处的ThisWorkbook的sheet1的表格中
  • 自动点击某窗口的按钮(VB源码)

    热门讨论 2009-09-10 17:07:32
    自动点击外部程序某个按钮。福建吴世昌编写。 根据标题查找窗口,再查找按钮并点击它。同理,也可查找其它控件并进行操作。
  • 文件仅24KB,可免安装运行。 使用两种方法开启关闭。 1、快捷键F10即时运行; 2、鼠标点击按钮,延迟3秒后开始,方便调整点击位置。 时间间隔为毫秒。
  • 选中要处理数据单元格后,点击按钮,会实现功能,同时会加载宏文件(也是个表格,不要关闭) 详见:宏按钮工具栏.jpg 1、清除选中格式,对选中单元格进行Clean()清除非打印格式字符 2、自动清除格式化,自动清洗...
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • 添加VBA控件按钮及操作提示框

    万次阅读 2018-09-18 14:47:58
    为了实现更加自动化或者称为人机交互式的操作,很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序,在编辑器里操作更像是专业开发技术人员开发测试使用的操作,对于用户来讲,他们根本不需要关系程序...
  • excel按钮vba代码发送邮箱带附件 自动读取收件人,发件人,附件文件。邮箱标题,内容。有需求的朋友,可以联系我编写代码。
  • 该文件包含一个带有提交按钮的表单,我希望在点击按钮时运行我的vba函数。我做了以下处理InternetExplorer的onQuit事件。在VBA中处理HTMLElement事件类模块 “CIE”Public WithEvents ie As SHDocVw....
  • VBA操作treeview

    2018-05-13 21:26:58
    VBA操作treeview 最近研究Json转树型结构然后自动生成JsonPath
  • 点击按钮隐藏指定行 Private Sub CommandButton1_Click() '按钮名称,点击事件 If Rows("4:4").Hidden = True Then '以某一行为标识,根据一行的显示、隐藏做标识,hidden是否隐藏的标识 Range("4:4,9:10,13:13,21:...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • VBA窗体增加最大化、最小化窗体按钮调用方法函数代码窗体例子 VBA窗体默认只有一个关闭按钮,没有最大化和最小化按钮,下面的代码可以方便的为窗体增加最大、最小化按钮,让窗口使用更方便。 调用方法 窗体最大...
  • Excel VBA开发自动发送邮件

    万次阅读 2018-01-20 22:42:23
    转自:http://blog.csdn.net/chenxianping/article/details/70821116 一、.... ...二、.... 若没有做如下操作设置,则Excel VBA调用Outlook自动发送邮件时提示如下 2.1 Outlook->工具->信任中心
  • 在日常工作中,经常会遇到需要实时记录数据录入的时间问题。 有朋友会说了,用快捷键啊,按Ctrl+;(分号)可以返回当前的系统日期,按Ctrl+Shift+;...以下图为例,在A列单元格输入或是修改内容后,B列就会自动
  • 如果消息框只是提醒用户,并不需要获取用户的输入,那么使用可以自动关闭的消息提示框,可以避免程序暂停挂起,无法继续执行的问题,但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API...
  • 此版本为按钮封装版,只需将需要添加Redmine表格格式的表格贴进去,然后点击按钮即可添加Redmine表格格式。注:由于上一版本表格忘记保存为xlsm(在其他页面,与此页面没有关联),因此代码丢失,现已重写并保存为...
  • Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '鼠标右键的时候全选 With TextBox1 If Button = 2 Then .SelStart = 0 ...
  • VBA窗体最大化最小化按钮实现

    千次阅读 2018-12-07 23:24:20
    打开excel,找到开发工具 ,然后点击 Visual Basic 进入代码编辑器窗口: 点击插入&amp;gt;&amp;gt;用户窗体,如下图所示: 如果此时运行,得到的效果如下所示,是没有最大化和最小化窗口的: 下面我们...
  • 这个功能,可以让你自己用Excel做出一些小型的系统来。方便你根据自己的情况做出自动添加某数据行的效果。
  • VB 模拟点击网页按钮、输入、搜索 学做插件的基本

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,521
精华内容 1,008
关键字:

vba自动点击按钮