| |
▼こぼらー さん：
こんにちは。
え〜っと、
こんな事しなくても、Deactivateイベントだけで可能でした。
新規ブックのシートSheet1のモジュールに
'========================================================
Private Sub Worksheet_Deactivate()
Dim retcode As Long
Dim nsht As Worksheet
Set nsht = ActiveSheet
Application.EnableEvents = False
Me.Activate
retcoide = 0
For idx = 1 To 3
If Cells(idx, 1).Value <> idx Then
retcode = 1
MsgBox "入力が未完です"
Exit For
End If
Next
If retcode = 0 Then nsht.Activate
Application.EnableEvents = True
End Sub
>
因みに
>
>1.
>ThisWorkBookの
>>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
>については
>「全てのワークシートについてシートがアクティブになったとき」
>という考えでよいのでしょうか？
当該ブックのワークシートについてシートがアクティブになったとき
ですね
>2.
>> Application.EnableEvents = False
>のコードの意味がわかりません。すみません。
これは、イベントの2重発生を防ぐためです。
詳細はHelpで確認してください。
|
|
ichinose
- 05/12/16(金) 12:01 -
