| |
皆さん こんにちは。
教えていただいた下記コードですが、私には非常に高度に見えます。
どうしても気になるので教えてください。
（１）
これは選択範囲の中で使用されているセルをまとめて、
bbという名前の範囲を設定するということですよね。
（２）
これは、bbの範囲の各セルの値をまとめて一気にaaに代入するということですよね。
このaaとはいったい何なのですか？？ aaというオブジェクト？？
（３）
UBound(aa, 1) この１はどう言う意味ですか？？
UBound(aa) これだったら 直感的にわかる気がするのですが。
（４）
ここより前はaaという記述しかなかったのに、
どうして急にaa(i, 1)という記述に変わったのですか？
（５）
（２）の時もそうでしたが、どうしてaaにはValueがなくてbbにはあるのですか？
（６）
どうしてこの後処理は必要なのですか？
aaには必要無いのですか？
以上たくさん書きましたが、どのようなサイトあるいは本を見れば、このような
高度？なコードについて勉強できますでしょか？
どうかご教授ください。
> Dim i As Long
> Dim aa As Variant
> Dim bb As Range
>
>' 1,よけいな範囲は処理しない
> Set bb = Intersect(Selection, ActiveSheet.UsedRange) ←（１）
>
>' 2，セルへのアクセスはできるだけ少なく
> aa = bb.Value ←（２）
>
> For i = 1 To UBound(aa, 1) ←（３）
> aa(i, 1) = StrConv(aa(i, 1), vbNarrow) ←（４）
> Next i
>
> bb.Value = aa ←（５）
>
> Set bb = Nothing ←（６）
|
|
- 04/3/10(水) 21:37 -
