随笔分类 - VBA 编程
摘要：需求： 初始表： Python 代码： import itertools import pandas as pd wb_in = 'E:\\excel_vba\\test.xlsx' df = pd.read_excel(wb_in, sheet_name='Sheet1', header=0) d
阅读全文
摘要：需求： 方法1、 循环插入表、写入值 import os import pandas as pd import openpyxl wb_in = 'E:\\excel_vba\\test.xlsx' df = pd.read_excel(wb_in) wb = openpyxl.load_workb
阅读全文
摘要：需求： vab 程序 https://www.cnblogs.com/shanger/p/12993804.html vba 的 sub 过程交互性不很好，泛化性也不是很好。 Python 使用 pandas 和 openpyxl 简单明了，泛化性更好。 1、加载包 import pandas as
阅读全文
摘要：一 C 列没有重复值 初始表： 插入工作表： Sub ShtAdd() Rem 根据C列的值新建不同的工作表 Dim i As Integer, sht As Worksheet i = 2 '第一条记录的行号为2 Set sht = Worksheets("成绩表") Do While sht.C
阅读全文
摘要：1、立即窗口显示路径 msgbox thisworkbook.fullname 2、新建工作簿并保存 Sub test() Rem 新建保存工作簿 Dim wb As Workbook Dim ws As Worksheet Dim path, name As String Set wb = Wor
阅读全文
摘要：初始表： 2 填写信息 代码： Sub wb_info() Range("C3") = ThisWorkbook.Name Range("C4") = ThisWorkbook.Path Range("C5") = ThisWorkbook.FullName End Sub 结果：
阅读全文
摘要：初始工作簿 1、插入工作表 代码 Sub test() Dim i As Integer Rem 利用 for 循环插入工作表，并命名 For i = 0 To 5 Worksheets.Add ActiveSheet.Name = "表" & i '为插入的工作表命名 Next End Sub 运
阅读全文
摘要：1、VBA 用 For Each 循环在指定区域填充单元格 R1C1 形式的地址名。 程序运行效果应如下： 代码 Sub RC() Dim cell As Range, i As Integer '声明变量 For Each cell In Range("B2:H13") cell.Value =
阅读全文
摘要：利用循环和分支语句判断 B 列数字的符号，将结果填入 C列。 原始表格如如下： 1、For 循环和 If 语句，代码如下： Sub sign() Dim sign As String, i As Integer '声明变量 For i = 3 To 13 Step 1 If Cells(i, "B"
阅读全文
摘要：Join 函数用指定的分隔符，将一个一维数据中的元素连接成一个字符串，类似 python 中的 join 方法。 示例代码如下： Sub join_test() Dim arr As Variant, txt As String '声明变量 arr = Array(Array("一", "两", "
阅读全文
摘要：计算数据的最大索引和最小索引分别用 Ubound 和 LBound 函数。对于多维索引需要指定数据的目标维度。 1、一维数组 Sub arr_idx_cnt() Dim arr(23 To 72) '定义数组 Static min_idx, max_idx, n As Integer, msg As
阅读全文
摘要：1、给文本、数值、日期等变量赋值，其语句为： Let 变量 = 数据 其中，“Let” 是可以省略的。 示例： 初始工作表： 运行代码： Sub mytest() Dim str As String Let str = "变量赋值" Cells.ClearContents '清除活动表中的所有数据
阅读全文
摘要：VBA 中的变量根据其不同的作用域级别，分为公共变量、模块级变量和本地变量 3 种。不同的变量有不同的声明方法。 1、公共变量需在模块的第一个过程前用 Public 语句声明。 示例代码如下： Option Explicit Public grade As Integer Sub test() Ra
阅读全文
