Excel VBA質問箱 IV

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

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


9646 / 13644 ツリー ←次へ | 前へ→

【26141】KeyDown イベントについて あき 05/6/24(金) 14:22 質問[未読]
【26143】Re:KeyDown イベントについて つん 05/6/24(金) 14:49 回答[未読]
【26144】Re:KeyDown イベントについて つん 05/6/24(金) 15:08 回答[未読]
【26152】Re:KeyDown イベントについて あき 05/6/24(金) 17:47 お礼[未読]
【26175】Re:KeyDown イベントについて あき 05/6/25(土) 19:22 発言[未読]
【26190】Re:KeyDown イベントについて G-Luck 05/6/26(日) 15:06 発言[未読]
【26195】Re:KeyDown イベントについて あき 05/6/26(日) 17:53 お礼[未読]
【26196】Re:KeyDown イベントについて G-Luck 05/6/26(日) 19:11 発言[未読]
【26217】Re:KeyDown イベントについて あき 05/6/27(月) 19:26 発言[未読]
【26220】Re:KeyDown イベントについて G-Luck 05/6/27(月) 21:58 発言[未読]
【26227】Re:KeyDown イベントについて あき 05/6/28(火) 15:04 発言[未読]

【26141】KeyDown イベントについて
質問  あき  - 05/6/24(金) 14:22 -

引用なし
パスワード
   以前質問した内容がまだ解決しません.質問してすぐ実行という環境にないもので...とびとびになってすみません。
 UserformにTextboxを貼り付け、その中に書き込んだ登録番号とシート上の番号で一致するものを検索するようにしたいのですが、以前KeyDownイベントがあると教わったのでその動作の確認として下記のようなコードを書いたら無限ループに陥ってしまいました。 根本的な内容がわかってないのかもしれませんが宜しくお願いします.

Private Sub 登録番号_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,ByVal_
                             Shift As Integer)
 Do Until KeyCode <> 13
   beep
 Loop  
ENTERキーを叩いたら次の処理に移るようにしたいのですが...

【26143】Re:KeyDown イベントについて
回答  つん E-MAIL  - 05/6/24(金) 14:49 -

引用なし
パスワード
   こんにちは。

> UserformにTextboxを貼り付け、その中に書き込んだ登録番号とシート上の番号で一致するものを検索するようにしたいのですが、以前KeyDownイベントがあると教わったのでその動作の確認として下記のようなコードを書いたら無限ループに陥ってしまいました。 根本的な内容がわかってないのかもしれませんが宜しくお願いします.
>
>Private Sub 登録番号_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,ByVal_
>                             Shift As Integer)
> Do Until KeyCode <> 13
>   beep
> Loop  
> ENTERキーを叩いたら次の処理に移るようにしたいのですが...

固まってしまいましたね(^^;
Enterを押したら次の処理へ・・・なら

  If KeyCode = 13 Then
    MsgBox "ここで処理"
  Else
    Beep
    Exit Sub
  End If

これでどうでしょう?

【26144】Re:KeyDown イベントについて
回答  つん E-MAIL  - 05/6/24(金) 15:08 -

引用なし
パスワード
   >  If KeyCode = 13 Then
>    MsgBox "ここで処理"
>  Else
>    Beep
>    Exit Sub
>  End If
>
あー、えっと、これじゃ、「↓」とか押すと、
フォーカスが次へ移っちゃうんで、


'==============================================
Private Flag As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Flag = True Then
    Cancel = True
  End If

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  If KeyCode = 13 Then
    MsgBox "ここで処理"
    Flag = False
  Else
    Beep
    Flag = True
    Exit Sub
  End If

End Sub

って、したらいいかなあ?
どうでしょう?

【26152】Re:KeyDown イベントについて
お礼  あき  - 05/6/24(金) 17:47 -

引用なし
パスワード
   ▼つん さん:
>>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
>>  If Flag = True Then
>>    Cancel = True
>>  End If
>
>>End Sub
>
>>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, >>ByVal Shift As Integer)
>
>>  If KeyCode = 13 Then
>>    MsgBox "ここで処理"
>>    Flag = False
>>  Else
>>    Beep
>>    Flag = True
>>    Exit Sub
>  End If
>
>>End Sub
>
>>って、したらいいかなあ?
>>どうでしょう?

