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

Qektyyrwp

¦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

Andy2483

¦^´_ 7# Qektyyrwp
Cells(i, 1).EntireRow.¬O¾ã¦C
Rows(i)
Cells(i, 1).Resize( ,7).  A¨ìG

Qektyyrwp

¦^´_ 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±Ð¾Ç

Andy2483

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

Qektyyrwp

¦^´_ 4# Andy2483


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

Andy2483

¦^´_ 3# Qektyyrwp


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ßVBA¤èªk,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æ«e:

¤U¸ü (35.48 KB)

2024-1-11 09:24

°õ¦æµ²ªG:

¤U¸ü (35.58 KB)

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

Qektyyrwp

¤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

hcm19522

(¿é¤J½s¸¹12238) googleºô§}:https://hcm19522.blogspot.com/