|
つんさん、こんにちは。
>配列がその分少ないから、リソースの節約になってんのかな・・・
>Jakaさんのでフリーズが免れたので、
> e3 = Split(arg_str, ",")
>これが駄目なのかなあ?
いやっ^^;
私のは、全く配列を使っていません。
で、下記コードみたいにセル範囲を配列に入れただけの場合とか、
e3 = Split(arg_str, ",")だけの場合とか、色々組み合わせを考えて見るのも手かもしれませんね。
んでもって、最終的には広範囲過ぎて、やっぱしダメやったて、泣くかもしれませんけどね。
Dim ragtb as variant
ragtb = argR2.value
For Each e1 In ragtb
ST = 1
Do Until InStr(ST, e1.Value, Wwd) = 0
lngA = lngA + 1
ST = InStr(ST + 1, e1.Value, Wwd) + Len(wd) + 1
Loop
If Left(e1.Value, Len(Stt) + 1) = Stt & "," Then
lngA = lngA + 1
ElseIf Len(e1.Value) = Len(Stt) And e1 = Stt And e1.Value <> "" Then
lngA = lngA + 1
End If
If Right(e1.Value, Len(Stt) + 1) = "," & Stt Then
lngA = lngA + 1
End If
Next
mySubAPP = lngA
Erase ragtb
>うちは、会社ではWindows98se+Excel2002どす。
>で、家ではWindowsXP+Excel2002どす。
えっ、そうなのっ!
つい最近2003は、Win2000以上しか動かないと知ったもんで、
つんさんがどこかで「うちのは、2003やけど動きました。伝〃」と回答されているのを見たような気がしまして、つんさんとこのノートは、確かMeなのに何で2003が動くの?? どうやったら動くようになるの? と、なったわけでして...。
でも両方 Office XPなんやね。
2002と2003、両方XPって言うんだよね?
わたくし、97と2000しか触った事ありません。
>でも、家ではあまりエクセル起動させません(^^;
なして?
ゲームはどこいったんやろ!
|
|