過去ログ

                                Page     433
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼ScreenUpdatingについて  kawahara 02/12/5(木) 10:21
   ┗Re:ScreenUpdatingについて  こう 02/12/5(木) 13:03
      ┗もう1つ。  Jaka 02/12/5(木) 13:10

 ───────────────────────────────────────
 ■題名 : ScreenUpdatingについて
 ■名前 : kawahara
 ■日付 : 02/12/5(木) 10:21
 -------------------------------------------------------------------------
    はじめて質問させていただきます。ヘルプを使っても上手く読み取ることができません。馬鹿な私の質問をどうか起こらずに聞いてください。

ヘルプには、 Application.ScreenUpdating = False にするのは、
「マクロの速度を向上させるため。画面を更新しないようにするため。Falseにすると、マクロの処理過程は見ることができないが、実行速度が速くなる」との説明でした。

この、「画面を更新しないようにする」というのが分かりません。
Application.ScreenUpdating = True
にした場合、自分でバツボタンをクリックしても、ウィンドウは消されないのですが、それとは意味が違うのでしょうか?画面はどんな手段で、どのように更新できるのか教えてください。お願いいたします。
 ───────────────────────────────────────  ■題名 : Re:ScreenUpdatingについて  ■名前 : こう <kou__@anet.ne.jp>  ■日付 : 02/12/5(木) 13:03  -------------------------------------------------------------------------
   kawahara さん、こんにちわ。

>この、「画面を更新しないようにする」というのが分かりません。
たとえばマクロでの計算結果をsheet上に出力するときに、
cells(10,20)=100などのコードを記述しますが、このコードが実行された
ときに、即sheet上に表示させる/させないの指定です。
ということで、下のコードをそれぞれ実行させてみてください。
Sub test01()
  For i = 1 To 1000
    Cells(i, 1).Select
    Cells(i, 1) = i
  Next i
  MsgBox "終了"
End Sub

Sub test02()
  Application.ScreenUpdating = False
  For i = 1 To 1000
    Cells(i, 1).Select
    Cells(i, 1) = i
  Next i
  Application.ScreenUpdating = True
  MsgBox "終了"
End Sub

ということです。

>Application.ScreenUpdating = True
>にした場合、自分でバツボタンをクリックしても、ウィンドウは消されないのですが、それとは意味が違うのでしょうか?
「ウィンドウが消される」ということではないですね。
 ───────────────────────────────────────  ■題名 : もう1つ。  ■名前 : Jaka  ■日付 : 02/12/5(木) 13:10  -------------------------------------------------------------------------
   こんにちは。

こんな感じに使っている人が多いみたいですので、もう少し考えてください。と言った意味を含めて...。

Sub aji()
  Application.ScreenUpdating = False
  
  OpenFile = Application.GetOpenFilename("Excelファイル (*.txt), *.txt", , "タイトル")
  Application.Wait Now + TimeValue("00:00:05")
  MsgBox "画面更新無し、解除。"
  
  Application.ScreenUpdating = True
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 433