Excel VBA質問箱 IV

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

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


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

37050 / 76738

←次へ　｜　前へ→


	【44862】Re:一定の間隔でセルに文字を表示するには

akira - 06/12/4(月) 13:42 -


	引用なし

	パスワード

　　Keinさん　ありがとうございます。私のしたいことでした。このコードを標準モジュ　　ールで作成して実行させたらEntireColumnのプロパティーの使い方が不正とでまし　　た。自分なりに調べてみたのですが、わかりませんでした。よろしければ教えて
　　下さい。お礼が遅くなってすみません。
>
>
>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