過去ログ

                                Page     633
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼Worksheet_Changeでの範囲指定  hana 03/1/28(火) 22:24
   ┗Re:Worksheet_Changeでの範囲指定  りん 03/1/28(火) 23:36
      ┗できました!  hana 03/1/29(水) 11:37

 ───────────────────────────────────────
 ■題名 : Worksheet_Changeでの範囲指定
 ■名前 : hana
 ■日付 : 03/1/28(火) 22:24
 -------------------------------------------------------------------------
   以前こちらでWorksheet_Changeのマクロを教えて頂きました。
今は範囲がシート全体になっているのですが、やはり決まった表の
中(J8:BP38)で入力が行われた時だけ実行するようにしたいです。
そこからは自分でやってみます、といったもののうまくできません。。
よろしければご指南頂けないでしょうか?
 ───────────────────────────────────────  ■題名 : Re:Worksheet_Changeでの範囲指定  ■名前 : りん <rin_doggie@hotmail.com>  ■日付 : 03/1/28(火) 23:36  -------------------------------------------------------------------------
   hana さん、こんばんわ。

>今は範囲がシート全体になっているのですが、やはり決まった表の
>中(J8:BP38)で入力が行われた時だけ実行するようにしたいです。

Intersectメソッドで、指定された範囲内か否かを判定して分岐してみては?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not Application.Intersect(Target, Range("J8:BP38")) Is Nothing Then
   '範囲内の処理を書く
   MsgBox "中", vbInformation, Target.Address '例
  Else
   '範囲外の処理を書く
   MsgBox "外", vbExclamation, Target.Address '例
  End If
End Sub
 ───────────────────────────────────────  ■題名 : できました!  ■名前 : hana  ■日付 : 03/1/29(水) 11:37  -------------------------------------------------------------------------
   りん様

早速本日会社で試してみましたら、できました!!
聞ける人もおらず苦労しておりましたがこれで仕事が
進みます・・。本当にありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 633