Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
68795 / 76738 ←次へ　｜　前へ→
【12469】Re:再チャレンジ！
回答  角田 WEB  - 04/4/5(月) 14:46 -
引用なし
パスワード
   こんちゃ♪
>でも、広範囲にコピーしたらやっぱりフリーズしちゃいました(T_T)
>Jakaさんのでフリーズが免れたので、
>　 e3 = Split(arg_str, ",")
>これが駄目なのかなあ？
じゃぁ、Split無しで、直接、連結文字列を舐める方法では？

Dim i As Integer
Dim j As Integer
Dim strWK As String
Dim argWK As String
argWK = arg_str & ","
lngA = 0
j = 1
For i = 1 To Len(argWK)
　If (Mid(argWK,i,1) = ",") Then
　　If (j = i) Then
　　　strWK = ""
　　Else
　　　strWK = Mid(argWK,j,(i-j))
　　End If
　　If (strR1Value = strWK) Then
　　　lngA = lngA + 1
　　End If
　　j = i + 1
　End If
Next i
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:再チャレンジ！ ｎｉ 04/4/2(金) 21:47 発言
【12474】検証中 つん 04/4/5(月) 16:40 お礼
【12476】Re:検証中 ｎｉ 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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
68795 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free