Excel VBA質問箱 IV

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

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


10034 / 76734 ←次へ | 前へ→

【72253】Re:複雑でよくわかりません
発言  カタツムリ  - 12/7/3(火) 10:08 -

引用なし
パスワード
   rabbitさん、返答ありがとうございます。

返信が遅くなり申し訳ありません。
急遽現場に行くことになり、遅くなりました。

>>Select Case 
こんな素晴らしいステートメントがあるんですね。
下記の件、記載ありがとうございます。
お手数をかけてすいません。
一度、確認させていただきます。


▼rabbit さん:
>こういった話ですか?(反応ないですが、こちらも忙しいので)
>Sub test()
>  Dim k As Long
>  Dim s As String
>  Dim expectation As String
>  
>  For k = 1 To Cells(1, 1).End(xlDown).Row
>    s = Cells(k, 1).Value
>    If Left(s, 4) = "重要番号" Then
>      Select Case s
>      Case "重要番号1111", "重要番号1112", "重要番号1116", "重要番号1119"
>        expectation = "特別に対処不要"
>      Case Else
>        expectation = "殿に連絡"
>      End Select
>    Else
>      Select Case s
>      Case "開始", "終了"
>        expectation = "対処不要"
>      Case "重要情報"
>        expectation = "殿に連絡"
>      Case Else
>        expectation = "想定外"
>      End Select
>    End If
>    If expectation = "想定外" Then
>      Cells(k, 3).Value = "想定した文字列以外です"
>    Else
>      If expectation <> Cells(k, 2).Value Then
>        Cells(k, 3).Value = "これはNG"
>        'ここで Cells(k, 2)に色をつける
>      End If
>    End If
>  Next
>End Sub
7 hits

【72250】複雑でよくわかりません カタツムリ 12/7/2(月) 17:59 質問
【72251】Re:複雑でよくわかりません rabbit 12/7/2(月) 19:29 発言
【72252】Re:複雑でよくわかりません rabbit 12/7/3(火) 1:12 発言
【72253】Re:複雑でよくわかりません カタツムリ 12/7/3(火) 10:08 発言
【72280】Re:複雑でよくわかりません rabbit 12/7/7(土) 20:58 発言
【72292】Re:複雑でよくわかりません ジェントルマン 12/7/9(月) 15:41 発言
【72304】Re:複雑でよくわかりません rabbit 12/7/10(火) 21:48 発言
【72392】Re:複雑でよくわかりません ジェントルマン 12/7/30(月) 16:53 発言
【72309】Re:複雑でよくわかりません カタツムリ 12/7/11(水) 10:58 お礼

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