EXCELVBA Variantとobject
毎度
お世話に、なります。
3つ、程
お伺いしたい
の、です
先ず、1つ目
Variant型に、Set で
代入、したら
駄目
みたい、ですけど
昔から
でしたで、しょうか?
後、2つ目
objectは
複数値を、持つ
ポインタに、よる
実態参照の、変数
と、思っていた
の、ですが
Variantも
此の、意味では
objectの
気が、します
で、ですね
objectは、set必須
と、
持って、いましたが
variantは
objectでは、無い
の、ですか?
そう、決めた
奴が、いる
の、だから
仕方ない
とか、
付けなくて、いい
と、覚えれば
其れで、良いじゃん
とか、
等と、いえば
身も、蓋も、
ない、ですが…
最後に、
以下の、コーディングで
前者を、後者に、
変えると
Application.WorksheetFunction.SumProduct(
の、所で
転けます
要因と、して
考えられる、もの
には
どの様な、ものが
挙げられる
で、しょうか?
お教え下さい
宜しくお願いします。
Sub test()
Dim 合否行列1 As Variant, 演算式1 As String, 合格件数 As Long
Let 演算式1 = "(sheet1!" & Range(Cells(1, 3), Cells(1, 200)).Address & "=Sheet2!" & Range("A1:A100").Address & ")+0"
Let 合格件数 = CLng(Application.WorksheetFunction.SumProduct(Evaluate(演算式1)))
合格行列1 = Evaluate(演算式1)
End Sub
Sub test()
Dim 合否行列1 As Variant, 演算式1 As String, 合格件数 As Long
Let 演算式1 = "(sheet1!" & Range(Cells(1, 3), Cells(1, 200)).Address & "=Sheet2!" & Range("A:A").Address & ")+0"
Let 合格件数 = CLng(Application.WorksheetFunction.SumProduct(Evaluate(演算式1)))
Set 合格行列1 = Evaluate(演算式1)
End Sub
お礼
ご回答ありがとうございました!