目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

119 / 277

←次へ　｜　前へ→

【171】Re:テロップ

Jaka - 06/12/26(火) 9:45 -


	引用なし

	パスワード

りんさん、マキチャンさん、こんにちわ。
タイプライター方式ですね。
表示の仕方が違うだけで、おっしゃるとおりにやっていることは同じです。
（どちらも目の錯覚？を利用してます。）

りんさんのを勝手に改造

Sub TEST()
　 Dim II As Integer, LL As Integer, AA As String
　 AA = "シート　内容に注意！！" 'メッセージ内容
　 For II = 1 To 5
　　　ActiveSheet.Cells(3, 3).Value = Empty
　　　Sleep 330
　　　For LL = 1 To Len(AA) '文字数
　　　　 ActiveSheet.Cells(3, 3).Value = Left(AA, LL)
　　　　 'この辺に、Beep音の「カシャ」ってのがあれば、面白いと思います。
　　　　 If i <> 4 Then
　　　　　　Sleep 330
　　　　 End If
　　　Next LL
　 Next II
End Sub

おまけ。
プログレスバーも同じですね。
（前にりんさんが同じようなものを書いたかもしんないけど....）

Sub prog()
　Application.DisplayStatusBar = True
　cnt = 20999
　Joz = 1000
　moji = String(Int(cnt \ Joz), "□")
　Application.StatusBar = moji
　For i = 1 To cnt
　　 If i Mod Joz = 0 Then
　　　　Application.Wait Now + TimeValue("00:00:02")
　　　　moji = Application.Substitute(moji, "□", "■", 1)
　　　　Application.StatusBar = moji
　　 End If
　Next
　MsgBox "終了"
　Application.StatusBar = Empty
End Sub

1,255 hits