目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

118 / 277

←次へ　｜　前へ→

【172】今だったらこんな風にします。

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


	引用なし

	パスワード

上のテロップのコードをここに乗せたのは、今年ですが、書いたのは２、３年前なので、なぜこんな意味不明な計算式が入っているのか解りませんが...。
多分最後の文字が表示しきるまで待てなかったんじゃないかと思います。
>StrConv(Space(Int(Len(st1) \ 2))
今だったら、気が長くなったのか？
こんな風にします。
という事で、今頃ちょっと修正。

>Sub テロップ流れ1_セル版()
>　　Dim st1 As String, SP1 As String, TX1 As String, Flg As Boolean
>　　Dim DefoFntIdx As Long, Defocol As Double, i As Long
>　　Dim MAd　As String
>　　
>　　MAd = "B2"
>　　st1 = "シート内容に注意！！"
>　　SP1 = StrConv(Space(4), vbWide)　'間隔
>　　
>　　'文字を１回1回ループさせようと思ったが、最初に作っておくのが簡単。
>　　For i = 1 To 6
>　　　　TX1 = TX1 & st1 & SP1
>　　Next
>
>　　TX1 = TX1 & StrConv(Space(Int(Len(st1) \ 2)), vbWide)

　　　　↓　こんな感じに....。

　　st1 = "シート内容に注意！！"
　　SPCt = 3　'間隔
　　SP1 = StrConv(Space(SPCt), vbWide)
　　For i = 1 To 6
　　　　TX1 = TX1 & St1 & SP1
　　Next
　　TX1 = TX1 & StrConv(Space(Len(St1) - SPCt), vbWide)

1,313 hits