Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36773 / 76732 ←次へ | 前へ→

【45135】Re:文字をアニメーションのように
質問  zaki  - 06/12/13(水) 15:50 -

引用なし
パスワード
   ありがとうございます。
下記をそのまま貼り付けたのですが、だめなのでしょうか?
実行するだけではだめなのでしょうか?
初心者ですいません。
Public 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回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
1 hits

【45052】文字をアニメーションのように help 06/12/11(月) 12:25 質問
【45053】Re:文字をアニメーションのように Jaka 06/12/11(月) 12:35 発言
【45057】Re:文字をアニメーションのように help 06/12/11(月) 13:17 質問
【45058】Re:文字をアニメーションのように Jaka 06/12/11(月) 13:21 回答
【45059】Re:文字をアニメーションのように help 06/12/11(月) 13:34 お礼
【45075】Re:文字をアニメーションのように help 06/12/12(火) 11:32 質問
【45080】Re:文字をアニメーションのように Jaka 06/12/12(火) 12:22 発言
【45082】Re:文字をアニメーションのように help 06/12/12(火) 12:56 お礼
【45120】Re:文字をアニメーションのように zaki 06/12/13(水) 12:46 質問
【45122】Re:文字をアニメーションのように Jaka 06/12/13(水) 13:17 発言
【45123】Re:文字をアニメーションのように help 06/12/13(水) 13:17 発言
【45135】Re:文字をアニメーションのように zaki 06/12/13(水) 15:50 質問
【45137】Re:文字をアニメーションのように help 06/12/13(水) 16:14 発言
【45140】Re:文字をアニメーションのように Jaka 06/12/13(水) 16:22 発言
【45155】Re:文字をアニメーションのように zaki 06/12/13(水) 20:53 お礼
【45276】Re:文字をアニメーションのように 初心者 06/12/17(日) 22:11 質問
【45287】Re:文字をアニメーションのように Jaka 06/12/18(月) 10:46 発言
【45319】Re:文字をアニメーションのように Jaka 06/12/19(火) 9:17 発言

36773 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free