|
なにかアニメーションのように、目立つ動きをさせたいのでしょーか ?
それなら例えば・・
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
|
|