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

[µo°Ý] »ù®æ§R°£±i¼Æ¦Û°Ê§R°£

[µo°Ý] »ù®æ§R°£±i¼Æ¦Û°Ê§R°£

½Ð±Ð¦U¦ì¤j¤j
a1¬O»ù®æ
a2¬O±i¼Æ
¨â­ÓÀx¦s®æªº¼Æ¦r³£¬O­n¥Î¤â°Ê¿é¤J
½Ð°Ý¦³¿ìªk³]­p¦¨
a1¦pªG§R°£¤F
a2·|¦Û°Ê§R°£¶Ü¡H
ÁÂÁÂ

¦^´_  coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.A ...
samwang µoªí©ó 2021-11-22 09:51


ÁÂÁ¤j¤j
½Ð°Ý¤j¤j
¦]¬°§Ú¦³¦n´X­Ó¤u§@ªí
µM«á¨C¤@­Ó³£¦n´X¦C
¨º³o¼Ë­n«ç¼g©O
ÁÂÁÂ

TOP

¦]¬°§Ú¦³¦n´X­Ó¤u§@ªí >> ¥i¥H±Nµ{¦¡½X©ñ¦bThisWorkbook
µM«á¨C¤@­Ó³£¦n´X¦C >> ¤£¤ÓÁA¸Ñ·N«ä¡A¥i¥HªþÀÉ ...
samwang µoªí©ó 2021-11-22 10:28


´N¬O³o­Ó¸ê®Æ¤£¥u¦³¤@¦æ
¦Ó¬O¦³¦n´X¦Ê¦æ¥H¤W
¤ñ¤è
ÁÂÁ¤j¤j
123..png
2021-11-22 10:51

TOP

¦^´_  coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targe ...
samwang µoªí©ó 2021-11-22 11:26


½Ð°Ý¤j¤j~§Ú¦³10­Ó¤u§@ªí
¥u¦³1~6»Ý­n³o­Ó¥\¯à
½Ð°Ý­n«ç§ï©O¡H
ÁÂÁ¤j¤j

TOP

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If ...
samwang µoªí©ó 2021-11-22 13:00


ÁÂÁ¤j¤j¡A¥i¥H¤F:D
½Ð°Ý¤j¤j¡A©Ò¥H¥u¦³1~6¦WºÙªº¤u§@ªí¤~·|¦³®ÄªG¨ä¥L¦WºÙ¤u§@ªí¤£·|µo¥Í®ÄªG¶Ü¡H
ÁÂÁ¤j¤j

TOP

¦^´_ 10# samwang

ÁÂÁ¤j¤j
¨º½Ð°Ý¤j¤j¡A¦]¬°§Ú1~6¦WºÙ¬O±q²Ä¤G­Ó¤u§@ªí¶}©l
©Ò¥H¹ê»Ú¤W¦ì¸m¬O2~7
If .Worksheet.Index > 6 Then Exit Sub
¨º³o¦æ­n«ç»ò§ï©O¡H
¤S¦A½Ð±Ð
¦pªG°£¤F²Ä¤@­Ó¦ì¸m¡A¤ñ¤è27©M41³o¨â­ÓÄæ¦ì¤]­n³o­Ó¥\¯à­n«ç»ò¼g©O¡H
«D±`·PÁ¤j¤j

TOP

¦^´_ 12# samwang

³ø§i¤j¤j¡A§Ú§ï¦¨³o¼Ë¡A¨ä¥L¤T­ÓÄæ¦ì³£¥i¥H¥Î¤F
¦³¤j¤j¯u¦n
¦^ÂЧֳt¤S¯à¸Ñ¨M°ÝÃD
¦A¦¸·P®¦¤j¤jªº¹©¤O¨ó§U:loveliness:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If .Worksheet.Index = 1 Then Exit Sub
    If .Worksheet.Index > 7 Then Exit Sub
    If .Column = 41 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
    If .Column = 27 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
    If .Column = 1 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
End With
End Sub

TOP

¦^´_  coafort

¨º½Ð°Ý¤j¤j¡A¦]¬°§Ú1~6¦WºÙ¬O±q²Ä¤G­Ó¤u§@ªí¶}©l
©Ò¥H¹ê»Ú¤W¦ì¸m¬O2~7
If .Workshee ...
samwang µoªí©ó 2021-11-22 14:32


½Ð°Ý¤j¤j
¦pªGP3¨ìP24§R°£¡AQ3¨ìQ24¤]·|§R°£ªº¸Ü
­n«ç»ò¼g©O¡H
ÁÂÁ¤j¤j

TOP

¦^´_  coafort

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´·N«ä¡A½Ð±z´£¨ÑªþÀÉ¥B»¡©ú¤@¤U±ø¥ó³W«h¡AÁÂÁÂ
samwang µoªí©ó 2022-1-26 16:51


Image 001.png
2022-1-27 08:35


³ø§i¤j¤j¡A¦p¹Ï¡AP³o¤@Äæ±qp3¨ìP25
p3¼Æ­È§R°£Q3´N·|¦Û°Ê§R°£
¨Ì¦¹Ãþ±À
ÁÂÁ¤j¤j

TOP

¦^´_  coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targ ...
samwang µoªí©ó 2022-1-27 09:42


³ø§i¤j¤j
§Ú¥u»Ý­np3¨ìP25³o´X¦C
P26¥H¤Uªº§Æ±æ¤£¼vÅT
¤£ª¾¹D³o­n«ç»ò§ï©O
ÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD