Function cc() Dim rng As Range For Each rng In Range("A1:G10") If rng.Interior.Color = RGB(255, 255, 0) Then cc = 1 + cc End If Next rng End Function ...
分类：
编程语言 时间：
2020-12-01 12:44:41
阅读次数：
22
在浏览器中打开如下网址：https://www.kj009.net/web1/upload.aspx 可以看到一个“选择文件”的按钮，其实它的定义是一个input，只不过type是file。 <input name="myfile" type="file" id="myfile"> 如果手工操作的话 ...
分类：
编程语言 时间：
2020-11-11 15:49:15
阅读次数：
8
1、指定单元格在工作表位置 下例：指定A10单元格位于左上角 Sub 指定单元格至左上角() ActiveWindow.ScrollColumn = Range("a10").Column ActiveWindow.ScrollRow = Range("a10").Row End Sub ...
分类：
编程语言 时间：
2020-09-17 16:39:06
阅读次数：
34
一、with语句 演示宏录制单元格格式设置，讲解with语句；对照单元格字体设置、对齐设置等菜单与录制的宏代码。 二、vba事件问题导入--高亮显示案例 问题1：结合文件“DEMO-1-从格式设置说起-(with)语句”描述需求：当表格很大时，希望点到某格时，该行高亮显示，同时之前其他行的高亮显示消 ...
分类：
编程语言 时间：
2020-09-11 15:48:46
阅读次数：
37
