• ベストアンサー

エクセルVBAでシリアル値で読み込まれてしまう

こんばんわ！ エクセルVBAのユーザーフォームの質問です。 A1セルにある日付データ（yyyy/mm/dd形式）のデータをユーザーフォームのテキストボックスに入れるとシリアル値になってしまいます。 式は普通に aaa.text=range("a1") としています。 同様に時刻もなってしまうのですが、どうしたら通常のyyyy/mm/dd形式（時刻はhh:mm形式）で表示できるでしょうか？ アドバイスの程よろしくお願いいたします。

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

当たり前。 テキストボックスはテキスト＝文字形式で文字列を表示するコントロール（仕組み）です。 一方エクセルは日付のセルは、「セルの値」はヒ日付シリアル値です。 range("a1")は「セルの値」を問題にする書き方。 そのまま表示すると数字文字で表示される。 見た目も日付で表示するなら、編集して文字列ウィオ作る TextBox1.text=Format(Range("A1"),"yyyy/mm/dd")のようにしたら仕舞い。 テキストボックスに直接表示形式を設定する仕組みは、はない。テキストボックスのプロパティに無い。作られて居ないというkと。

その他の回答 (2)

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.3

直接放り込んでしまうとセルの生値(シリアル値)が投入されてしまいます。 format関数で整形するのが一応定石ですが，実際には me.textbox1 = worksheets("シート名").range("A1").text のようにすることで，「セルの表示のまま」に記入することができます。

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

