• ベストアンサー

excel vba 日付型の2つの値を一つのセルに入力する方法

excel vbaについて教えてください。 Wという変数にDate型で"1:00"という数値が入っており、 Zという変数にDate型で"2:00"という数値が入っています。 この二つを、同じセル内に改行して挿入したいと思っています。 Cells(1, 1) = W & Chr(10) & Z 上記のようにセットしようとすると、 4.16666…7E-02 4.16666…7E-02 といったように値が変形してしまいます。 1:00、2:00という値は前処理で時刻の比較などをしているため、 文字列型にすることはできません。 どのようにしたら 1:00 2:00 といった形にできるでしょうか？ 途中で(セルに挿入する直前で)文字列型に 変換する、というようなことはできるでのしょうか？ よろしくお願いします。

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

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

＞Cells(1, 1) = W & Chr(10) & Z を Cells(1, 3) = Format(W, "h:mm") & Chr(10) & Format(Z, "h:mm") の様に変更してみてください

sun-sky
質問者

お礼

できました！フォーマットを指定して格納すれば良かったのですね。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセルVBAのChr(10)の挿入と削除

    宜しくおねがいします 現在結合されたセルがありそのセル内に他のプログラムから 下記の値が挿入されるようになっています。 あいうえお かきくけこ さしすせそ たちつてと （Chr(10)の改行） （Chr(10)の改行） （Chr(10)の改行） （Chr(10)の改行） 他のプログラムから送られてくる値は”あ行”の１行だけだったり ”ま行”までの7行あったりとその都度変わってきます。 文字数も”あ”の1文字だけだったり”あああいいいうううえええおおお”と 文字数も変わります。 しかし下の4行分の”Chr(10)の改行”の数は変わりません。 やりたいことは↓ コマンドボタンを二つ作り、ボタンを押すたびに下にあるChr(10)の改行を 挿入したり削除したりしたいのですがどのようにすればよいのでしょうか？ 追加ボタンを2回押すとChr(10)の改行が6行分になり そこから削除ボタンを3回押すとChr(10)の改行が3行分になる・・・という感じです。 試しにマクロの記録で セルを選択して改行を削除 をしてみたのですが思うような動きをしてくれません。 なぜChr(10)なのかとかいうのは聞かないでください・・・ そこから説明すると長くなるので。

  • =code(" ")　で値が160となる文字をEXCEL VBAで消したい

    EXCEL2002です。 あるセルに半角スペースを入力し、マクロで Cells.Replace Chr(&H20), ""　と走らせるときれいに消えてくれます。ちなみにこの半角スペースを=code(" ")で調べると値は32となります。 同じやり方で=code(" ")で調べると160の値となる文字があります。これはスペースのようですが、半角でも全角のスペースでもないようです。 この文字をVBAの上記の方法で消したい場合にCells.Replace Chr(xxxx), "" ←xxxxの部分は何といれたらよいのでしょうか？

  • VBAでのセルの参照

    ＶＢＡであるセルの値をＣＳＶ出力にしようしたいと思っています。 対象セルが、ただ値のみが入っているセルならば問題ないのですが、式が入っているセルですと上手くできません。 詳細は以下のとおり セルＡ１：8.25　　セルＡ２：8.80　　 セルＡ３：＝Ａ１－Ａ２　（画面には-0.55と表示）で 変数＝Cells(3,1).Valueと言った形で、Ａ３の値を変数に受け取ろうとしています。 すると変数には入るべき値の近似値(-0.54999999・・) が入ります。 すべてのセルの書式は数値で、少数第２位までに設定されており、決して上記以外の値が入っていることはありません。 何故、このような現象が起こり、またどうすれば解決できるのでしょう？ ちなみに変数＝Cells(3,1).Textにすると正しい値(-0.55)が入ります。 .Valueと.Textの違いも教えていただけるとあり難いです。 宜しくお願いします。

  • ＥＸＣＥＬ　ＶＢＡでセルの値が数値のときに２を掛ける方法について

    すいませんＥＸＣＥＬ　ＶＢＡで教えていただきたいことがあります。 Ａ１：Ｈ３０００に数値及び文字列が入っている。 この範囲で値が数値のときは当該セルの値に＊２の処理を行う （文字列の場合はそのまま） Dim i as Variant For Each i in Range("A1:H3000") IF ～ Next i というような流れでしょうか。 ＩＦの後がテキスト本を見てもよくわかりませんでした。 よろしくお願いします。

  • エクセルVBA 配列の書き方とセルへの一括表示方法

    エクセルのVBAで 下記のようなプログラムを作成しています。 1行目はタイトル行で E列が空白になるまで、 各行のE列～H列の値を変数に入れて、 最後に一括で別の列・行にそれぞれの値を表示・書込したいと思ってますが、 どうもVBAは初めてでよくわかりません。 Dim aaa As String Dim bbb As String Dim ccc As String Dim eee As Double intRow = 2 Do Until Cells(intRow, 5).Value = "" aaa = Cells(intRow, 5).Value) bbb = Cells(intRow, 6).Value) ccc = Cells(intRow, 7).Value) ddd = Cells(intRow, 8).Value) intRow = intRow + 1 Loop aaaの各変数を2行目のA1～intRowまで bbbの各変数を2行目のB1～intRowまで cccの各変数を2行目のC1～intRowまで dddの各変数を2行目のD1～intRowまで セルに一括して表示したいのです。 配列の書き方と、セルの範囲に表示・書込する方法を どうかご教示下さい。お願いいたします。

  • Excel VBAでセル内が"-"の時の判別方法

    Excel VBAで質問です。 セル内の値が-のとき、セル内の値をうまく取り出す方法はないでしょうか。 .Cells(a,b)="-"で実行してみたところ、偽になってしまいます。また、Visual Basic Editorで値をチェックすると.Cells(a,b)の値は"?"になってしまっていました。 セル内の値を適当な文字列（AAAなど）に変えて.Cells(a,b)="AAA"にすると真が返ってくるため、これ以外の部分でのバグではないと思います。

  • エクセルで数値と文字が入ったセルからの数値の抽出

    皆さんこんにちは。 エクセルの使い方についての質問です。 添付画像の例のようにA列に 「XXYYYZZ(XとZは文字、Yは数値で3桁または4桁)」というフォーマットで 数値と文字が入っているセルがあります。 同様にB列には「WWZ(Wは数値)」というフォーマットで、 同様に数値と文字が入っているセルが並んでいます。 これらからDやE列にあるように数値のみを取り出すためには DやE列にどのような関数を入れてやればよいのでしょうか。 どなたか教えていただければ幸いです。 よろしくお願いします。

  • Excelで同一セル内に入力されているデータを他のセルに分割したい

    http://okwave.jp/qa4369634.html?ans_count_asc=20 で質問をして、何度かやりとりをさせていただいて エクセルで同一セル内に、セル内改行で１～６列ほどのデータが入力されています。 縦にデータが入力されていて、それぞれのセルにセル内改行を含み、データが入力されています。 それぞれのセル内のデータを… 例えば、A1セル内に５行入力されていたら、A2セルから入力されている行数分（ここでいうと5行）挿入し、それぞれにデータを分割して入力させたい。 かつ、B・Cセルは増えたセルにそれぞれのデータをコピーしたいと言ったら、 Sub Macro1() Dim idx, cnt As Integer Dim wkStr() As String Dim rng As Range 　　ActiveSheet.Copy after:=ActiveSheet 　　For idx = Range("A65536").End(xlUp).Row To 1 Step -1 　　　　If InStr(Cells(idx, "A"), Chr(10)) > 0 Then 　　　　　　wkStr = Split(Cells(idx, "A").Value, Chr(10)) 　　　　　　Set rng = Cells(idx, "B") 　　　　　　For cnt = UBound(wkStr) To 0 Step -1 　　　　　　　　Cells(idx, "A").Value = wkStr(cnt) 　　　　　　　　Cells(idx, "B").Value = rng.Value 　　　　　　　　Cells(idx, "C").Value = rng.Offset(0, 1).Value 　　　　　　　　If cnt > 0 Then 　　　　　　　　　　Cells(idx, "A").Resize(1, 3).Insert shift:=xlDown 　　　　　　　　End If 　　　　　　Next cnt 　　　　End If 　　Next idx End Sub といったマクロのご回答をいただきました。 これを元に、 ・データが入っているセルをA列→B列に変更 ・A列のデータはセルが増えた分だけ増やしたい ・A1に対応するデータがC1・D1に入っていた場合、対応するデータは残したまま、B列が増えただけ、列を増やしたい と変更したいのですが…。 すいませんが、宜しくお願い致します。

  • エクセルのＶＢＡを使って、セルの値の検索をしたいと思ってます。

    エクセルのＶＢＡを使って、セルの値の検索をしたいと思ってます。 ですが、cells.findのように、アクティブセルが移動することなしに、値のみを取得し、変数に格納したいと思っていますが、どうすればよいか、見当がつきません。 繰り返し構文を使えば、検索はできますが、それだと、無駄に重くなりそうなので、何か良い方法はありませんか？

  • エクセルＶＢＡ　セルの値を使ってのセル選択

    セルに入力した値でセル選択の範囲を指定したいです セルの値がxの時 セルB1～Cx　と　セルD100～Ex+100　を同時に選択したいのですが どうすれば良いのでしょう？ セルＡ１に50と入力されているとします Range("B1:C50,D100:E150").Select となってほしい訳です Range　や　Cells　とか調べたのですが分かりませんでした

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する