□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[4]: ユーザーフォームのイベントについて | |
|---|---|
[196440] Re[4]: ユーザーフォームのイベントについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ くまきち -(2025/01/21(06:53)) □U R L/ 半平太さま 御回答ありがとうございます。思い通りに動きました。 まだまだ勉強中ですが、また何かありましたら質問させていただきます。 ありがとうございました。 | |
[196439] Re[3]: ユーザーフォームのイベントについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/20(19:14)) □U R L/ おー、SelectionChangeイベントでしたか。 このイベントは、クリックイベントと勘違いしそうですが、似て非なるものです。 矢印キーの移動でも発動してしまいますし、単純エンターキー押下によるセル移動にも反応してしまいます。 何より、同じセルをクリックしても2度目は何も反応してくれません(セルの移動がないため）。 言い方は悪いですが、クリックイベントまがいの役立たずイベントです。 なので、右クリックイベントにしましょうよ。 Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｏｒｋｓｈｅｅｔ＿ＢｅｆｏｒｅＲｉｇｈｔＣｌｉｃｋ（ＢｙＶａｌ Ｔａｒｇｅｔ Ａｓ Ｒａｎｇｅ， Ｃａｎｃｅｌ Ａｓ Ｂｏｏｌｅａｎ） Ｉｆ Ｉｎｔｅｒｓｅｃｔ（Ｔａｒｇｅｔ， Ｃｏｌｕｍｎｓ（2）） Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ ＥｌｓｅＩｆ Ｔａｒｇｅｔ．Ｃｏｕｎｔ ＞ １ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ ＥｌｓｅＩｆ Ｔａｒｇｅｔ（１， ０） ＜＞ ”” Ａｎｄ Ｔａｒｇｅｔ ＝ ”” Ｔｈｅｎ Ｃａｎｃｅｌ ＝ Ｔｒｕｅ ＵｓｅｒＦｏｒｍ１．Ｓｈｏｗ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ | |
[196438] Re[2]: ユーザーフォームのイベントについて- ■記事引用/メール受信=OFF■ □投稿者/ くまきち -(2025/01/20(17:23)) □U R L/ 半平太さま 御回答ありがとうございます。 今のコードですが、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Show End Sub としています。 勉強中で申し訳ございませんが、よろしくご指導お願いします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196437] Re[1]: ユーザーフォームのイベントについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/20(16:03)) □U R L/ 既に右クリック・イベントのコードは、出来上がっているんですよね？ それを修正するだけなので、そのコードをアップしてください。 | |
[196434] ユーザーフォームのイベントについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ くまきち -(2025/01/20(07:09)) □U R L/ 業務改善のため、日々この掲示板で勉強させていただいています。 A | |