| |
▼zaki さん：こんにちは
>
>
>
>
> Declare Sub Sleep Lib"kernel32"(ByVal dwMilliseconds As Long)
>
>***********************************************************
>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)
> With Range(MAd)
> .Value = ""
> If .Column > 1 Then
> If .Offset(, -1).Formula = "" Then
> .Offset(, -1).Value = Space(1)
> Flg = True
> End If
> End If
> DefoFntIdx = .Font.ColorIndex
> Defocol = .ColumnWidth
> With .Font
> .ColorIndex = 2
> .Name = "HG正楷書体-PRO"
> '.FontStyle = "ﾒﾃﾞｨｳﾑ 太字 斜体" 'PCによって無い。2002
> .Size = 20
> .Bold = True
> .Italic = True
> End With
> .HorizontalAlignment = xlRight
> .Value = StrConv(Right(st1, Len(st1) - 4), vbWide)
> .Columns.AutoFit
> FitCol = .ColumnWidth
> .ColumnWidth = FitCol
> .Value = ""
> .Font.ColorIndex = 3
>
> For i = 1 To Len(TX1)
> .Value = .Value & Mid(TX1, i, 1)
> Sleep 200
> Next
>
> .ColumnWidth = Defocol
> .Font.ColorIndex = DefoFntIdx
> .ClearContents
> If Flg Then
> .Offset(, -1).ClearContents
> End If
> End With
>End Sub
私も初心者です。このコードを標準モジュールに記述して
シートに配置したコマンドボタンのクリックで動くように
私はしました。このまま素直に記述すれば動くと思いますよ。
|
|
help
- 06/12/13(水) 16:14 -
