VBAについて教えて下さい!
今、UserFormに「TextBox1」,「TextBox2」,「TextBox3」,「CommandButton1」があります。
「TextBox1」には自動的に年"yy"(上書き修正も出来るようにする)
「TextBox2」には自動的に月"mm"(上書き修正も出来るようにする)
「TextBox3」には自動的に日"dd"(上書き修正も出来るようにする)
が入るようにして
「CommandButton1」をクリックすることによりExcelの「A1」に"yy/mm/dd"
と言う形で自動的に入力することは出来ないでしょうか?
また、その時にありえない日にちが入力された時にエラーが出て、「TextBox3」にカーソルが戻るようなことは出来ないでしょうか?
No.1ベストアンサー
- 回答日時:
Private Sub CommandButton1_Click()
If IsDate(TextBox1 & "/" & TextBox2 & "/" & TextBox3) = False Then
TextBox3.SetFocus
Else
Range("A1") = "'" & TextBox1 & "/" & TextBox2 & "/" & TextBox3
End If
End Sub
Private Sub UserForm_Activate()
TextBox1 = Format$(Now(), "yy")
TextBox2 = Format$(Now(), "mm")
TextBox3 = Format$(Now(), "dd")
End Sub
No.2
- 回答日時:
まず、自動的に年月日を取得し、それぞれのテキストボックスへ入るようにするには、フォームのイニシャライズ時に下記のように行えばよいかと思います。
Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "YY")
TextBox2.Text = Format(Now, "MM")
TextBox3.Text = Format(Now, "DD")
End Sub
Nowは現在日時を示しており、Format関数を使用することで、年、月、日を取り出しています。このときYYやMM,DDとすることで2桁で値を取得することができます。
つぎに、ボタンが押されたときの処理ですが
Private Sub CommandButton1_Click()
Cells(1, 1) = Format(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text, "yy/mm/dd")
End Sub
といった感じでしょうか
「あり得ない日にちが入力された時にエラーが出て」とありますが、何を持ってあり得ないとするのでしょうか?
たとえば1900年以前はあり得ないとする等...
(この辺はご自分でどう処理したいかを考えコードに置き換えてみてください。その上でわからなければ、どういった処理を作成しようとしてどこで躓いたのかを教えてください)
最後に、TextBox3へカーソルを戻す方法ですが
Textox3.SetFocus
と記述することで実現可能です。
出来きました。
ありえない日付ですが、「08/02/30」とか「08/03/32」と手入力したときに注意を促すコメントがでればと思ったのですが、とりあえず上記の回答で何とかなりそうです。
有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Access(アクセス) アクセス where句を使用して複数条件抽出をするには 2 2022/08/29 13:24
- JavaScript 【jquery】EasyUIのSubGridにMySQLのテーブルデータを表示&編集にしたい 5 2022/05/02 13:10
- その他(プログラミング・Web制作) ボールの動きがスムーズに動いてかつ目盛り線描画を維持するためには 4 2023/05/31 10:01
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
ユーザーフォームに日付を表示させる方法を教えてください。そして、実行したあとでも日付が変わるようなプ
Visual Basic(VBA)
-
-
4
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
5
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
6
エクセルVBAのフォームで日時を入力しやすくしたい
Excel(エクセル)
-
7
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
8
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
9
エクセルVBA ユーザーフォームのtextboxの書式設定って?
Excel(エクセル)
-
10
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
11
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
12
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
13
ユーザーフォームに今の時間を表示
Access(アクセス)
-
14
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
15
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
16
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
19
VBユーザーフォームで時間入力
Visual Basic(VBA)
-
20
Excel VBAのユーザーフォームでVLOOKUP
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
【Excel】特定の文字を含むセル...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
インタラクティブの反対語は?
-
findは動くがfindnextがマクロ...
-
メルカリのメルカードで買い物...
-
VBの質問#if 0 then ってどう...
-
2重のDo~Loopは?
-
Access チェックボックスでチェ...
-
RPGプログラムの*HIVALについて
-
Arduino UNO のC言語
-
セックスレスの既婚女性は自慰...
-
VBAで、最終行目までを一括削除...
-
UMLでの例外処理
-
お家デートをしててハグを長い...
-
読み方教えてください。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
DoEventsがやはり分からない
-
EXCEL VBA マクロ 実行する度に...
-
VBの質問#if 0 then ってどう...
-
Do~Loopした回数をカウントしたい
-
もしかして
-
UMLでの例外処理
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
VBA SaveChanges 上書きされない
-
リョウ・・・量?料?
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
-
FFTの結果ついて
-
Select Case文でこのようなこと...
おすすめ情報