• ベストアンサー

エクセル VBA 日付入力?

エクセル 2000のVBAにて簡単な 日程表を作成しています。 フォームの テキストボックス1に 10/8 を入力したら テキストボックス2には 10/15 ~ テキストボックス15には 1/21 が自動で 入力されるようにするには、どのようにすればよろしいでしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.2

Format(Date ,"mm/dd") のように、Format関数で書式を変更できます。 TextBox2.Value = Format(DateAdd("d", 7, TextBox1.Value) ,"mm/dd")

77TAKETAKA
質問者

お礼

重ね重ね本当にすみません。 思うように出来ました。 お手数をかけてすみません。

その他の回答 (1)

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox1.Value) Then TextBox2.Value = DateAdd("d", 7, TextBox1.Value) TextBox3.Value = DateAdd("d", 14, TextBox1.Value) Else Cancel = True End If End Sub

77TAKETAKA
質問者

補足

出来ました。ありがとうございます。 補足質問ですが すみません、2007/10/15を10/15と 表示するにはどのようにすればよろしいでしょうか?

関連するQ&A

  • エクセルVBA テキストボックス 日付表示

    エクセルVBAにて入力用フォームを開いたときに フォーム内にあるテキストボックスに今日の日付が 自動で表示されるようにしたいのですが どの様に書き込めば宜しいでしょうか? また、2008.09.05 平成20年9月5日などの 日付形式の変更はどの様に書き込むのでしょうか?

  • エクセル VBA チェックボックスについて

    エクセルVBAを勉強中で、入力フォーム作成に挑戦中です。(エクセル2010) 質問ですが、 数量表の入力ホームなので、出来るだけキーボードのテンキーでの操作が出来るようにと考えております。 チェックボックスを使用し、テキストボックスの入力制限を掛けていますが、チェックボックス上でキーボード操作(1とかAを押す)を行うとチェックが入るように出来るのでしょうか? よろしくお願いします。

  • エクセルVBA フォームのテキストボックスの入力規則

    エクセル2000を使用しています。 VBAでフォームを作成しています。日付の入力項目をテキストボックスで 作りたいのですが、”yyyy/mm/dd”の形式で入力するようテキストボックスの中に表示し、それ以外の入力形式を制限するにはどのようにしたらよいでしょうか。

  • VBAユーザーフォームで

     エクセルVBAでユーザーフォームより、テキストボックスで入力させたものをセルに表示させようとしています。  テキストボックスは1と2があり、テキストボックス1で入力した値の最初の5文字+固定値をテキストボックス2に自動で入力(表示)したいのですがなかなかうまくいきません。(自動入力後、手動で一部修正します。)  VBAをはじめたばかりの初心者ですが、どうぞよろしくお願いします。

  • Excel VBA テキストボックスに当日の日付

    Excel 2013において、VBAで入力フォームを作成中の初心者です。 入力フォームの中に日付の項目があり、テキストボックスに手入力しています。 そのテキストボックスに当日の日付を自動で表示させたく、ネットで調べ試しましたが、うまくいきません。 やりたいこととしては、テキストボックスに今日の日付を自動的に和暦で表示させ、その日付を変更する場合には、「2016-12-03」などと入力後、和暦に自動的に変換して表示させたいのです。 手入力において、「2016-12-03」と入力後、自動的に和暦に変換するコードはネットで見つけることができ、うまくいったのですが、当日の日付を自動的に表示させる方法がわからずにおります。 日付を手入力後、和暦で表示させるコードは以下のようにしてあります。 Private Sub textbox1_AfterUpdate() With Me.textbox1 If IsDate(.Value) Then .Value = Format(.Value, "ggge年m月d日") End If End With End Sub どなたか、教えていただけると助かります。 よろしくお願いいたします。

  • excel VBA 自動入力

    excel VBA 自動入力 こんにちは excelから現在バックグランドで開いているアプリケーションやWebブラウザのフォームなどに excelの値をVBAで入力するにはどのような指定の仕方をしたらよいでしょうか? 指定方法としては、"Alt+Tab"を1回押した時にアクティブになる部分、 つまり、作成予定のexcelファイルをアクティブにする直前にアクティブだった入力フォームへ 入力するという指定がしたいです。 どうかご教示お願いします。

  • Excel VBA コマンドボタンからセルへ入力

    下記のような表で、画像にあるVBAのExcelフォームを使い、入力効率を上げたいなと思いました。 たたVBAの知識がほぼないため、皆様のお力をお借りしたいと思いました。 処理としては ・学年 の欄にはテキストボックスに数字を入力、クラスはコンボボックスから選択、物品名はテキストボックスに入力、個数はコンボボックスから選択 します ・確定ボタンをクリックしたとき、学年は C4セル、クラスはD4セル、物品名は… と自動的にフォームの値を入力 ・確定ボタンを押して、セルへ入力されると同時にフォームに入力してある値をクリア ・確定ボタンを押して記入し、次の値をフォームに入力して確定ボタンをおした時は、自動的に1行ずつ下に入力される ・返却期限については、日付欄に入力されている日付の一週間後の日付を自動で記入されるようにしたいです また、日付の欄は自動的に入力された時点の日付を記録したいです。 ※テキストボックスなどは、種類ごとに左から123となるようにします コードを記載していただければ1番嬉しいのですが、 お忙しいとは思いますので、もしもそれが難しければ 処理に必要なコードの解説が載っている解説ページなどをそれぞれ貼り付けて頂いても大丈夫です。 どうかよろしくお願い致します

  • エクセルVBA テキストボックスで日付を・・・

    皆様にはいつも大変お世話になっております。 またまた、悩むところがあり、乗せさせていただきました;; テキストボックスをVBAのフォームで作ったのですが、 そのテキストボックスの中に今日の日付を登録しておきたいのです。 テキストボックスをエクセルで開いたときに、必ず今日の日付を出しておきたいのです。 ちなみに年・月・日は違うテキストボックスになっています。 なにとぞ宜しくお願いいたします

  • ユーザフォーム(VBA)で入力した内容をシートへコピーするには

    ユーザフォーム(VBA)でテキストボックスとボタンを作成しました。 このテキストボックスに入力した内容をボタンを押すことでシート1のA1セルにコピーしたいのです。こんな簡単な感じなのですが、 プログラムはどのようにしたらよいのでしょうか?教えてください。 それと、このエクセルファイルを開き、マクロを有効にするのボタンを押すと思うのですが、そのときにすでにユーザフォームが表示されているようにしたいのですが・・・どうすればいいのでしょうか? ※できたらでよいのですが、もう一つボタンを作成し『クリア』ボタンということで、テキストボックスに入力した内容だけをクリアさせるボタンも作ろうとおもうのですが、それはどうしたらよいのでしょうか? 困っています。教えてください。

  • エクセル日付データーの一致方法?

    エクセルVBAにて、 元データーに日付形式(2007/8/1~2007/8/31)で 作成されているセルを  入力用フォームのテキストボックス1で日付入力 (入力書式は8/6のようにスラッシュで入力希望)してループ処理にて 一致した日付の隣のセルにテキストボックス2で入力した 数値を入力したいのですが どのようなコードもしくは設定を行えばよろしいでしょうか?

専門家に質問してみよう