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

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

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

½Ð±Ð¦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

­ì©lµe­±

01.jpg
2017-1-21 15:12

¤â°Ê´¡¤J

02.jpg
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)
Just do it.

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


¦nªº¡A·PÁ±zªº±Ð¾Ç
Just do it.

TOP

¦^´_ 9# jsc0518

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

TOP

¦^´_ 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
Just do it.

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2017-1-24 21:04 ½s¿è

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

TOP

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

001.jpg
2017-1-24 16:17


002.jpg
2017-1-24 16:17
Just do it.

TOP

¦^´_ 4# jsc0518


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

TOP

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


001.jpg
2017-1-24 12:23


002.jpg
2017-1-24 12:23


EXCEL-TEST.zip (78.01 KB)
Just do it.

TOP

¦^´_ 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 !
Just do it.

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2017-1-23 13:10 ½s¿è

¸ê®Æ¥²¶·[±Æ§Ç]ªº:
  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)

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD