Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16819 / 76732

←次へ　｜　前へ→


	【65377】Re:２つの条件分岐をＬＯＯＰで行う方法

H. C. Shinopy - 10/5/16(日) 20:32 -


	引用なし

	パスワード

VBAのSelect Caseは条件式が一つしか指定できないんですね。
ありゃ～、今まで気が付きませんでした。
文字列連結で苦肉の策を講じて対処。

Sub 担当者の自動振分け()
　Dim lngRow As Long
　Dim lngRowLast As Long
　Dim StrAandB As String
　'
　With ActiveSheet
　　lngRowLast = .Range("A" & .Rows.Count).End(xlUp).Row
　　lngRow = 2
　　Do While lngRow <= lngRowLast
　　　' With .Range("A" & lngRow) ←取り敢えず、不要ということで。
　　　
　　　↓A列とB列を半角スペースを間に入れて文字列連結｡
　　　StrAandB = .Range("A" & lngRow).Value & " " & CStr(.Range("B" & lngRow).Value)
　　　Select Case StrAandB
　　　　Case "Ａ 1"
　　　　　.Range("K" & lngRow).Value = "山田さん"
　　　　Case "Ａ 2"
　　　　　.Range("K" & lngRow).Value = "佐藤さん"
　　　　Case "Ａ 3"
　　　　　.Range("K" & lngRow).Value = "鈴木さん"
　　　　Case "Ｚ 30"
　　　　　.Range("K" & lngRow).Value = "岡本さん"
　　　　Case Else
　　　　　MsgBox "A・B列の組み合わせの値　該当なし！ " & lngRow & "行目"
　　　　　Exit Sub
　　　End Select
　　　' End With
　　　lngRow = lngRow + 1
　　Loop
　End With
End Sub

0 hits

▼

【65376】２つの条件分岐をＬＯＯＰで行う方法 suika 10/5/16(日) 19:30