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