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

[µo°Ý] ·s¼W³W«h°ÝÃD(©Î¦³§ó¦nªº¸Ñ¨M¤è¦¡)?

[µo°Ý] ·s¼W³W«h°ÝÃD(©Î¦³§ó¦nªº¸Ñ¨M¤è¦¡)?

²Ä¤@¦¸µo©«,½Ð¦h¾á«Ý~
·Q½Ð°Ý,½d¨Ò²­n¦p¤U,²Ä¤@ÄæÄÝ©ó®Æ¸¹,²Ä2ÄæÄÝ©óLOT,
³W«h´y­z:®Æ¸¹¥i¥H¦³«Ü¦h¤£¦PªºLOT,¦ý¬O¦P¤@­ÓLOT¥u¯à¹ïÀ³¨ì1­Ó®Æ¸¹,
¦pªGLOT¹ïÀ³¨ì¨â­Ó(¥H¤W)®Æ¸¹,¥²¶·¥Î¬õ¦rÅã¥Ü,
ÁÙ¦³VBA¦p¦ó§ä¨ì³Q³W«h¦C¬°¬õ¦rªºÀx¦s®æ©O,
§Ú·Q¥ÎVBAª½±µÀ°¨Ï¥ÎªÌSELECT¨ì¸ÓÀx¦s®æªº¦ì¸m,
©Î¨Æ¥óµo¥Í®É´£¿ô¨Ï¥ÎªÌ--->¤@­ÓLOT¹ïÀ³¨ì"¦h"­Ó®Æ¸¹,
Áٱ氪¤â­Ì¤£§[¸Ñµª~
¦³§ó¦nªº¸Ñ¨M¤è®×§ó¦n(¤WºôGOOGLE¦n¹³¦³¬Ý¨ìdictionary,
¦ý¬O¥Ø«e¬Ý¤£À´=.=)

®Æ¸¹        LOT
A        1
A        2
A        3
B        4
B        5
C        6
C        7
D        8
D        9
D        0
E        1

°ÝÃD.rar (7.08 KB)

°ÝÃD.rar (7.07 KB)

¦pªG³oªí°Ñ·Óªí, LOT¤£­ã­«ÂÐ,¥i¥Î
1) ¸ê®ÆÅçÃÒ
2) ®æ¦¡±ø¥ó
Xl0000022.rar (6.43 KB)

TOP

¦^´_ 2# luhpro

±zªºµ{¦¡¬Û·í¥©§®,§Ú±o¬ã¨s¤@¤U,
«D±`·PÁ±zªº¦^ÂÐ^O^~

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2021-3-15 23:23 ½s¿è
²Ä¤@¦¸µo©«,½Ð¦h¾á«Ý~
·Q½Ð°Ý,½d¨Ò²­n¦p¤U,²Ä¤@ÄæÄÝ©ó®Æ¸¹,²Ä2ÄæÄÝ©óLOT,
³W«h´y­z:®Æ¸¹¥i¥H¦³«Ü¦h¤£¦Pªº ...
luiroger µoªí©ó 2021-3-13 19:18

Dictionary «ü¥O¦b "³v­Ó" (¤ñ¹ï ©Î ´M§ä) "¦h²Õ" (¬Û¦P ©Î ¬Û²§) ¸ê®Æ¤Wº¡¦n¥Îªº:
  1. Sub nn()
  2.   Dim lRow&
  3.   Dim dLot, dRow
  4.   
  5.   [A1].CurrentRegion.Interior.ColorIndex = -4142 ' ²MªÅ©³¦â
  6.   Set dLot = CreateObject("Scripting.Dictionary") ' ©w¸q­nÀx¦s LOT ªº¦r¨å
  7.   Set dRow = CreateObject("Scripting.Dictionary") ' ©w¸q­nÀx¦s ¦C¸¹ ªº¦r¨å
  8.   lRow = 2 ' ªì©l¦C¸¹
  9.   While Cells(lRow, 1) <> "" ' °j°é¦Ü¸ê®Æ³Ì¥½
  10.     With Cells(lRow, 1) ' ¥H A Ä欰¥DÅé
  11.       If dLot.Exists(.Offset(, 1).Text) Then ' ¦pªG¤w¦³¬Û¦P LOT «h
  12.         .Font.ColorIndex = 3 ' ¥»¦C A Äæ³]¬õ¦â
  13.         .Offset(-lRow + dRow(.Offset(, 1).Text)).Font.ColorIndex = 3 ' ¤W¦¸¦P LOT ¦Cªº A Äæ³]¬õ¦â
  14.               ' -lRow + dRow(.Text) ¬O¼W¶q­pºâ¦C¸¹¦ì²¾§Þ¥©: .offset(-²{¦b¦C¸¹)=[A0], ¦A¥[¤W¤W¦¸Àx¦sªº¦C¸¹´N«ü¦V¤W¦¸¦P LOT AÄæÀx¦s®æ
  15.         .Select ' ²¾°Ê¨ì¦P LOT AÄæÀx¦s®æ
  16.       End If
  17.       dLot(.Offset(, 1).Text) = .Text ' Àx¦s¦¹ LOT ¹ïÀ³ªº ®Æ¸¹, ¥H«K«áÄò¤ñ¹ï¬O§_¦³¬Û¦P LOT ¥X²{
  18.       dRow(.Offset(, 1).Text) = lRow ' Àx¦s¦¹ LOT ªº¦C¸¹, ¥H«K­Y¤ñ¹ï¥X¬Û¦P LOT ®É,¥i¥H¤@¨Ö³]©w¬õ¦â
  19.     End With
  20.     lRow = lRow + 1 ' ¦C¸¹¥[ 1
  21.   Wend
  22. End Sub
½Æ»s¥N½X
°ÝÃD-ans.zip (13.79 KB)
²­z :
lRow = 2 ®É,
dLot("1") ¨S¸ê®Æ, ©Ò¥H If ¤º«ü¥O¤£°õ¦æ, «á­±
dLot("1") = "A"
dRow("1") = 2 (©³¤U¤ñ·Ó¿ì²z)

ª½¨ì lRow = 12 ®É,
¦]¤§«e¤w³]©w dLot("1") = "A", ©Ò¥H If ¤º«ü¥O·|°õ¦æ:
[B12] »P [B2] ³£³]©w¬õ¦â, «á­±
dLot("1") = "E"
dRow("1") = 12 (¾l²¤)

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD