Ｐａｇｅ 664 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルをクリックして入力させる たっくん 03/2/1(土) 19:24 ┗Re:セルをクリックして入力させる よろずや 03/2/1(土) 21:38 ┗Re:セルをクリックして入力させる たっくん 03/2/2(日) 8:18 ┗Re:セルをクリックして入力させる ポンタ 03/2/3(月) 10:50 ┗Re:セルをクリックして入力させる たっくん 03/2/3(月) 15:25 ┗Re:セルをクリックして入力させる ポンタ 03/2/3(月) 16:04 ┗Re:セルをクリックして入力させる たっくん 03/2/3(月) 18:19 ─────────────────────────────────────── ■題名 ： セルをクリックして入力させる ■名前 ： たっくん <ks1955@mail.goo.ne.jp> ■日付 ： 03/2/1(土) 19:24 -------------------------------------------------------------------------
| みなさん、こんにちは このようなことはできますか？ セルをクリックするごとに項目を表示し、該当するものを選んで入力する。 例えば、セルをクリックするごとにＡ→Ｂ→Ｃ→空白→Ａ→・・・ としていきたいのです。 ＶＢははじめたばかりのもので、よろしくお願いします。 |
| ▼たっくん さん： >みなさん、こんにちは >このようなことはできますか？ >セルをクリックするごとに項目を表示し、該当するものを選んで入力する。 >例えば、セルをクリックするごとにＡ→Ｂ→Ｃ→空白→Ａ→・・・ >としていきたいのです。 >ＶＢははじめたばかりのもので、よろしくお願いします。 セルをクリックすると、そのセルが選択されます。 選択されているセルをクリックしても、何も変わりません。 （イベントも得られません） 代わりに、ダブルクリックとか右クリックなら可能ですが... |
| > >セルをクリックすると、そのセルが選択されます。 >選択されているセルをクリックしても、何も変わりません。 >（イベントも得られません） >代わりに、ダブルクリックとか右クリックなら可能ですが... よろずやさん、ありがとうございます。 ダブルクリックや右クリックでするには、どうすればよいでしょうか |
| A1をダブルクリックすると動きます。 対象のシートモジュールに貼り付けて、 お試しください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address(0, 0) = "A1" Then Select Case Target.Value Case "Ａ" Target.Value = "Ｂ" Case "Ｂ" Target.Value = "Ｃ" Case "Ｃ" Target.Value = "" Case "" Target.Value = "Ａ" End Select Cancel = True End If End Sub |
| ポンタ さん、ありがとうございます。 右クリックでもできました。 もうひとつ質問ですが、Ａ１だけでなく Ａ１からＡ１０の範囲のセルに適用するにはどうしたらいいでしょうか |
| 一例です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Select Case Target.Value Case "Ａ" Target.Value = "Ｂ" Case "Ｂ" Target.Value = "Ｃ" Case "Ｃ" Target.Value = "" Case "" Target.Value = "Ａ" End Select Cancel = True End If End Sub |
| ボンタさん、ありがとうございます。 バッチリです。 |