[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)

Excel VBA 質問スレ Part80 http://mevius.5ch.net/test/read.cgi/tech/1685489018/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

947: デフォルトの名無しさん [] 2024/04/15(月) 22:33:58.62 ID:PE3M1YJ/ 重複起動させないコードを作成してみた。自己流です。 これで、上手くはいってるようですが、 皆様はどのようにコーディングしてますでしょうか？ 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 http://mevius.5ch.net/test/read.cgi/tech/1685489018/947

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.039s