□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| ユーザーフォームのイベントについて | |
|---|---|
[196434] ユーザーフォームのイベントについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ くまきち -(2025/01/20(07:09)) □U R L/ 業務改善のため、日々この掲示板で勉強させていただいています。 A B C D E F 1 事務処理 伝票番号 品名 日付 請求額 2 済 123 Ａ 11/20 50､000 3 852 ＣＣ 11/15 25,000 4 済 951 ＭＣ 12/16 77,000 5 済 357 ＦＦ 12/13 12,000 6 963 ＦＱ 11/30 22,000 ※サンプルです Ｂ列に処理が終わったら 済 と入力してありますが、Ｂ列の空白のセルを クリックした時に、ユーザーフォームを .show したいです。 Ｂ3、Ｂ6はユーザーフォームが動きますが、Ｂ2、Ｂ4、Ｂ5 は動きません。 可能であれば、Ａ列に番号が無ければユーザーフォームが動かないようにしたいです。Ｂ7やＢ10を誤って選択しても動かない。 どなたかご指導よろしくお願いします。 | |
[196437] Re[1]: ユーザーフォームのイベントについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/20(16:03)) □U R L/ 既に右クリック・イベントのコードは、出来上がっているんですよね？ それを修正するだけなので、そのコードをアップしてください。 | |
[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のコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196439] Re[3]: ユーザーフォームのイベントについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/01/20(19:14)) □U R L/ おー、SelectionChangeイベントでしたか。 このイベントは、クリックイベントと勘違いしそうですが、似て非なるものです。 矢印キーの移動でも発動してしまいますし、単純エンターキー押下によるセル移動にも反応してしまいます。 何より、同じセルをクリックしても2度目は何も反応してくれません(セルの移動がないため）。 言い方は悪いですが、クリックイベントまがいの役立たずイベントです。 なので、右クリックイベントにしましょうよ。 Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｏｒｋｓｈｅｅｔ＿ＢｅｆｏｒｅＲｉｇｈｔＣｌｉｃｋ（ＢｙＶａｌ Ｔａｒｇｅｔ Ａｓ Ｒａｎｇｅ， Ｃａｎｃｅｌ Ａｓ Ｂｏｏｌｅａｎ） Ｉｆ Ｉｎｔｅｒｓｅｃｔ（Ｔａｒｇｅｔ， Ｃｏｌｕｍｎｓ（2）） Ｉｓ Ｎｏｔｈｉｎｇ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ ＥｌｓｅＩｆ Ｔａｒｇｅｔ．Ｃｏｕｎｔ ＞ １ Ｔｈｅｎ Ｅｘｉｔ Ｓｕｂ ＥｌｓｅＩｆ Ｔａｒｇｅｔ（１， ０） ＜＞ ”” Ａｎｄ Ｔａｒｇｅｔ ＝ ”” Ｔｈｅｎ Ｃａｎｃｅｌ ＝ Ｔｒｕｅ ＵｓｅｒＦｏｒｍ１．Ｓｈｏｗ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ | |
[196440] Re[4]: ユーザーフォームのイベントについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ くまきち -(2025/01/21(06:53)) □U R L/ 半平太さま 御回答ありがとうございます。思い通りに動きました。 まだまだ勉強中ですが、また何かありましたら質問させていただきます。 ありがとうございました。 | |