次のようにしてはどうでしょう。 aaa.Text=Range("A1") aaa.Text.NumberFormat="yyy/mm/dd" aaa.Text.NumberFormat="hh:mm"

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルマクロの質問です。

    こんばんわ！！ エクセルマクロのデータ形式で、うまく設定できず困っています。 下記のようにA1セルにユーザーフォームのデータを入力しました。 Range("a1") = UserForm1.TextBox1 TextBox1にはyyyy/mm/dd形式でデータを入力しています。 0を1899/12/31にするのはできるのですが、1899/12/31を0とするデータ（シリアル値？）に直したいのですが、どうすればよいでしょう？ アドバイスの程よろしくお願いいたします。

  • エクセルVBA　セルの書式につい

    ユーザーフォームのテキストボックスに入力した日付(yyyy/mm/ddの形式)をA1セルに入れるとします。 　Range("A1").Value = Me.txt日付 A1セルの表示形式は書式設定でユーザー定義の"d"で表示されるように設定していますが、 テキストボックスに入力した形式のまま(yyyy/mm/dd)でA1セルに表示されてしまいます。 上記のみではNGでしょうか？ ちなみに、yyyy/mm/ddと入力されたA1セルを一旦編集モード（[F2]キーを押した状態）にして[Enter]を押すと"d"（書式設定で指定している書式）に変わります。 参考：A1セルの日付をみて別シートの一覧からVlookup関数で値を検索したいところが、yyyy/mm/ddで表示されるためにエラーとなってしまいます） ご存知の方教えていただきたいです。

  • Excel　VBAで教えてください。

    Excel　VBAで教えてください。 テキストデータをExcelで読み込んだ後、Sheet1に以下のデータが入っており、 A列　B列　　　C列 氏名　開始日(yyyy/mm/dd)　終了(yyyy/mm/dd) テキストボックスに開始日(yyyy/mm/dd)、終了日(yyyy/mm/dd)、を入力し、入力した開始日から終了日のデータ検索し、A列からのデータをコピーし、Sheet2に貼り付けしたい。 テキストデータをExcelで読み込むコードはできたのですが、その後の処理ができずに困っています。 ユーザーフォームに入力するコードも教えてください。

  • VBA：日付をシリアル値にできるの関数教えてください。

    VBAにより、あるセルに"yyyy / mm / dd hh:mm:ss"のフォーマットで日付を記入しました。それを手動で書式を標準にすると例えばシリアル値38148.4768981481になります。これをVBA上でできる関数を知りたいです。つまり、日付をシリアル値にできるVBAの関数を教えて頂きたいです。宜しくお願いいたします。

  • Access VBA DoCmd.TransferTextについて

    ACCESS VBAでテーブルの情報をDoCmd.TransferTextを用いて CSV出力しようとしています。 しかし、"YYYY/MM/DD"形式のデータがどうしても"YYYY/MM/DD HH:mm" 形式で出力されてしまいます。 このメソッドを用いると必ずこうなってしまうのでしょうか？ よろしくお願いいたします。

  • エクセル　VBA　タイマー　0：00：00で

    ５分ピッチで　仕事させます。 ブックオープンで インターバル = TimeValue("00:05:00") Application.OnTime Format(開始時刻, "hh:mm:ss"), "orgdata.必要な作業を行うマクロ", 待ち時間 Debug.Print "st" & 開始時刻 Call timer_set 反復時刻 = 開始時刻 If Format(反復時刻, "hh:mm:ss") > "23:54:00" Then 反復時刻 = Format(DateAdd("d", 1, 反復時刻), "yyyy/mm/dd") & " " & TimeValue("0:00:10") Else 反復時刻 = Format(反復時刻, "yyyy/mm/dd") & " " & TimeValue(反復時刻) + インターバル End If ループで５回ほど Application.OnTime Format(反復時刻, "hh:mm:ss"), "orgdata.必要な作業を行うマクロ", 待ち時間 Debug.Print "loopexit" & 反復時刻 で、デバッグアウトが end　2013/08/15 3:02:00 st　2013/08/14 23:50:10 loop2013/08/14 23:55:10 loop2013/08/15 00:00:10 loop2013/08/15 00:05:10 loop2013/08/15 00:10:10 loopexit2013/08/15 00:15:10 makuro 2013/08/15 00:20:10 makuro 2013/08/15 00:25:10 makuro 2013/08/15 00:30:10 で、「必要な作業を行うマクロ」　で　仕事のあと　タイマー追加します。 If Format(反復時刻, "hh:mm:ss") > "23:54:00" Then 反復時刻 = Format(DateAdd("d", 1, 反復時刻), "yyyy/mm/dd") & " " & TimeValue("0:00:10") Else 反復時刻 = Format(反復時刻, "yyyy/mm/dd") & " " & TimeValue(反復時刻) + インターバル ' End If Application.OnTime Format(反復時刻, "hh:mm:ss"), "必要な作業を行うマクロ", 待ち時間 （反復時刻を　時間だけの時　formatを　入れて・・・） Debug.Print "makuro " & 反復時刻　’これが　デバッグで出力されています。 で、ダミーの作業が clup = clup + 1 orgdata.Cells(clup, 10) = Format(Now, "yyyy/mm/dd") orgdata.Cells(clup, 11) = Format(Now, "hh:mm:ss") orgdata.Cells(clup, 12) = Format(反復時刻, "yyyy/mm/dd") orgdata.Cells(clup, 13) = Format(反復時刻, "hh:mm:ss") 結果 2013/8/14 23:50:10 2013/8/15 0:20:10 2013/8/14 23:55:10 2013/8/15 0:25:10 2013/8/15 0:00:10 2013/8/15 0:30:10 これで、タイマー作業が　途切れます。 0：00：00　超える事に　問題があるなら　0：00：10　は　実行されないハズ・・・・ 反復時刻は　ｙｙｙｙ/ｍｍ/ｄｄ　&　”　”　&　”ｈｈ：ｍｍ：ｓｓ”　です。 試しに　時刻だけでやっても　同じでした。 さて、如何でしょ？ 実は　これで、動いていたのですが、３日ほど前から　0：00以降　突然タイマーが動かなくなったのです ＰＣは　３台　同じ現象です　よって　ＷＩＮの設定では無い・ エクセル　オプションに　何か設定でもあるのか？？ どうも　VBAのタイマーは不可解で エクセル終了させず、　プログラムだけ終了、再ロードだと、前のタイマー残ったまま、ダブルでタイマー動くとか・・・・ それと、WIN32とかの　別のタイマー使った方が　良いのでしょうか？？

  • 【Access】できればクエリにて　日付（yyyy/mm/dd）+時間（hh:mm）の計算　

    いつもお世話になります。 フィールド「日付」：日付 (S)　～YYYY/MM/DD形式～ と フィールド「時間」：時刻 (S)　～HH/MM形式～ があります。 これらを合算し、 (1)日付 (標準)　　～YYYY/MM/DD HH:MM:SS形式～ (2)日付 (標準？)　～YYYY/MM/DD HH:MM形式～ にしたいのですが、 レコードの更新欄ではどのようにビルドさせればよろしいでしょうか？ 教えていただけますでしょうか？ よろしくお願いします。

  • 2つの時刻間の時間を計算したい。

    よろしくお願いします。 エクセル2010、OSはWindows7です。 例） セルA1　に時刻その１ セルB1　に時刻その２ というデータが入力されています。 時刻は、YYYY/MM/DD hh:mm の形式で入力されており、2つの時刻の差は24時間以上なので日付は異なります。 この2つのセルの時間差をhh:mmの形式で表したいですが、単純に引き算しただけでは思うようにいかないようです。 やり方を教えてください。

  • Excel vba 日付の形式判定

    Excelに日付、開始時間の列があります。 セルの形式をチェックしたいのですが、形式が下記のとおりであるか どう記述すればいいのでしょうか？ 日付チェックはisdate関数を使いますが、日付の形式がyyyy/mm/dd、時間の形式がhh:mmであるかの 判定方法を教えてほしいです。 例） 日付　　　 時間 　2021/05/01　10:00 　H33/05/01　　 ←　yyyy/mm/dd形式でない為、NG 　 10時00分　←　hh:mm形式でない為、NG　

  • 「yyyy/mm/dd hh:mm」が「yyyy/mm/dd hh:nn」へ変化する

    access２００３を使用しています。 時刻の「分」の表示形式で気になることがあるのですが テーブルのデザインで フィールド1のデータ型を「日付/時刻型」にし 書式を「yyyy/mm/dd hh:mm」と入力しても 「yyyy/mm/dd hh:nn」に変化してしまいます。 問題なく「2009/02/28 20:33」と表示されるのですが なぜｍからｎへ変化してしまうのでしょうか？ また デザインで書式を「hh:mm」だけ入力した場合は 「時刻 (S)」へ変化します。 何か少しでもわかる方ご回答よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する