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

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

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

½Ð°Ý¦Ñ®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

¦^´_ 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

TOP

¦^´_ 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

TOP

  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

TOP

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

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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD