過去ログ

                                Page     610
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼指定したセルの命令  ケイコ 03/1/25(土) 17:58
   ┗Re:指定したセルの命令  ハマゾウ 03/1/25(土) 23:11
      ┗Re:指定したセルの命令  ケイコ 03/1/25(土) 23:26

 ───────────────────────────────────────
 ■題名 : 指定したセルの命令
 ■名前 : ケイコ
 ■日付 : 03/1/25(土) 17:58
 -------------------------------------------------------------------------
   はじめまして。
突然ですが、こんなことって出来ますか?
セルの「E1」をクリック時に、VBAのユーザーフォームを
起動させることは、可能でしょうか?
もし、可能でしたらご教授の程、お願い致します。
 ───────────────────────────────────────  ■題名 : Re:指定したセルの命令  ■名前 : ハマゾウ <hama@mb.town.yatsuo.toyama.jp>  ■日付 : 03/1/25(土) 23:11  ■Web : http://www.cty8.com/nsha3921/Home/index.htm  -------------------------------------------------------------------------
   ▼ケイコ さん:
こんばんは

WorksheetのSelectionChangeイベントを使うと可能です。
目的のシートに以下のコードをコピーすればOKです。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row = 1 And Target.Column = 5 Then
    UserForm1.Show
  End If
End Sub
 ───────────────────────────────────────  ■題名 : Re:指定したセルの命令  ■名前 : ケイコ  ■日付 : 03/1/25(土) 23:26  -------------------------------------------------------------------------
   ハマゾウ さんへ
解答のレスを頂きありがとうございました。
Target.Rowが列の番号で、Target.Columnが行の番号
なのですね!
これを変えれば他のセルにも命令出来るということ
が分かりました。
ありがとうございました!
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 610