Book1のセルへ別Book(Book2)からカウントした件数を貼り付けています。
現在の下記マクロの記述では月(8月)を指定しているため、
9月になると記述を(9月)に変更しなければなりません。
例えばBook1のSheet1セルO1に「9月」と入力してマクロを実行すると
9月のセルH5へ(Book2)からカウントした件数を張り付けることは
可能でしょうか?
・・・・・・・・・・・・・・・・・・・・・
Sub Book2から転記()
'「同一フォルダ内の別ブック」開く
Dim bookpath As String
bookpath = ThisWorkbook.Path & "\" & "Book2.xlsx"
Workbooks.Open bookpath
'「別ブック」を参照して条件一致の数を算出
With Workbooks("Book2.xlsx").Worksheets("Sheet1")
ThisWorkbook.Worksheets("Sheet1").Cells(5, "G") = WorksheetFunction.CountIf(.Range("E:E"), "新規2021.08")
End With
'「別ブック」を閉じる
Workbooks("Book2.xlsx").Close
End Sub
No.5ベストアンサー
- 回答日時:
>O1に"9月"と直接入力しP1に"新規2021.09"と直接入力した場合、実行されるコードの記述をご教授いただけませんでしょうか?
以下のようにしてください。
Sub Book2から転記()
Dim rg As Range
Dim mm_str As String
Dim date_str As String
mm_str = ThisWorkbook.Worksheets("Sheet1").Range("O1").Value
date_str = ThisWorkbook.Worksheets("Sheet1").Range("P1").Value
Set rg = ThisWorkbook.Worksheets("Sheet1").Range("C4:N4").Find(what:=mm_str)
If rg Is Nothing Then
MsgBox ("該当月なし")
Exit Sub
End If
'「同一フォルダ内の別ブック」開く
Dim bookpath As String
bookpath = ThisWorkbook.path & "\" & "Book2.xlsx"
Workbooks.Open bookpath
'「別ブック」を参照して条件一致の数を算出
With Workbooks("Book2.xlsx").Worksheets("Sheet1")
rg.Offset(1).Value = WorksheetFunction.CountIf(.Range("E:E"), date_str)
End With
'「別ブック」を閉じる
Workbooks("Book2.xlsx").Close
End Sub
C4:N4を参照してoffset(1)これがイメージできませんでしたが、教えていただいたコードでなんとか理解できました。ありがとうございます。助かりました!
No.4
- 回答日時:
>ご指摘の通りQ1”9月”P1に"新規2021.09"をどのように記述するのかが勉強不足でわかりません。
Q1でなくO1ですね。
O1に"9月"と直接入力し
P1に"新規2021.09"と直接入力すれば良いです。
No.3
- 回答日時:
>抽出条件も9月とした場合、"新規2021.08"から"新規2021.09"ヘ変更する記述は可能でしょうか?
更に1年が過ぎた場合、"新規2022.09"となるのでしょうか。
そうなると9月の情報だけでは、何年の9月1日にするのかがわからなくなります。
"新規2021.09"の文字をP1のセルに記述し、P1セルの内容で抽出するようにされてはいかがでしょうか。
No.2
- 回答日時:
こんにちは
直接の回答ではありませんので、すみませんけれど・・
「月ごとに集計したい」ということがわかっているのなら、わざわざマクロで処理しなくても、関数で十分のように思えます。
そうすれば、いちいちマクロを実行する必要もなく、自動で計算されるようになります。
例えば、Book2の空きセル(あるいは別シート)に、ご提示のSUMIF関数の集計をあらかじめ12か月分設定しておきます。
ご提示のブックからは、その集計結果への単純参照を設定しておくだけで済みます。
「指定月よりも以降は表示したくない」というのであれば、IF関数を付け加えて表示するか否かを分岐すれば良いでしょう。
No.1
- 回答日時:
>例えばBook1のSheet1セルO1に「9月」と入力してマクロを実行すると
9月のセルH5へ(Book2)からカウントした件数を張り付けることは
可能でしょうか?
9月になったとき、貼り付け先が変わるのは理解できますが、検索文字列
("新規2021.08")は、変わらなくて良いのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報
説明不足で申し訳ございません。
抽出条件も9月とした場合、"新規2021.08"から"新規2021.09"ヘ変更する記述は可能でしょうか?
よろしくお願いします。
ご指摘の通りQ1”9月”P1に"新規2021.09"をどのように記述するのかが勉強不足でわかりません。
お手ほどきいただけませんでしょうか?
よろしくお願いいたします。
理解不足ですいません。
O1に"9月"と直接入力しP1に"新規2021.09"と直接入力した場合、実行されるコードの記述をご教授いただけませんでしょうか?
お手数ですがよろしくお願いいたします。