Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37128 / 76807

←次へ　｜　前へ→


	【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