Excel VBA質問箱 IV

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

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


7795 / 13645 ツリー ←次へ | 前へ→

【36829】DebugPrintについて Mik 06/4/14(金) 19:09 質問[未読]
【36831】Re:DebugPrintについて Kein 06/4/14(金) 20:24 発言[未読]
【36834】Re:DebugPrintについて Mik 06/4/14(金) 21:33 お礼[未読]
【36835】Re:DebugPrintについて Kein 06/4/14(金) 21:42 発言[未読]
【36839】Re:DebugPrintについて Mik 06/4/14(金) 22:09 お礼[未読]

【36829】DebugPrintについて
質問  Mik  - 06/4/14(金) 19:09 -

引用なし
パスワード
   DebugPrintを使いイミディエイトにその処理が表示されますが、
この用途の有効性が分かりません。
何か具体的に有効な使用方法がありましたら、ご紹介いただきたく
お願いします。
ヘルプのサンプルを見て、イミディエイトウィンドウにて確認はできますが
Debugの意味合いなど教えていただけませんでしょうか。

Dim Number
Number = Range("C6").Value   
Select Case Number        
Case 1 To 5            
  Debug.Print "1 から 5 の間"
Case 6, 7, 8            
  Debug.Print "6 から 8 の間"  
Case 9 To 10 And Number < 11    
Debug.Print "9 または 10"
Case Else              
  Debug.Print "1 から 10 以外の数値"  
End Select

【36831】Re:DebugPrintについて
発言  Kein  - 06/4/14(金) 20:24 -

引用なし
パスワード
   変数の値を確認するときなど、短い値であれば MsgBox でもいいですが、
長い値になると表示しきれなくなります。あと当然ですが、処理を中断
させてしまうのが嫌なら、MsgBoxは使いたくないですよね。変数の値の
チェックなら他に、ウォッチウィンドウを使うなどもありますが、まぁ
そのへんは好みでしょう。私はイミディエイトウィンドウの方をよく使います。
予め調べたいところへ Debug.Print というコードを入れておくやり方が、
MsgBox との使い分けで対照的だから。
ちなみに、Debug.Print を使ったマクロの最後に

  With Application.VBE.MainWindow
   .Visible = True
   .SetFocus
  End With
  SendKeys "^(g)", True
End Sub

などとしておけば便利かと思います。

【36834】Re:DebugPrintについて
お礼  Mik  - 06/4/14(金) 21:33 -

引用なし
パスワード
   ▼Kein さん:

大変よく理解できました。ありがとうございます。
変数の確認、そして処理を中断させないで確認できるという事ですね。

また、Debug.Print を使ったマクロの最後に添付させる
コードはVBAのコードウィンドを自動的に開いて確認できる
ということですね。
本当に便利だと痛感しました。色々とご指導ありがとうございます。

一つ質問をさせていただきたいのですが
コードの最後の
SendKeys "^(g)", True はどのような役割をしているのでしょうか。

本当にありがとうございました。

【36835】Re:DebugPrintについて
発言  Kein  - 06/4/14(金) 21:42 -

引用なし
パスワード
   >SendKeys "^(g)", True はどのような役割
イミディエイトウィンドウを開くショートカットキーが [Ctrl]+G ですから、
それをVBEのActiveWindowに送っているわけです。

【36839】Re:DebugPrintについて
お礼  Mik  - 06/4/14(金) 22:09 -

引用なし
パスワード
   ▼Kein さん:

よく分かりました。
大変ご親切に教えていただき感謝しています。
今後ともよろしくお願いいたします。

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