)

VBA脚本制作经验总结:用单元格传递代替字符串传递信息

单元格传递信息的好处

1. 包含信息量巨大,
   1. 单元格
      1. currentRange
      2. cells(currentRange.row,1)
      3. cells(1,currentRange.column)
      4. 表格化参数,甚至有 cells(currentRange.row,2)
   2. IsEmpty
      1. Y
      2. N

标准统一的好处

1. 实际应用中(例如220623)发现一会儿传递 数值 AxisMax=0.2,一会儿传递,ChangeList,发现各种问题,还有 Range 参数传递,发现各种遗漏问题
2. 假如,把表参数当作应用,此个单元格,不仅仅有 cells(currentRange.row,1),cells(1,currentRange.column)等待函数辅助信息的加持
3. 关键是统一了度量衡

currentRange类型判断函数

1. Range(currentRange).select 单元格函数
   1. Data!B13
   2. B13
   3. Sheets(cells(1,currentRange.column)).Range(currentRange).select
2. IsEmpty
   1. Y
      1. Range(currentRange).select
         1. Y:1
         2. N:2
   2. N:3

最终敲定以及使用

1. IsEmpty
   1. Y
      1. Range(currentRange).select
         1. Y:1
         2. N:2
   2. N:3

应用场景1

2. if judgeRangeType(currentRange)=3 then 可执行变量()
3. public function 执行功能(Optional Rng as Variant) as Variant
4. IsMissing

'版本1''''''''''''''''''''''''''''''''''''''''''
if judgeRangeType(currentRange)=3 then 
	可执行变量(currentRange)
else
end if
1
2
3
4
5

public function 执行功能(Optional Rng as Variant) as Variant
	if IsMissing(Rng) then
		Exit function
	else
		if judgeRangeType(currentRange)=3 then
			Exit function
		else
		end if
	end if
end function 
1
2
3
4
5
6
7
8
9
10

'版本2''''''''''''''''''''''''''''''''''''''''''一般 Return String 函数采用方法
call 可执行变量(currentRange)
1
2

public function 执行功能(Optional Rng as Range) as String
	执行功能=""
	if IsMissing(Rng) then Exit function
	if not judgeRangeType(currentRange)=3 then Exit function
end function 

1
2
3
4
5
6