Excel VBA質問箱 IV

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

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


13495 / 76732 ←次へ | 前へ→

【68741】Re:条件によって異なる範囲に値をコピーする方法
発言  Abebobo  - 11/4/13(水) 13:52 -

引用なし
パスワード
   私は、日本語も理解する能力が低い為、後半の質問が理解できません。
前半の質問のサンプルです。
二つのサンプルを理解し組み合わせると、良いせんまでいきませんか?

'D53〜I58までの値を・・・
Sub Sample_for()
Dim M_Sh As Worksheet
Dim a_R  As Range
Dim f_R  As Range

Set M_Sh = ActiveSheet
With M_Sh
 Set a_R = .Range("D53:I58")
 For Each f_R In a_R
  Debug.Print f_R.Value
 Next f_R
End With

End Sub

'例として
'D53が1であればD4〜F4の3列の値をD14〜F14
'D53が7であればD5〜F5の3列の値をD14〜F14
'D53が10であればM4〜O4の3列の値を
Sub Sample_Case()
Dim M_Sh As Worksheet
Dim My_R As Range

Set M_Sh = ActiveSheet
With M_Sh
 Select Case .Range("D53").Value
  Case 1
   Set My_R = .Range("D4:F4")
  Case 7
   Set My_R = .Range("D5:F5")
  Case 10
   Set My_R = .Range("M4:O4")
  Case Else
   Set My_R = .Range("A4:C4")
 End Select
End With

Debug.Print My_R.Address
  
End Sub
2 hits

【68736】条件によって異なる範囲に値をコピーする方法 青空 11/4/13(水) 11:55 質問
【68741】Re:条件によって異なる範囲に値をコピーす... Abebobo 11/4/13(水) 13:52 発言
【68750】条件によって異なる範囲に値をコピーする方... 青空 11/4/13(水) 21:40 質問
【68756】Re:条件によって異なる範囲に値をコピーす... Abebobo 11/4/14(木) 11:01 発言
【68758】条件によって異なる範囲に値をコピーする方... 青空 11/4/14(木) 18:42 お礼

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