●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えて ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

255:デフォルトの名無しさん
 07/02/14 15:53:03 
教えてください！ 
VBAからマクロの記録を終了させたり開始させたりする事って 
出来るのでしょうか？ 
 
Application.CommandBars("Stop Recording").Visible = True 
strTempBuff = CommandBars("Stop Recording").Controls(1).Caption 
If Not strTempBuff = "新しいマクロの記録(&R)..." Then 
    '記録中なら停止したい。 
    xlApp.Application.CommandBars("Stop Recording").Controls(1).Execute   '同じErr 
    xlApp.Application.CommandBars("Stop Recording").Controls("記録終了(&R)").Execute '同じErr 
End If 
 
上記コードで実行すると、マクロ記録中の場合 
オートメーションエラーが発生してしまいます。 
既にマクロが走っているからでしょうか？

256:デフォルトの名無しさん
 07/02/14 23:16:03 
すみませぬが質問です。フォームにラベルを作り、そのラベルにランダムの行数のセルを表示させ、 
ちょっと時間をおいてその隣のセルを表示させる、というプログラムを作りましたが 
上手いこといきません。アドバイス下さいませ。 
 
Option Explicit 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
'メイン 
Private Sub userform_initialize() 
    Call 表示 
End Sub 
'表示 
Sub 表示() 
'乱数発生 
Randomize 
Dim 行番号 As Long 
Dim 乱数 As Long 
行番号 = Worksheets("sheet1").Range("a65536").End(xlUp).Row 
乱数 = Int(Rnd * 行番号) + 1 
Label1.Caption = Cells(乱数, 1).Value 
Sleep (1000) 
Label1.Caption = Cells(乱数, 2).Value 
End Sub

次ページ