Excel VBA質問箱 IV

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

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


41067 / 76732 ←次へ | 前へ→

【40749】Re:selectcaseについて
回答  Statis  - 06/7/22(土) 8:50 -

引用なし
パスワード
   こんにちは

こんな感じです。

With Worksheets(Mys)
   For i = 5 To 176
     Ch = True
     Select Case i
      Case 5 To 46
         Ro = 4: Co = 1
      Case 48 To 89
         Ro = 5: Co = 44
      Case 91 To 132
         Ro = 6: Co = 87
      Case 134 To 175
         Ro = 7: Co = 130
      Case 47, 90, 133, 176
         Ch = Flase
     End Select
     If Ch Then
       Cells(Ro, i - Co).Value = Me.Controls("TextBox" & i).Value
 
     End If
   Next i
End With

尚、「Case 47, 90, 133, 176」は「Case Else」でも良いと思います。

0 hits

【40661】selectcaseについて てつじ 06/7/20(木) 9:43 質問
【40664】Re:selectcaseについて ハチ 06/7/20(木) 9:59 回答
【40666】Re:selectcaseについて Statis 06/7/20(木) 10:30 回答
【40672】Re:selectcaseについて ichinose 06/7/20(木) 11:44 発言
【40677】Re:selectcaseについて 訂正 ichinose 06/7/20(木) 12:32 発言
【40687】Re:selectcaseについて てつじ 06/7/20(木) 14:02 お礼
【40694】Re:selectcaseについて てつじ 06/7/20(木) 15:31 質問
【40713】Re:selectcaseについて Statis 06/7/21(金) 9:51 回答
【40725】Re:selectcaseについて てつじ 06/7/21(金) 14:11 質問
【40749】Re:selectcaseについて Statis 06/7/22(土) 8:50 回答
【40779】Re:selectcaseについて てつじ 06/7/24(月) 8:43 お礼

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