![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
出来れば、新規追加の質問は新たに投稿し直してください。
時間経過により回答が締め切られているため、
この文面はサポートにより追加して頂いております。
>更に欲を出したと言うのは、『同じモジュール内に、同じく
>「ブックBの"仕入*"の特定セルからの値取得後、
>Sheet1のB1にcnt値を書き出す」というコードについてです。
追加で書出す「値」とは、売上*と同様に特定セル(合計値)を
合計した値という意味と捉えて回答致します。
「売上*」シートのA10セルを集計してcnt(0)へ合計し、
「仕入*」シートのB10セルを集計してcnt(1)へ合計します。
Sheet1のセルA1,B1に合計値「cnt(0)及びcnt(1)」を書き出します。
以下のコードで差替えて、ご利用ください。
■VBAコード
Sub 別ブックの合計()
'型宣言
Dim fpath As String
Dim tbook As Workbook
Dim i As Integer
Dim cnt(1) As Double
'ファイルを指定
fpath = Application.GetOpenFilename("全てのファイル(*.*),*.*")
'指定したファイルを開く
Set tbook = Workbooks.Open(fpath)
'シートの数だけ繰り返し
For i = 1 To tbook.Sheets.Count
'条件に一致したシート名を対象に処理
If tbook.Sheets(i).Name Like "売上*" Then
'対象のシートのセルA10より値を取得し、変数cnt(0)に加算
cnt(0) = cnt(0) + tbook.Sheets(i).Range("A10").Value
End If
If tbook.Sheets(i).Name Like "仕入*" Then
'対象のシートのセルB10より値を取得し、変数cnt(1)に加算
cnt(1) = cnt(1) + tbook.Sheets(i).Range("B10").Value
End If
Next i
'ブックを閉じる
tbook.Close
'Sheet1のセルA1,B1に合計値を書き出し
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = cnt(0)
ThisWorkbook.Sheets("Sheet1").Range("B1").Value = cnt(1)
End Sub
No.1
- 回答日時:
VBAで別ブックの条件に一致するシートのセル「A10」の値を取得・合計し
VBAコードを記述しているブックの「Sheet1」セル「A1」に結果を表示するコードです。
(1)新規ブックを作成し、以下のコードを標準モジュールに貼り付け
(2)「別ブックの合計」を実行
(3)ファイルを開くダイアログが表示されるので、対象のブックを開く
■VBAコード
Sub 別ブックの合計()
'型宣言
Dim fpath As String
Dim tbook As Workbook
Dim i As Integer
Dim cnt As Double
'ファイルを指定
fpath = Application.GetOpenFilename("全てのファイル(*.*),*.*")
'指定したファイルを開く
Set tbook = Workbooks.Open(fpath)
'シートの数だけ繰り返し
For i = 1 To tbook.Sheets.Count
'条件に一致したシート名を対象に処理
If tbook.Sheets(i).Name Like "売上*" Then
'対象のシートのセルA10より値を取得し、変数cntに加算
cnt = cnt + tbook.Sheets(i).Range("A10").Value
End If
Next i
'ブックを閉じる
tbook.Close
'Sheet1のセルA1に合計値を書き出し
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = cnt
End Sub
![「VBA Indirectで他ブック間の集」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/f/18904370_5497f30b4c83e/M.jpg)
お返事が大変遅くなって申し訳ありません。
教えて頂いたコードをコピペすると、確かにやりたかったことができました!!ありがとうございます。
それで更に欲を出して色々試行錯誤を続けていましたが、どうも行き詰まりになってしまい、図々しいのですがもしよろしければ再度教えて頂けたら幸いだなぁと思っております。。。
教えて頂いたのは「ブックBの"売上*"の特定セルからの値取得後、Sheet1のA1にcnt値を書き出し」でした。
更に欲を出したと言うのは、『同じモジュール内に、同じく「ブックBの"仕入*"の特定セルからの値取得後、Sheet1のB1にcnt値を書き出す」というコードについてです。
最小限のポチッで、Sheet1のA1とB1にcnt値がバーンと入る方法を考えています。
もしももしもよろしければ、、、教えて頂けるとありがたいです。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) excelのindirect関数の別ブック参照について質問です。 1 2022/06/03 15:17
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/09 12:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
VBAで別ブックのシートを指定し...
-
エクセルVBAが途中で止まります
-
VBA シート名が一致した場合の...
-
VBAで別のブックにシートをコピ...
-
別ブックをダイアログボックス...
-
VBA コードを実行すると画面が...
-
EXCEL VBA 単語置き換え につい...
-
拡張メタファイルにて貼り付け
-
VBSでExcelのオープン確認
-
エクセルマクロで、他ブックか...
-
VBS Bookを閉じるコード
-
VBで既存エクセルシートを新規...
-
転記先VBA 一致しているセルが...
-
pythonでクラスで複数のメソッ...
-
ACCESSVBA からExcelの他ブック...
-
VBA 実行時エラー 2147024893
-
[Excel]ADODBでNull変換されて...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報