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