Excel VBA質問箱 IV

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

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


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

54833 / 76738

←次へ　｜　前へ→


	【26689】場合分けを簡単にするには？

reiko - 05/7/14(木) 10:20 -


	引用なし

	パスワード

こんにちは。
50種類ぐらいある製品の機種を１課・２課・共通の
３つに分け、１課の製品には『１』、２課の製品
には『２』、共通の製品には『共通』という文字を
入力して区別したいのですが、
種類がたくさんあるので、If Then ElseIf
でやろうとすると、非常に長いコードに
なってしまいます。
B列に入力した機種を区分するために、
A列に１又は２又は共通の文字を入力する
のに良い方法はないでしょうか？
教えてください。よろしくお願いします。

ちなみにIf　Then　Elseで今書いているコードは
以下の通りです。
ここでは機種は4種類しか書いていませんが
実際には50種類ぐらいあります。

Sub　機種区分（）

Dim wshichiran As String
Dim intkishu As Integer

wshichiran = Worksheets("上期一覧表").Name

intkishu = Sheets(wshichiran).Range("B65536").End(xlUp).Row

For r% = intkisyu　To 5 Step -1
　　If Sheets(wshichiran).Cells(r%, 2).Value = "CMS" Or _
　　　　Sheets(wshichiran).Cells(r%, 2).Value = "TCS" Then
　　　　Sheets(wshichiran).Cells(r%, 1).Value = "1"
　　ElseIf Sheets(wshichiran).Cells(r%, 2).Value = "HJC" Or _
　　　　Sheets(wshichiran).Cells(r%, 2).Value = "HSC" Then
　　　　Sheets(wshichiran).Cells(r%, 1).Value = "2"
　　Else
　　　　Sheets(wshichiran).Cells(r%, 1).Value = "共通"
　　End If
　　
Next
　　　　　　
End Sub

0 hits

▼

【26689】場合分けを簡単にするには？ reiko 05/7/14(木) 10:20

≪