Excel VBA質問箱 IV

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

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


34819 / 76738 ←次へ | 前へ→

【47123】Re:実行中の表示設定
お礼  sige  - 07/3/1(木) 17:51 -

引用なし
パスワード
   ▼りん さん:
ありがとうございます。
うまくいってしまいました。微妙ですね?
一昨晩から悩んでました
スッキリしました。

>>下記実行してみたのですが
>>やはり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
>
>これでどうですか?

0 hits

【47071】実行中の表示設定 sige 07/2/28(水) 11:58 質問
【47072】Re:実行中の表示設定 へっぽこ 07/2/28(水) 12:08 発言
【47105】Re:実行中の表示設定 sige 07/2/28(水) 22:40 発言
【47107】Re:実行中の表示設定 sige 07/2/28(水) 23:57 発言
【47111】Re:実行中の表示設定 Jaka 07/3/1(木) 9:46 発言
【47114】Re:実行中の表示設定 sige 07/3/1(木) 12:06 発言
【47115】Re:実行中の表示設定 りん 07/3/1(木) 14:29 発言
【47123】Re:実行中の表示設定 sige 07/3/1(木) 17:51 お礼
【47132】Re:実行中の表示設定 りん 07/3/1(木) 20:56 発言
【47122】Re:実行中の表示設定 Kein 07/3/1(木) 17:48 回答
【47124】Re:実行中の表示設定 sige 07/3/1(木) 18:08 発言
【47125】Re:実行中の表示設定 sige 07/3/1(木) 18:11 発言
【47126】Re:実行中の表示設定 Kein 07/3/1(木) 18:16 発言
【47127】Re:実行中の表示設定 sige 07/3/1(木) 18:27 お礼
【47129】Re:実行中の表示設定 Kein 07/3/1(木) 18:55 発言
【47131】Re:実行中の表示設定 sige 07/3/1(木) 19:48 お礼

34819 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free