Excel VBA質問箱 IV

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

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


15346 / 76734 ←次へ | 前へ→

【66867】大至急 セル内のデータを一部を読み込み数字に対応させたい
質問  あき  - 10/10/13(水) 19:59 -

引用なし
パスワード
   大至急でお願いします!!VBAでセル内のデータを一部読み込み数字に対応させたい
行き詰ってしまったのでお願いします。

G列のセルに4桁、H列のセルに5桁又は6桁入っています(両方アルファベットと数字の混合)
それを1・2・3・4・5という区分に分けたいです。

『1』の場合:G列のセルの末尾が"H"
『2』の場合:にはG列のセルの最後が"Y"もしくは"MMX"
『3』の場合:にはH列のセルに"12345"という数字が(前には4桁あり、後ろには何もないか、1桁あります)
『4』の場合:にはG列のセルの末尾が"Y"で、さらにH列に"12345"という数字がある場合です
(前には4桁あり、後ろには何もないか、1桁あります)
『5』の場合:上記以外のものと、H列の頭にV7、後ろに3桁か4桁あるものです。

"1234"は5桁目の数値を取る形で行いたいです。


現在のマクロでは下記のようにしておりますが、『3』『4』が上手く動きません。

Dim a AS Integer
a=1

Do until cells(a,"H").value=""

If cells(a,7).value Like "*Y" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*MMX" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*H" Then
cells(a,15).value="1"
------------------------------------

『3』『4』が良く分かりません

------------------------------------
Elseif cells(a,8).value Like "V7*" Then
cells(a,15).value="5"
Else
cells(a,15).value="5"
End If
a=a+1

Loop

どなたか是非教えてください。
A1セルを始めに指定してあります。

上記でおかしい所や、こうした方がいいというものもありましたら
併せて教えてくださいませ。

よろしくお願い致します。
1 hits

【66867】大至急 セル内のデータを一部を読み込み数字に対応させたい あき 10/10/13(水) 19:59 質問
【66868】Re:大至急 セル内のデータを一部を読み込... keisuke 10/10/13(水) 20:55 回答
【66869】Re:大至急 セル内のデータを一部を読み込... かみちゃん 10/10/13(水) 21:02 発言
【66870】Re:大至急 セル内のデータを一部を読み込... Hirofumi 10/10/13(水) 21:19 回答
【66873】Re:大至急 セル内のデータを一部を読み込... あき 10/10/13(水) 22:35 質問
【66875】Re:大至急 セル内のデータを一部を読み込... Hirofumi 10/10/13(水) 23:17 回答
【66876】Re:大至急 セル内のデータを一部を読み込... Hirofumi 10/10/13(水) 23:26 回答
【66877】Re:大至急 セル内のデータを一部を読み込... かみちゃん 10/10/14(木) 5:08 発言
【66884】Re:大至急 セル内のデータを一部を読み込... あき 10/10/14(木) 19:09 お礼

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