|
ZARDist さん、おはようございます。
>以下の様にやってみたのですがコンパイルエラー(Meキーワードの使用方法が不正です)になってしまいます。
>Sub auto_open()
> Application.WindowState = xlMinimized
> 'UserForm1_activate ←これは不要です
> UserForm1.Show
>End Sub
↓この部分は標準モジュールではなくて、フォームのモジュールに書いてください。
>Private Sub UserForm1_activate()
> With Me.TextBox1
> .SetFocus 'フォーカス移動
> If .Text <> "" Then
> .SelStart = 0 '何か入ってるときはその文字列を選択しておく
> .SelLength = Len(.Text)
> End If
> End With
>End Sub
すると、
Private Sub UserForm1_activate() ではなくて、
Private Sub UserForm_Activate() となるはずです。
|
|