Excel VBA質問箱 IV

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

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


48058 / 76732 ←次へ | 前へ→

【33612】Re:シートを選択したか、判断する
回答  awu  - 06/1/16(月) 17:27 -

引用なし
パスワード
   シート名のチェックは必要なく、とにかくシートを変更したかどうかですか。

下記コードは、10秒間、アクティブシートを変更したかどうかをチェックします。

目的が良く分りませんが、こんな感じでいいのかな?


Sub test()
Dim ShName As String
Dim Limit As Date
ShName = ActiveSheet.Name
MsgBox "シートを選択してください"
Limit = Now + TimeValue("00:00:10")
Do While ShName = ActiveSheet.Name
  DoEvents
  If Now > Limit Then Exit Do
Loop
If ShName <> ActiveSheet.Name Then
  MsgBox "シートが変更されました。"
Else
  MsgBox "シートが変更されていません。"
End If
End Sub
0 hits

【33605】シートを選択したか、判断する ch 06/1/16(月) 16:04 質問
【33608】Re:シートを選択したか、判断する inoue 06/1/16(月) 16:47 発言
【33609】Re:シートを選択したか、判断する Jaka 06/1/16(月) 17:05 発言
【33612】Re:シートを選択したか、判断する awu 06/1/16(月) 17:27 回答
【33619】Re:シートを選択したか、判断する やっちん 06/1/16(月) 20:58 発言

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