No.4
- 回答日時:
OnTime メソッドを使って、15分ごとに
1.Calculateする
2.セルB1の値に1を加えるか、別途カウント用の変数に保持した値をセルB1に書き込む。(多分Microsoftの推奨は前者)
3.次回(15分後)のOnTime設定をする。
4.閉じるときはOnTime設定を解除する。
それだけです。
ヘルプを見て、必要な機能のみをシンプルに書く事をお勧めします。
いち早い回答、有難うございます。
自分でも、これまでの期間、質問のポイントを絞り込む為、試すがめつ、思考錯誤していましたところ、ついに、週末を迎えてしまいました。
その為、”論点を、更に絞った、精確な質問”を、次の新しい質問で、詳細に、行いたいと思います。
是非、皆さん、お答え頂けると、たいへん有難いです。
こちらの質問を、まだ、御覧下さっていて、『質問を締め切った』と、思われてしまうことは、本意ではありません。
それは、たいへん困りますので、『次の新しい質問』へ、”内容は変わらす、移行したこと”を、皆様が、周知して下さった段階で、『質問を締め切らせて頂きます』
ご了承下さい。
No.3ベストアンサー
- 回答日時:
標準モジュールシートに以下のマクロをペースとして、書き込み終了後もう一度開いてみてください。
テスト不十分につき、おかしければ補足に書いてくだされば、明日回答します。
Option Explicit
Sub Auto_Open()
Dim wkMIN As Integer, TargetTime, WaitTime, wktime
wktime = Now
wkMIN = Minute(wktime)
wkMIN = Application.Floor(wkMIN + 15, 15)
TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
+ TimeValue("00:" & Application.Text(wkMIN, "00") & ":00")
WaitTime = TimeValue("00:00:10")
Range("B1") = 1
Range("C1") = TargetTime
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub
Sub Macro1()
Dim wkMIN As Integer, TargetTime, WaitTime, wktime
Dim a As String
wktime = Now
wkMIN = Minute(wktime)
wkMIN = Application.Floor(wkMIN + 15, 15)
TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") + _
TimeValue("00:" & Application.Text(wkMIN, "00") & ":00")
WaitTime = TimeValue("00:00:10")
Calculate
With Worksheets(1)
.Cells(1, 3) = TargetTime
If .Range("B1") + 1 > 5 Then
.Range("B1") = 1
Else
.Range("B1") = .Range("B1") + 1
End If
End With
Application.OnTime TargetTime, "Macro1", WaitTime
End Sub
Sub auto_close()
Dim i As Integer, TargetTime, wktime
On Error Resume Next
wktime = Now
For i = 0 To 16
TargetTime = TimeValue(Application.Text(wktime, "hh:") _
& Application.Text(i, "00") & ":00")
Application.OnTime TargetTime, "Macro1", , False
Next i
End Sub
なおマウスの件、マウス自体が故障している可能性がありますから、別のマウスで試されるのも手です
この回答への補足
御作り頂いたプログラム、たいへん有難く使用させて頂きました。
せっかく、御作り頂いたプログラムですが、実行しますと、 Excelワークシートを毎回起動させると、デバッグを促すウィンドウ警告が現れ、プログラム中の
「TargetTime, WaitTime, wktime」というタイトル部分、
TargetTime = TimeValue(Application.Text(wktime, "hh") & ":00:00") _
+ TimeValue("00:" & Application.Text(wkMIN, "00") & ":00")
の部分が、エラー当該箇所だと表示されます。
一体、どのようにしたら良いでしょうか?
貴方は、なんて、お優しい方なのですか?
見ず知らずの私に対し、これほどの、お骨折りを頂きまして、感謝の言葉に絶えません。
本当に、有難うございます。
どうぞ、これからも、私のような初心者に、”優しい神”のような存在でいて下さい!
今日は、先ほどの本を、ひっくり返し読んで、よ~く勉強させて頂いて、また後ほど、質問させて下さい!
No.2
- 回答日時:
いち早い回答、有難うございます。
リンクを、細かく読んでいるうちに、いつの間にか時間が‥‥‥‥‥
私は、現在、技術評論社の、幸い、書店で平積みになっていた本、
自分で選べる パソコン到達点 シリーズ
これからはじめる エクセル関数&VBAの本
井上香緒里 著 / A4変形判 / 184ページ
が、最新のもので、一番、★”易しく”★書かれていると言う評判を聞いて、一生懸命、学習中の身です。
この★一番”易しい”★★をキーワードに、良書を、ご紹介頂けないでしょうか?
何卒、宜しくお願いします。
★★それと、緊急の事態で、つかぬことをお聞きしますが、今しがた、マウスが全く反応しなくなり、PCを再起動させました。
これまでも、対策として、何度も、★★マウスのドライバを再インストールし直し、使用を続けている★のですが、PCの状態は、不調なままです。
PCに、たいへんお詳しいようなので、何か良いお知恵を頂きたいのですが。如何でしょうか。
No.1
- 回答日時:
セルの値を定期的にチェックするとなると、VBAには、タイマーコントロールが無いのですが、以下のURLでVBAで対応策が提示されています。
セルの値を定期的にチェックして・・というよりも、15分毎にカウントアップするという直接的な記述ができますね。
参考URL:http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips15.htm
いち早い回答、有難うございます。
リンクを、細かく読んでいるうちに、いつの間にか時間が‥‥‥‥‥
私は、現在、技術評論社の、幸い、書店で平積みになっていた本、
自分で選べる パソコン到達点 シリーズ
これからはじめる エクセル関数&VBAの本
井上香緒里 著 / A4変形判 / 184ページ
が、最新のもので、一番、★”易しく”★書かれていると言う評判を聞いて、一生懸命、学習中の身です。
この★一番”易しい”★★をキーワードに、良書を、ご紹介頂けないでしょうか?
何卒、宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Excel(エクセル) エクセルの関数(式)を教えてください。 1 2022/09/27 09:28
- Visual Basic(VBA) EXCEL VBA ユーザーフォームの内容をループでデータベースに登録したい。 2 2023/02/02 10:22
- Excel(エクセル) エクセルでIF関数中にIFERROR関数を使いたいのですが???? 5 2022/04/08 13:24
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Excelで小数表記をそのまま角度表記にしたい 5 2022/04/04 12:34
- Excel(エクセル) エクセルの質問です 5 2022/12/19 10:34
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査前日に自慰行為した時の...
-
尿検査の前日は自慰控えたほう...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
腕を見たら黄色くなってる部分...
-
excelでsin二乗のやり方を教え...
-
変な話しになります。尿検査で...
-
彼女のことが好きすぎて彼女の...
-
1日前の検尿
-
EXCELで条件付き書式で空白セル...
-
検便についてです。 便は取れた...
-
中出しをするとお腹が痛い・・・。
-
2つの数値のうち、数値が小さい...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
これって喉仏ですか? 私は女性...
-
Excelで""で囲む方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報