• ベストアンサー

エクセルのVBAで数値を時刻の値へ変換するには？

VBAは初心者です。宜しくお願いします。 シート1のＡ1に840、Ｂ1に1730と単なる数字の値が入っております。 ＶＢＡを実行すると シート2のＡ1に8:40、Ｂ2に17:30と時刻の値として取り扱えるように 表示させるには、どうすればよろしのでしょうか？

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

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.2

A1はA1 B1はB2にですか？ いったん文字列形式で00:00の形にしてからセットすればエクセルは時間と判断してくれます。 Sub test01() Dim a As String, b As String a = Format(Sheets("Sheet1").Range("A1").Value, "00:00") b = Format(Sheets("Sheet1").Range("B1").Value, "00:00") Sheets("Sheet2").Range("A1").Value = a Sheets("Sheet2").Range("B2").Value = b End Sub

EZOPIKA
質問者

お礼

merlionXXさん シート1のB1をシート2のB1でした（汗 ですが、ご返答頂いた内容で十分ご理解できました！！ 文字列形式できちんと認識してくれるんですね！ ご丁寧にありがとうございましたｍ(＿＿)ｍ

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.1

VBAヘルプで TimeSerial 関数 を調べてみてください。

EZOPIKA
質問者

お礼

marbinさん TimeSerial関数というのをもう少し勉強させて頂きます。 ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • EXCEL VBAで探した値を色を付ける

    EXCEL VBAで探した値を色を付ける方法が知りたいです。 シート２の値を参照してシート１の中からVBA シート２の数字を見つけて 合ったら シート１の同じ数字の背景に色をつけていく そんなVBAが作りたいのですが いい案が浮かばないのでどなたか教えていただけませんか？ よろしくお願いいたします。 Sheet1 sheet2 A A 1 10 : 1 12 2 11 : 2 14 3 12 : 3 15 4 13 : 5 14 : 6 15 : 7 16 sheet1の１２・１４・１５の所の背景を色を付けたいのですが うまくいかないのでよろしくお願いいたします

  • エクセルＶＢＡで、シート１の値をシート２へ移すには？

    エクセルＶＢＡの質問です。初心者です。 ■シート１のＡ１に「１２３」と打ったら、シート２のＡ１に「１２３」と表示される。そして、Ａ２に「４５６」と打ったら、シート２のＡ２に「４５６」と表示される。続いてシート１のＡ３の値をシート２のＡ３に・・・とどんどん繰り返してたくさんの値を別のシートに移せるようにしたいです。 関数で言えば、VLOOKUP　と似ている機能を作りたいと思ってます。 よろしくお願いします。

  • エクセル上のＶＢＡ

    当方、ＶＢＡまるっきり初心者です（触りはじめて３日くらい）。 エクセルはある程度理解しているつもりですが… バージョンはエクセル２０００です。 他シートのセルのひとつに入力すれば、 別シートのセルがそれを参照したうえで 値として表示出来るようにならないでしょうか。 　今のところ、以下のような状況です。 step01　sheet1のセルＡ１に任意の数値（整数限定です）を入力。 step02　sheet2のセルＡ１に、sheet1のセルＡ１の数値を用いて 　　　　MOD関数で余りを出す。 step03　sheet2のセルＢ２に以下のＶＢＡによって 　　　　step02の余りを値として表示。 　　　　　Private Sub Worksheet_Change(ByVal Target As Range) 　　　　　　　Range("b2").Value = Range("a1") 　　　　　End Sub 　これだとsheet1の数字を変えても、 sheetの切替後sheet2のセルＢ２に 表示される値が変わってくれません。 　最初の入力（step01の入力）をおこなえば sheet2のセルＢ２まで値が変わってくれるような方法を 教えていただけないでしょうか。 　拙い説明で申し訳ありませんが、よろしくお願いします。

  • EXCEL VBA 行の値を累計したいのですが・・

    VBA初心者です。 VBAでEXCELの行の値を累計したいのですが、プログラムの仕方がわかりません。 どなたかわかる方教えてください。 　　　 A　　 　B　　 C　　　 D　　　E　・・・・ 1　　1000　3000　2000　4000　3000　 2　　2000　5000　1000　3000　2000　 3　　4000　2000　3000　1000　5000　　 : 　　　 実行結果 　　 　A　　　 B 　　 C　　 　D 　　 E　　・・・・ 1　　1000　4000　6000　10000　13000 2　　2000　7000　8000　11000　13000　　　←行の値の累計 3　　4000　6000　9000　10000　15000 : 行と列はたくさんあって、最後のセルまで累計する方法を教えていただけるとありがたいです。 どうぞよろしくお願いします。m(_ _)m

  • エクセル　VBA

    最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。 ＥＸＣＥＬのＶＢＡで教えて下さい。 シート1のＡ列にはB列が入力されると自動入力されるNo.があり、C～G列もB列が入力されると自動入力されます。 B列には日付が、H列には３～4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH～N列をコピーして、シート3のA～G列に値のみの貼り付けを行い保存した後、シート3のA～G列をコピーして ｃｓｖファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか？ 宜しく御願い致します。

  • Ｅｘｃｅｌ　ＶＢＡで値が重複する行を削除する

    Ｅｘｃｅｌ２０００を使っています。 シートＡに数千件のデータがあります。 シートＢのＥ列にある文字とシートＡのＤ列の文字が重複する場合に、シートＡの重複するセルがある行を削除する（且つできれば行のデータを抜き出すＶＢＡを作ろうと考えています。 最近ＶＢＡの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。

  • EXCEL2010　VBA　繰り返し処理

    EXCEL2010でVBAを使用してシートを作成しています。 シート1のA1にヘッダ数・A2に項目数を入力します。 VBAのコードを実行するとA1のヘッダ数が1ならシート２のA列には何も表示せず A2の項目数の分だけB列の14行目から数字を入力していきます。 (例)シート1 　　A1：1 　　A2：20 　の場合はシート2のB14から20行下まで1～20の値を自動入力させる。 　　シート2 　　B14：１ 　　B15：2 　　　　↓ 　　B33：20 シート1のA1が2以上の場合はシート2のA14から、シート1のA2の数値分アルファベットを表示させていきます。 (例)シート1 　　A1：2 　　A2:10 　の場合シート2のA14：A23に「A」を表示させます。(シート1のA2の数分この場合は10行ずつ） 　　　　　　　　　　　　　　A24：A33に「B」を表示させます。 　　　　　　　　　　　　　　B列にはアルファベットごとに数字を１～表示させます。 　　B14：B23　１～10 　　B24：B33　 1～10 シート1のA1が2なのでA・Bを表示 A1が3だとA・B・C A1が10だとA・B・C・D・E・F・G・H・I・JがA2の数字で区切りながら表示される。 このようなコードを書きたいのですが、どなたかご教示お願いします。

  • Excel VBA 値取得について

    お世話になります。 どなたかお力をお貸しください。 Excel2003 VBAでプログラムを組んでおり、エクセルのシートをデータベース代わりに利用しています。 複数のブック散乱している10万個近くのテキストボックスの値を、 「Ａ」というブックの「シート１」のセルに格納して行きたいと思っております。 値の格納方法としては、「Ａ」ブックの「シート１」の セルＡ１からＡ２、Ａ３…Ａ列最終行（6万強）まで縦の並びにデータを格納していきます。 ただし、「シート１」に格納したい値は10万個近くあるので、 Ａ列だけでは足りなくなります。 Ａ列の最終行まで値を格納し終えたら、自動的にＢ列に移動して、 セルＢ１からＢ２、Ｂ３…Ｂ列最終行（6万強）という遷移させていきたいのです。 Ａ列のみに格納していくのであれば、理解できるのですが、 自動遷移がわかりません。 For i = 0 To 最終行（6万強） シート1.Range("A" & i) = 参照元 Next i よろしくお願いします。

  • ＶBA　別シートにコピペ後、値クリア

    お世話になります。ＶＢＡ初心者です。エクセルにてコマンドボタン（SHEET1上に配置）をクリックすることで下記を実行するにはどうしたら良いですか。 (1)；SHEET1のB3:L9に入力した値をSHEET2のB3:B9に貼り付けを行い、その後にSHEET1のB3:L9を空白に戻す。 (2)；(1)を実行後、再度SHEET1のB3:L9に値を入力を行い、同じコマンドボタンをクリックすると、今度は(1)で貼り付けたSHEET2のB3:L9の下（２回目なのでB10:L16）に改行して貼り付ける。貼り付け後は(1)と同様。これをくりかえし（B17:L23,B24:L30....）。 SHEET1に入力した値をSHEET2に記録として残しておくために、このようなことをしたいと考えます。どうか宜しくお願いします。

  • VBA シートの違う特定のセルの値をコピーする

    エクセルVBA初心者です。 シート１の(A,1)にデジカメと表記があり、同じ行のB～Hの列にそれぞれの数字が入っていたとします。 それをシート２のA列の適当な行(例えばA,15)にデジカメという表記があった場合に、シート１の(B,１)～(H,１)の値をシート２の(B,15)～(H,15)にコピーする方法をご存じな方、教えて下さい。 単純なコピー＆ペーストは「マクロの記録」で可能かと思いますが、シート２に「デジカメ」の項目があった場合に、シート１の元データから同じ「デジカメ」の項目を探しだし、コピーしたいのです。 なにぶん、初心者で勉強中なものですから、表記等適切でないものがありましたら申し訳ありません。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する