[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

947(3): 2024/04/15(月)22:33 ID:PE3M1YJ/(1)調 AAS
重複起動させないコードを作成してみた。自己流です。
これで、上手くはいってるようですが、
皆様はどのようにコーディングしてますでしょうか？

Private TTT As String

Sub 四角形角度付き1_Click()
　Dim dt As Long

　'''重複起動チェック
　If TTT = "" Then '初回での起動時(つまりTTT = "") では、重複起動チェックしない。

　Else
　　　dt = Abs(DateDiff("s", Time, TTT))
　　　If dt < 60 Then ''''重複起動チェック　60秒内の起動は断固阻止！！！
　　　　　MsgBox "60sec以内に重複起動∴重複した処理中断！あと" & CStr(60 - dt) & "秒 待ってネ"

　　　　　Exit Sub

　　　End If
　End If

　TTT = Time

　'''本処理
　〜ファイル書込みがある少々重い処理　60秒位かかる〜

End Sub

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.031s