共 342 篇文章 |
|
用VBA实现Excel函数:SUM.Function MySum(num1 As Variant, ParamArray argcs() As Variant) As Variant Dim dsum As Double Dim v As Variant Dim tmp As Variant If VBA.IsArray(num1) Then For Each v In num1 tmp = ParseValue(v) If tmp = "#VALUE!IsArray函数能判断参数是否是1个数组... 阅411 转4 评0 公众公开 23-09-19 09:44 |
[] Sheet3.Sheet2.Sheet1.颜色与数字对照表。颜色显示。颜色名。数字值。英文名。Violet+.DarkRed+.Teal+.Blue+.浅青绿。淡蓝色。玫瑰红。深黄色。水绿色。灰-25%.Gray-25%酸橙色。灰-50%.Gray-50%海螺色。浅橙色。Plum+.Blue-Gray.Gray-40%海绿。海蓝色。DarkBlue+.Pink+.Yellow+.Turquoise+.Gray-80%颜色值对照表。生成颜色表。 阅1 转自图书馆7as... 公众公开 23-04-14 02:10 |
VBA遍历所有文件夹的两种方法(filesearch和FileSystemObject)Path &"/" ''"设置要遍历的文件夹目录cntFiles = 0Set fd = fso.GetFolder(strPath) ''设置fd文件夹对象SearchFiles fd ''调用子程序查搜索文件Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) ... 阅622 转3 评0 公众公开 23-03-23 10:37 |
200个文件6秒,Excel文件汇总方法大全(含Python),源码全部分享! 阅1 转自Excel办公... 公众公开 23-03-22 11:46 |
Sub accsum()On Error GoTo errout Dim sqlstr As String Dim sqlstr_excute As String Dim rs_str As String Dim n As Long Dim i As Integer Dim ccodespt() As String Dim t As Double Dim steps_timer_1 As Double Dim steps_timer_2 As Double Dim steps_timer_3 As Double Dim steps_timer_4 As Double Dim steps_timer_5 As Double Dim ... 阅108 转1 评0 公众公开 23-03-07 23:32 |
阅85 转1 评0 公众公开 22-12-08 21:37 |
【VBA基础】除法运算符“\”与"/"的区别。"/" 运算符要求返回一个单一数值,所以,表面上看似简单的一行代码: C = A / B,实际上包含了3个隐含的转换操作:2个为除法运算做准备,从Integer转换到Single;所以,当2个Integer或者Single类型数值做除法运算时,如果想得到高精度的结果,就需要手工强迫其中之一转换为Double... 阅1 转自心灵地图s... 公众公开 22-11-29 22:52 |
使用VBA获取单元格背景色中红色、绿色和蓝色的数值excelperfect标签:VBA我们可以使用VBA代码来获取单元格背景色中的RGB值,如下图1所示。 阅1 转自hercules0... 公众公开 22-11-29 11:26 |
Excel VBA工作表标签右键的屏蔽与恢复汇总。Controls("重命名(&R)").Enabled = False ''右键工作表标签“重命名”为灰色。Controls("选定全部工作表(&S)").Enabled = False ''右键工作表标签“选定全部工作表”为灰色。Controls("选定全部工作表(&S)").Enabled = True ... 阅715 转13 评0 公众公开 22-11-07 00:04 |