Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56197 / 76732

←次へ　｜　前へ→


	【25293】R1C1による計算方法

さくたん - 05/5/27(金) 9:19 -


	引用なし

	パスワード

おはようございます。下記のセル範囲のR1C1による計算方法をご教授ください。よろしくお願いいたします。＊データを取得＊（どの試験結果からも抽出できるようにしています。） Set myRng3 = Columns(3).Find(What:="START", After:=Range("C1"), LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) 　　　If Not myRng3 Is Nothing Then 　　RngR3 = myRng3.Row 　　RngC3 = myRng3.Column 　　　　End If 　　　　Set myRng4 = Columns(3).Find(What:="END", After:=Range("C1"), LookIn:=xlFormulas, _ 　　　　　　 SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) 　　　If Not myRng4 Is Nothing Then 　　RngR4 = myRng4.Row 　　RngC4 = myRng4.Column 　　　　End If 　　　　　　　 Set STEP4 = Range(Cells(RngR3, RngC3 + 2), Cells(RngR4, RngC4 + 2)) 　★このSTEP４の合計を計算したい★ 　　　A = RngR4 - RngR3　　（Step４のRowの数）＊STEP４をコピーするファイル＊ Workbooks(2).Activate myMacro = ActiveWorkbook.Name Workbooks(myMacro).Activate Worksheets(1).Activate STEP4.Copy Range("D10").PasteSpecial xlPasteValues 　　　Application.CutCopyMode = False 　　　Selection.Replace What:="S", _ 　　　Replacement:="", _ 　　　LookAt:=xlPart, _ 　　　SearchOrder:=xlByRows, _ 　　　MatchCase:=False Set STEP4 = Nothing With Cells(11 + A, 3) 　　　.Select 　　　.FormulaR1C1 = With Cells(11 + A, 3) 　　　.Select 　　　.FormulaR1C1 = "=SUM(R[-A]C;R[-1]C)"　←こうするとデバックが出ます。 End With 　よろしくお願いいたします。