Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59042 / 76732

←次へ　｜　前へ→


	【22404】Re:セルの編集状態の解除

Jaka - 05/2/18(金) 12:49 -


	引用なし

	パスワード

>>コード内で、セルの編集状態の解除は出来ないのでしょうか？
>出来ないと言うより、マクロが動かへんし。
たわけた事を抜かしてました。Doeventsだと動くんですね。
ダミーの図形作って、それをアクティブにすると外れるみたいです。
でも、セル編集中のままだと、セル内容は取得できないみたいですね！
この辺うまく組み合わせて、

Sub test()
　　Dim sngStart As Single
　　Dim sngTime As Single
　
　　sngTime = 5
　　Range("a1").Value = ""
　　sngStart = Timer
　　Do While Timer < sngStart + sngTime
　　　 DoEvents
　　　 If Range("a1").Value <> "" Then
　　　　　　Exit Do
　　　　End If
　　　　DoEvents
　　Loop
　　Application.ScreenUpdating = False
　　ActiveSheet.Shapes("Oval 4").Select　'←ダミーの図形
　　Range("a1").Activate
　　If Range("a1").Value <> "" Then
　　　　MsgBox "入力されました"
　　Else
　　　　MsgBox "時間切れです"
　　End If
　　Range("a2").Value = "おわり"
　　Application.ScreenUpdating = True
End Sub

1 hits

▼

【22401】セルの編集状態の解除 つん 05/2/18(金) 11:14