|
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
|
|