VBA
vba批量 调整表格 大小
Sub 宏1() Dim oDoc As DocumentSet oDoc = Word.ActiveDocumentDim oTable As TableFor Each oTable In oDoc.Tables oTable.Columns(1).Width = 30 oTable.Colum ......
如何读取excel任意单元格内容的代码(vba,python)
如何读取excel任意单元格内容的代码 ━━━━━━━━━━━━━━━━━━━━━━ 你可以使用 VBScript（VBS）来读取 Excel 文件中的任意单元格内容。以下是一个简单的 VBScript 代码示例，使用 CreateObject 来操作 Excel 应用程序： Option Expl ......
VBA 调用 Python 函数
python import xlwings as xw def test_vba(): wb = xw.Book.caller() sht = wb.sheets[0] sht.range('A1').value = '看到我了吗？' VBA Sub test_vba() RunPython ("f ......
VBA遍历控件，并在指定的位置赋值
Sub 遍历控件并赋值() Dim ws As Worksheet Dim shp As Shape Dim ctrlName As String Dim ctrlValue As Integer Set ws = ThisWorkbook.Worksheets(1) ' 表示第一个工作表 ' 设置 ......
Excel之VBA的使用
VBA是Excel中使用的一种语言，对Excel的功能进行了增强。 定义一个简单的VBA过程示例如下： Sub Fun() MsgBox "Fun" End Sub 我们可以在Excel通过录制宏，编辑VBA代码，然后查看宏，执行代码。 使用示例如下： 1.使用Worksheets、Range和Va ......
vba select case inputbox
Sub test() 'MsgBox Message = "Please Input:" Title = "InputBox Demo" DefaultValue = 1 ' Set default value. ' Display message, title, and default value ......
怎样改变VBA窗口字体大小？
如下图所示： 我们经常会通过右击工作表名称标签，点击【查看代码】命令（或按快捷键Alt+F11键）进入到VBA代码编辑器窗口，进行VBA代码的复制粘贴操作（或者手动编辑操作等）我们发现字体字号非常小，查看或者编辑时眼睛很累，容易造成输入错误等现象。 首先进入VBA代码编辑器窗口，点击上方的【工具】选 ......
VBA-Excel数组应用
1）数组创建A类：动态数组Dim arr () 创建一个动态变量数组,不受长度/数据类型受制B类：静态数组Dim arr(5) as string 创建一个一维数组,下标从0开始,最大下标值为5Dim arr(3,3) as Integer 创建一个二维数组,开始arr(0,0),最后一个arr(3 ......
VBA-Excel程序控制语法
1、If…Then语句 Sub SayHello1() If Time < 0.5 Then MsgBox "早上好!" If Time >= 0.5 Then MsgBox "下午好！"End Sub Sub SayHello2() If Time < 0.5 Then MsgBox "早上好!" ......
[VBA] 实现SQLserver数据库的增删改查
[VBA] 实现 SQLserver数据库的增删改查 问题背景 用于库存管理的简单Excel系统实现，能够让库管员录入每日出入库信息并进能够按日期查询导出数据，生成简要报表，以及数据修改与删除。非科班且对VB语言和数据库语言未系统学习，有一点C语言与Python基础，有不足之处还请指教。 实现过程 ......
工作常用的EXCEL公式 | 一个工作簿拆分成多个工作簿（VBA）
需求：一个工作簿拆分成多个工作簿 解决方法：VBA代码 方法1：自选路径 Sub EachShtToWorkbook() Dim sht As Worksheet, strPath As String With Application.FileDialog(msoFileDialogFolderPi ......
vba find 单元格换行的情况
如果文本是使用Alt+Enter方法在单元格中输入的，则可以在VBA中使用以下代码： " & Chr(10) & " 下面为样例的.Find方法。 Private Sub CommandButton1_Click() Set RngClosedDate = Range("A1:Z10").Find( ......
vba程序中使用Like 加通配符（*？）
Sub 多表选择() Dim wks As Worksheet, shtCnt As Integer Dim arr() As Variant, i As Integer shtCnt = ThisWorkbook.Sheets.Count '取得工作表总数' ReDim arr(1 To shtC ......
在AutoCAD中分别用Lisp与VBA实现矩形拖画
;用Lisp实现鼠标拖画 (defun c:grr(/ halfLength halfWidth gr code p xx yy p1x p1y p2x p2y p3x p3y p4x p4y ) (setq L(getreal "请输入矩形长度：")) (setq W(getreal "请输入矩形 ......
access vba实现OLE对象保存到本地
参考oletodisk的实现方法，更新为在64位office上野可以运行，函数模块代码如下： 1 Option Compare Database 2 Option Explicit 3 4 5 'DEVELOPED AND TESTED UNDER MICROSOFT ACCESS 97 throu ......
连载随笔：VBA工具No.2：APOX输入数据辅助制作工具
一、需求背景 2009年，3G（TD-SCDMA）工程大规模上线，无线网络规划工程师在进行TD-SCDMA无线网络仿真工作中，经常为制作APOX（中国移动设计院的3G仿真软件）仿真输入数据伤浪费了宝贵的时间。 通过APOX输入数据辅助制作工具工具可快速实现仿真输入数据格式自动调整、关键项智能核查等功 ......
连载随笔：第一个VBA工具的诞生-站间距计算工具（二）
四、工具打磨 2008年，结合大家的使用反馈，我不断地修改BUG，调整适用功能，到2008年6月16日发布了V2.4版本。 V2.4版本还增加了3种输出格式。 2008年我到了南昌，由于工作负荷的增加，VBA编程就偃旗息鼓了一段时间。2013年的时候，由于4G（TD-LTE）一期工程建设，无线规划时 ......
连载随笔：第一个VBA工具的诞生-站间距计算工具（一）
更新时间：2023年11月9日 一、初识Excel宏和VBA 时间回退到2007年，参加工作半年，作为新员工协助项目负责人杜总参加安徽合肥滨湖新区的无线网络规划，杜总让我处理数据，顺便问会不会用excel宏，我一脸懵。 杜总演示了下，我第一次知道Excel还可以这么用，被Excel 宏强大的功能吸引 ......
有没有一种方法可以破解Excel VBA项目的密码？
内容来自 DOC https://q.houxu6.top/?s=有没有一种方法可以破解Excel VBA项目的密码？ 我被要求更新一些Excel 2003宏，但是VBA项目受到密码保护，而且似乎缺乏文档...没有人知道密码。 有没有一种方法可以删除或破解VBA项目的密码？ 你可以尝试这种不需要进行 ......
excel使用VBA连接access
需要的引用： 下面的代码涉及excel对access数据库的增删改查，可以按照需要查找使用 1 '远程链接模块 2 Option Explicit 3 Dim con As New ADODB.Connection '创建连接对象 4 Dim rs As New ADODB.Recordset '声 ......
关于vba的“不能给数组赋值”错误（转载）
整理自https://zhidao.baidu.com/question/418213674.html的一个好答案。 首先，要了解“不能给数组赋值”这个错误产生的根源，是由于程序要改变固定数组的大小引起的，比较常见的是有些函数、方法的返回值是一个数组，它们会自动设置用于接受数据的数组的大小，如果用固 ......
vba-每天固定日期执行某个宏
Sub 启动定时任务() Application.OnTime TimeValue("17:16:00"), "定时递归运行" End Sub Sub 定时递归运行() ' 这是要运行的代码 MsgBox "宏已运行！" ' 设置下一次运行的时间，例如，每隔一天运行一次 Dim NextRunTim ......
vba 处理word 的一些代码：修改公式（1--1）为（1-1）
Sub ConvertSpecificEquationsToText() Dim oEq As OMath Dim eqText As String Dim regEx As Object Set regEx = CreateObject("VBScript.RegExp") ' Define th ......
VBA获取文件夹下所有文件名或者文件夹名
VBA获取文件夹下所有文件名或者文件夹名 1，新建excel宏 2，在sheet中添加宏执行按钮 3，设置按钮执行的代码名 VBA代码如下： '选择文件按钮程序 Private Sub CommandButton1_Click() Application.ScreenUpdating = False ......
VBA_Worksheet_Change事件限定区域执行
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Intersect(Target, [b2:c9]) If Not Rng Is Nothing Then Rng.Interior.Colo ......
ACCESS 中的导航按钮,在VBA下的实现
'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录 ......
VBA Picture Copy&Paste
set myshapes=.worksheets（1）.shapes（“1”） myshapes.CopyPicture Appearance:=xlScreen, Format:=xlPicture ThisWorkbook.Worksheets("Sheet3").Paste Destinati ......
vba发送电子邮件利用outlook
应用工具引用：Microsoft Outlook 16.0 Object Library ‘根据outlook版本选择 或 Set Mail = CreateObject("Outlook.Application") Sub SendEmail() Dim Mail As Outlook.Appli ......
VBA中英文互译
Function TranslationContent(Wat As String) As String On Error Resume Next Dim Http As Object Dim MyScript As Object, R As Object Dim Reg As Object Set ......
VBA获取网页文本内容
Function GetHttpText(Url As String) With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "Get", Url, False .Send GetHttpText = .ResponseText End With ......