同じブックに集計シートと報告書シートがあります。
集計シートには日付の一覧
報告書シートは日付毎にあり
報告書シートの
D2には日付
D5には個数
が記載されており、報告書を記入後ブックを閉じよう(Before Close)とすると集計シートから同じ日付を検索し、検索した日付の4つ下のセルに報告書シートのD5の個数を記入するようにしたいのですが上手くいきません。
現在は下記のように作っております。
ですが上手く動いてくれません。
どのようにしたらよいのでしょうか?
すみませんがよろしくお願いいたします。
Dim Ran As Range
Dim Rn As Range
Set Ran = ActiveSheet.Range("D2")
Set Rn = Sheets("集計").Range("C14:AH144").Find(Ran)
Rn.Offset(0, 4).Value = ActiveSheet.Range("D5").Value
No.2ベストアンサー
- 回答日時:
No.1です。
質問文では
>検索した日付の4つ下のセルに・・・
とありますので、
>Rn.Offset(4).Value = ActiveSheet.Range("D5").Value
としたらどうでしょうか?
※ Offset(0, 4) とすると4列右側のセルになります。
丁寧に書けば
Offset(4)はOffset(4,0) になります。
余計なお世話かもしれませんが、
おそらく操作したいSheetをアクティブにしてマクロを実行されるコードだと思いますので、
>Rn.Offset(4)= Range("D5")
だけでも動くと思います。m(_ _)m
No.1
- 回答日時:
こんばんは!
VBAで日付(シリアル値)を検索する場合はかなり厄介です。
「集計」Sheetの日付(シリアル値)が実データ(直接入力)か、数式によって表示されているかによってコードが変わってきます。
直接入力の日付の場合は
>Set Rn = Sheets("集計").Range("C14:AH144").Find(what:=DateValue(Ran), LookIn:=xlFormulas, lookat:=xlWhole)
としてみてはどうでしょうか?
DATE関数など数式によって表示されているのであれば・・・
>Set Rn = Sheets("集計").Range("C14:AH144").Find(what:=Format(Ran, "m/d"), LookIn:=xlValues, lookat:=xlWhole)
のようにしてみてください。
※ 後者の場合、表示形式の m/d の部分は、yyyy/m/d とか m月d日 などのように
「集計」Sheetの実際の表示形式に合わせてください。m(_ _)m
回答ありがとうございます。
無事に検索は出来ましたが、最後の値を代入するところが出来ません。
Rn.Offset(0, 4).Value = ActiveSheet.Range("D5").Value
何が間違っているのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
他部署からもらう データで、 ...
-
エクセルで特定の色の数字だけ...
-
【エクセル】オートフィルタで...
-
ピボットテーブルでは時間の表...
-
VBAで重複する項目を1つにまと...
-
エクセル、リソース不足エラー...
-
アンケートの集計
-
excelで集計の合計を降順に並べ...
-
Excel : 二通りの合計が合わな...
-
SUBTOTALが変わってしまいます。
-
エクセル 日付(年月日)の合...
-
マクロ実行時にエラーが出てし...
-
ピボットを更新すると数式が入...
-
Excelの集計結果だけをコピー貼...
-
いい機能だけど、毎回めんどく...
-
EXCEL 重複データの集計の仕方
-
フィルタをしても最下行を常に...
-
ピボットテーブルで同じデータ...
-
Excel VBAについて
-
Excelで、空白を表示したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
エクセルで特定の色の数字だけ...
-
ピボットテーブルでは時間の表...
-
フィルタをしても最下行を常に...
-
VBAで重複する項目を1つにまと...
-
ピボットの集計方法「合計」初...
-
アンケートの集計
-
ピボットを更新すると数式が入...
-
エクセルの小計を自動的に色づ...
-
エクセル、リソース不足エラー...
-
EXCELで増減率を計算したいです
-
EXCEL 重複データの集計の仕方
-
excelで集計の合計を降順に並べ...
-
VLOOKUP関数とCOUNT関数等の組...
-
ピボットテーブルで同じデータ...
-
常にタイトル行と合計行を表示...
-
Excelの集計結果だけをコピー貼...
-
いい機能だけど、毎回めんどく...
-
EXCELで0を除いた平均値...
-
エクセル 日付(年月日)の合...
おすすめ情報