VBA
文章平均质量分 76
VBA
sun0322
NULL
展开
-
使用VBA调用jar传递参数,并获取返回值
目录■VBA代码■Java代码■运行效果ExcelLog效果 (通过VBA调用jar后,运行,生成的Log)■相关知识1.Maven打包生成jar2.log4J配置使用3.Maven工程做成4.使用Git,管理代码版本■更多知识1.Java知识整理2.软件开发中使用单词3.VBA操作相关内容整理■VBA代码Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As原创 2022-05-12 23:20:27 · 1792 阅读 · 0 评论 -
Excel 修改 【数据图表】 的 【数据源】 的范围 (VBA)
目录■核心代码■操作■例:选中图表按下快捷键,运行宏(VBA代码)使用代码的好处:Excel 修改 【数据图表】 的 【数据源】 的范围■核心代码ActiveChart.SetSourceData Source:=Range("B7:F39")范围 【B7:F39】 是整个图表的范围(包括标题行)■操作1.随意录制一段宏,写入如下代码Sub 宏1()'' 宏1 宏'' 快捷键: Ctrl+l' 'ActiveChart.SetSou原创 2021-10-16 14:27:42 · 5169 阅读 · 0 评论 -
使用bat向文件的第一行中写入内容 以及 各种bat实际应用
bat各种操作整理,使用bat可以做出一些简单的工具,方便我们日常办公操作。此篇文章整理了各种常用的bat处理对应的操作。原创 2021-03-04 13:30:41 · 9039 阅读 · 1 评论 -
win10 office 家庭和学生版 excel个人工作簿 PERSONAL.XLSB 的保存位置
■前言保存的位置和单位电脑的位置不太一样。 https://blog.csdn.net/sxzlc/article/details/76559328估计是office版本的原因■保存位置(家庭和学生版 2016)---C:\Users\userName\AppData\Local\Packages\Microsoft.Office.Desktop_8wekyb3d8bbwe\LocalCache\Roaming\Microsoft\Excel\XLSTART---...原创 2020-05-27 21:29:07 · 2954 阅读 · 0 评论 -
VBS操作Excel数据
■数据(代码运行前)・文件夹・各个Sheet页------■代码「test.vbs」call beginAuto()function beginAuto() 'msgbox "begin" '---Step1 Create Object Dim objExcel set objExcel = CreateObjec...原创 2020-05-06 23:13:23 · 3890 阅读 · 0 评论 -
如何使用VBS调用VBA函数
■前言修改同事大神写的非常好的自动Evidence做成工具,添加一些功能 ・截取图片后,截图的图片置于最底层 :调用VBA函数pictureToBack ・Case中的的一些内容,自动截图,并保存到Evidence中 :调用VBA函数 getCaseInfoAsPicture■VBA的代码'把图片置于底层Sub pictureToBack() S...原创 2020-05-05 22:42:58 · 3298 阅读 · 0 评论 -
VBA 打开 Debug窗口 进行调试 (同时可以查看debug操作对应的快捷键)
■前言笔记本电脑 按 F8带费劲了,要Fn 和 F8一起按下。■解决使用Debug窗口 ,通过鼠标操作■打开方法Step1.鼠标右键点击工具栏,在弹出的菜单中选中【调试】Step2.软后,通过下面的Debug窗口就可以进行调试了。-----■各种快捷键定义https://blog.csdn.net/sxzlc/article/detai......原创 2020-03-23 22:14:13 · 11727 阅读 · 1 评论 -
Eclipse、VBA、IE开发者工具 Debug快捷键
Eclipse、VBA、IE开发者工具 Debug快捷键■Eclipse・F6:单步执行,不进入方法・F5:单步执行,进入方法・F7:从进入的方法中返回・F8:继续执行■IE开发者工具・F10:单步执行,不进入方法・F11:单步执行,进入方法・Shift + F11:跳出方法(F9:添加/移除断点)■VBA・SHIFT + F8: 单步执行,不进入方法・F8: 单步执行,进入方法・F5: 继续执行原创 2020-03-22 21:20:34 · 853 阅读 · 0 评论 -
VBA自定义方法 快捷键设置
VBA自定义方法 快捷键设置■前言这两天做截图操作,录了一段宏(调整大小,图片放到最后面显示),保存到这段代码,到个人宏工作簿中,方便以后使用。但是,在使用的时候,不想每次执行的时候去点击执行,那么如果设置快捷键呢。■自定义方法快捷键设置方法如下 (代码与前言描述的宏操作无关)1.首先,你要有一个保存常用VBA方法的文件。 ・代码存放的位置:放到【模块...原创 2020-03-19 22:55:17 · 4500 阅读 · 2 评论 -
VBA中 各种数据类型的使用(自定义数据类型Type,数组,数据字典)、读写文件
目录1.各种数据类型2.VBA定义公共数组(全局都可以使用)3.读写文件SJIS 写入UTF8 写入读取 SJIS读取 UTF-84.异常处理5.忽略错误6.其他常用17.其他常用2:读取(多个)Excel文件8. ★★★各种常用操作总结 ★★★9.事件相关处理 (保存,离开单元格等操作时,触发处理)10.定义(调用)有返回值的函数11.VBS相关操作---1.各种数据类型---'* * * * * * * * * * *.原创 2020-01-21 00:37:47 · 15487 阅读 · 1 评论 -
打开excel后,提示更新链接的原因(含批量处理VBA代码)
・问题产生的原因在2000之后的版本中,当我们打开,低于当前版本的excel文件时,会对整个excel进行重新计算,重新计算时,会强制更新所有外部引用,这时,如果外部链接源不可用,便会返回#REF!错误,提示说链接不可用。・解决方法【数据】→ 【编辑链接】中, 解除链接即可但是有的时候我们无法接触链接比如,今天我遇到了这样的问题后,进行了如下操...原创 2019-11-30 00:12:38 · 3517 阅读 · 0 评论 -
根据一览,自动生成Sheet页
根据Excel一览中的内容,自动生成一览名字中Sheet页'* * * * * * * * * * * * * * * * * * * * * * * * * * * * *'* *'* Out対象の全員シート作成 *'* 作成日:201...原创 2018-10-20 22:41:38 · 943 阅读 · 0 评论 -
比较两个sheet页中的内容,自动切换
比较两个sheet中的内容,一般是一个长图片Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal DwMilisconds As Long)Sub 画像比較() Call compare("Sheet1", "Sheet2", 3000, 5) End SubPrivate Sub compare(sh...原创 2018-10-15 18:46:29 · 813 阅读 · 0 评论 -
VBA处理文件框架代码 【第七部分:程序页面布局】
TODO原创 2017-08-13 20:59:48 · 780 阅读 · 0 评论 -
VBA 声明 Option Explicit,让代码更规范
Option ExplicitOption Explicit 语句在模块级别中使用,强制显示声明模块中的所有变量。Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit,则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。explicit 英 [ɪ原创 2017-08-03 00:32:34 · 10428 阅读 · 0 评论 -
Excel VBA 循环读取一个目录下面多个文件的内容,放到另外一个文件中
循环读取一个目录下面多个文件的内容,放到另外一个文件中Public Sub getInputInfo()On Error GoTo errl 'OUT対象ファイル開く Dim wbOut As Workbook Application.DisplayAlerts = False Set wbOut = Workbooks.Open(OUT_FI原创 2017-08-03 00:18:02 · 7478 阅读 · 0 评论 -
VBA代码执行过程中,显示程序的运行状态
VBA执行过程中,显示状态栏Application.StatusBar = "文件1作成開始"非常有用,当程序效率低时,让我们知道程序执行到何种程度原创 2017-08-02 23:20:01 · 7659 阅读 · 0 评论 -
Excel VBA 打开对话框,获取文件夹路径
Excel 打开对话框,获取文件夹路径'Window「参照」ダイアログで選択したItem 名を取得Public Function GetFolderName(ByVal DialogType As MsoFileDialogType) As String With Application.FileDialog(DialogType) If .Show = True T原创 2017-08-02 23:08:18 · 15955 阅读 · 0 评论 -
VBA 中的UBound
UBound返回数组的上界array("A","B","C","D","E")UBound(array)的返回值为 4数组的下标从零开始Bound的英文意思中,有 界限 的含义================================bound 英 [baʊnd] 美 [baʊnd] vi. 跳,弹跳; 限制; 接壤; vt原创 2017-08-02 22:58:22 · 4458 阅读 · 1 评论 -
VBA中的数据字典,可以理解为Java中的Map
一下代码比较简陋前见谅一下代码可以理解为 List>For rowStart = 5 To 10000 Dim currentDataList As Object Set currentDataList = CreateObject("Scripting.Dictionary") Dim columnStart As Integer columnStart =原创 2017-08-02 22:31:47 · 5286 阅读 · 0 评论 -
VBA中让程序休眠 SLeep的方法
在最上部,定义Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)在程序中Sleep 500原创 2017-08-02 22:06:08 · 30670 阅读 · 0 评论 -
个人宏工作簿PERSONAL.XLSB 保存位置 启动加载项
个人宏工作簿启动加载项原创 2017-08-01 20:57:38 · 13388 阅读 · 2 评论 -
VBA调用bat,doc 命令行 窗口关闭之后,VBA代码 再继续执行
VBA调用doc命令,doc窗口关闭之后,继续执行代码Option Explicit'Docワィンドワ閉じるした後、後続けの処理実施Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandel As Long, ByVal dwMilliseconds As Long) As LongPubl...原创 2017-06-26 22:55:06 · 3914 阅读 · 0 评论 -
VBA的代码,在Excel启动时自动执行
前言:有时,我们想在程序启动时,就读入某些数据1.建立一个Auto的 モジュール2.在里面写如下代码Private Sub Auto_Open() 'Demand Summaryの工数表示期間 (「list」シートの「D2」セル) Sheet2.Cells(2, 4) = 15End Sub注意,函数的前面,一定是 Privat原创 2017-06-26 22:51:16 · 11723 阅读 · 0 评论 -
文件夹缩写(文件夹空格问题解决)
■问题起因文件夹带有空格,并且我们不知道如果使用引号(说白了,就是加上引号,没有效果)■解决方案使用八位文件夹缩写比如abcd efijk缩写为abcdef~1■扩展使用 dir /x 可以查看文件夹对应的缩写原创 2016-12-19 22:50:08 · 1982 阅读 · 0 评论 -
在Excel的单元格中,调用VBA函数
说明:自定义函数必须写在模块里,也是就(Module),(標準モジュール) Public Function test001(ByVal str As String)test001 = str & Space(5)End Function Public Function test002(r1 As Range)test002 = r1.value &原创 2013-08-19 22:55:55 · 5920 阅读 · 0 评论 -
cmd命令之参数 c
前言,通过VBA代码,我们可以执行cmd命令=========================================='bat命令Dim cmdStrcmdStr = "cmd /c D:\bat\getAllPathWithFileName.bat " + fileName + " " + projectPathStr'バッチを実行するRetVal = Shel原创 2013-07-09 11:35:08 · 3539 阅读 · 0 评论 -
如何解决从VBA中复制出的代码是乱码这一问题
前言:困扰了我一段时间的问题终于解决了!! 解决方法:设置相同的输入法 举例说明:比如你的VBA代码中有日文 那么在你复制代码的时候,要把输入法调成日文输入法后再复制。 在粘贴的时候也有把粘贴时的输入法调成日文后,再进行粘贴操作。原创 2013-07-08 23:39:50 · 6101 阅读 · 0 评论 -
Excel VBA实现 通过文件名查找全路径
VBA提供一组文件名,得到所有文件的相对于工程的目录(版本1.5)调用bat实现#mode con cols=15 lines=1set fileName=%1%set projectPath=%2%cd %projectPath%dir/a/s %filename%Private Sub CommandButton1_Click()'MsgBo...原创 2013-07-08 23:14:52 · 5407 阅读 · 0 评论 -
指定单元格里面的,内容发生变化,触发事件,调用VBA代码。
通过改变一个单元格的内容,出发一个事件,根据改变的内容,进行相应的处理。具体内容是,有一个单元个,里面的内容可以选择,分别是”1 选择;2填空;3读程序;4写代码“这里,实现的功能是,选择部分的列(注:也就是选择题时,会有四个选项,所占的4列,填空题时,不需要这4列)A BCD当题型"1选择"被选中时,显示,没有被选中时,隐藏这里面需要学习的原创 2011-12-27 22:53:42 · 41023 阅读 · 0 评论 -
写了一段VBA代码后, Excel每次保存时都弹出警告:”此文档中包含宏、Activex控件、XML扩展包信息“(office 2007)
前言:今天在写一段VBA代码之后,遇到一个问题, Excel每次保存时就报一个警告(使用的是office 2007): 此文档中包含宏、Activex控件、XML扩展包信息 用起来很不爽!---------------------------------------------------原创 2020-10-10 17:07:13 · 17001 阅读 · 0 评论 -
产品计划用
<br />Private Sub CommandButton1_Click()<br /> <br /> <br /> <br /> Call sum(54)<br /> Call sum(61)<br /> Call sum(68)<br /> Call sum(77)<br /> Call sum(86)<br /> Call sum(92)<br /> <br /> <br /> 'MsgBox "end"<br /> <br原创 2011-04-26 20:59:00 · 513 阅读 · 0 评论 -
关于VBA中【按钮的改名】 和 【函数名字的改变】
首先把VBA的菜单调出来。就是下面这个图:我们打开工具箱----------------选中我们要编辑的按钮后-----------点击,第一排,右数第一个按钮(属性)---------------- 这是会出来一个菜单,我们就可以对【按钮的改名】 和 【函数名字的改变】进行修改了,在这个属性菜单中,第一个(最上面的)属性【名称】是函数的名字下面的属性【Caption 】是按钮的名字原创 2010-10-27 22:46:00 · 5264 阅读 · 0 评论 -
VBA实现数据库中的字段处理(下划线去掉,后面的字母变大写)之版本1.1。
1.0版本中有两个问题,现在已经修正了'履历 '2010/10/23(周六)下午第一版做成 '2010/10/26(周二)晚上,对于两个问题进行了修改(1不含有下划线的情况,2开头字母不应大写) '版权所属:sun 2010/10/23 Private Sub underLine_Click() '版权所属:sun 2010/10/23 '数据库中的列名 Dim dbColumnStr As String '开始的位置,由横竖坐标确认 Dim index As Integer Dim rangeStr原创 2010-10-26 20:51:00 · 2707 阅读 · 0 评论 -
VBA实现数据库中的字段处理(下划线去掉,后面的字母变大写)之版本1.0。
可以处理一列数据,数据从B6位置开始,中间不能有空,遇到空就判断到了最后一个,跳出循环!1.0版本中有两个问题,现在已经修正了'履历 '2010/10/23(周六)下午第一版做成 '2010/10/26(周二)晚上,对于两个问题进行了修改(1不含有下划线的情况,2开头字母不应大写)修正在V1.1版本中(这里没有做任何修改)以下是1.1版本的链接http://blog.csdn.net/sxzlc/archive/2010/10/26/5967663.aspx...原创 2010-10-23 16:17:00 · 2849 阅读 · 0 评论