|
さきほどはありがとうございました。
下記のコードで行う事にしました。
コードを解読してなんとなく意味はわかったのですが、ch=trueとCh = False: Set R = .Range("D4:AS4")のChの意味としてどう考えれば良いのかわかりません。
教えて頂ければ大変助かります。
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
Ch = False: Set R = .Range("D4:AS4")
Case 90
Ch = False: Set R = .Range("D5:AS5")
Case 133
Ch = False: Set R = .Range("D6:AS6")
Case 176
Ch = False: Set R = .Range("D7:AS7")
End Select
If Ch Then
Me.Controls("TextBox" & i).Value = .Cells(Ro, i - Co).Value
Else
Me.Controls("TextBox" & i).Value = Application.Sum(R)
Set R = Nothing
End If
Next i
End With
|
|