Excel VBA 質問スレ Part15

8 名前：デフォルトの名無しさん [2010/04/15(木) 12:50:20 ] commandbottunを複数用意し、clickイベントでそれぞれのcaptionを A列の一番下の行の下に表示させたいと思っています (日記で天気を入力するような感じです 晴れ曇り雨ボタンを作成して、それぞれを記入する感じです。 またこの先も追加される可能性があります) こういった複数のボタンの動作をまとめることは可能ですか? それとクリックイベントとダブルクリックイベントもまとめたいのですが、可能でしょうか 連続で押すとダブルクリックとみなされてしまいイベントが発生せず困っています 'この三行をCommandButton2.3以降もまとめたい Private Sub CommandButton1_Click() Call tenki(CommandButton1.Caption) End Sub 'ダブルクリックも同様にまとめたい Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Call tenki(CommandButton1.Caption) End Sub '書き込みルーチンです。 Sub tenki(tenkihensu As String) Dim gyo As Long gyo = Range("A500").End(xlUp).Row + 1 Cells(gyo, 1) = tenkihensu End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef