Excel VBA質問箱 IV

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

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


15344 / 76734 ←次へ | 前へ→

【66869】Re:大至急 セル内のデータを一部を読み込み数字に対応させたい
発言  かみちゃん E-MAIL  - 10/10/13(水) 21:02 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>上記でおかしい所や、こうした方がいいというものもありましたら

ということで、Select Case を使う例です。
ちょっと時間がないので、検証は、していません。

Sub Sample()
 Dim a As Integer
 
 a = 1
 Do Until Cells(a, "H").Value = ""
  Select Case True
   Case Cells(a, 7).Value Like "*H"
    Cells(a, 15).Value = "1"
   Case Cells(a, 7).Value Like "*Y"
    If Cells(a, 8).Value Like "*12345*" Then
     Cells(a, 15).Value = "4"
    Else
     Cells(a, 15).Value = "2"
    End If
   Case Cells(a, 7).Value Like "*MMX"
    Cells(a, 15).Value = "2"
   Case Cells(a, 8).Value Like "*12345*"
    Cells(a, 15).Value = "3"
   Case Cells(a, 8).Value Like "V7???"
    Cells(a, 15).Value = "5"
   Case Cells(a, 8).Value Like "V7????"
    Cells(a, 15).Value = "5"
   Case Else
    Cells(a, 15).Value = "5"
  End Select
  a = a + 1
 Loop
End Sub

なお、変数a は、行数を示すならば、Integer型ですと、32767を超えると、
オーバーフローというエラーになるので、Long型のほうがいいと思います。
0 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 お礼

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