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

¤@Àx¦s®æ ¥ÎIF ¦h§PÂ_¦¡ Åã¥Ü¤£¦P­Èor¤å¦r

¦^´_ 1# webbliu
If [B1] = "§A" Then
        [A1] = "¤þ"
ElseIf [B1] = "§Ú" Then
        [A1] = "¤A"
ElseIf [B1] = "¥L" Then
        [A1] = "¥Ò"
End If

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-4 09:35 ½s¿è

¦^´_ 3# webbliu
³o¬OThisWorkbook IJµo¨Æ¥óµ{¦¡
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
³o¬OWorkSheet IJµo¨Æ¥óµ{¦¡     
Private Sub Worksheet_Change(ByVal Target As Range)
±Nµ{¦¡½X½Æ»s¨ì¨ä¤¤¤§£¸¸Ì­±
§Y¥i ¸Õ¸Õ¬Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD