|
私は、日本語も理解する能力が低い為、後半の質問が理解できません。
前半の質問のサンプルです。
二つのサンプルを理解し組み合わせると、良いせんまでいきませんか?
'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
|
|