Excel VBA質問箱 IV

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

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


49149 / 76732 ←次へ | 前へ→

【32505】Re:シートのActive設定
発言  ichinose  - 05/12/16(金) 12:01 -

引用なし
パスワード
   ▼こぼらー さん:
こんにちは。
え〜っと、
こんな事しなくても、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で確認してください。

1 hits

【32480】シートのActive設定 こぼらー 05/12/15(木) 19:40 質問
【32481】Re:シートのActive設定 とおりすがり 05/12/15(木) 20:18 発言
【32487】Re:シートのActive設定 ichinose 05/12/15(木) 23:30 発言
【32500】Re:シートのActive設定 こぼらー 05/12/16(金) 10:12 質問
【32502】Re:シートのActive設定 Statis 05/12/16(金) 10:53 発言
【32519】Re:シートのActive設定 こぼらー 05/12/16(金) 17:28 お礼
【32505】Re:シートのActive設定 ichinose 05/12/16(金) 12:01 発言
【32518】Re:シートのActive設定 こぼらー 05/12/16(金) 17:25 お礼

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