|
▼りん さん:
ありがとうございます。
うまくいってしまいました。微妙ですね?
一昨晩から悩んでました
スッキリしました。
>>下記実行してみたのですが
>>やはり2回クリツクしないとダメでした
>
>クリックしたら「作動中」で、処理が終わったら「文字見易く」ですよね?
>Private Sub CommandButton1_Click()
> '最初に入れる
> CommandButton1.Caption = "作動中"
> DoEvents
> '
> Dim i As Long, k As Long
> Dim mySource As Worksheet
> Dim myRange As Range, c As Range
> Dim s1 As String
> Dim s2 As String
>
> <<<<中略>>>>
> Application.ScreenUpdating = True
> Call 保護8
> '最後に入れる
> CommandButton1.Caption = "文字見易く"
> DoEvents '念のため
>End Sub
>
>これでどうですか?
|
|