|
しつこくて申し訳はありませんでした。
コピーの件 再起動してみたらマクロ記憶作動できました。
RangeクラスのSelectメソッドが失敗しました。とエラー表示を出るけどどこか悪いでしょうか?
Sheets("シート1").Range("A1:BM1").Select
Selection.Copy
Sheets("シート3").Select
Range("A1").Select
ActiveSheet.Paste
前回の質問についてにあなたの参考を取って作りましたがエラー出るけどどこか悪いでしょうか?
「アプリケーション定義またはオブジェクト定義のエラーです。」
Dim sutoA As Range
Dim sutoB As Range
Dim sutoC As Range
Dim sutoD As Range
Dim sutoE As Range
With WorkSheets("シート3")
For k = 2 To Range("A65536").End(xlUp).row
Set sutoA = .Range("I" & k & ":Y " & k)
Set sutoB = .Range("AC" & k & ":AQ" & k)
Set sutoC = .Range("AR" & k & ":BB" & k)
Set sutoD = .Range("AF" & k & ":AH" & k)
Set sutoE = .Range("AL" & k & ":AQ" & k)
a = Application.WorksheetFunction.Sum(sutoA)
b = Application.WorksheetFunction.Sum(sutoB)
s = Application.WorksheetFunction.Sum(sutoC)
d = Application.WorksheetFunction.Sum(sutoD)
e = Application.WorksheetFunction.Sum(sutoE)
Worksheets("シート4").Cells(k, 31).Value = a
Worksheets("シート4").Cells(k, 32).Value = b
Worksheets("シート4").Cells(k, 33).Value = s
Worksheets("シート4").Cells(k, 34).Value = d
Worksheets("シート4").Cells(k, 35).Value = e
Next k
End With
方法は正しいですか?
私の頭がまた理解できていないですのでどうかアドバイスお願いします。
本では参考載せていませんから理解しにくいです。
|
|