Excel VBA質問箱 IV

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

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


37053 / 76732 ←次へ | 前へ→

【44853】Re:一定の間隔でセルに文字を表示するには
回答  Kein  - 06/12/3(日) 23:04 -

引用なし
パスワード
   なにかアニメーションのように、目立つ動きをさせたいのでしょーか ?
それなら例えば・・

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'↑モジュールの先頭に宣言

Sub Test_Msg()
  Dim Msg As String
  Dim Ary As Variant
  Dim Fsz As Integer, i As Integer
   
  If TextBox1.Text = "A" Then
    Msg = "せいかい"
  Else
    Msg = "ちがうよ"
  End If
  MsgBox Msg
  If Msg = "せいかい" Then
    Ary = Array("や", "っ", "た", "ね")
    Fsz = ThisWorkbook.Styles("標準").Font.Size
    For i = 1 To 4
     With Cells(1, i)
       .Value = Ary(i - 1)
       .Font.Bold = True
       .Font.Size = 24
     End With
     Rows(1).AutoFit
     Columns(i).AutoFit
     DoEvents: Sleep 500 '1000で1秒として、任意の長さに調節
    Next i
    With Range("A1:D1")
     .Font.Bold = False
     .Font.Size = Fsz
     .EntireColumn.ColumnWidth = _
     ActiveSheet.StandardWidth
    End With
    Rows(1).RowHeight = _
    ActiveSheet.StandardHeight
  End If
End Sub

0 hits

【44840】一定の間隔でセルに文字を表示するには akira 06/12/3(日) 12:06 質問
【44843】Re:一定の間隔でセルに文字を表示するには りん 06/12/3(日) 13:00 回答
【44898】Re:一定の間隔でセルに文字を表示するには akira 06/12/5(火) 17:48 お礼
【44853】Re:一定の間隔でセルに文字を表示するには Kein 06/12/3(日) 23:04 回答
【44862】Re:一定の間隔でセルに文字を表示するには akira 06/12/4(月) 13:42 お礼
【44864】Re:一定の間隔でセルに文字を表示するには Kein 06/12/4(月) 15:20 発言
【44866】Re:一定の間隔でセルに文字を表示するには akira 06/12/4(月) 16:56 質問
【44869】Re:一定の間隔でセルに文字を表示するには Kein 06/12/4(月) 22:02 発言
【44899】Re:一定の間隔でセルに文字を表示するには akira 06/12/5(火) 17:51 お礼

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