過去ログ

                                Page     513
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼セルのイベントについて  かず 03/1/6(月) 18:14
   ┗Re:セルのイベントについて  ポンタ 03/1/6(月) 18:17
      ┗Re:セルのイベントについて  かず 03/1/6(月) 18:47
         ┗Re:セルのイベントについて  ポンタ 03/1/6(月) 19:05
            ┗Re:セルのイベントについて  かず 03/1/7(火) 9:44
               ┗Re:セルのイベントについて  ポンタ 03/1/7(火) 17:07
                  ┗Re:セルのイベントについて  かず 03/1/8(水) 11:40

 ───────────────────────────────────────
 ■題名 : セルのイベントについて
 ■名前 : かず <calros_09@yahoo.co.jp>
 ■日付 : 03/1/6(月) 18:14
 -------------------------------------------------------------------------
    イベントで Worksheet_SelectionChange(ByVal Target As Range) は
セル選択の移動全てに対して走りますが、例えば、Range("B1")を選択してもなにもせずRange("A1")のセルが選択されたときのみ、コードを走らせたいのですが
可能なのですか? 基本的に無理なんですかねー。
なにか、いい方法ないですか?
よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : ポンタ  ■日付 : 03/1/6(月) 18:17  -------------------------------------------------------------------------
   こういうことですか?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If ActiveCell.Address = "$A$1" Then
    MsgBox ("ここはA1です")
  End If
End Sub
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : かず <calros_09@yahoo.co.jp>  ■日付 : 03/1/6(月) 18:47  -------------------------------------------------------------------------
   ありがとうございます。

>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>  If ActiveCell.Address = "$A$1" Then
>    MsgBox ("ここはA1です")
>  End If
>End Sub
でも、この場合だと、とりあえずすべてのセルチェンジで動きますよね。
("A1")以外は動かしたくないので、
このイベントの部分でなにかないですか?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
こういう事がやりたいです。↓
Private Sub Worksheet_SelectionChange(ByVal Target As Range("A1"))
わかりにくくてすみません。
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : ポンタ  ■日付 : 03/1/6(月) 19:05  -------------------------------------------------------------------------
   A1でないときは何の処理もしないので、
不都合はないように思います。

もし、不都合があるのなら、
お教えください。m(_ _)m
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : かず <calros_09@yahoo.co.jp>  ■日付 : 03/1/7(火) 9:44  -------------------------------------------------------------------------
   ブック全体で1.5メガぐらいのサイズのものを作りたいので
処理はしなくてもセルチェンジを行うごとにこれが
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
動くので処理速度的に微妙に遅くなるのが心配なのです。
そんなことないですか?
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : ポンタ  ■日付 : 03/1/7(火) 17:07  -------------------------------------------------------------------------
   13.3MBのエクセルファイルに【2579】のコードを貼り付けましたが、
特に遅くなったようには感じませんでした。

とりあえず、コードを書いてみて、
遅くなったら考えるということで
良いのではないでしょうか?
 ───────────────────────────────────────  ■題名 : Re:セルのイベントについて  ■名前 : かず <calros_09@yahoo.co.jp>  ■日付 : 03/1/8(水) 11:40  -------------------------------------------------------------------------
    ポンタさん、お世話になりました。
ありがとうございました。

そうします。
遅くなったらまたなにか考えます。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 513