• ベストアンサー

ユーザーフォームに今の時間を表示

連続投稿で申し訳ありません。 ユーザーフォームに今の時間を表示したいんですが、どうもうまくいきません。 何か、良い方法がありましたら教えていただければと思います。 どうか、よろしくお願いします。

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

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.8

こんにちは。 私は、「今の時間」という意味を、私は、PCの内部の時間と考えていますから、もし、意味を取り違えていたら、無視してください。 まず、Lalbel ひとつをユーザーフォーム上においてください。 '----------------------------------------------- Private Sub UserForm_Activate() Dim CurrentTime As String '今の時間  While UserForms.Count > 0   CurrentTime = Format$(Time(), "h:nn:ss")  If CurrentTime <> Label1.Caption Then   Label1.Caption = CurrentTime  End If   DoEvents  Wend End Sub ただし、UserForm がアクティブになっているときに限ります。

atom002
質問者

お礼

こんにちは。 返信をありがとうございます。 また、先日も回答していただき、ありがとうございました。 Wendyさんの言われているとおり、PCの内部の時間をそのまま表記したいというものでした。(この部分も皆さんに対しての説明が不足していたのではないかと思います、すみませんでした) 実際に試してみて、うまくいきました。 コードの内容がまだまだ理解できないのが残念ですが、大変助かりました。 今後もよろしくお願いします。

その他の回答 (7)

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

Date は日付 Time は時刻 Now は、その両方の値を含んだ値を返します。 任意の表示形式にしたいなら、 Format(Time,"hh:mm") などと指定してください。

atom002
質問者

お礼

試して見ましたが、私の認識不足と、説明不足もあってうまくいきませんでした。 せっかく回答していただいたのに、どうもすみません。 そして、回答をありがとうございました。 今後もよろしくお願いします。

  • NCU
  • ベストアンサー率10% (32/318)
回答No.6

失礼。 DateでなくTimeです。

atom002
質問者

お礼

私の説明不足と認識不足で十分理解する事ができませんでしたが、回答をしていただいたことに感謝しています。 どうもありがとうございました。 今後もよろしくお願いします。

  • NCU
  • ベストアンサー率10% (32/318)
回答No.5

#2です。 任意の文字列が表示できるのであれば、その文字列を「Date」に変えるだけではありませんか?

回答No.4

エクセルでしたか。私の知っている方法でお答えします。(別の方法があるかもしれませんが、目的は達成されます。) (1)「Sheet1」の「A1」に「=Now()」を入力 (2)ユーザーフォーム⇒テキストボックス⇒プロパティ⇒「ControlSource」に「=sheet1!A1」を入力 これで、フォームのテキストボックスに『2006/8/13 14:25:04』と表示されます。

atom002
質問者

お礼

早々の返信をありがとうございます。 早速試してみました。 おっしゃるとおり、その時間については表示されたんですが、ユーザーフォームを開きっぱなしにした状態では、時間が、開いたときの時間のままになってしまいました。 私の説明不足でこうなってしまったんですが、ユーザーフォームを開いたままの状態で、時間を表記したかったんです。 説明不足だったことをお詫びするとともに、回答していただいたことに感謝したいと思います。ありがとうございました。 今後もよろしくお願いします。

回答No.3

>ユーザーフォームに今の時間を表示したい Accessフォームの中のテキストボックスに今の時間()を表示したいという事だとしてご回答差し上げます。 テキストボックス⇒プロパティ⇒「データ」タブ⇒コントロールソースに『=Format(Now(),"mm/dd/hh:nn")』を入力して下さい。すると『08/13/13:50』のように表示されます。

atom002
質問者

補足

返信ありがとうございます。 説明不足ですみません。 Accessではありません。エクセルです。 エクセルでも、同様にできるのでしょうか。 よろしくお願いします。

  • NCU
  • ベストアンサー率10% (32/318)
回答No.2

任意の文字の表示ならできるのですか?

atom002
質問者

補足

返信をありがとうございます。 任意の文字は表示する事ができると思っています。(何分にも我流なので、どうしても断定で話せなくてすみません)

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

>どうもうまくいきません。 これだけで回答は得られませんよ。 コードを提示してみてください。

atom002
質問者

補足

返信ありがとうございます。 確かにそうですよね。 初心者の私としましては、NOW関数を使えば良いのかと思い、NOW関数が入っている部分のセルを選択する、あるいは、直接”=NOW()”とすることでうまくいくかと思っていましたが、うまくいかなかったために投稿をしました。(素人的な安易な考え方かとは思いますが) 解決のための良いHPがあれば、それでも良いので教えてほしいです。 よろしくお願いします。

関連するQ&A

専門家に質問してみよう