目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

121 / 277

←次へ　｜　前へ→

【169】Re:テロップ

りん

- 06/12/25(月) 12:53 -


	引用なし

	パスワード

マキチャンさん、こんにちわ。
Jaka さんもこんにちわ。

>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
>
>　Next I
>
>End Sub

似た文が多いので、まとめたらこんな感じかな。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TEST()
　 Dim II As Integer, LL As Integer, AA As String
　 AA = "シート　内容に注意！！" 'メッセージ内容
　 '
　 For II = 1 To 10
　　　For LL = 1 To Len(AA) '文字数
　　　　 ActiveSheet.Cells(3, 3).Value = Left(AA, LL)
　　　　 Sleep 200
　　　Next LL
　 Next II
End Sub

1,217 hits