つんさん、本当に有難うございます.今、ノートにコードを書きとめたところです。
初めに言いました様に、すぐに実行という環境にありませんのでまた結果をご報告し、改めてお礼を申し上げたいと思います.また何かありましたらご質問させて下さい。

【26175】Re:KeyDown イベントについて
発言  あき  - 05/6/25(土) 19:22 -

引用なし
パスワード
  
>初めに言いました様に、すぐに実行という環境にありませんのでまた結果をご報告
>し、改めてお礼を申し上げたいと思います.また何かありましたらご質問させて下
>さい。

実行してしばらく何かの操作をやってるとまたまたトラブルが起きてしまいました。
EXCELのタスクバーのマークが全て色が薄くなって、更にセルへの書き込みが一切できなくなりました。原因がわからず(マクロのプログラムには一切関係ないと思いますが)EXCELのプログラムを一旦全て消去して再びインストールし直しても結果は同じでした。私のパソコンはインターネットにつながっていなくてヘルプサポートも使えません。(これは出先で書いてます)。このサイトで質問するのは甚だ恐縮ですが、他にサイトも知りません。いいところがあったら教えて下さい。後で削除してもらって結構です。全くの初心者ですみません。もう、いやになってしまいました。

【26190】Re:KeyDown イベントについて
発言  G-Luck  - 05/6/26(日) 15:06 -

引用なし
パスワード
   ▼あき さん:
ご苦労様です。

原因の究明が第一ですね。
まず、前出の問題は解決しましたか?
そのコードを入力してからの不具合ですか?

ツールバーが、薄くなったということですが、その状態は、セルに文字を入力している状態と同じでしょうか?

「インストールしなおしても同じでした」とありますが、Excelのブックを開いた時からそのような状態ですか?

【26195】Re:KeyDown イベントについて
お礼  あき  - 05/6/26(日) 17:53 -

引用なし
パスワード
   ▼G-Luck さん:
>「インストールしなおしても同じでした」とありますが、Excelのブックを開いた時から>そのような状態ですか?

G-luckサン、ご返信ありがとうございます。たぶん、VBAの質問では無くなるだろうと想い、他のサイトで相談に乗ってもらっているところです。色んな所で質問する事をマルチポストっていうんですね。叱られてしまいました。時間がなくあせっていましたもので...ご迷惑おかけしました。

【26196】Re:KeyDown イベントについて
発言  G-Luck  - 05/6/26(日) 19:11 -

引用なし
パスワード
   ▼あき さん:
こちらのサイトでは、マルチポストに対して「マナーを守ればしてもよいのでは?」という立場をとっているようですよ。
詳しくは、ページの上部の管理人さんの考えを読んでください。

それで、前出の問題は解決したと考えてよいのですね?

【26217】Re:KeyDown イベントについて
発言  あき  - 05/6/27(月) 19:26 -

引用なし
パスワード
   ▼G-Luck さん:
>詳しくは、ページの上部の管理人さんの考えを読んでください。
>
>それで、前出の問題は解決したと考えてよいのですね?

G-Luckさん、お心遣いありがとうございます。
結局、EXCELの復旧には至りませんでした。WINDOWSを再インストールしたらとの提言をいただきました。またVBAのことで質問があればそのときにはどうか宜しくお願いします。

【26220】Re:KeyDown イベントについて
発言  G-Luck  - 05/6/27(月) 21:58 -

引用なし
パスワード
   ▼あき さん:
残念ですね。

どのようなVBAコードを書かれたのですか?
よろしければ、教えて頂けませんか?

【26227】Re:KeyDown イベントについて
発言  あき  - 05/6/28(火) 15:04 -

引用なし
パスワード
   ▼G-Luck さん:

>どのようなVBAコードを書かれたのですか?

このトップの26141のたった数行のものです。(それでマクロには関係無いと思うのですが)
 現象としてはモーグさんの「EXCEL一般」の『セルに何も書き込めません』に書いています。

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