| 共 12 篇文章 |
|
positionX = sht.positionY = sht.Set newShape = sht.2.1）positionX = sht.Range(“B22”).Left.2.2）positionY = sht.Range(“B22”).Top.shapeName = sht.widthVal = sht.uniqueId = sht.uniqueId_i = sht.shapeName = drawShape(sht, shapeType, positionX, positionY, widthVal, heightVal, fillColor, lineColor)Function drawShape(sht... 阅6 转0 评0 公众公开 23-07-03 16:59 |
10 Set rngSort = Range(shtDB.Range("D1"), shtDB.Cells(maxRow, maxCol))11 Set rngSortRow = Range(shtDB.Range("D1"), shtDB.Cells(1, maxCol))62 devValue = shtDB.Cells(i, maxCol)Resize(1, 5) = shtDB.Cells(i, maxCol - 4).1）第71行：shtTemp2.Cells(rowInput, 4).Resize(1, 5) = shtDB.Cells(i, max... 阅5 转0 评0 公众公开 23-07-03 16:46 |
1）数据存储文件，使用Excel文件，文件名为：数据库.xlsx，该文件只有一个工作表，表名为：测量值，结构如图5-6所示，目标是将所有测量数据全部读取写入该表。如上一节所述，vbs代码作用就是定期运行监控系统.xlsm，要求vbs文件与拟运行文件放置于一个文件夹中（当然也可以不放在同一个文件夹中，修改对应的文件地址即可）。fso 为FileSystemOb... 阅6 转0 评0 公众公开 23-07-03 15:46 |
4.5.2-代码解析：L1_Sub_生成个人档案。22 在员工个人档案工作表shtOutput的"D2"单元格写入员工姓名employeeName.29 调用过程 L115_Sub_员工照片(shtOutput, employeeName)可知人员信息表，每名员工有一行信息，只需要找到该员工所处的行号就可以获取员工信息，将这些信息写入新生成的员工档案表即可，效果如图4-19所示。1 S... 阅9 转0 评0 公众公开 23-07-03 15:44 |
Sub L113_Sub_证书(shtOutput, employeeName)Sub L115_Sub_员工照片(shtOutput, employeeName)2）文件重命名：Name 原文件绝对地址 As 重命名后的文件绝对地址，没有产生新文件，只是修改了文件名，如果前后文件所处文件夹地址变了，表示移动了文件，也就是说该功能同样可以实现移动文件功能。Exit也可以退出Sub，以下代码退出当前Sub过程，执... 阅49 转0 评0 公众公开 23-07-03 15:34 |
其实就是将员工生产的小蛋糕重量信息分别复制到数据缓存工作表，因为不知道员工有多少信息（即多少行），以及不知道数据缓存工作表已有多少信息。在之前的示例中，我们通过工作表名称获取工作表信息，Worksheets(“工作表名”)，同样可以通过位置获取。该方法请慎用，当Excel工作簿中包括多个工作表时，若人工移动Excel工作表，同样的位置信息... 阅42 转0 评0 公众公开 23-07-03 15:14 |
2.6-本章示例代码详解。代码很重要的一个目的是让人阅读的，包括后续的优化升级都需要进行代码的阅读，保持良好的写代码习惯，提升代码可读性，是对写代码人员的基本要求。本章代码只有一个Sub过程，代码可以分为4个部分，具体结构如图2-11所示所示：从代码结构上来看，分别从语文、数学、英语三个工作表查询某学员的成绩对应的VBA代码基本上是... 阅4 转0 评0 公众公开 23-07-03 14:34 |
图2-9 VBA代码结构。上面两行代码对于完全不懂编程的人来说，可能还是比较懵，VBA代码其实就是一行一行的语句，代码的执行主体也是一行一行往下执行的（后续介绍循环和判断结构会不同）。VBA代码是不区分大小写的，也就是变量a和变量A表示的为同一个变量。第2行定义一个变量来表示成绩查询界面工作表中单元格B1中的取值，是通过工作表.单元格来... 阅5 转1 评0 公众公开 23-07-03 14:16 |
2-考试成绩查询(2.1-2.4)在成绩查询界面工作表输入姓名即可以获取到该学员的三科目的成绩，成绩查询界面工作表如图2-2所示。在成绩查询界面B1单元格输入学生姓名，点击按钮成绩查询，即可获取到该位同学的三科成绩，结果如图2-6所示。将查到的语文成绩写入成绩查询界面工作表的B4单元格。Cells(Rows.写完代码以后，右键点击成绩查询界面工作表... 阅5 转0 评0 公众公开 23-07-03 11:56 |
一直有一个这样的观点，代码是写给人看的，所以好的编码习惯能够使你代码之路走的更长久，当然以后维护成本也会更低，别人看你的代码也会少吐槽几句。代码本质上就是一段字符，有点像写作文，首先调整一下字体：工具菜单-选项设置字体大小和字体，关于良好的写代码习惯后续章节也会有介绍。回到Excel界面，在Excel界面的左下角有一个录制宏按钮... 阅5 转0 评0 公众公开 23-07-03 11:09 |
