½Ð°Ý¦p¦ó¥Î¡A®æ¦¡³W«h³]©w§ä¨ìÃþ¦üªº¦r´N¨qÃC¦â
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
½Ð°Ý¦p¦ó¥Î¡A®æ¦¡³W«h³]©w§ä¨ìÃþ¦üªº¦r´N¨qÃC¦â
¦pªG¦bÀx¦s®æA1¥´¤W¼Æ¦r( 1,5,7,13)
µM«á¦bA3Àx¦s®æ¥´¤W5 , ¦bA4Àx¦s®æ¥´¤W9 , ¦bA5Àx¦s®æ¥´¤W13¡A¦pªG¸Ì±ªº¼Æ¦r¦³¸òA1Àx¦s®æ¨ä¤¤¬Û²Å´N¨q¶À¦â(A3¸òA5Àx¦s®æ·|¨q¶À¦â) ,½Ð°Ý³o¦b (¨Ï¥Î¤½¦¡¨Ó¨M©wn®æ¦¡¤Æþ¨ÇÀx¦s®æ) ¨ç¼Æ¸Ó«ç»ò¥´©O¡H |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-13 13:08 ½s¿è
¦^´_ 7# Qektyyrwp
Cells(i, 1).EntireRow.¬O¾ã¦C
Rows(i)
Cells(i, 1).Resize( ,7). A¨ìG |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¦^´_ 6# Andy2483
¤j¤j¡A¦A½Ð±Ð¡A¦pªGn§â¸ê®Æ²Å¦X¨º¤@¦C¥þ¨qÃC¦â¡A¤£ª¾¹D¸Ó¦p¦óקï¡H
¡]ex:G7¸ê®Æ²Å¦X¡A¨ºA7~G7ªº¸ê®Æ¥þ³¡¨qÃC¦â¡C¡^,·PÁ¤j¤j±Ð¾Ç |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-13 06:10 ½s¿è
¦^´_ 5# Qektyyrwp
Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Set Brr = Range([G1], [G65536].End(3))
Brr.Offset(4).Interior.ColorIndex = xlNone: Brr = Brr
T = "," & [F3] & ","
For i = 5 To UBound(Brr)
SP = Split(Brr(i, 1) & ",", ",")
For j = 0 To UBound(SP)
If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¦^´_ 4# Andy2483
½Ð°Ý¦pªGA1Äæ¦ìªºÈ§ï¨ìF3Äæ¦ì¡An¤ñ¹ï¸ê®Æªº±qG5Äæ¦ì¶}©l©¹¤U¤@¾ã¦ê¡]G5,G6¡K¡K..),¸Ó«ç»òקï©O¡HÁÂÁ§A |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
¦^´_ 3# Qektyyrwp
ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ßVBA¤èªk,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æ«e:
°õ¦æµ²ªG:
Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Brr = Range([A1], [A65536].End(3))
[A:A].Interior.ColorIndex = xlNone
T = "," & [A1] & ","
For i = 3 To UBound(Brr)
SP = Split(Brr(i, 1) & ",", ",")
For j = 0 To UBound(SP)
If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 21
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Excel 2.0
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-17
- ³Ì«áµn¿ý
- 2024-1-13
|
¤j¤j¡A¦b½Ð°Ý
¦bÀx¦s®æA1¥´¤W¼Æ¦r( 1,5,7,13,20,15,16)
µM«á¦bA3Àx¦s®æ¥´¤W(13,5,15,16,1,,) , ¦bA4Àx¦s®æ¥´¤W(5,7,,,,,) , ¦bA5Àx¦s®æ¥´¤W(14,,,,,,)¡A¦pªG¨ä¤¤¤@®æ¸Ì±¦³1ӼƦr¬Û²Å´N¨qÃC¦â(A3¸òA4·|¨qÃC¦â) ¡A¤£ª¾¹D¨ç¼Æ¸Ó«ç»ò¼g©O¡H |
|
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-25
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|