Excel VBA質問箱 IV

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

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


41091 / 76732 ←次へ | 前へ→

【40725】Re:selectcaseについて
質問  てつじ  - 06/7/21(金) 14:11 -

引用なし
パスワード
   ▼Statis さん:
>こんにちは
>
>>コードを解読してなんとなく意味はわかったのですが、ch=trueとCh = False: >Set R = .Range("D4:AS4")のChの意味としてどう考えれば良いのかわかりません。
>>教えて頂ければ大変助かります。
>
>「Ch」の変数はフラグです。
>Case の何処を通過したかを確認しています。
>47,90,133,176を通過したときは合計をテキストボックスに表示させています。
>なのでこのときは「Ch」の値を「False」にしています。(以外はTrueです)
>あとはIf文で区分し合計値か単独セルの値かをテキストボックス表示させています。
>
>変数「R」はRangeにて宣言しています。
>そしてSetステートメントで変数「R」にセル範囲をセットしてます。
>なのでSet R = .Range("D4:AS4")はセルD4からセルAS4までの範囲を
>セットしている事になります。
>Application.Sum(R) はApplication.Sum(.Range("D4:AS4"))と同じことです。

ありがとうございました。
逆に表示させた値をシートに移す場合は、下記コードになるのかと思いますが、
この中で、47,90,133,176の値は無視してそれ以外をシートへ移動させたいのですが
下記コードのcase47,90,133,176は必要ないのですか?もし記入するべきだとしたら
どのように記入するべきですか?

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
        
      Case 90
        
      Case 133
        
      Case 176
        
     End Select
     If Ch Then
       Cells(Ro, i - Co).Value = Me.Controls("TextBox" & i).Value
  
     End If
   Next i
End With
1 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 お礼

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