| |
▼Asaki さん：
>>コピーの件はやはりエラーを出てしまいやめておきますがもし、あなたが
>>コピーの構文を追加してくればありがたいと存じます。
>お断りします。
>あくまでも、プログラムを作るのは さる さんです。
>どんなプログラムを書いて、何のエラーがでたのでしょうか？
>マクロの記録は試しましたか？
>
>>エラーになるけどどこか悪いでしょうか？
>> Worksheets("シート4").Cells(k, 31).Value = WorksheetFunction = "=Sum(Range(Cells(k, 9), Cells(i, 25))"
>イコールが複数あるのがおかしいです。
>また、こういうときは、WorksheetFunction は使いません。
>前に似たようなことをやったのでは？
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=16981;id=excel
申し訳はありませんでした。
コピーの件 自分で考えて作ります。今マクロ記録が出来ない状態です。何回も押しても記録できないです。原因は分かりません。
前回の質問についてにあなたの参考を取って作りましたがエラー出るけどどこか悪いでしょうか？
「アプリケーション定義またはオブジェクト定義のエラーです。」
Dim sutoA As Range
Dim sutoB As Range
Dim sutoC As Range
Dim sutoD As Range
Dim sutoE As Range
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("全体データ").Cells(k, 31).Value = a
Worksheets("全体データ").Cells(k, 32).Value = b
Worksheets("全体データ").Cells(k, 33).Value = s
Worksheets("全体データ").Cells(k, 34).Value = d
Worksheets("全体データ").Cells(k, 35).Value = e
Next k
End With
|
|
さる
- 04/8/24(火) 17:50 -
