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

[µo°Ý] Msgbox¥i¤£¥i¥HŪ¨úexcel ®æ¤º¨ç¼Æ

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 And Target.Count = 1 Then
  3.   If Target.Row Mod 2 = 0 Then
  4.     If Left(Target.Value, 2) = "PB" Then MsgBox "§A­nÅã¥Üªº¤º®e", , "¿ù»~´£¥Ü"
  5.   End If
  6. End If
  7. End Sub
½Æ»s¥N½X
¦^´_ 1# coke373

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD