[µo°Ý] ¦p¦ó¤ñ¹ï2­ÓBOMªí¡A¨Ã´¡¤J¦C¨Ã»ô

jsc0518

½Ð±Ð¦U¦ì¥ý¶i
1.BOM¦³"³]ÅÜ"ª¬ªp¡A¨C¦¸³]Åܤ£¬O·|·s¼W¤l¶¥®Æ¸¹¡A¤£µM´N¬O·|´î¤Ö¤l¶¥®Æ¸¹
2.§Ú²{¦b¬O¥Î¤â°Êªº¤è¦¡¨Ì§Ç«ö·Ó¶¥¼h±Æ¦C
3.·í³]ÅÜ«e»P³]ÅÜ«á¤ñ¹ïBOM¡A³]Åܫ᪺BOM¦³¦h¤@¤l¶¥¡A§Ú¦b³]ÅÜ«eªºBOM´N´¡¤J1¦C--> ¦p¦ó¥ÎVBAÀ°¦£¦Û°Ê§PÂ_¨Ã´¡¤J¦C
4.·í³]ÅÜ«e»P³]ÅÜ«á¤ñ¹ïBOM¡A³]ÅÜ«e¦³¦h¤@¤l¶¥¡A§Ú¦b³]Åܫ᪺BOM´N´¡1¦C--> ¦p¦ó¥ÎVBAÀ°¦£¦Û°Ê§PÂ_¨Ã´¡¤J¦C

¤U¸ü (38.8 KB)
­ì©lµe­±

2017-1-21 15:12

¤U¸ü (39.33 KB)
¤â°Ê´¡¤J

2017-1-21 15:12

¬O§_¥i¥H¨Ï¥ÎExcel VBA À°¦£¨ó§U§PŪ¡AAÄæ»PGÄ檺®t²§¡A¨Ã¦Û°Ê´¡¤J¤@¦C¡AÅý³]ÅÜ«e/«á¬O¥i¥H¤ñ·Óªº
P.S·|¦³¤£¦Pªº²£«~¡A¬G¸ê®Æ¦C½d³ò·|¦³ÅܤÆ

·PÁ¦U¦ì¥ý¶iªº±Ð¾É!

¤ñ¸û2­ÓBOMªí.rar (39.66 KB)

¤ñ¸û2­ÓBOMªí
¤U¸ü¦¸¼Æ: 4

2017-1-21 15:15

jsc0518

¦^´_ 10# ­ã´£³¡ªL


¦nªº¡A·PÁ±zªº±Ð¾Ç

­ã´£³¡ªL

¦^´_ 9# jsc0518

­ì¨Ó¸ê®Æªº®æ¦¡¦³¶]±¼,
¥Î²Ä¤@®æ­«·s¨ê¤@¦¸!

jsc0518

¦^´_ 7# ­ã´£³¡ªL


¹ï¤£°_¡A§Ú¦A½Ð±Ð¤@­Ó°ÝÃD
¤@¥¹¨Ï¥ÎVBA°õ¦æ«á¡A³]©w®æ¦¡¤Æªº±ø¥óªº¤½¦¡³£·|¶]±¼
³o­n¦p¦ó³]©w?


=(A3<>"")*(A3<>G3)
=$A$3:$A$491


=(I3<>"")*(I3<>A3)
=$G$3:$G$491

­ã´£³¡ªL

¦^´_ 6# jsc0518


¥u§ï¬°¤å¦r®æ¦¡¬O¤£¦æªº, ¼Æ¦r¹ê»ÚÁÙ¬O¼Æ­È, ­n­«·s¿é¤J!
¦Ó¥B¤U­±ªº 1.1 ¤]­n§ï¬°1.10
»s§@ªí®æ­n®Ú¾Ú»Ý­n¨Æ¥ý»s©wÀx¦s®æ®æ¦¡, §K±o¿é¤J¤@°ï¸ê®Æ«á«ÜÃø³B²z!

EXCEL-TEST-1.rar (35.86 KB)

