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))
 ★このSTEP4の合計を計算したい★
  
 A = RngR4 - RngR3  (Step4のRowの数)

*STEP4をコピーするファイル*

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
 
よろしくお願いいたします。

0 hits

【25293】R1C1による計算方法 さくたん 05/5/27(金) 9:19 質問
【25296】Re:R1C1による計算方法 つん 05/5/27(金) 10:18 回答
【25309】Re:R1C1による計算方法 さくたん 05/5/27(金) 16:43 お礼

56197 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free