Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68794 / 76738 ←次へ | 前へ→

【12470】Re:忘れてた・・・・
発言  Jaka  - 04/4/5(月) 16:00 -

引用なし
パスワード
   つんさん、こんにちは。

>配列がその分少ないから、リソースの節約になってんのかな・・・
>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しか触った事ありません。

>でも、家ではあまりエクセル起動させません(^^;
なして?
ゲームはどこいったんやろ!
0 hits

【12115】ユーザー定義関数について つん 04/3/24(水) 12:57 質問
【12119】Re:ユーザー定義関数について Jaka 04/3/24(水) 13:56 発言
【12120】Re:ユーザー定義関数について こうちゃん 04/3/24(水) 14:18 発言
【12124】Re:ユーザー定義関数について つん 04/3/24(水) 14:32 発言
【12138】自動再計算をやめて・・・ つん 04/3/24(水) 19:30 お礼
【12160】Re:ユーザー定義関数について つん 04/3/25(木) 15:07 お礼
【12176】Re:ユーザー定義関数について 角田 04/3/25(木) 18:47 回答
【12187】Re:ユーザー定義関数について つん 04/3/26(金) 9:19 発言
【12410】再チャレンジ! つん 04/4/2(金) 16:15 質問
【12415】Re:再チャレンジ! Jaka 04/4/2(金) 17:17 発言
【12464】やっぱ違ってた。 Jaka 04/4/5(月) 13:04 発言
【12465】え?どこが? つん 04/4/5(月) 13:31 お礼
【12466】忘れてた・・・・ つん 04/4/5(月) 13:44 発言
【12470】Re:忘れてた・・・・ Jaka 04/4/5(月) 16:00 発言
【12416】Re:再チャレンジ! 角田 04/4/2(金) 17:21 回答
【12428】Re:再チャレンジ! ni 04/4/2(金) 21:47 発言
【12474】検証中 つん 04/4/5(月) 16:40 お礼
【12476】Re:検証中 ni 04/4/5(月) 17:34 発言
【12479】ああああ!(>_<) つん 04/4/5(月) 19:11 発言
【12484】出来ました! つん 04/4/6(火) 9:34 お礼
【12467】Re:再チャレンジ! つん 04/4/5(月) 13:47 お礼
【12469】Re:再チャレンジ! 角田 04/4/5(月) 14:46 回答
【12472】Re:再チャレンジ! つん 04/4/5(月) 16:34 お礼

68794 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free