目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

124 / 277

←次へ　｜　前へ→

【166】Re:テロップ

マキチャン - 06/12/23(土) 22:54 -


	引用なし

	パスワード

▼Jaka さん：　こんにちは
　たまたま、掲示板を見ていて、テロップのような動きをさせる方法がわかり、
　メモさせていただきました。すばらしいです。
　私は、まったくのVBA初心者です。ただ、文字を表示させることくらいはできるので、
　以前、同じようなことを考え、初心者なりに、実現はできました。
　今回、テロップ流れ1_セル版とほぼ、同じ動きが、そのとき考えた
　こんなダサい方法でもできます。
Sub AAA()
　Dim I As Long

For I = 1 To 10

　Sheets("SHEET1").Cells(3, 3) = ("シ")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シー")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容")
　 Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容に")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容に注")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容に注意")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容に注意！")
　　Sleep 200
　Sheets("SHEET1").Cells(3, 3) = ("シート　内容に注意！！")
　　Sleep 200

　Next I

End Sub

この場合、表示セルの、書式にて、横の配置を右づめにしておきます。
すると右から左へ文字が流れていくように見えます。
また、表示セルの左のセルに何か文字を入力しておき、
文字を白くしておけば、あふれた場合に、消えていくように見えます。
何の参考にもなりませんが、達人の方と同じ動きを実現できていたので
少しうれしくて、投稿してしまいました。すみません。
もちろん、今後は、教えていただいた方法で、やっていきたいと思っています。

1,197 hits