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

[µo°Ý] BOMªíVBA

[µo°Ý] BOMªíVBA

¤j¤j­Ì¦n,

¥H¤U¹Ï¤ù¬O¹ïÀ³Äæ¦ìªº¨Ó·½¡A³o­Óµ{¦¡»Ý¨D¦]¬°»¡©ú«Üªø,©Ò¥H§Ú§âµ{¦¡»Ý¨D»¡©ú©ñ¦bÀɮפ¤¡C
¹ïÀ³Äæ¦ì.jpg
2017-8-13 00:14

³o¨Ç°Ê§@§Ú¤w°µ¶W¹L15¦¸¤F¡A¦]¬°µ§¼Æ¶W¹L5¸Uµ§,¥ØªºÀɤS¦³«Ü¦h¤½¦¡¦b¤º,«Üªá®É¶¡¦bµ¥«Ý¤Î½Æ»s¶K¤W,©Ò¥H¤~·|¦³¤@­Ó¤¤Ä~Àɪº¥X²{,³o¥i¥H´î¤Öµ{¦¡runªº®É¶¡.
Àɮפ¤¤w±N¤j¶q¸ê®Æ§R°£,¥B¤½¦¡´X¥G³£¤w¼Æ­È¤Æ©Î§R°£,©Ò¥H´ú¸Õªº®É­Ô·|§Ö«Ü¦h.

BOMªíVBA.rar (516.42 KB)

»¡©ú¤å¦r«Ü¦h, ¤w¾¨¶q¬Ý, ¦ý²´·ú¨ü¤£¤F!!!
¶X¦³¨Ç®É¶¡, ¤j¬ù¼g, ­Y¦³¯Êº|¥i¯à¨S®É¶¡¦A­×, °Ñ¦Ò¬Ý¬Ý:
BOMªíVBA_v1.rar (368.02 KB)

ÀÉ®×¥u¯à¥Îxls¥h¼g, ¦Û¦æ¥h§ïµ{¦¡½X!!!

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2017-8-13 20:02 ½s¿è

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

¤j¤j,
¤£¦n·N«ä,»¡©ú¤Ó²²¤¨ä¹ê¼gµ{¦¡ªº¤H¤]µL±qµÛ¤â,³o­Óµ{¦¡»¡©ú¬Ý¦ü«Üªø«Ü¦h¡A¨ä¹ê§@ªk¨Ã¤£Ác½Æ¡A¥u¬O¤@ª½¦b­«½Æ°µµÛ´X­Ó°Ê§@(½Æ»s.¶K¤W.¿z¿ï¥X­«½Æ¸ê®Æ)¡A´N¦]¬°¬O­«½Æ©Ê°Ê§@¡A¤S«Üªá®É¶¡¡A¤~·Q­n¥ÎVBA...¦n¹³Åý§A¦³ÂIµh­W¤F, sorry.

1. µ{¦¡¤@¶}©l¦³¥X²{¤@­Óĵ§i
20170813.192820_°õ¦æBOMªí¥¨¶°ªºÄµ§i.jpg
2017-8-13 19:51
¡A¤£ª¾¹D¹ï¥¨¶°¦³µL¼vÅT¡H

2. ¤@«ö¥¨¶°¶s¥²¶·­n¥X²{¤@­Ó¸ß°Ý®Ø¡A¨Ò¦p³o¼Ëªº¹ï¸Ü®Ø
¹ï¸Ü®Ø.jpg
2017-8-13 19:44
,³o¼Ë¤~¯à©¹¤U°õ¦æ°Ê§@,§Ú¤]¤~¯àª¾¹Dµ{¦¡­n°õ¦æ­þ­Ó¿ï¶µ¡I

3. ©Ò¦³½Æ»sªº¸ê®Æ¤@©w­n¥ý¶K¦b¤¤Ä~ÀÉ¡A¦ý¦ü¥G¨S¦³´Â³o­Ó¤è¦V°µ¡A¦Óª½±µ¶K¦b¥ØªºÀÉ¥h¤F¡A¦]¬°¥¦¥¼¥X²{¸ß°Ý¡A©Ò¥H¤]¤£ª¾¹D¥¦°õ¦æªº¬O¤°»ò¡I

4. µ{¦¡¥¼°õ¦æ§¹¤S¥X²{¤@­Ó²§±`
20170813.193116_°õ¦æ¥X²{²§±`.jpg
2017-8-13 19:54
,©Ò¥H¹ê¦b¤]¤£ª¾µ²ªG¨ì©³¦p¦ó¡H

Àɮפ¤ªº»¡©ú, item 1~8 ¥u¬O¦b

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2017-8-13 20:03 ½s¿è

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

Àɮפ¤ªº»¡©ú, item 1~8 ¥u¬O¦b
20170813.200445.jpg

TOP

¦^´_ 3# PJChen


BOMªíVBA_v1(2007).rar (638.97 KB)

TOP

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

¤j¤j,
¤£±o¤£»¡,³o¯u¬O¤Ó¯«©_¡A§¹¥þ¨S¦³¬Ý¨ìÀÉ®×¥´¶},¥¦´N°µ§¹¤F¡I
§Ú¥ý±q¤¤Ä~ÀÉ´ú¸Õ¡A´ú¸Õ§¹¥þ¥¿½T«á,³Ì«á¤~¯à¥H¥¿¦¡¤å¥ó¹ê°µ(³o­n¨ì³Ì«á¶¥¬q).
§Ú´ú¸Õ¤FA. ¥þ¿ï & B. §½³¡¿z¿ï §âµ²ªG(©ú²Ó.sheet) PO¤Wµ¹§A¬Ý..(¦]¬°2ºØµ²ªG³£¦³,©Ò¥HÀɮצ³ÂI¤j,»Ý­n¤À³Î)
¥þ©ú²Ó.part01.rar (550 KB) ¥þ©ú²Ó.part02.rar (550 KB) ¥þ©ú²Ó.part03.rar (550 KB) ¥þ©ú²Ó.part04.rar (213.24 KB)

A. ¥þ¿ï
1. ©ú²ÓAÄ檺¤½¦¡¦³«Ü¦h¥X²{#REF!
2. ©ú²Ó.sheet ¤Ö¤F¿z¿ïÁä
3. ¸ê®Æ¦³º|§ìªº±¡§Î,¥H¤U3µ§³£¬O¦b¨C±isheetªº²Ä¤@µ§
MM17010009,200-999-000-0005,¥[¤u¥ó    »â®Æ
MRPO16030020,259-000-000-0023            ±ÄÁÊ
MSO17040007,141-122-001-0002              ­q³æ

B. §½³¡¿z¿ï
1. ©ú²ÓAÄ檺¤½¦¡¦³«Ü¦h¥X²{#REF!
2. ©ú²Ó.sheet ¤@¼Ë¨S¦³¿z¿ïÁä
3. §½³¡¿z¿ï¬°¸É¥R¸ê®Æ,©Ò¥H¨S¦³clearªº»Ý¨D,¦ý¥¦·|§â¸ê®Æ²MªÅ¦A¶K·sªº¸ê®Æ

TOP

¦^´_ 6# PJChen


¢Ï¡D§½³¡¿z¿ï¤£²MªÅ¡G
¡@¡@'If i = 1 Then LstSht.UsedRange.Offset(1, 0).EntireRow.Delete '©ú²Ó¥ý²MªÅ
¡@¡@§ï¬°
¡@¡@If i = 1 And FilterNum = 2 Then LstSht.UsedRange.Offset(1, 0).EntireRow.Delete '©ú²Ó¥ý²MªÅ
¡@
¢Ð¡D²Ä¤@µ§¸ê®Æº|±¼¡G
¡@¡@For j = 1 To 10
¡@¡@¡@¡@If Arr(i, j + 3) = "-" Then GoTo 101
¡@¡@¡@¡@FClmn = Range(Arr(i, j + 3) & 1).Column
¡@¡@¡@¡@'ErpUsedRng.Columns(FClmn).Offset(2, 0).Copy xEnd(1, j)
¡@¡@¡@¡@
§ï¬°
¡@¡@¡@¡@ErpUsedRng.Columns(FClmn).Offset(1, 0).Copy xEnd(1, j)
101: Next j
¡@
¢Ñ¡D¤½¦¡Åܦ¨#REF¡G
With LstSht.UsedRange.Offset(1, 0)
¡@¡@.Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlNo '©ú²Óªí¥H¢ÐÄæ±Æ§Ç
¡@¡@With .Columns(1)
¡@¡@¡@¡@¡@'.Formula = "=IF(B2="""",0/0,1/(1-(B2=B1)))"  '±Æ°£¡e­«ÂСf¤½¦¡
¡@¡@¡@¡@¡@
§ï¬°
¡@¡@¡@¡@¡@.Formula = "=IF(OR(OFFSET(A2,,1)="""",OFFSET(A2,,1)=OFFSET(A2,-1,1)),0/0,1)"  '±Æ°£¡e­«ÂСf¤½¦¡
¡@¡@¡@¡@¡@.Calculate  '¤½¦¡­«·s­pºâ
¡@¡@¡@¡@¡@On Error Resume Next
¡@¡@¡@¡@¡@.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete  '§R°£­«ÂЦC¸ê®Æ¡]¨ì¡D¤½¦¡¡D¿ù»~­È¡^
¡@¡@¡@¡@¡@On Error GoTo 0
¡@¡@¡@¡@¡@'¨ä¹ê¤W¤è¤½¦¡¥u¬O¥Î¨Ó§R°£­«ÂСA¬O¥i¥H²MªÅªº
¡@¡@¡@¡@¡@'.ClearContents ¡÷¥[¤J³o¤@¦æ²MªÅ¤½¦¡
¡@¡@End With
End With
LstSht.UsedRange.AutoFilter¡@'¡ö¼W¥[³o¤@¦æ¡AªíÀY¦¨¬°¡e¿z¿ï¼Ò¦¡¡f
LstBook.Save
¡@
¢Ò¡D¢Ð¢Ý¢Ûªí¿z¿ï¼Ò¦¡
With BomSht
¡@¡@Intersect(.[D:M], .UsedRange.Offset(1, 0)).ClearContents '²M°£¢Ð¢Ý¢Ûªí¢Ò¡G¢ÛÄæ¸ê®Æ
¡@¡@.[D2:M2].Resize(UBound(Arr)) = Arr
¡@¡@.UsedRange.AutoFilter¡@'¡ö¼W¥[³o¤@¦æ¡AªíÀY¦¨¬°¡e¿z¿ï¼Ò¦¡¡f
End With
¡@
¡@
¡@

TOP

¦^´_ 7# ­ã´£³¡ªL
¤µ¤ÑÁ`ºâ§âµ{¦¡§ï§¹¨Ã´ú¸Õ§¹²¦,ÁöµM¥u¦³¤@¥bªºµ{¦¡,ÁÙ¬O·PÁ¤j¤j¶O¤ß¼g¤F³o­Óµ{¦¡.

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD