½Ð¦Ñ®v«ü¾É¦p¦ó±Nµ{§ÇÁY´î?
- ©«¤l
- 38
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-10
- ³Ì«áµn¿ý
- 2021-7-18
|
½Ð¦Ñ®v«ü¾É¦p¦ó±Nµ{§ÇÁY´î?
½Ð±Ð¦U¦ì¦Ñ®v:
¤U¦Cµ{§Ç¬O¥H F1~K1ªº¥ô·N¼Æ¦r¬°¤ñ¹ïì©l¸ê®Æ,N11~N15ªº¥ô·N¼Æ¦rY¦³»PF1~K1ªº¥ô·N¼Æ¦r¬Û¦PªÌ,«h¤À§O¦bN3~N8Åã¥Ü¼Æ¦r1 ,³Ì«á¦A¥[Á`©óN1³B.
Dim C%, r%, rng As Range
Set rng = [F1:K1]
For C = 14 To 14
For r = 11 To 11
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(4, C) = 1: Exit For
End If
Next r
Next C
Set rng = [F1:K1]
For C = 14 To 14
For r = 12 To 12
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(5, C) = 1: Exit For
End If
Next r
Next C
Set rng = [F1:K1]
For C = 14 To 14
For r = 13 To 13
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(6, C) = 1: Exit For
End If
Next r
Next C
Set rng = [F1:K1]
For C = 14 To 14
For r = 14 To 14
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(7, C) = 1: Exit For
End If
Next r
Next C
Set rng = [F1:K1]
For C = 14 To 14
For r = 15 To 15
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(8, C) = 1: Exit For
End If
Next r
Next C
Range("N3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
Range("N4").Select
----------------------------------------------------------------
°ÝÃD¤@
§Æ±æ§ï¦¨¤U¦C³o¼Ë¯àÁYµuµ{§Ç,«oµo²{¤£¯à²Ö¥[.¤£ª¾¹D¸Ó¦p¦ó³B²z?
Dim C%, r%, rng As Range
Set rng = [F1:K1]
For C = 14 To 14
For r = 11 To 15 '³o¸Ì§ó§ï
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(4, C) = 1: Exit For
End If
Next r
Next C
°ÝÃD¤G
¦pªG¹³ªþ¥óN11~N16.O11~O16.P11~P16 µ¥,Yn©µªø¦ÜBL11~BL16.¤£ª¾¹D¯à§_¦AÁYµuµ{§Ç©O?
¦]¬°¤p§ÌªºÅv¤£°÷¤U¸ü,¯à§_±Nµ{§Ç´yz¦bºô¶¤W.ÁÂÁ |
-
-
XYZ.rar
(9.51 KB)
|
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# jonn0510
ªì¾ÇªÌVBA- Sub ZZ()
- Set rng = [F1:K1]
- For C = 14 To 64
- Range(Cells(3, C), Cells(8, C)).Clear
- Cells(3, C) = 0
- For r = 11 To 15
- If Application.CountIf(rng, Cells(r, C)) >= 1 Then
- Cells(r - 7, C) = 1
- Cells(3, C) = Cells(3, C) + 1
- End If
- Next r
- Next C
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-10
- ³Ì«áµn¿ý
- 2021-7-18
|
¦^´_ 2# register313
register313¦Ñ®v:
·PÁ±zªº«ü¾É,ì¨Ó¬O³o¼Ë³B²z,¨ä¹ê n4~n8 ¬O¤p§Ì¦]¬°¤£ª¾¹D¦p¦óÅý¤U¦Cµ{§Ç°õ¦æ«á
Dim C%, r%, Rng As Range
Set Rng = [F1:K1]
For C = 14 To 14
For r = 11 To 15
If Application.CountIf(Rng, Cells(r, C)) >= 1 Then
Cells(4, C) = 1: Exit For
End If
Next r
Next C
¦b n3 ªº¦ì¸m¥[Á`,©Ò¥H¤~¨Ï¥ÎÅܳqªº¤è¦¡,µ{¦¡¤ÀªR§¹«á,¦A¥[Á`.¤£µM¥¿±`¨Ó»¡¥u»ÝÅã¥Ü n3 ªºµ²ªG§Y¥i.¤£¹LÁÙ¬O·PÁ±zªº«üÂI.«D±`ÁÂÁÂ. |
|
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-10
- ³Ì«áµn¿ý
- 2021-7-18
|
¦^´_ 3# GBKEE
GBKEE ¦Ñ®v:
±zªº¤è¦¡,¤p§Ì»Ýnªá¨Ç®É¶¡¬ã¨s¤@¤U,¤£¹L¦n¹³¥i¥H¦Û¦æ©µ¦ù¨ì IV ªº¦ì¸m.
¦p èè¦^ÂÐ register313 ¦Ñ®v,¤@¼Ë
¨ä¹ê n4~n8 ¬O¤p§Ì¦]¬°¤£ª¾¹D¦p¦óÅý¤U¦Cµ{§Ç°õ¦æ«á
Dim C%, r%, Rng As Range
Set Rng = [F1:K1]
For C = 14 To 14
For r = 11 To 15
If Application.CountIf(Rng, Cells(r, C)) >= 1 Then
Cells(4, C) = 1: Exit For
End If
Next r
Next C
¦b n3 ªº¦ì¸m¥[Á`,©Ò¥H¤~¨Ï¥ÎÅܳqªº¤è¦¡,µ{¦¡¤ÀªR§¹«á,¦A¥[Á`.¤£µM¥¿±`¨Ó»¡¥u»ÝÅã¥Ü n3 ªºµ²ªG§Y¥i.
¥t¥~¥i¥H¦Û¦æ©µ¦ù¨ì IV ªº¦ì¸m.¯à¤£¯à³]©w¨ì CN ³o¦U¦ì¸m. ÁÂÁ±z. |
|
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-10
- ³Ì«áµn¿ý
- 2021-7-18
|
¦^´_ 6# GBKEE
GBKEE ¦Ñ®v:
¶â!§Ú¥h½®Ñ¬ã¨s¤@¤U,¤£¤Ó¯à²z¸Ñ.
¤£¹LÁÙ¬OÁÂÁ±z. |
|
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É
|
|
|
|
|