Sub 批量增加工作表() Dim i As Integer For i = 1 To 10 '每次都在最后一张表后面增加 Worksheets.Add after:=Sheets(Worksheets.Count), Count:=1 ActiveSheet.Name = Sheet1.Range... ...
分类：
编程语言 时间：
2019-01-14 10:50:03
阅读次数：
209
Sub gongzuobu() Dim my_path As String Dim wb As Workbook Dim num As Integer Set wb = Workbooks("工作簿1.xltm") '建立工作簿对象 Set wb = Workbooks(1) Set wb = Ac... ...
分类：
编程语言 时间：
2019-01-13 16:12:54
阅读次数：
198
Sub demo() ' select case 练习 Dim card As String Dim i As Integer For i = 1 To 14 card = Range("a" & i) Select Case card Case "j" Range("b" & i) = "一等奖"... ...
分类：
编程语言 时间：
2019-01-12 12:12:41
阅读次数：
148
复制文件。 语法 FileCopy源，目标 FileCopy 语句语法包含以下命名参数： 说明 如果您尝试在当前打开的文件使用FileCopy语句，则将出错。 例子复制当前路径下的Test.txt文件到C盘Test文件夹下 ...
分类：
其他好文 时间：
2019-01-09 23:31:56
阅读次数：
554
源数据是A1:G18，需求是在K列显示A1:A18中各单元格重复出现的次数。在L列中是用countif函数直接计算的， ...
分类：
编程语言 时间：
2019-01-08 00:14:30
阅读次数：
676
自动化的工作是为了从繁琐重复的劳动中挣脱出来，把精力用在数据分析上。自动化方面python是在好不过了，不过既然要提交报表， 就不免要美观什么的。pandas虽然很强大，但是无法对Excel完全操作，现学vba有点来不及。于是就找到这个openpyxl包，用python来修改Excel。如下所示： ...
分类：
编程语言 时间：
2019-01-05 21:38:56
阅读次数：
267
1 向指定单元格区域内写入数据 Sub example1() Dim arr(1 To 3) arr(1) = Array("A", "B", "C", "D") arr(2) = Array("E", "F", "G", "H") arr(3) = Array("I", "J", "K", "L" ...
分类：
编程语言 时间：
2019-01-05 15:08:08
阅读次数：
157
在工作中我们经常需要定时执行某程序，或者有时需要每隔特定时间执行某个程序，例如我们需要每15分钟执行一次保存的动作，这个功能在VBA中是通过Application.OnTime函数来实现的。这个函数有两个参数，一个是执行程序的时间，另一个是要执行的程序名称。下面来看一代简单代码 Sub macro1 ...
分类：
编程语言 时间：
2019-01-05 14:15:12
阅读次数：
366
项目需求 客户整理出一个excel表格，表格中有订单必需的几个字段。然后把表格批量到导入到金蝶的专业版订单中。 如图： 项目开发思路：用vba代码把这个原表中需要的字段提取出来。然后生成到新的一张excel表格中，订单需要的字段能固定的，都固定写在生成导入表格里， 不能固定的，用vba代码写一个窗体 ...
分类：
其他好文 时间：
2019-01-04 22:38:30
阅读次数：
521
一、问题复现： Win7 ；64位 ；Office Excel 2016 打开带有宏的Excel文件，报错：【已删除的部件：部件/xl/vbaProject.bin。（Visual Basic for Applications（VBA））】 二、解决办法 问题原因：电脑语言设置问题。要改系统语言，然 ...
分类：
移动开发 时间：
2019-01-03 14:03:55
阅读次数：
3083
