Excel VBA質問箱 IV

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

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


9817 / 13644 ツリー ←次へ | 前へ→

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

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

【25296】Re:R1C1による計算方法
回答  つん E-MAIL  - 05/5/27(金) 10:18 -

引用なし
パスワード
   ▼さくたん さん:
おはようございます^^

えと、他のコードはあまりしっかり見てないんですが・・・

>   .FormulaR1C1 = "=SUM(R[-A]C;R[-1]C)" ←こうするとデバックが出ます。

"=SUM(R[-A]C;R[-1]C)" 
ここの「A」は変数なのに、これでは「A」という文字として認識されてしまうので、

"=SUM(R[-" & A & "]C:R[-1]C)"
このように書かなくてはいけないのでは?と思います。

【25309】Re:R1C1による計算方法
お礼  さくたん  - 05/5/27(金) 16:43 -

引用なし
パスワード
   ▼つん さん:

>"=SUM(R[-A]C;R[-1]C)" 
>ここの「A」は変数なのに、これでは「A」という文字として認識されてしまうので、
>
>"=SUM(R[-" & A & "]C:R[-1]C)"
>このように書かなくてはいけないのでは?と思います。

な〜るほど、とっても単純なことだったんですね。
難しく考えすぎてしまいました。
ありがとうございました。

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