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

½Ð°Ý¦p¦ó¥Î¡A®æ¦¡³W«h³]©w§ä¨ìÃþ¦üªº¦r´N¨qÃC¦â

½Ð°Ý¦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©w­n®æ¦¡¤Æ­þ¨ÇÀx¦s®æ)  ¨ç¼Æ¸Ó«ç»ò¥´©O¡H

(¿é¤J½s¸¹12238) googleºô§}:https://hcm19522.blogspot.com/
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¤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

TOP

¦^´_ 3# Qektyyrwp


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ßVBA¤èªk,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æ«e:
20240111_1.jpg
2024-1-11 09:24


°õ¦æµ²ªG:
20240111_2.jpg
2024-1-11 09:24


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

TOP

¦^´_ 4# Andy2483


    ½Ð°Ý¦pªGA1Äæ¦ìªº­È§ï¨ìF3Äæ¦ì¡A­n¤ñ¹ï¸ê®Æªº±qG5Äæ¦ì¶}©l©¹¤U¤@¾ã¦ê¡]G5,G6¡K¡K..),¸Ó«ç»ò­×§ï©O¡HÁÂÁ§A

TOP

¥»©«³Ì«á¥Ñ 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

TOP

¦^´_ 6# Andy2483


    ¤j¤j¡A¦A½Ð±Ð¡A¦pªG­n§â¸ê®Æ²Å¦X¨º¤@¦C¥þ¨qÃC¦â¡A¤£ª¾¹D¸Ó¦p¦ó­×§ï¡H
¡]ex:G7¸ê®Æ²Å¦X¡A¨ºA7~G7ªº¸ê®Æ¥þ³¡¨qÃC¦â¡C¡^,·PÁ¤j¤j±Ð¾Ç

TOP

¥»©«³Ì«á¥Ñ 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

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD