Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11017 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18647】テキストボックス上をクリックして日付表示 こう 04/10/3(日) 0:38 質問[未読]
【18648】Re:テキストボックス上をクリックして日付... [名前なし] 04/10/3(日) 2:03 回答[未読]
【18649】Re:テキストボックス上をクリックして日付... カド 04/10/3(日) 7:58 回答[未読]
【18650】Re:テキストボックス上をクリックして日付... こう 04/10/3(日) 8:42 お礼[未読]
【18652】Re:テキストボックス上をクリックして日付... [名前なし] 04/10/3(日) 9:36 発言[未読]
【18647】テキストボックス上をクリックして日付表...
質問  こう E-MAIL  - 04/10/3(日) 0:38 -
引用なし
パスワード
   　ユーザーフォームのテキストボックス上をクリックすると、フォーム上に今日の日付が表示される。。。なんて無理ですか？どなたか教えてください。
【18648】Re:テキストボックス上をクリックして日...
回答  [名前なし]  - 04/10/3(日) 2:03 -
引用なし
パスワード
   ▼こう さん：
>　ユーザーフォームのテキストボックス上をクリックすると、フォーム上に今日の日付が表示される。。。なんて無理ですか？どなたか教えてください。

MouseDownかMouseUpイベントを使えば出来ます。
ちなみになんでテキストボックスのクリックで表示したいんですか？
【18649】Re:テキストボックス上をクリックして日...
回答  カド  - 04/10/3(日) 7:58 -
引用なし
パスワード
   ▼[名前なし] さんの回答を見てやってみました。

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　TextBox1 = Now()
End Sub
【18650】Re:テキストボックス上をクリックして日...
お礼  こう E-MAIL  - 04/10/3(日) 8:42 -
引用なし
パスワード
   　名前なしさん・カドさんありがとうございます。助かりました。
　出納帳を記入するのに、ユーザーフォームを作ってみたのですが、1行じゃ入力するのに手間がかかるので、5行にしたのですが日付のところの最終行を取得する設定で、日付のボックスにフォームを開いたときに表示するようにしたのですが、入力が5行以下だった場合が困ったので。。。うまく説明できたかな？
　1ヶ月くらい悩んでいました。本当にありがとうございました。　
【18652】Re:テキストボックス上をクリックして日...
発言  [名前なし]  - 04/10/3(日) 9:36 -
引用なし
パスワード
   ▼こう さん：
処理の内容によってもっと他にやり方がありそうな気がしたんですが・・・
説明が良く分かりませんでした。

とりあえず問題は解決したようでよかったです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11017 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free