Excel VBA質問箱 IV

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

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


14391 / 76734 ←次へ | 前へ→

【67839】Re:繰り返しのコードをシンプルにしたい
回答  UO3  - 11/1/12(水) 15:25 -

引用なし
パスワード
   ▼あゆ さん:

こんにちは

ACELL や C が何であるのか、data は 取得したCの何なのかが不明ですが
もし、ACELL が セル領域、Cはその中のセル、dataは取得したCの値だとすれば

Option Explicit

Sub Sample()
  Dim ACELL As Range
  Dim c As Range
  
  Set ACELL = Range("A1:A20") '<== 例
  
  For Each c In ACELL
    Select Case c.Value
      Case "本"
        
        '"本"の場合の何らかの処理
      
      Case "花"
      
        '"花"の場合の何らかの処理
      
      Case "野菜"
      
        '"野菜"の場合の何らかの処理
      
    End Select
  Next
  
  Set ACELL = Nothing
  
End Sub

6 hits

【67836】繰り返しのコードをシンプルにしたい あゆ 11/1/12(水) 14:25 質問
【67837】Re:繰り返しのコードをシンプルにしたい kanabun 11/1/12(水) 15:01 発言
【67840】Re:繰り返しのコードをシンプルにしたい あゆ 11/1/12(水) 15:32 お礼
【67838】Re:繰り返しのコードをシンプルにしたい Jaka 11/1/12(水) 15:03 発言
【67841】Re:繰り返しのコードをシンプルにしたい あゆ 11/1/12(水) 15:34 お礼
【67839】Re:繰り返しのコードをシンプルにしたい UO3 11/1/12(水) 15:25 回答
【67842】Re:繰り返しのコードをシンプルにしたい あゆ 11/1/12(水) 15:35 お礼

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