![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
毎度毎度お世話になります。
Office2003でのVBAに関しての質問です。
例えば、Sheet1のC3セルとSheet2のC3セルの合計をSheet3のC3セルに表示したい場合に現在下記のように記述しています。
Sheets("Sheet3").Range("C3").Select
ActiveCell.FormulaR1C1 = "=SUM('Sheet1'!RC + 'Sheet2'!RC)"
結果、ちゃんとSheet1のC3セルとSheet2のC3セルの合計をSheet3のC3セルに表示できるのですがこれだとSheet1やSheet2のシート削除するとSheet3の値が崩れますよね。計算式をSheet3のセルに入れているのだから当たり前なんですが・・・
そこで、Sheet3のセルに値を入れる時に、計算式ではなく計算結果を入れたいのですがどのように書けばよいのでしょうか?
No.5ベストアンサー
- 回答日時:
こんにちは。
R1C1方式の便利な方法は活かして、
Sub TestSample()
With Sheets("Sheet3").Range("C3")
.FormulaR1C1 = "=SUM('Sheet1'!RC,'Sheet2'!RC)"
.Value = .Value
End With
End Sub
もっと多くのシートがある場合は、以下のようなスタイルになります。
.FormulaR1C1 = "=SUM('Sheet1:Sheet2'!RC)"
No.7
- 回答日時:
#5 です。
>ただこれだと、数式は残りませんか?
.Value = .Value は、基礎的なテクニックですから、良く覚えてくださいね。
Rangeオブジェクトのプロパティには、いくつかあります。
Formula プロパティと Valueプロパティとは、入力する時点では、同義ですが、出力の段階では、別です。これは、Text プロパテイに対しても同じです。他にも、FormulaLocal とFormula の違い、ValueとValue2 との違い、Text とValue の違いなど、ひとつずつ試しながら覚えるしかありません。FormulaR1C1は、通常は使いません。それは、数式が限定されるからです。それは、同じく、FormulaA1 も同じことです。
それから、経験的に、数式を大量に、VBE上では、抱えないほうがよいです。メモリ食いになります。今回のような場合は、ある意味特別です。VBAで、シートをループするよりも、かなり早く解が出るものだと思います。
No.6
- 回答日時:
よく事情が呑み込めないのですが・・・
VBAでシートを指定して計算して、シートを削除すれば・・・当然、VBAを動作させた際も、エラーになります
そのために、VBAを作るのではなく、コピー&形式貼り付けで、値を貼り付けた方が良いような気がするのですが・・・
テンプレートの様に使用して、保管する際は別のファイル名とかにするのでしょうか?
もう少し補足を出したほうが良いような気がしますが?
No.4
- 回答日時:
Sub Macro1()
Worksheets("Sheet3").Range("C3").Consolidate _
Sources:=Array("Sheet1!R3C3", "Sheet2!R3C3"), _
Function:=xlSum
End Sub
No.1
- 回答日時:
こんにちは。
>"=SUM('Sheet1'!RC + 'Sheet2'!RC)"
もともと、このSUM関数は意味がないと思います。
ActiveCell.FormulaR1C1 = "=Sheet1!RC + Sheet2!RC"
でも同じ答えです。でもこれでは、数式が入力されてしまうので
ActiveCell.Value = Sheets("Sheet1").Range("C1") + Sheets("Sheet2").Range("C1")
に変更すればいいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
VBAで変数に関数式の結果をセットする場合
Excel(エクセル)
-
【Excel VBA】計算結果のみ表示させたい
Excel(エクセル)
-
VBAの計算結果が表示されない
Excel(エクセル)
-
-
4
エクセルVBA: セルの計算結果のデータのみコピー
Excel(エクセル)
-
5
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
6
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
VBAで計算結果のみ表示させたい
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
sumproductの計算式で「エラー2015」(ローカルウィンドウにて)が表示(Excel2007、2003)
その他(Microsoft Office)
-
17
特定のシートのみ再計算させない方法は?
Excel(エクセル)
-
18
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
19
VBAで、セル(Range)のオブジェクトが取得できない
Excel(エクセル)
-
20
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
別シートのセルを絶対参照にする
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
Rangeメソッドは失敗しました。...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
マクロ 新しいシートにデータ...
-
エクセルで1月0日と表示される!!
-
EXCELのハイパーリンクのセルを...
-
エクセルで、加筆修正したセル...
-
エクセルのセルに、マウスで選...
-
エクセルで20万行あるシート...
-
エクセルで特定の文字を打つと...
-
VBAで、セル(Range)のオブジ...
-
シート参照で変数を使いたい(EX...
-
エクセル ハイパーリンクで画像...
-
Excelでスクロールすると文字が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
Excelで複数シートの選択セルを...
-
エクセルで条件に一致したセル...
-
別シートのセルを絶対参照にする
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
エクセルで1月0日と表示される!!
-
Rangeメソッドは失敗しました。...
-
ExcelでTODAY関数を更新させな...
-
エクセルで、加筆修正したセル...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
エクセルで複写のように自動入...
-
Excelでスクロールすると文字が...
-
シート参照で変数を使いたい(EX...
-
マクロ 新しいシートにデータ...
-
Excelのファイル容量が減らない...
-
エクセルで20万行あるシート...
-
エクセルのルビがついたセルを...
-
エクセルの文字
おすすめ情報