- ベストアンサー
VBAでNOWから年と秒をはぶきたい
directjpnの回答
- directjpn
- ベストアンサー率40% (83/203)
Range("M6") = Range("C4") & "-" & Range("D4").NumberFormatLocal = "mm/dd hh:mm" or Dim Ima_Time As Data Ima_Time = Format(Date, "mm/dd hh:mm") Range("M6") = Range("C4") & "-" & Ima_time これではダメなのですか？ Date関数やTime関数を予め定義しておいて、導入する方法が安定的で 複数に活用出来て、メンテナンスが楽だと思うのですが
関連するQ&A
- VBAで出した数字の分表示について
Public Sub Jikoku() Range("A1").Value = Format(Now(), "hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "Jikoku" End Sub このVBAをつかって時間を出してセルの書式設定で mm表示で時間だけ表示しようとすると 例えば9：32：26だとしても01と表示されてしまいます。 mm：ssだと32：26と出るのですが、分だけだとうまくいきません。 原因が分かる方いらっしゃいますでしょうか？ 原因かどうかわかりませんが年数表示が1900年となってしまいます。 PCの設定は2014年なのですが、、
- ベストアンサー
- Excel（エクセル）
- エクセル 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とかの 別のタイマー使った方が 良いのでしょうか？？
- 締切済み
- Visual Basic
- VBA：日付をシリアル値にできるの関数教えてください。
VBAにより、あるセルに"yyyy / mm / dd hh:mm:ss"のフォーマットで日付を記入しました。それを手動で書式を標準にすると例えばシリアル値38148.4768981481になります。これをVBA上でできる関数を知りたいです。つまり、日付をシリアル値にできるVBAの関数を教えて頂きたいです。宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel2010 VBAについて
以下のソースを書いて実行したのですが 「実行エラー'1004' WorksheetFunctionクラスのVlookupプロパティを取得できません」 と表示されます Sub 時刻表示() '日本の時間と選択した年の時刻・時差を1秒ごとに表示しなおす Dim City As String Dim Jisa As Long Application.ScreenUpdating = False City = Range("C6").Value Jisa = WorksheetFunction.VLookup(City, _ Worksheets("都市リスト").Range("B3:C14"), 2, False) Range("E7").Value = Jisa Range("C4").Value = Now Range("C7").Value = DateAdd("h", Jisa, Now) Range("C4, C7").NumberFormat = "m/d h:mm:ss" Application.ScreenUpdating = True Application.OnTime Now + TimeValue("0:00:01"), "時刻表示" End Sub Sub 時刻表示終了() '時計を止める Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False End Sub デバックをすると Application.OnTime Now + TimeValue("0:00:01"), "時刻表示", Schedule:=False がマーカーで引かれます 一応本通りには打ったと思うのですが、、、。 どこが間違えているか教えてください
- ベストアンサー
- その他（プログラミング・開発）
- エクセル 時間の合成
インターバル = TimeValue("00:50:00") 早速ですが インターバル = TimeValue("00:50:00") Debug.Print Now + インターバル これは エラーになりません。 しかし If Format(Now, "hh:mm:ss") < Format("3:00:00", "hh:mm:ss") Then 終了時刻 = Format(Now, "yyyy/mm/dd") & " " & TimeValue("3:02:00") Else 終了時刻 = Format(DateAdd("d", 1, Now), "yyyy/mm/dd") & " " & TimeValue("3:02:00") End If Debug.Print 終了時刻 + インターバル これは、型が合わないエラーです。 終了時刻は 文字列的に合成されただけ・・・だろうと 推察するのですが では、「終了時刻 + インターバル」 が 可能な終了時刻は どうして 作ればいいのでしょうか？
- ベストアンサー
- Visual Basic
- EXCEL VBA オートフィルタの値コピー２
たびたびすいませんよろしくお願いします。 EXCEL VBA オートフィルタの値コピーの追加質問です http://okwave.jp/qa4803815.html?ans_count_asc=20 オートフィルタ後、１日当たり行は１０～１５行あります、そのうちＨ列からＭ列まで、ある１行にデータがありますそのデータをＨ列から順番にSheet1のM20とM28までコピーしたいのです、ただ日によってその列は空欄の時やＭ列だけの時もありますもあります。さらにＮ列からＰ列まで同じようにデータがある時（Ｈ列からＭ列と行が違うときがあり）、上にある行からSheet1のM20とM28に上詰めでコピーしたいのです。 もっと簡単にいいますとＨ列からＰ列まである値を上の行からさらにＨ列から順番に上詰めでSheet1のM20とM28にコピーしたいのです。 なにとぞよろしくお願いします。 Sub データコピー() Range("AB17") = Format(Sheet3.Range("A3").Value, "yy") Range("AE17") = Format(Sheet3.Range("A3").Value, "mm") Range("AH17") = Format(Sheet3.Range("A3").Value, "dd") Range("AK17") = Format(Sheet3.Range("A3").Value, "aaa") Range("D22") = Sheet4.Range("D3").Value Range("D25") = Sheet4.Range("E3").Value Range("H22") = Sheet4.Range("F3").Value Range("D22") = Sheet4.Range("G3").Value Range("L22") = Sheet4.Range("K3").Value Range("Q22") = Sheet4.Range("L3").Value Range("U22") = Sheet4.Range("M3").Value ． ． ． End Sub
- 締切済み
- Visual Basic
- 日付が####と表示される
いつもお世話になっています。 Excelのマクロ部分で現在日時を表示させたいのですが、なぜか "#####"で表示されてしまいます・・・。 Range("G1").Value=Format(Date,"yyyy/mm/dd") & Space(1) & Format(Time,"hh:mm") MsgBox "日時：" & Range("G1").Value とやっています。 MsgBoxでは『日時：2002/06/16 17:22:00』と表示されるのに、実際の表示は "#####"となっています。 G1にカーソル(?)をあてても"2002/6/14 17:34:00"となっています。 別のファイルではちゃんと表示されているのに、なぜこんなことが起きるのでしょうか？ （セルのオプション設定など見てみましたが、同一でした） どうすれば日にちと時刻(秒は表示させず）をExcelシートに表示させることが できるのでしょうか？ ご存知の方、教えてください！！
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA オートフィルタの値コピー
ほぼ初心者ですのでよろしくお願いします。 Sheet2にデータがありそのデータをオートフィルタで日付から抽出してSheet3にコピーして、その後Sheet1の表に該当項目をコピーする際についてですが、オートフィルタ後、１日当たり行は１０～１５行あります、そのうちＧ列にはデータが通常２つのセルに値があるだけでほかの行は空欄です。（日によってどの行になるかはわかりません）この２つのセルの値をそれぞれSheet1のM10とM11コピーしたいのです、 ちなみにセル番地は下記の方法で取得できましたが、値の取得ができません。 Range("D1").Value = Worksheets("sheet1").Range("A1").End(xlDown).Row Range("D2").Value = Worksheets("sheet1").Range("A65536").End(xlUp).Row Sub データコピー() Range("AB17") = Format(Sheet3.Range("A3").Value, "yy") Range("AE17") = Format(Sheet3.Range("A3").Value, "mm") Range("AH17") = Format(Sheet3.Range("A3").Value, "dd") Range("AK17") = Format(Sheet3.Range("A3").Value, "aaa") Range("D22") = Sheet4.Range("D3").Value Range("D25") = Sheet4.Range("E3").Value Range("H22") = Sheet4.Range("F3").Value Range("D22") = Sheet4.Range("G3").Value Range("L22") = Sheet4.Range("K3").Value Range("Q22") = Sheet4.Range("L3").Value Range("U22") = Sheet4.Range("M3").Value ． ． ． End Sub
- ベストアンサー
- Visual Basic
- 終了日時から開始日時を引いた時間を求めるvba式
お世話になっています。 Excelで A列欄にタイトル B列欄に開始日 C列欄に開始時 D列欄に終了日 E列欄に終了時 のデータが有ります。 F列欄に合計を求めたいです。 下記のVBAコードを書きましたが、 実行エラー１３，型が一致しませんと表示されます。 正しいコードを教えていただけないでしょうか？ Option Explicit Public i As Long Public num As Integer Sub newmacro() i = Range("A1").End(xlDown).Count Range("F1").Value = "合計" Columns("F").Select Selection.NumberFormatLocal = "[h]:mm" For num = 1 To i Range("F" & Format(num)).Value = Range("D" & Format(num)).Value + Range("E" & Format(num)).Value - _ Range("B" & Format(num)).Value + Range("C" & Format(num)).Value Next num End Sub よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excel vbaの関数の使い方
excel VBAでsumproduct関数を使いたいがでますのですがどうしても実行できません 何が原因でしょうか、どなたか教えてください。 ------------------------------------------------- 下記コードは実行できます。 Worksheets("集計").Range("j4").Value = WorksheetFunction.Sum(Worksheets("日常").Range("ｈ4:ｈ13")) 下記コードは型が違うとのコメントがでます。 Worksheets("集計").Range("j4").Value = WorksheetFunction.SumProduct((Worksheets("日常").Range("c4:c13") >= j2) * Worksheets("日常").Range("c4:c13") <= k2) * Worksheets("日常").Range("d4:d13") = l2 * Worksheets("日常").Range("f4:f13") = m2 * Worksheets("日常").Range("h4:ｈ13") --------------------------------------------------------------------- ワークシートは、日常、集計、の二つがあります。 「日常」には、Ｃ４：Ｈ１３にデータがあります。 c列に年月日、d列にコード番号、e列に購入箇所、f列にコード番号、g列に商品、h列に金額 が入力されています。 「集計」には、j2に開始日、k2に終了日、l2にd列のコード番号、m2にｆ列のコード番号、 が入力されています。 環境は、windows10 使用しています。 ----------------------------------------------------------- 以上の状況ですがvba でsumproduct関数を使いたいのですが実「実行」できません,たかどなたか教えて頂けませんか。
- ベストアンサー
- その他（趣味・娯楽・エンターテイメント）
お礼
directjpn 様 回答いただき、ありがとうございます。 定義する方法もTRYしたのですが、うまくいかなかったので... 本当に勉強になります。 ありがとうございました。