µ{¦¡¦ó³B¼g¿ù©O

sillykin

½Ð°Ý¦Ñ®v,¦b
M2¿é¤J1,(N2=0,O2=0,P2=0
N2¿é¤J1,(M2=0,O2=0,P2=0
O2¿é¤J1,(M2=0,N2=0,P2=0
P2¿é¤J1,(M2=0,N2=0,O2=0
¤£ª¾¤U¤èµ{¦¡¦ó³B¼g¿ù©O??
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Range("M" & i) = 1 Then
Range("M" & i) = 1
Range("N" & i) = 0
Range("O" & i) = 0
Range("P" & i) = 0
ElseIf Range("N" & i) = 1 Then
Range("M" & i) = 0
Range("O" & i) = 0
Range("P" & i) = 0

ElseIf Range("O" & i) = 1 Then
Range("M" & i) = 0
Range("N" & i) = 0
Range("P" & i) = 0

ElseIf Range("P" & i) = 1 Then
Range("M" & i) = 0
Range("N" & i) = 0
Range("O" & i) = 0
End If
Next
End Sub

sillykin

¦^´_ 2# lpk187


     §Ú¤ñ¸û¦n©_ªº¨Æ¬O¬°¤°»ò³oµ{¦¡­n¥Î¤u§@ªí¨Æ¥ó¨Ó°µ¡H
Private Sub Worksheet_SelectionChange(ByVal Target As Range)¬O¤u§@ªí¨Æ¥ó¡A·N«ä¬O·íÀx¦s®æ¿ï¨ú®É©Òµo¥Íªº¨Æ¥ó
¦ý¸Ì­±ªº¤º®e¡A­ì«h­n§â©Ò¦³ªºÀx¦s®æ·í«ö¶s¨Ï¥Î¡A¦n¤ñ¬Ocheckbox«¬ºA¡C¡C
¦ý¦Û¤v©Ò¼gªº¤èªk¡A¦n¹³¦³ÂI¿ù¡A¤£ª¾¨º¦ì¤j¤j¯à§_À°¦£¨ó§U¡C

sillykin

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁ¤j¤jªº¦^ÂФΫü¾É..·P®¦