![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
例えば sheetが10枚で "A1" の値を合計するマクロで11枚目のsheetの "A3"に表示させるのに
下記のようにすると出来ましたが、これを短く記述する方法を教えてください、よろしくお願いします。
Range("a3").value=Worksheets(1).Range("a1").valur + Worksheets(2).Range("a1").value +
Worksheets(3).Range("a1").value + ・・・・・・・Worksheets(10).Range("a1").value
No.2ベストアンサー
- 回答日時:
#1の方がおっしゃっている
> 又は、For ~ Nextで繰り返し処理を行う。
を実現なさりたいということですね。
例えば、以下のコードでできると思います。
Dim i as Long
Dim Kei as Long
Kei = 0
For i = 1 To 10
Kei = Kei + Worksheets(i).Range("A1").Value
Next
Range("A3").Value=Kei
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
あああ..ああい..ああう とい...
-
Excelのマクロについて教えてく...
-
エクセル マクロ オートフィ...
-
Excelのマクロについて教えてく...
-
エクセルで複数のシートのクリ...
-
VBAマクロ実行時エラーの修正に...
-
Excelのマクロについて教えてく...
-
DataGridViewでグリッド内に線...
-
Excel UserForm の表示位置
-
エクセルの幅 高さをセンチで...
-
【前回の続きです、ご教示くだ...
-
【VBA】写真の貼り付けコードが...
-
ExcelのVBマクロを、バックグラ...
-
Excelで、あるセルの値に応じて...
-
HTMLのテーブルのセルの値をPHP...
-
ファイルサーバー上のexcelファ...
-
アクセス 取り込み時に、桁数(...
-
マクロ実行後に別シートの残像...
-
VBA シートをコピーする際に Co...
-
複数シートを一括で保護を掛け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
vbs 文字位置を中央に
-
select caseの入れ子
-
VBAバーコード照合 バーコード...
-
エクセルで選択したセルがディ...
-
指数関数近似を行うプログラム...
-
セルに入ってる数式を他のセル...
-
ある一定時間の最高値と最小値...
-
C++で、b[bit]の非負整数(例え...
-
xlookup関数の引数を利用して検...
-
スペース区切りのAND検索
-
エクセル インデックスを用い...
-
アセンブラでの記述について教...
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
マクロの「SaveAs」でエラーが...
-
エクセルで特定の文字列が入っ...
-
エクセルで離れた列を選択して...
-
B列の最終行までA列をオート...
おすすめ情報