¤U¸ü¦¸¼Æ: 15

2017-1-24 21:03

jsc0518

¦^´_ 5# ­ã´£³¡ªL


§Ú¤w±NAÄæ¤ÎIÄæ§ó§ï¬°¤å¦r®æ¦¡
°õ¦æ«áµe­±¦p¤U¡A¦b§Ú"ª©¥»2" I3¦³¶¥¼h1¡A¦ýI4~I481§¹¥þ¨S¸ê°T¡A¦ÓI482«h¬O¶¥¼h1¡AI483«h¬O1.1.1   

¤U¸ü (38.95 KB)

2017-1-24 16:17

¤U¸ü (68.9 KB)

2017-1-24 16:17

­ã´£³¡ªL

¦^´_ 4# jsc0518


A364 ¤Î i331 ¨â®æªº 1.1 À³¬O 1.10, ¦]¤£¬O[¤å¦r®æ¦¡], Åܦ¨ 1.1 »P¤W­±ªº­«ÂÐ,
±NA¤ÎIÄæ³£³]¬°[¤å¦r]®æ¦¡, µM«á­«·sÀˬd¸ê®Æ, ¤â°Ê­×¥¿~~

jsc0518

¦^´_ 2# ­ã´£³¡ªL

Dear ­ã´£³¡ªL¡A§Ú§ï¹LÄæ¦ì½s¸¹«á¡A¨Ã­×§ï¹Lµ{¦¡½X¡Aµ²ªG¦³²§±`¡A¬O§_­þ¸Ì»Ý°µ­×­q?

Sub TEST()
Dim xArea As Range, xR As Range, xF As Range, xG As Range, I%
Set xArea = Range([A3], Cells(Rows.Count, 1).End(xlUp))
Application.ScreenUpdating = False
For Each xR In xArea
    If xR = "" Or xR = xR(1, 9) Then GoTo 101
    Set xF = [I:I].Find(xR, Lookat:=xlWhole)
    If xF Is Nothing Then GoTo 101
    I = xR.Row - xF.Row
    If I > 0 Then Set xG = xF Else Set xG = xR
    xG.Resize(Abs(I), 5).Insert Shift:=xlDown
101: Next
End Sub

¤U¸ü (83.01 KB)

2017-1-24 12:23

¤U¸ü (61.3 KB)

2017-1-24 12:23

EXCEL-TEST.zip (78.01 KB)

§ó§ï«áÀÉ®×
¤U¸ü¦¸¼Æ: 6

2017-1-24 12:24

jsc0518

¦^´_ 2# ­ã´£³¡ªL


­ã´£³¡ªL¡A¯uªº¤Ó·P¿E§A¤F¡A¸Ñ¨M¤F¤@¤j·Ð´o¡C
§Ú·|¦n¦n¬Ý¤@¤U§Aªº»yªk¡A¦³°ÝÃD¦A¸ò§A½Ð±Ð¡C
Thank you very much !

­ã´£³¡ªL

¸ê®Æ¥²¶·[±Æ§Ç]ªº:

1. Sub TEST()
   
2. Dim xArea As Range, xR As Range, xF As Range, xG As Range, G%
   
3. Set xArea = Range([A3], Cells(Rows.Count, 1).End(xlUp))
   
4. Application.ScreenUpdating = False
   
5. For Each xR In xArea
   
6.     If xR = "" Or xR = xR(1, 7) Then GoTo 101
   
7.     Set xF = [G:G].Find(xR, Lookat:=xlWhole)
   
8.     If xF Is Nothing Then GoTo 101
   
9.     G = xR.Row - xF.Row
   
10.     If G > 0 Then Set xG = xF Else Set xG = xR
    
11.     xG.Resize(Abs(G), 5).Insert Shift:=xlDown
    
12. 101: Next
    
13. End Sub

½Æ»s¥N½X

Xl0000009.rar (29.67 KB)

¤U¸ü¦¸¼Æ: 15

2017-1-23 13:09