タスクスケジューラについてお聞きします。
毎日決まった時間にパソコンで翌日、翌々日の作業を行っています。
時間になるとタスクスケジューラが起動して、別に作成したVBSに書いてある、
翌日の作業開始してください! とコメントが出て、クリックするとWEBの画面が
立ち上がるようにしています。
できれば、today関数との組み合わせとかで、”翌日 2/8の作業開始してください!”と
言うふうに表示ができないでしょうか。
翌日、翌々日、3日後のコメント表示も必要になってきたので、
正確な日付を表示したくて。
VBSはあまり詳しくないので、よろしくお願いします。
今使っているVBSの内容です。
Dim Args
Set Args = WScript.Arguments
If Args.Count = 0 Then
Msgbox "翌日の作業開始してください!",vbOkOnly + vbSystemModal,"タスクスケジューラより"
else
MsgBox Args(0),vbOkOnly + vbSystemModal,"タスクスケジューラより"
'vbApplicationModal では不可、
'vbSystemModal では最前面メッセージになりつつもバックグラウンドアプリの操作OK
End If
No.2ベストアンサー
- 回答日時:
こんにちは。
このようにすれば、良いはずです。
'//
Dim Args, d, myDate, w, msg1, msg2, msg3
Set Args = WScript.Arguments
If Args.Count =0 Then
'今日
myDate = Month(Date) & "/" & Day(Date)
msg1 = "今日" & myDate
'明日
myDate = Month(Date+1) & "/" & Day(Date+1)
msg2 = "明日" & myDate
'明後日
myDate = Month(Date+2) & "/" & Day(Date+2)
msg3 = "明日" & myDate
MsgBox msg1 &"、" &msg2 &"、"& msg3&"の作業をお願いします。",vbOkOnly + vbSystemModal,"タスクスケジューラより"
ElseIf IsNumeric(Args(0)) Then
d = Args(0)
If d >0 Then
w = WeekdayName(Weekday(Date+d))
myDate = Month(Date+d) & "/" & Day(Date+d) & "(" & w & ")"
MsgBox Args(0) & "日後の" & myDate & " に作業開始" ,vbOkOnly + vbSystemModal,"タスクスケジューラより"
End If
Else
MsgBox "Error: Argument",vbCritical + vbSystemModal,"タスクスケジューラより"
End If
No.1
- 回答日時:
ちょっと手を加えてみました。
VBScript のバージョンで変わるかもしれません。(全角スペースは入れないでくださいね)
'//
Dim Args, d, myDate, w
Set Args = WScript.Arguments
If Args.Count =0 Then
myDate = Month(Date +1) & "/" & Day(Date +1)
w = WeekdayName(Weekday(Date + 1))
myDate = myDate & "(" & w & ")"
MsgBox "翌日の"& myDate &"作業開始してください!",vbOkOnly + vbSystemModal,"タスクスケジューラより"
ElseIf IsNumeric(Args(0)) Then
d = Args(0)
If d >0 Then
w = WeekdayName(Weekday(Date+d))
myDate = Month(Date+d) & "/" & Day(Date+d) & "(" & w & ")"
MsgBox Args(0) & "日後の" & myDate & " に作業開始" ,vbOkOnly + vbSystemModal,"タスクスケジューラより"
End If
Else
MsgBox "Error: Argument",vbCritical + vbSystemModal,"タスクスケジューラより"
End If
'//
ご指南いただきまして、ありがとうございます。
表示できるようになりました!
あとひとつ教えていただきたいのですが、
ひとつのシートで今日、明日、明後日を表記
(例:今日2/8と明後日2/9の作業をお願いします!)するとした場合、
If Args.Count =0 Then
myDate = Month(Date +1) & "/" & Day(Date +1)
w = WeekdayName(Weekday(Date + 1))
myDate = myDate & "(" & w & ")"
を追加して+1を変えると使えるのでしょうか。
重ね重ね申し訳ないですが、教えていただけないでしょうか。
よろしくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
製造業におけるSV派遣てどうい...
-
一人残業または一人休日出勤っ...
-
照明器具交換 活線作業について
-
ある動作が「ひとまず終わった...
-
合帳(あいちょう)とは言わな...
-
実作業はどんな意味ですか?
-
”おろす”と”する”の差って?
-
VectorWorks の作業画面の取り...
-
土木積算「潮間作業」について
-
鉄粉、粉塵について
-
「作業の指示、ありがとうござ...
-
話好きな近所の方々にいつも話...
-
ロープにぶら下がり作業するには?
-
電動工具のことで質問です。日...
-
建設工事 土日祝 時間 法律
-
特殊土木作業員ってなんですか?
-
製造業 電動ドライバーのコツを...
-
重労働
-
カブの葉は、アク抜き必要です...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
製造業におけるSV派遣てどうい...
-
一人残業または一人休日出勤っ...
-
照明器具交換 活線作業について
-
実作業はどんな意味ですか?
-
作業をしながら数を数え続ける...
-
ある動作が「ひとまず終わった...
-
迷惑コンクリートミキサー
-
「TT」とはどういう意味でしょ...
-
建設工事 土日祝 時間 法律
-
現業職と技能職の違い
-
「作業の指示、ありがとうござ...
-
作業する人を「ボウシン」って
-
鉄粉、粉塵について
-
製造業 電動ドライバーのコツを...
-
承認者が照査を兼ねていたら照...
-
ACCESS2007 レポートデザインビ...
-
特殊土木作業員ってなんですか?
-
溶接するときケータイどうして...
-
VectorWorks の作業画面の取り...
おすすめ情報