- ベストアンサー
日付セルの日数差でコピー入力を変えたい
Excelの日付B1セルに1～3日後の日付を入力したとき表-2のように基準2行目のAを それぞれ1～3日後（3～5行目）にコピーしたいのですが。表-3は例として1月3日を 入力した際、以前の1月1日がずれその差２を基にコピーを２行ずらしでしたらと 思ったのですが、どなたかVBAコードで良い方法が解る方よろしくお願いします。
- kuma0220
- お礼率77% (279/361)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
参考になるかどうかですが、とりあえず Sub Macro1() Range("G3:I5").ClearContents For i = 1 To 6 Step 2 RETU = Range("G1:I1").Find(What:=Range("A" & i).Value, LookAt:=xlWhole).Column GYOU = Columns("F:F").Find(What:=Range("D" & i).Value - Range("B" & i).Value, LookAt:=xlWhole).Row Cells(GYOU, RETU).Value = Cells(2, RETU).Value Next End Sub G1~I1を検索して一致した列番号を取得 Ｆ列で、縦方向に検索して、日付の差と一致した行を取得 その行と列に、２行目の値を入れる Ａ列の最後まで２行おきに繰り返し といった風です。 エラー処理もありませんが、参考までに。
関連するQ&A
- EXCEL スケジュール 日付などを自動入力
OS95です。excel ヴァージョン7,0 と古いですが、 予定表の日付をいちいち入力せずに済む方法はないでしょうか？ 例 ○月１日 ○月２日 ○月３日 ○月４日 ・ ・ ・ 最初の○月１日 を入力したらあとの行は すべて自動入力のようなもので入力したいです。 お願いします。
- ベストアンサー
- Windows 95・98
- エクセルでの日付入力について
こんにちは！エクセルでの日付入力について質問します。 私が入力している表に、日付を入力する場所があります。 （「場所」ではなく、「セル」と言った方が良いのかな？）今日の日付を例にとると、そのセルに2/5と入力して Enterキーを押すと、2月5日(水）と表示されるようになっています。画面上方の長い窓のような所には（よく、計算式などが表示になる所）2003/2/5と表示されます。ところが、今まで通り2/5と入力すると、2月5日としか表示されない部分が何箇所か見つかりました。長い窓には、2003/2/5とちゃんと表示されます。他と同じになるように設定したいのですが、どうやればいいのか分かりません。どうか教えてください！ソフトはエクセル2002です。
- ベストアンサー
- オフィス系ソフト
- カレンダーコントロールからセルとシート名に日付を入力
エクセルVBAコードについてですが、マクロを実行すると、カレンダーコントロールが表示され、選択したカレンダーの日付をクリックすると、任意に指定したセルとシート名にその日付を表示させたいのですが、どのようなコードを書けばよいのか教えてください（＞＜） ちなみに、今はインプットボックスから日付を入力する方法をとっていますが、都度「2008年○月○日」と入力しなくてはいけませんので、効率が悪く困っています。 どうぞ宜しくお願い致します。
- ベストアンサー
- Visual Basic
- コード入力してセルを選択するマクロ
お読み頂きありがとうございます。 A列にコードが並んでいて、先頭行には横に1～31の日付を表す数字が入っているEXCELシートがあります。コードは5桁で重複はありません。 この表でコード（ex.12345）と日付（ex.20）を指定することでそのコードと日付が交差する位置のセルを選択するマクロが作れるでしょうか。 例えば、マクロを実行するとコードと日付を入力するウインドを開いてコードと日付をそれぞれ入れる、あるいはコードと日付を組み合わせて（1234520）のように入力するとコード12345の20日に該当するセルを選択するようにしたいのですが。 当方、VBAの知識はほとんどない素人です。難しい解答が付いたらお礼も書けなくて困るな、と思いながら質問を書いている状態です。どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 行コピーして、今日の日付の行に貼り付けるマクロ
こんにちは、エクセルマクロについて、助けて頂きたく質問させていただきました。 添付しました画像のような表があり、 セルA2に「=TODAY()」が入っていて、セルB2から右は別シートのデータを参照しています。 マクロを実行すると、2行目を行コピーし、セルA3以下の日付からセルA2の日付（今日の日付）を探し出して、行貼り付けしてほしいです。 行コピーや値で貼り付けはマクロの記録を使って、詳しくない私でもなんとか作ることはできるのですが、 今日の日付を探し出して、そこに貼り付ける。というマクロは作れませんでした・・・。 お助け下さい、宜しくお願いします！ ※補足します セルA2の今日の日付は便宜上入力しているだけです。無い方がマクロを組みやすいのなら、無くせます。
- ベストアンサー
- Visual Basic
- セルへの日付入力で指定期間のみ入力できるようにしたいのです。
セルへの日付入力で指定期間のみ入力できるようにしたいのです。 ２つの方法を知りたいのですが、 一つ目は A11-A12と並んだセルで両方とも任意の日付入力欄となっています。 まずA12に任意の日付を入力した場合A11に入力できる日付をA12より前は打てないようにしたい。 (例)A12に2010/01/20--A11には2010/01/19---× (例)A12に2010/01/20--A11には2010/01/25---○ (例)A12に2010/01/20--A11には2010/02/25---○ 二つ目は 指定のセルに入力当日の前月以前は打てないが入力日(月も)以降は打てる (例)セルへの入力日2010/01/20--実際に入力する任意の日付2010/12/30---× (例)セルへの入力日2010/01/20--実際に入力する任意の日付2010/01/21---○ (例)セルへの入力日2010/01/20--実際に入力する任意の日付2010/02/11---○ こんな制限はできるのでしょうか。 ご教授をお願い致します。
- ベストアンサー
- オフィス系ソフト
- テキスト氏名、日付とExcel表の連動
ユーザーフォームのテキスト氏名、日付１、日付２を入力したらExcel表のマッチした氏名行の日付を○印で入力するようなVBAのコードがありますでしょうか。どなたかご教授のほどよろしくお願いします。
- ベストアンサー
- Visual Basic
- 日付を入力したセルをファイル名にして保存するには
こんにちは。ＶＢＡ 初心者です。 あるセルに日付を入力しています。 そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。 そしてこのファイルをマクロで名前をつけて保存するとき、上記のセル（の値）をファイル名したいのですが、2001\3\14と認識され、エラーが出ます。 セルに日付を入力する時に、出来るだけかな入力はせず、日付をファイル名にして保存するにはどういう方法があるでしょうか。 わかりにくい説明で申し訳ありません。ウィンドウズＸＰ・エクセル2003です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
有難うございます。エラーがでますが何とか解読していきます。