Excel VBA質問箱 IV

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

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


54827 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。
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

0 hits

【26689】場合分けを簡単にするには? reiko 05/7/14(木) 10:20 質問
【26692】Re:場合分けを簡単にするには? りん 05/7/14(木) 10:50 回答
【26699】Re:場合分けを簡単にするには? reiko 05/7/14(木) 11:49 お礼

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