Excel VBA質問箱 IV

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

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


34823 / 76734 ←次へ | 前へ→

【47115】Re:実行中の表示設定
発言  りん E-MAIL  - 07/3/1(木) 14:29 -

引用なし
パスワード
   sige さん、こんにちわ。

>ありがとうございます。
>下記実行してみたのですが
>やはり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

これでどうですか?
6 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 お礼

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