ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] IF...THEN¤@°Ý

[µo°Ý] IF...THEN¤@°Ý

Private Sub Worksheet_Change(ByVal Target As Range)
'If Cell(D2)¤º¼Æ­È¥X²{§ïÅÜ,Then    <<<½Ð±Ð¤j¤j¡A³o¥yÀ³¦p¦ó¼g¡AÁÂÁÂ!
Call myPrg
End Sub

³o¼Ë¹ï¶Ü?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

    Set rng = Worksheets("Sheet1").[D2]

    If Not Intersect(Target, rng) Is Nothing Then

Call myPrg
End If
End Sub

TOP

¦^´_ 3# GBKEE

ÁÂÁª©¤j«ü¾É!

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD