Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9646 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26141】ＫｅｙＤｏｗｎ　イベントについて あき 05/6/24(金) 14:22 質問[未読]
【26143】Re:ＫｅｙＤｏｗｎ　イベントについて つん 05/6/24(金) 14:49 回答[未読]
【26144】Re:ＫｅｙＤｏｗｎ　イベントについて つん 05/6/24(金) 15:08 回答[未読]
【26152】Re:ＫｅｙＤｏｗｎ　イベントについて あき 05/6/24(金) 17:47 お礼[未読]
【26175】Re:ＫｅｙＤｏｗｎ　イベントについて あき 05/6/25(土) 19:22 発言[未読]
【26190】Re:ＫｅｙＤｏｗｎ　イベントについて G-Luck 05/6/26(日) 15:06 発言[未読]
【26195】Re:ＫｅｙＤｏｗｎ　イベントについて あき 05/6/26(日) 17:53 お礼[未読]
【26196】Re:ＫｅｙＤｏｗｎ　イベントについて G-Luck 05/6/26(日) 19:11 発言[未読]
【26217】Re:ＫｅｙＤｏｗｎ　イベントについて あき 05/6/27(月) 19:26 発言[未読]
【26220】Re:ＫｅｙＤｏｗｎ　イベントについて G-Luck 05/6/27(月) 21:58 発言[未読]
【26227】Re:ＫｅｙＤｏｗｎ　イベントについて あき 05/6/28(火) 15:04 発言[未読]
【26141】ＫｅｙＤｏｗｎ　イベントについて
質問  あき  - 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:ＫｅｙＤｏｗｎ　イベントについて
回答  つん 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:ＫｅｙＤｏｗｎ　イベントについて
回答  つん 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:ＫｅｙＤｏｗｎ　イベントについて
お礼  あき  - 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:ＫｅｙＤｏｗｎ　イベントについて
発言  あき  - 05/6/25(土) 19:22 -
引用なし
パスワード
   ▼
>初めに言いました様に、すぐに実行という環境にありませんのでまた結果をご報告
>し、改めてお礼を申し上げたいと思います．また何かありましたらご質問させて下
>さい。

実行してしばらく何かの操作をやってるとまたまたトラブルが起きてしまいました。
ＥＸＣＥＬのタスクバーのマークが全て色が薄くなって、更にセルへの書き込みが一切できなくなりました。原因がわからず（マクロのプログラムには一切関係ないと思いますが）ＥＸＣＥＬのプログラムを一旦全て消去して再びインストールし直しても結果は同じでした。私のパソコンはインターネットにつながっていなくてヘルプサポートも使えません。（これは出先で書いてます）。このサイトで質問するのは甚だ恐縮ですが、他にサイトも知りません。いいところがあったら教えて下さい。後で削除してもらって結構です。全くの初心者ですみません。もう、いやになってしまいました。
【26190】Re:ＫｅｙＤｏｗｎ　イベントについて
発言  G-Luck  - 05/6/26(日) 15:06 -
引用なし
パスワード
   ▼あき さん：
ご苦労様です。

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

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

「インストールしなおしても同じでした」とありますが、Excelのブックを開いた時からそのような状態ですか？
【26195】Re:ＫｅｙＤｏｗｎ　イベントについて
お礼  あき  - 05/6/26(日) 17:53 -
引用なし
パスワード
   ▼G-Luck さん：
>「インストールしなおしても同じでした」とありますが、Excelのブックを開いた時から>そのような状態ですか？

G-luckサン、ご返信ありがとうございます。たぶん、ＶＢＡの質問では無くなるだろうと想い、他のサイトで相談に乗ってもらっているところです。色んな所で質問する事をマルチポストっていうんですね。叱られてしまいました。時間がなくあせっていましたもので．．．ご迷惑おかけしました。
【26196】Re:ＫｅｙＤｏｗｎ　イベントについて
発言  G-Luck  - 05/6/26(日) 19:11 -
引用なし
パスワード
   ▼あき さん：
こちらのサイトでは、マルチポストに対して「マナーを守ればしてもよいのでは？」という立場をとっているようですよ。
詳しくは、ページの上部の管理人さんの考えを読んでください。

それで、前出の問題は解決したと考えてよいのですね？
【26217】Re:ＫｅｙＤｏｗｎ　イベントについて
発言  あき  - 05/6/27(月) 19:26 -
引用なし
パスワード
   ▼G-Luck さん：
>詳しくは、ページの上部の管理人さんの考えを読んでください。
>
>それで、前出の問題は解決したと考えてよいのですね？

G-Luckさん、お心遣いありがとうございます。
結局、ＥＸＣＥＬの復旧には至りませんでした。WINDOWSを再インストールしたらとの提言をいただきました。またＶＢＡのことで質問があればそのときにはどうか宜しくお願いします。
【26220】Re:ＫｅｙＤｏｗｎ　イベントについて
発言  G-Luck  - 05/6/27(月) 21:58 -
引用なし
パスワード
   ▼あき さん：
残念ですね。

どのようなVBAコードを書かれたのですか？
よろしければ、教えて頂けませんか？
【26227】Re:ＫｅｙＤｏｗｎ　イベントについて
発言  あき  - 05/6/28(火) 15:04 -
引用なし
パスワード
   ▼G-Luck さん：

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

このトップの26141のたった数行のものです。（それでマクロには関係無いと思うのですが）
　現象としてはモーグさんの「ＥＸＣＥＬ一般」の『セルに何も書き込めません』に書いています。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9646 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free