Excel VBA質問箱 IV

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

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


2420 / 13645 ツリー ←次へ | 前へ→

【68051】VBAによりブックに計算式を入れるには FS_ka 11/1/27(木) 17:42 質問[未読]
【68058】Re:VBAによりブックに計算式を入れるには UO3 11/1/28(金) 9:31 回答[未読]
【68131】Re:VBAによりブックに計算式を入れるには FS_ka 11/2/4(金) 8:59 お礼[未読]

【68051】VBAによりブックに計算式を入れるには
質問  FS_ka  - 11/1/27(木) 17:42 -

引用なし
パスワード
   あるシートにデータがあるとします。
ここでは、ある規則に従って、計算式を入れて、計算させたいのですが、
シートに計算式を付与することは分らないので、
ご伝授ください。

KR=6(F列)
SR=28(AB列)
KK=5 (5行目)
SK=65(65行目)
求めたい結果
SR+1列のところに
AC5セルにSUM(F5:AB5)
AC6セルにSUM(F6:AB6)


AC65セルにSUM(F65:AB65)

  KR ・・・・・・ SR
  ------------------->スタート列:変数KR、
KK |            終了列:変数SR
・ |
・ |
・ |
SK |
  
 集計開始行は変数KK、終了行は変数SK

【68058】Re:VBAによりブックに計算式を入れるには
回答  UO3  - 11/1/28(金) 9:31 -

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

おはようございます。
実際にシート上で計算式を入力し、それをマクロ記録に取れば
ベースとなるコードが取得できますので、あとは、それをモディファイ
すればよろしいかと思いますが、以下のようなコードでしょうか。

Sub Sample()
  Dim KR As Long, SR As Long
  Dim KK As Long, SK As Long
  
  KR = 6
  SR = 28
  KK = 5
  SK = 65
  
  Cells(KK, SR + 1).Resize(SK - KK + 1).FormulaR1C1 = _
                    "=SUM(RC[" & KR - SR - 1 & "]:RC[-1])"
    
End Sub

【68131】Re:VBAによりブックに計算式を入れるには
お礼  FS_ka  - 11/2/4(金) 8:59 -

引用なし
パスワード
   正しく作動しました!
ありがとうございました。

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