![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
はじめまして、
マクロを使ってタイマーをセットしているのですが、
たとえば1行A列に9:00:00という時間をセットして、
それをマクロでうけとりmacro1というマクロを時間とおりに動かすようにタイマーにせっとします。
プログラムは以下のとおりなのですが、
TimeValue(Cells(1, 1))のところがうまくいきません。
解決方法を教えてください。
よろしくお願い思案す。
Set_timer = TimeValue(Cells(1, 1))
Cells(5, 3) = "設定完了"
MsgBox "タイマーを設定しました。"
Application.OnTime TimeValue(Set_timer), "macro1"
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
こんにちは。
TimeValueの引数は文字列でなければいけません。
ところがセルに時刻を入力すると見た目は時刻ですが、実際の値は「シリアル値」と呼ばれれる値になります。
文字列のところにシリアル値を入れているので「型が一致しません」とエラーになるのです。
そこでこのシリアル値を表示と同じような文字列に変換してやります。
Set_timer = TimeValue(Cells(1, 1))
↓
Set_Timer = Format(Cells(1, 1).Value, "h:mm:ss")
とします。どうでしょうか。
ありがとうございます。
できました!
なるほど、シリアル値になっているのでフォーマットする必要があるのですね。
勉強になりました!
No.2
- 回答日時:
>今、試してみたのですが、型が一致しませんとのエラーが表示されます。
>Set_timer = TimeValue(Cells(1, 1))
これ、残ってませんか?
No.1
- 回答日時:
多分
>1行A列に9:00:00
この時点で、値が時間になっているのでTimeValueは不要ということだと思います
Application.OnTime (Cells(1, 1)), "macro1"
で、どうでしょうか
この回答への補足
さっそくのご返事ありがとうございます。
今、試してみたのですが、型が一致しませんとのエラーが表示されます。
デバッグして値を確認すると
Cells(1,1)の値は0.37511・・・・という値になっています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル マクロ 指定日の指定時刻にプロシージャを実行 4 2022/04/17 16:44
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Excel(エクセル) なぜか正常にマクロが動いていない? 1 2022/11/03 07:56
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
VBAのIF分で時間指定の条件式の書き方
Visual Basic(VBA)
-
-
4
VBAで○○:○○と表示させたいのに小数で0.53125のように表示さ
Access(アクセス)
-
5
IF文に時間(何時から何時まで)の条件文を付けたい
Word(ワード)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセルでエラーが出て困っています。
Excel(エクセル)
-
8
時間をvbaでセルに1:00と入力する場合
Excel(エクセル)
-
9
エクセルVBAにおけるON TIMEメソッドの解除方法について
Visual Basic(VBA)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
Excel &で他セルを参照させた時の時刻の表示がシリアル値になってしまう
Excel(エクセル)
-
14
UserForm1.Showでエラーになります。
工学
-
15
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
-
16
DATE型変数を初期化する方法
Visual Basic(VBA)
-
17
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
セルの時刻になったらアラームを鳴らす
Excel(エクセル)
-
20
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
勃起する時って痛いんですか? ...
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
2つの数値のうち、数値が小さい...
-
ある範囲のセルから任意の値を...
-
【Excelで「正弦波」のグラフを...
-
これって喉仏ですか? 私は女性...
-
Excelで""で囲む方法
-
至急!尿検査前日にオナニーし...
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
尿検査前日に自慰行為した時の...
-
筋トレするとチンコが縮んじゃ...
-
Excel 数値の前の「 ' 」を一括...
-
エクセル指定した範囲からラン...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報