µ{¦¡¦ó³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

lpk187

¦^´_ 1# sillykin


   §Ú¤ñ¸û¦n©_ªº¨Æ¬O¬°¤°»ò³oµ{¦¡­n¥Î¤u§@ªí¨Æ¥ó¨Ó°µ¡H
Private Sub Worksheet_SelectionChange(ByVal Target As Range)¬O¤u§@ªí¨Æ¥ó¡A·N«ä¬O·íÀx¦s®æ¿ï¨ú®É©Òµo¥Íªº¨Æ¥ó
¦ý¸Ì­±ªº¤º®e¡A¶â¡I¦n¹³©M¦¹¨Æ¥óµLÃö¡A©ÎªÌÀ³¸Ó»¡¡A§A­n§â©Ò¦³ªºÀx¦s®æ·í«ö¶s¨Ï¥Î¡H

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

­ã´£³¡ªL

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim N, M
   
3. With Target
   
4. ¡@¡@If .Column >= [M1].Column And .Column <= [P1].Column And .Row > 1 Then
   
5. ¡@¡@¡@¡@Application.EnableEvents = False
   
6. ¡@¡@¡@¡@N = .Value
   
7. ¡@¡@¡@¡@If N <> "" Then M = 0
   
8. ¡@¡@¡@¡@[M1:P1].Offset(.Row - 1, 0) = M
   
9. ¡@¡@¡@¡@.Value = N
   
10. ¡@¡@¡@¡@Application.EnableEvents = True
    
11. ¡@¡@End If
    
12. End With
    
13. End Sub

½Æ»s¥N½X

sillykin

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

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