|
レスありがとうございます。
ももさん、ichinoseさんへのお礼レスを書いている間に、
新しいレスをいただいていたようで、ありがとうございます。
▼Yuki さん:
>Private Sub CommandButton1_Click()
> Application.OnTime [=NOW() + TIMEVALUE("00:00:00.1")], "FormShow"
> UserForm1.Hide
> DoEvents
> Sheet1.CheckBox1.Copy
> Sheet1.Paste Sheet1.Range("C4")
> Application.CutCopyMode = False
> DoEvents
>End Sub
>
>標準モジュールに
>Public Sub FormShow()
> UserForm1.Show 0
>End Sub
>
>とでもすればいいでしょう。
>でもシートがデザインモードになった時点でApplicationが初期化
>されますのでそれを踏まえた上で使用されたほうが宜しいかと思います。
>▼うにボンバー さん:
>
>訂正です。
>
>>Public Sub FormShow()
>> UserForm1.Show 0
> Application.ScreenUpdating = True '<=追加して下さい。
> ' 黒枠のオバケみたいなのが残りますので
>>End Sub
>>
なるほど、ちゃんとした記述をするためには、
このように書くのですね・・・・。
また一つ勉強になりました。
ありがとうございました。
|
|