°Ï°ì¤ºÅã¥Ü¿é¤Jȶñº¡ÃC¦â¤§°ÝÃD
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2022-7-26
|
¦^´_ 1# s7659109
³o¼Ë¦³²Å¦X§Aªº»Ý¨D¶Ü¡H- Sub check_it()
- Sheets("¤u§@ªí1").Range("B2:x18").Interior.ColorIndex = 0
- Sheets("¤u§@ªí1").Range("g21:l21").Clear
- For i = 7 To 12
- For Each mrng In Sheets("¤u§@ªí1").Range("B2:x18")
- If mrng.Value = Cells(20, i) Then
- mrng.Interior.ColorIndex = 6
- Cells(20, i).Offset(1, 0) = Cells(20, i).Offset(1, 0).Value + 1
- End If
- Next
- Next
- End Sub
- Sub check_it2()
- Sheets("¤u§@ªí1").Range("B2:x18").Interior.ColorIndex = 0
- Sheets("¤u§@ªí1").Range("G23:L23").Clear
- RngA = Left([c22], Application.Find("-", [c22]) - 1)
- RngB = Right([c22], Len([c22]) - (Application.Find("-", [c22])))
- For x = 7 To 12
- For Each mrng In Sheets("¤u§@ªí1").Range("B" & RngA & ":x" & RngB)
- If mrng.Value = Cells(22, x) Then
- mrng.Interior.ColorIndex = 6
- Cells(22, x).Offset(1, 0) = Cells(22, x).Offset(1, 0).Value + 1
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2022-7-26
|
¦^´_ 6# s7659109
³o¼Ë¤l©O¡H- Sub check_it()
- Range("B2:x18").Interior.ColorIndex = 0
- Range("G21:L21").Clear
- RngA = Left([c20], Application.Find("-", [c20]) - 1)
- RngB = Right([c20], Len([c20]) - (Application.Find("-", [c20])))
- For x = 7 To 12
- For Each mrng In Sheets("¤u§@ªí1").Range("B" & RngA & ":x" & RngB)
- If mrng.Value = Cells(20, x) Then
- mrng.Interior.ColorIndex = 6
- Cells(20, x).Offset(1, 0) = Cells(20, x).Offset(1, 0).Value + 1
- End If
- Next
- If Cells(21, x) = "" Then Cells(21, x).Value = 0
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2022-7-26
|
¥»©«³Ì«á¥Ñ owen06 ©ó 2015-11-13 17:23 ½s¿è
¦^´_ 9# s7659109
¹³³o¼Ë¡H
¥t¥~§Aªºb2:x18¦ü¥G¦]¬°Àx¦s®æ¦³³]©w®æ¦¡¤Æ±ø¥óªºÃö«Y¡A©Ò¥H¦³¨Ç¸ê®Æ¶]¥X¨ÓªºÃC¦â·|¿ù¶Ã¡A§â®æ¦¡¤Æ±ø¥ó²M±¼¤~·|¥¿±`- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target
- If .Row = 20 And .Column >= 7 And .Column <= 12 Then
- RngA = Left([C20], Application.Find("-", [C20]) - 1)
- RngB = Right([C20], Len([C20]) - (Application.Find("-", [C20])))
- Ans = .Value
- On Error GoTo 99
- If Application.CountA([G20:L20]) = 0 Then GoTo 99
- If .Value = "" Then .Offset(1, 0) = ""
-
- For Each Mrng In Range("B" & RngA & ":x" & RngB)
- If Mrng.Value = Ans Then
- Mrng.Interior.ColorIndex = .Offset(-1, 0).Interior.ColorIndex
- .Offset(1, 0) = .Offset(1, 0).Value + 1
- End If
- Next
- End If
- End With
- Exit Sub
- 99: Range("b2:x18").Interior.ColorIndex = 0: Range("G21:L21") = ""
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|