Board logo

¼ÐÃD: [µo°Ý] ¹ïÀ³¤é´Á¶K½LÂI¸ê®Æ [¥´¦L¥»­¶]

§@ªÌ: PJChen    ®É¶¡: 2021-7-4 13:32     ¼ÐÃD: ¹ïÀ³¤é´Á¶K½LÂI¸ê®Æ

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-7-4 13:36 ½s¿è

¤j¤j­Ì¦n,
    With Sh
    Sh.Activate
        For j = 6 To xrow Step 2
            .Range("X" & j + 1 + 1).Resize(1, 16).Copy
            xW.Sheets("½LÂI").Range("BO" & 1 + j).Resize(1, 16).PasteSpecial xlPasteValues
        Next
    End With

½LÂI¤u§@ªí±qAÄ檺¦U«È¤áÀɮקâ¬ÛÀ³ªº½LÂI¸ê®Æ,copy¹L¨Ó
E4¬O«ü©w¤é´Á
AÄæ¬O«È¤á¦W
·íDIÄæ= D+0«h±q«È¤áÀɮתº¼Æ¦r¤u§@ªí§äE4-1ªº¤u§@ªí
ex:E4=7/3,«h§ä"2"¤u§@ªí
±Nx:amªº½LÂI¸ê®Æ,¦³®w¦sªº¼Æ¦r,¹ïÀ³¤é´Á¬Û²Å,¶K¨ì½LÂI¤u§@ªíªºBH:CFªºÄæ¦ì¤¤

¨Ó·½¦U«È¤áªºÀɮ׮榡¤£·|§¹¥þ¬Û¦P,¦ý³£¬OÃþ¦üªº,¥u¥H¤@©w§@½d¥»,
½LÂI¤u§@ªí¤¤¦³«Ü¦hªº¤½¦¡,©Ò¥H¶K¤Wªº¸ê®Æ¤£¯à¤zÂZ¨ä¥LÀx¦s®æ,
½Ð°Ý(¬õ¦r)¹ïÀ³¤é´Á¶K¤W½LÂI¼Æ­Èªº³o¬qµ{¦¡¸Ó«ç»ò¼g?  [attach]33502[/attach]
  1. Sub copy_»e¸Á½LÂI()
  2. Dim PH$, FN$, W As Workbook, xW As Workbook, xD As Worksheet, xS As Worksheet, Sh As Worksheet, i As String, rng As Range
  3. Set xD = ThisWorkbook.Sheets("VBA")  'µ{¦¡¨Ó·½
  4. k = xD.[V1] - 1 '¨ú«e¤@¤é
  5. i = Format(k, "D")
  6. y = Format(k, "yyyy")
  7. m = Format(k, "m")
  8. '---------------------
  9. Set xW = Workbooks("¦h«È¤á½LÂIªí")
  10. PH = xD.[BB1]
  11. '---------------------
  12. FN = Dir(PH & "*»e¸Á*" & y & "*" & m & ".xlsx")
  13. Do While FN <> ""
  14. On Error Resume Next: Set W = Workbooks(FN): On Error GoTo 0
  15. If W Is Nothing Then Set W = Workbooks.Open(PH & FN)
  16. Set Sh = W.Sheets(i)
  17. With Sh
  18.     xrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 5
  19. End With
  20.      xW.Sheets("½LÂI").Range("M6:M" & xrow) = Sh.Range("T7:T" & xrow).Value '¨Ó·½ «e¤éµ²¾l   
  21. With Sh
  22.     Sh.Activate
  23.         For j = 6 To xrow Step 2
  24.             .Range("X" & j + 1 + 1).Resize(1, 16).Copy
  25.             xW.Sheets("½LÂI").Range("BO" & 1 + j).Resize(1, 16).PasteSpecial xlPasteValues
  26.         Next
  27.     End With
  28.    
  29. FN = Dir
  30. Loop
  31. End Sub
½Æ»s¥N½X

§@ªÌ: PJChen    ®É¶¡: 2021-7-5 16:36

¦^´_ 1# PJChen

¦h«È¤á½LÂIªí.xlsx BH:GFÄæ¤é´Áªº¤ñ¹ï­n¥H¨ì´Á¤é(Âù¸¹¦C)¬°·Ç,¦C5¬O¥Í²£¤é,¤£­n§@¤ñ¹ï...
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-9 23:14

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-9 23:21 ½s¿è

¦^´_ 2# PJChen

½Ð°Ý PJChen¤j¤j  ¦h«È¤á½LÂIªí ªº DIÄæ ªº 0 ¸ò 1 ¬O«ç»ò¨Óªº? ¥i¥H»¡©ú¤@¤U¶Ü? ·PÁ §Ú¬O»¡ 0 ¸ò 1 ¬O¬Æ»ò¥Î·N?
¬O¨Ì¾Ú¬Æ»ò ¬°¬Æ»ò­n¤é´Á´î1 ¬O¦]¬° 4¸¹¨S¦³¸ê®ÆªºÃö¦è¶Ü? §Ú¤£¤Ó©ú¥Õ >"<
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-10 01:29

¦^´_ 2# PJChen

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬OÃþ¦ü³o¼Ëªºµ²ªG §Ú¥u¬O²q´ú
[attach]33556[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-12 20:40

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-7-12 20:41 ½s¿è

¦^´_ 4# °a¤ªºµ

¦h«È¤á½LÂIªí ¬O¥Øªº¸ê®ÆÀÉ,±µ¦¬¦U«È¤áªº½LÂI¸ê®Æ
DIÄæ ªº 0 ¸ò 1 ¬O¦Û­qªº,
¨Ò¦p¤µ¤Ñ¬O7/12,DIÄæ ¥X²{ªº¬O0,«h¨Ó¦Û«È¤áªº½LÂI¸ê®Æ«h­n¶K12-1=11¤u§@ªíªº½LÂI¸ê®Æ,
DIÄæ ¥X²{ªº¬O1,«h¨Ó¦Û«È¤áªº½LÂI¸ê®Æ«h­n¶K12-0=12¤u§@ªíªº½LÂI¸ê®Æ,
³o­Ó¬O©T©wªº³W«h¼Ò¦¡,§¹¥þµLÅܤƪº,¬O¤½¥q§@·~ªº³W«h¦Ó¤w¡I
©Ò¦³ªºªí®æ³£¬O´ú¸Õ¥Î,¥i¥H¥ô·N¶ñ¤J¸ê®Æ,¥Î¨Ó°µµ{¦¡´ú¸Õ,
¤µ¤Ñ¬O7/12,§Ú¦b¨Ó·½Àɪº11¤u§@ªí,¥ô·N¶ñ¤J¨Ç¸ê®Æ,´ú¸Õµ{¦¡,µo²{§¹¥þµL¶K¤Wªº°Ê§@

¨Ó·½ªº«È¤á½LÂI®æ¦¡¤À2ºØÃþ«¬,¤@ºØ¬O2®æ¦X¨Ö(¥Øªº¤u§@ªí¬O¶K¦b"½LÂI"),¤@ºØ¬O3®æ¦X¨Ö(¥Øªº¤u§@ªí¬O¶K¦b"stock"),
¨Ó·½ªº«È¤á½LÂI¸ê®Æ¦³«Ü¦h­Ó,©Ò¥H°µ¦¨ªºµ{¦¡,§Æ±æ¯à¦Û¦æ«ü©w¨Ó·½ªº½LÂI°Ï(½LÂI°Ï¤£¤@©w¦b­þ­ÓÀx¦s®æ),´N¯à¶K¤W¸ê®Æ
²{±N¨Ó·½ªº«È¤á½LÂIÀÉ,¦Uªþ¤W¤@­Ó´ú¸ÕÀÉ
[attach]33597[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-13 16:28

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-13 16:33 ½s¿è

¦^´_ 5# PJChen

stock ¸ò ¸U¹F®w¦sªí 2021.07 ¤é´Á¹ï¤£¨ì  ¦n¹³©Ç©Çªº ©p¦A½T»{¤@¤U

stock ª½¦³ 7/7  ¦Ó ¸U¹F®w¦sªí ¬O7/6~7/11 ÁÙ¬O ¥u­n 7/7 ¸¹?  ¤£¤Ó©ú¥Õ ¥i¥H»¡²M·¡¤@ÂI¶Ü ·PÁ ^^"
§@ªÌ: PJChen    ®É¶¡: 2021-7-13 17:52

¦^´_ 6# °a¤ªºµ
stock ¸ò ¸U¹F®w¦sªíªº´ú¸ÕÀÉ,¤é´Á³£¬O´ú¸Õªº,©Ò¥H§ï¤@¤U¥i¥H´ú¸Õ´N¦n¤F [attach]33612[/attach]
----------¸U¹F®w¦sªí ½LÂI¸ê®Æ
(§C¯×)U8:AF8,¹ïÀ³stock BH7:CF7
(­ì¨ý)U11:AF11,¹ïÀ³stock BH10:CF10
¦³¬Û¦P¤é´Áªº½LÂI¼Æ,´N¶K¨ìstock¦P¬Û¤é´Áªº½LÂI®æ¤º

----------»e¸Á­Ü ½LÂI¸ê®Æ
V7:AK7,V9:AK9,V11:AK11¦P«~¦W&¦P¤é´Á¹ïÀ³
¦h«È¤á½LÂIªí.sh(½LÂI)BH6:CF6,BH8:CF8,BH10:CF10
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-14 18:22

¦^´_ 7# PJChen
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý ·PÁÂ

[attach]33636[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-14 21:19

¦^´_ 8# °a¤ªºµ
ºµ¤j¦n,

´ú¸Õµ²ªG,Stockªº¤é´Á¨S¦³³sÄò®É,¶K¤Wªº½LÂI¸ê®Æ·|¤£¥¿½T,´ú¸Õµ²ªG¯d¦b¤u§@ªí¤¤,
§Ú¦³«Ü¦hÀÉ®×­n¥Î¨ì³o­Ó2­Óµ{¦¡,¥i§_À°¦£µù¸Ñµ{¦¡?
[attach]33638[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-15 00:21

¦^´_ 9# PJChen

¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý  ¥i¥H¦A¦h´X­Ó­n¤ñ¹ïªºÀɮ׶Ü? ·PÁÂ
¦]¬°«~¦W §Ú¨S¦³§PÂ_

[attach]33639[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-15 21:45

¦^´_ 10# °a¤ªºµ

¦Aªþ¤W2­Ó´ú¸ÕÀÉ [attach]33652[/attach]
µ{¦¡§Ú¦h´ú¸Õ¨Ç¦A¦^ÂÐ
½Ð°Ýµ{¦¡³Æµù,¯à§_¦A¸Ô²Ó¨Ç?
§@ªÌ: PJChen    ®É¶¡: 2021-7-16 00:19

¦^´_ 10# °a¤ªºµ
ºµ¤j,
½ÐÀ°¦£¬ã¨s¤@¤U,
a) ¥ØªºÀɦ³¤GºØ©T©w®æ¦¡,¥Bkey-inªºÄæ¦ì½d³ò¬Û¦P,¥u¦³¦X¨ÖÀx¦s®æ¤À2¦C&3¦C
b) ¦Ó¨Ó·½ÀÉÁöµM½LÂI½d³ò¤£¦P,¦ý®æ¦¡¤j­P¬Û¦P,¥u¦³¦C¼Æªº¤£¦P,¤]¤À¬°¤GºØ®æ¦¡
1) ½LÂI°Ï¦b(½L®t)(¹w³]¤Ñ¼Æ)¤§¶¡
2) ½LÂI°Ï¦b(µ²¾l¦X­p)(½L®t)¤§¶¡
¦³¨S¦³¥i¯àµ{¦¡¥i¥H¥u§ïÀɦW,´N¥i¥H¾A¥Î©ó±q¨Ó·½¶K¨ì¥ØªºÀÉ?
(³Ì¦h´N¤À¦¨2­Óµ{¦¡,¤À§O¬O¶K¨ì½LÂI¡Bstock)
¦]¬°«È¤á·|¦³¼W¥[ªº¥i¯à©Ê,«~¦W¤]¬O,
§Æ±æ¯à°÷¦b¼W¥[«È¤á&«~¦W®É,¥u­n¦b¤u§@ªí©¹¤U¼W¥[,´N¥i¥H¨Ï¥Î,
¤£­n¦A¥h­×§ïµ{¦¡¡I
¥t¥~ÁÙ·Q½Ð°Ý,ÀɦW¦]¬°³£«Üªø,§Ú·Q§ï¬°¶}ÀɮɥÎex: *¥Ã»·*,³o¼Ëªº¤èªk,
§Ú¥uª¾¹D³oºØ¼gªk,¤£ª¾ÁÙ¦³¨ä¥L¤è¦¡¶Ü?
   Do While File <> ""
        With Workbooks.Open(Path & File)
------
   File = Dir
Loop
[attach]33653[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-16 04:53

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-16 05:02 ½s¿è

¦^´_ 11# PJChen
stock ¤u§@ªí §Ú¨S¦³§ï ¦]¬°§Ú³oª½¦³¤@ºØ®æ¦¡ ¦pªGÁÙ¦³ ½Ð¦A¦hµ¹´X­Ó  ¥u­n§â­n¶KªºÀɮ׳£©ñ¦b¦P¤@­Ó¸ê®Æ§X´N¥i¥H¤F¤£¥Î§ïÀɦW
¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ³o¼Ë¥i¤£¥i¥H µù¸Ñ¦³¥[¤F¤@¨Ç  ¦pªG¤£°÷²M·¡ ¥i¥H¦A¸ò§Ú»¡¬O­þ¤@¬q ·PÁÂ
¦]¬°³o¼gªk¤£¬O«Ü¦n ¬Ý°_¨Ó«Ü¶Ã ¦Ó¥B°j°é¤]¤Ó¦h¤F ¦pªGÀɮצhªº¸Ü·|«ÜºC ¬Ý¬Ý¦³¨S¦³¤j¤jÄ@·NÀ°¦£  §Ú¤]¥i¥H¶¶«K¾Ç²ß ^^"
·Pı§ÚªºÅ޿観°ÝÃD >"<
[attach]33654[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-19 21:51

¦^´_ 13# °a¤ªºµ
ºµ¤j¦n,
1) stock¤u§@ªí,¤£¯à§ï¬°Sheets(¼Æ¦r),¹ê»Ú¨Ï¥ÎÀɧt¦³¨ä¥L¤u§@ªí,³o¼Ë·|¥X¿ù
2) stockªº¨Ó·½ÀÉ,¥u­n«~¦W¶¶§Ç¤£¦P,´NµLªk¶K¤W¸ê®Æ,µ{¦¡´N¤¤Â_¤F
3) Workbooks("¦h«È¤á½LÂIªí.xlsx").Sheets("½LÂI")¤]¬O¬Û¦P±¡§Î,¤£¯à§ï¬°Sheets(¼Æ¦r)
4) ¤½¥qªº¦s©ñ°Ï,¦³«Ü¦hÀÉ,¤£¥u¬O³o´X­ÓÀÉ®×,¥B¦³Ãþ¦üÀɦW,©Ò¥H¥ÎDir(U & "*.xlsx")¤]·|¥X¿ù
     ¤W¦¸¸ß°Ý:ÀɦW¦]¬°³£«Üªø,·Q§ï¬°¶}ÀɮɥÎex: *¥Ã»·*,³o¼Ëªº¤èªk,¤£ª¾¥i§_?
5) ¤G­Óµ{¦¡³£»Ý­n¦³¤ñ¹ï«~¦Wªº¥\¯à¤~¦æ,¤£µM¤@¥¹«~¦W±Æ¦C¤£¦P,´N·|¥X¿ù¤F
[attach]33689[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-20 02:03

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-20 02:05 ½s¿è

¦^´_ 14# PJChen
½Ð°Ý ¦³¤é´Á³¡¤ÀªºÀx¦s®æ ¦ì¸m¬O¤£¬O©T©wªº? ÁÙ¬O¨C¤@­Ó¬¡­¶Ã¯³£¤£¤@¼Ë? ¦C¦p ¸U¹F®w¦sªí ¦³¤é´Áªº³¡¤ÀÄæ¦ì®æ¦¡
¦]¬°§Ú¬Ý¨ä¥¦ªº¬¡­¶Ã¯ ®æ¦¡³£¬O¤£©T©wªº ¦³ªº¬O±qv7 ¶}©l ¦³ªº¤£¬O  ¬O¦]¬°³o¬O´ú¸ÕÀɮתºÃö«Y ÁÙ¬O­ì©lÀɮפ]¬O³o¼Ë?
§@ªÌ: n7822123    ®É¶¡: 2021-7-20 10:24

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-20 10:32 ½s¿è

¦^´_ 13# °a¤ªºµ
¦^´_ 14# PJChen

¦³®É­Ô¤£¬O§Ú¤£·QÀ°¡A¬O§Ú³s»Ý¨D³£¨S¬ÝÀ´......

·Pı¼Ó¥Dªº°ÝÃD³£¬O¹ê°È¤Wªº°ÝÃD¡A¹ï¤£¼ô§A­Ì¤½¥qªí®æ¶ñ¼g¡B¹B§@¤è¦¡ªº¤H¨Ó»¡¡A¦³ÂI½ÆÂø

¸Û¤ß«Øij¡A¼Ó¥D¥i¥H¸ÕµÛ§â½ÆÂøªº°ÝÃD¡A²³æ¤Æ¤§«á¦Aµo°Ý¡A¤@©w·|¤ñ¸û¦h¤HÀ°¦£

¦]¬°¬Ý§A¤§«eªºµo°Ý¡A±À´ú¥X§A¦³¤@¨Ç¨ÇªºVBA°ò¦ªº (§Ú°O±o§A¦³°Ý¹LUbound¤§Ãþªº)

µ{¦¡¥i¥H¹³«÷¹Ï¤@¼Ë¡A¥i©î¤À¦¨«Ü¦h¤p³¡¤Àªº

°²¦p§Aªº»Ý¨D»Ý­nµ{¦¡¼gN­Ó¨BÆJ¡A¦ý§A¥u¦³¬Y¨BÆJ¥d¦í¤£·|¡A¨ä¥L¥\¯à§A³£¥i¥H¦Û¤v¼g¥X¨Ó

¥u­n§â§A¤£·|ªº³¡¤À¡A³æ¿W®³¥X¨Óµo°Ý§Y¥i¡A¤§«á§A´N¥i¥H²Õ¦X¥X§A­nªº§¹¾ã¥\¯à

¤p¨ì·s¼W¤u§@ªí¡B½Æ»s1¦C¸ê®Æ¡A³£¥i¥H·í§@¨BÆJ

§Ú­Ì¦b¸Ñ»Ý¨Dªº®É­Ô¡A¤]¬O·|¥ý·Q¾ãÅé¾Þ§@¨BÆJ(µ{¦¡¥D¬[ºc)

¦A¤@­Ó­Ó§¹¦¨¤@¶}©l·Qªº¨BÆJ¡A§A»Ý­n°µªº¥u¬O¡A§â§A­ì¥»"¤â°Ê"¾Þ§@ªº³¡¤À

¤À¨BÆJ¤@­Ó­Ó¦C¥X¨Ó¡A¦A¸ÕµÛ¼g³o¨Ç¨BÆJ¡A¼g¤£¥X¨Óªº³¡¤À¡A´Nµo°Ý

¥H¤UÁ|¨Ò»¡©ú~


°²¦p§Aªº»Ý¨D»Ý­nµ{¦¡°µ10­Ó¨BÆJ¡A¦ý§A¥u¦³¨BÆJ6¥d¦í¤£·|

³æ¿W§â¨BÆJ6®³¥X¨Óµo°Ý¡A°Ý¨ìµª®×¤§«á¡A¦Û¤v²Õ¦X¥X§A­nªº¥\¯à

·íµM´ú¸ÕÀÉ­n¥ý¦Û¤v§¹¦¨¨BÆJ1~5(¤â°Êor¼gVBA)¡A¦Aªþ¨ì½×¾Â¤Wµo°Ý


Sub §¹¾ã¥\¯à¥Dµ{§Ç()
  Call «e­±·|ªº°Æµ{§Ç   '¨BÆJ1~5
  Call ¨BÆJ6
  Call «á­±·|ªº°Æµ{§Ç   '¨BÆJ7~10
End Sub

Sub ¨BÆJ6()
'¶·µo°Ý¡A¤£·|°µªº³¡¤À
End Sub

Sub «e­±·|ªº°Æµ{§Ç()
¨BÆJ1
¨BÆJ2
¨BÆJ3
¨BÆJ4
¨BÆJ5
End Sub

Sub «á­±·|ªº°Æµ{§Ç()
¨BÆJ7
¨BÆJ8
¨BÆJ9
¨BÆJ10
End Sub

§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-20 12:06

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-20 12:08 ½s¿è

¦^´_ 16# n7822123

n7822123«e½ú¦n  
¼Ó¥Dªº»Ý¨D¬O  
¦Û°Ê¶}±Ò«ü©wªº¬¡­¶Ã¯ÀÉ®×   ¦h«È¤á½LÂIªí
¤À§O¦³2­Ó¤u§@ªí 2ºØ®æ¦¡  
¤é´ÁÄæ¦ì BH~CF  ªº½d³ò¤§¶¡
"½LÂI" ¤u§@ªí (STEP¢±)¢à¢Ý¢å¸õ¢±®æ
"stock" ¤u§@ªí (STEP¢²)¢à¢Ý¢å¸õ¢²®æ

±NE4ªº¤é´Á»P DIÄæ¦ìªº¤é´Á°µ¤ñ¹ï
¦C¦p:   DI6 =  D+0  E4 ´N¦©¤@¤Ñ
            DI6 =  D+1 «h  «O«ù¤£ÅÜ
¦b¬Y¨Ç¦ì¸m¦³¬ï´¡±a¤½¦¡ªºÀx¦s®æ «O«ù¤£ÅÜ
­n¤ñ¹ïªº¶µ¥Ø ¦³ «È¤á «~¦W ÁÙ¦³¤é´ÁÄæ¦ì BH~CF  ªº½d³ò¤§¶¡
¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð
¶}±Ò­n¤ñ¹ïªºÀɮס@
³o¸Ì¤]¬O¥Î«ü©wÀɦWªº¤è¦¡¶}±Ò
¦C¦p¡G¦h«È¤á½LÂIªí¡@¢Ô¢Ý¢à¢Û¢Ï¢â¡]E4¡AÈТÒÈС^»P¡@¸U¹F®w¦sªí¡@¬Û¹ïÀ³ªº¤é´Á¤u§@ªí¢á¢Ö¢Ó¢Ó¢â¢á¡]¢æ¡^
¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð
¸U¹F®w¦sªí¡@¬O¹ïÀ³¡@¦h«È¤á½LÂIªí¡@ªº¡@"stock" ¤u§@ªí (STEP¢²)¢à¢Ý¢å¸õ¢²®æ
¦]¬°¦³¢±ºØ®æ¦¡¤À§O¤¬¬Û¹ïÀ³¡@¡@
§ä¨ì¬Û¹ïÀ³ªº¤é´Á´N§â¼Æ­È¶K¤W¡]¦h«È¤á½LÂIªí¡^
§Ú²{¦b°ÝÃD¥X¦b­n¤ñ¹ïªºÀx¦s®æ¦ì¸m¨S¦³©T©w
¦C¦p¡G¸U¹F®w¦sªí
«~¦WÄæ¦ì¬O¦X¨Öª¬ºA
¥kÃä¡@¢ã¡ã¢Ï¢Ô¦ì¸m¤£©T©w¡@¤£¤@©w¬O¢ã¡ã¢Ï¢Ô¤]¦³¥i¯à¬O±q¢ä¶}©l©ÎµÛ¨ä¥¦Äæ¦ì¶}©l
¥Ø«eµo²{¡@¦³ÈнLÂIÈЦr¼Ëªº¦ì¸m¡@¥i¥H§ä¥X½d³ò¡@¦ý¤£ª¾¹D¦p¦ó°µ
½Ð°Ý«e½ú¡@­n«ç»ò§â¬Û¹ïÀ³ªº¡@«~¦W¡@»P¡@¤é´Á¡@ÁÙ¦³¤é´Á¤U¤èªº¼Æ­È¡@¥¿½Tªº©ñ¨ì°}¦C¡@¤è«K°µ¤ñ¹ï
¦pªGª½±µ¥þ³¡¶ë¨ì°}¦C¤£¦n°µ¤ñ¹ï¡@¦]¬°¤u§@ªíªº®æ¦¡¤º®e¤Ó¦h¦Ó¥B·|Åܧó½ÆÂø
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-20 13:50

¦^´_ 16# n7822123

©êºp«e½ú¡@§Ñ°Oªþ¤WÀÉ®×
[attach]33693[/attach]
§@ªÌ: n7822123    ®É¶¡: 2021-7-20 15:16

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-20 15:21 ½s¿è

¦^´_ 18# °a¤ªºµ

µ²¦X§Aªº»¡©ú¡A¥H¤Î«e­±°Q½×¦ê¡A²×©ó¬ÝÀ´¤F
¨ä¹ê¥u¬OAÀÉAªíA®æ¦¡ ·h²¾¸ê®Æ¨ì BÀÉBªíB®æ¦¡
Ãø¦b¤£©T©wªí®æ¡A­n§ä»Ý­nªº¸ê®Æ½d³ò


¦]¬°¦³¢±ºØ®æ¦¡¤À§O¤¬¬Û¹ïÀ³¡@¡@
§ä¨ì¬Û¹ïÀ³ªº¤é´Á´N§â¼Æ­È¶K¤W¡]¦h«È¤á½LÂIªí¡^

¨Ó·½ªí½L®t¤U­±ªº XX½c¡A¥i¥H¥Î¦X¨ÖÀx¦s®æ"¦C¼Æ"(Columns.Count)¡A§PÂ_¬O2 Row ÁÙ¬O 3 Row

§Ú²{¦b°ÝÃD¥X¦b­n¤ñ¹ïªºÀx¦s®æ¦ì¸m¨S¦³©T©w
¦C¦p¡G¸U¹F®w¦sªí
«~¦WÄæ¦ì¬O¦X¨Öª¬ºA

§A»¡ªº¬O"EÄæ"ªº«~¦W§a
¦X¨ÖÀx¦s®æ¡A¥u¦³²Ä¤@®æ¦³¸ê®Æ¡A¨ä¾l³£¬OªÅ¥Õ
§Q¥Î¦¹ÅÞ¿è§PÂ_¦n¡A¬O¥i¥H³B²zªº
¦ý§Úµo²{ EÄæ »P BGÄæ ³£¦³«~¦W¡AÁÙ¤¬¬Û½Ä¬ð£½£¿


[attach]33695[/attach]

¥kÃä¡@¢ã¡ã¢Ï¢Ô¦ì¸m¤£©T©w¡@¤£¤@©w¬O¢ã¡ã¢Ï¢Ô¤]¦³¥i¯à¬O±q¢ä¶}©l©ÎµÛ¨ä¥¦Äæ¦ì¶}©l
¥Ø«eµo²{¡@¦³ÈнLÂIÈЦr¼Ëªº¦ì¸m¡@¥i¥H§ä¥X½d³ò¡@¦ý¤£ª¾¹D¦p¦ó°µ

¬Ý¤F¦Uªí®æ¡A½T¹ê¥u¯à¥Î"½LÂI"¨Ó½T©w½d³ò
¥»¨Ó·Q¥Î¤ñ¸û¤Ö¥Îªº¦r¼Ë"½L®t"¨Ó§ä½d³ò
¦ýµo²{¦³ªº¤é´Á¦b½L®t«á­±¡A¦³ªº¦b«e­±......(³o®æ¦¡¤£¬ì¾Çªü)¡A©Ò¥HÁÙ¬O½LÂI§a
°w¹ï³oºØ¤£©T©w½d³òªºªí®æ¡A¶·­n¥ý§ä¤@­Ó "¤£­«½Æ¡B°ß¤@" ªºÃöÁä¦r¨Ó"©w¦ì"
¬Ý¤F¤U¨Ó·½ªí®æ¡A½LÂI¦b¦P¤@±iªí®æ¤]¬O°ß¤@ªº¡A©Ò¥H¥i¥H¥Î
§Q¥ÎRangeª«¥óªº"Find"¤èªk¥i¥H§äÃöÁä¦rªºÄæ¦ì


½Ð°Ý«e½ú¡@­n«ç»ò§â¬Û¹ïÀ³ªº¡@«~¦W¡@»P¡@¤é´Á¡@ÁÙ¦³¤é´Á¤U¤èªº¼Æ­È¡@¥¿½Tªº©ñ¨ì°}¦C¡@¤è«K°µ¤ñ¹ï
¦pªGª½±µ¥þ³¡¶ë¨ì°}¦C¤£¦n°µ¤ñ¹ï¡@¦]¬°¤u§@ªíªº®æ¦¡¤º®e¤Ó¦h¦Ó¥B·|Åܧó½ÆÂø

¤W­±¨º¤@¨B½T»{½d³ò¤§«á¡A´N¥i¥H¶ë¶i°}¦C¤F
µ²¦X¦X¨ÖÀx¦s®æªºÅÞ¿è¡A¥u¦³²Ä¤@®æ¦³¸ê®Æ
©Ò¥H°_©lÄæ¥i§ä"½LÂI"¦r¼ËªºÄæ¦ì¡A²×ÂIÄæ¦ì¥i¥H§Q¥Î¸Ó¦X¨ÖÀx¦s®æªº"Äæ¼Æ"(Columns.Count)¨Ó­pºâ
°_ÂI¦C¬Ý°_¨ÓÆZ©T©wªº¡A³£±q²Ä7¦C¶}©l¡A©ÎªÌ§ä"½LÂI"¦C+2
²×ÂI¦C¬Ý°_¨Ó¥i¥H¥ÎAÄæ(«O¦s¤Ñ¼Æ)ªº¥½ºÝ¸ê®Æ¨Ó§PÂ_


¦n°Õ¡A§Aªº°ÝÃD§Ú³£¸Ñµª§¹²¦¤F
§ÚÁÙ¨S­n¶}©l¼g
§A¥ý¬D¾Ô¬Ý¬Ý§a~

§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-20 19:41

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-20 19:55 ½s¿è

¦^´_ 14# PJChen

·PÁ¡@n7822123«e½ú´£ÂI¡@²{¦b¤w¸g¥i¥H©ñ¨ì°}¦C¤F¡@
¦X¨ÖÀx¦s®æªº"Äæ¼Æ"(Columns.Count)¤£ª¾¦p¦ó­pºâ¡@¡ÖÈСա@
§Ú¬O¥Î¡@End(2).Column - 1¡@ªº¤è¦¡¡@¤£ª¾¹D·|¤£·|¦³°ÝÃD¡@¥Ø«e¬Ý°_¨Ó¬OÁÙ¥i¥H
¦ý°j°é«oÅܱo§ó¦h¤F¨þ¨þ¡D¡D¥ý¤£ºÞ¤F¡@¥ý½ÐPJChen¤j¤jÀ°§Ú¸Õ¸Õ¬Ý¡@¢û¢ð¢í¢í¢ü¢û¡]"stock" ¡^³¡¤À¦³¨S¦³°ÝÃD¡@·PÁÂ

[attach]33700[/attach]
§@ªÌ: n7822123    ®É¶¡: 2021-7-20 20:09

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-20 20:14 ½s¿è

¦^´_ 20# °a¤ªºµ

·PÁ¡@n7822123«e½ú´£ÂI¡@²{¦b¤w¸g¥i¥H©ñ¨ì°}¦C¤F¡@
¦X¨ÖÀx¦s®æªº"Äæ¼Æ"(Columns.Count)¤£ª¾¦p¦ó­pºâ¡@¡ÖÈСա@

°Ñ¦Ò¬Ý¬Ý

Set Rg = .Cells.Find("½LÂI", , , xlWhole)  '§ä­È="½LÂI"ªºªí®æ
If Not Rg Is Nothing Then
    C0 = Rg.Column                                          '¨Ó·½ªí°_©lÄæ
    C_Cnt = Rg.MergeArea.Columns.Count   '¸ê®ÆÄæ¼Æ
End If


¥Lªºªí®æ¨ä¹ê¥»¨­¦³Bug¡A¦p¤U¹Ï250g«e­± ¦³ªº¦³ªÅ¥Õ¡A¦³ªº¨S¦³

¦Ó¥B«~¦W¦³«Ü¦h¥u®t§O¤@­Ó¼Æ¦r(Ex:ÂA¨Å1~N)

©Ò¥H«~¦W¤]¤£¯à¼Ò½k¤ñ¹ï¡A­Y¼Ó¥D¦^õX¦³°ÝÃD¡A¥ýÀˬd¸ê®Æ§a~

³o­n§Ú¨Ó¼g¡A¥i¯à­n¼g¤@°ï¨¾§bµ{¦¡¡A¤£µM­þ¸Ì¦³°ÝÃD³£§ì¤£¨ì


[attach]33703[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-20 22:18

¦^´_ 20# °a¤ªºµ
³o­Óµ{¦¡ÀÉ,¥u¦³¤@­Óstockªºµ{¦¡,©Ò¥H´N¥ý´ú¸Õ³o­Ó
(§C¯×) 250gµLªk¶K¤W½LÂI¸ê®Æ
§@ªÌ: n7822123    ®É¶¡: 2021-7-20 23:06

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-20 23:14 ½s¿è

¦^´_ 20# °a¤ªºµ
¦^´_ 22# PJChen

§Ú¬O¼g¦n¤F....°j°é³Ì¦h´N2¼h¡A¦ýÀ³¸Ó¤]¨S¨º»ò¦nÀ´

µù¸Ñ¤w¸g¼g¦n¼gº¡¤F¡A¤@¥b³£¬Oµù¸Ñ~

¥D­n¬O®æ¦¡¤£¤Ó¦³³W«ß

¤£µM¤p¤pªº¸ê®Æ·h²¾µ{¦¡¤£¥Î¼g¨ì¨º»ò¦h¦æ...

·Pı¼g±o¦³ÂI¤¾ªø.....À³¸Ó¥i¥H¦A²¤Æ¤@¨Ç

¤£¹L¥ý½Ð¼Ó¥D½T»{¥\¯à­±§a~


[attach]33706[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-20 23:30

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-7-20 23:35 ½s¿è

¦^´_ 22# PJChen

ÁÂÁÂn7822123«e½ú¡@¥ý¤U¸ü¨Ó¬ã¨s¤@¤U¡@:P

¦^¡@PJChen¤j¤j¡@(§C¯×) 250g¡@ªº¤é´Á§ï¤@¤U¡@´N¥i¥H¤F¡@¦]¬°¡@¤é´Á¹ï¤£¨ì©Ò¥H¨S¦³¶K¤W

¸U¹F®w¦sªí 2021.07¡@¤é´Á¡@»P¡@¦h«È¤á½LÂIªí¡@stock¡@¤é´Á¤j³¡¤À³£¤£¬Û¦P¡@ª½¦³¡@(­ì¨ý)250g¡@¡@1/5        1/6        1/7¡@¤é´Á¬O¥¿½Tªº
§@ªÌ: n7822123    ®É¶¡: 2021-7-21 00:10

¦^´_ 24# °a¤ªºµ

¨S¿ù¡A§Ú¦b´ú¸Õ®É¤]µo²{¤é´Á¦³2021 »P 2022 ¨âºØ(¦³ªº«O­È´Á1¦~¡A¦³ªº¤~45¤Ñ)

©Ò¥H§Ú§â«Ü¦h¸ê®Æ³£§ï¹L¤F¡A¬°¤F´ú¸Õ

¦pªG¦³¬Ý¤£À´ªº¦a¤è¡A¦Aµo°Ý§a~¥Î¤F¤@¨Ç§Þ¥©¡A

¦pªG¤£¥Îªº¸Ü°j°é·|Åܦh¡A¤£®e©öDebug

§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-21 14:58

¦^´_ 22# PJChen

¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¦³¨S¦³°ÝÃD  §Ú¬O¤À¶}¼g ¦Ó¥B°j°é¤]¤ñ¸û¦h  
´ú¸Õªº®É­Ô ¤é´Á ¥i¯à­n­×§ï¤@¤U ¦³¨ÇÀɮפé´Á¹ïÀ³¤£¨ì

n7822123«e½úªº¼gªk§ÚÁÙ­n¦A¬ã¨s  ºCºC§l¦¬ ^^"  
·PÁ  n7822123«e½ú ¤£µM·|¥d§ó¤[...¨þ¨þ..
[attach]33712[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-21 22:16

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-7-21 22:20 ½s¿è

¦^´_ 26# °a¤ªºµ

ºµ¤j¦n,
ªº´ú¸ÕÀÉ,³£¨S¤°»ò°ÝÃD,§Ú·|¦A¥Î¥¿¦¡ªºÀÉ®×´ú¬Ý¬Ý
¥t,§Ú·s¼W¤F¤@­Ó´ú¸ÕÀÉ,µo²{µLªk¹B§@,½ÐÀ°§Ú¬Ý¤@¤U
[attach]33715[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-21 22:19

¦^´_ 23# n7822123
n¤j¦n,
§Ú¤U¸üªþ¥ó´ú¸Õ,¦ýµ{¦¡³£¨S¦³¤ÏÀ³,¨S¶K¤W¥ô¦ó¸ê®Æ,¤£ª¾¬O¦³¤°»ò¯S§O´ú¸Õ¤èªk¶Ü?
§@ªÌ: n7822123    ®É¶¡: 2021-7-21 22:52

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-21 22:54 ½s¿è

¦^´_ 28# PJChen


§Ú­è­è¤U¸ü¤F½×¾ÂªºÀɮסA´ú¹L¨S°ÝÃD§r

¥u¶}¥¨¶°ÀÉ¡A«ö¤U­±«ö¶s´N¶]§¹¤F

§A¥i¥H§â¦h«È¤á½LÂIªí¡A¥¨¶°­n¶ñªº¤º®e³£§R°£

°õ¦æ«á¬Ý¬Ý¡A¦]¬°µ¹ªºªþ¥óÀ³¸Ó¬O°õ¦æ¹Lªº¤F

¦pªG§A³£¨S§ïµ{¦¡ªº¸Ü¡A¹w³]³£©ñ¦b¦P¤@­Ó¸ê®Æ§¨¤U

[attach]33716[/attach]
[attach]33717[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-7-22 01:42

¦^´_ 27# PJChen

¦]¬° ¤u§@ªíªºFormat(SP(2), "D") »P x ¹ï¤£¨ì  §ï¥Î¤å¦r®æ¦¡¤ñ¹ï¬Ý¬Ý
«Øij¥Î n7822123 «e½ú¼gªº·|¤ñ¸û¦n µ²ªG¬O¤@¼Ëªº ®Ä²v¸û°ª


[attach]33718[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-7-22 19:54

¦^´_ 21# n7822123
©êºp,³o­Ó«~¦W¤¤¶¡¨S¦³ªÅ®æ,¬O§Ú¥´¿ù¤F
§@ªÌ: PJChen    ®É¶¡: 2021-7-22 20:08

¦^´_ 29# n7822123
¤j¤j,¤£¦n·N«ä
°õ¦æ«áÁÙ¬O³s¤@µ§¸ê®Æ³£¨S¶K¤W
¥t¥~,    iFile$ = Dir(iPath & "\*" & Keys(1) & "*.xls*")   '½T»{¬O§_¦³¦¹¨Ó·½ÀÉ
¹ê»Úªº¸ô®|¦³«Ü¦h¦P¨ÆªºÀÉ®×&Ãþ¥HªºÀɦW,
¦p¦ó¦bµ{¦¡¤¤±Æ°£¤£·Q¤ñ¹ïªºÀÉ®×?
¨Ò¦p¡G¥H¤U¤G­ÓÀÉ,¤£­n¥[¤J¤ñ¹ï¤¤ªº¸Ü,­n«ç»ò¼g¤Jµ{¦¡¤¤±Æ°£¥¦¡H
¨Î¨Î(´ò¤f¼t)®w¦sªí.xlsx
¼t¯Ê¦^õX.xlsx
[attach]33722[/attach]
§@ªÌ: n7822123    ®É¶¡: 2021-7-23 12:16

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-23 12:19 ½s¿è

¦^´_ 32# PJChen

°õ¦æ«áÁÙ¬O³s¤@µ§¸ê®Æ³£¨S¶K¤W

§A¥ý§O¥Î§Aªº´ú¸ÕÀÉ¡A§A¥ý¥Î§Ú¤W¦¸¤W¶Ç¸Ì­±ªº´ú¸ÕÀɬݬÝ

¦pªGÁÙ¬O¤@¼Ë¡A¨º¥i¯à¬OÀô¹Ò°ÝÃD¡A¦pªG§Úªº´ú¸ÕÀɨS°ÝÃD

¨º¥i¯à¬O§AªºÀx¦s®æ¸ê®Æ¨S¦³¬Û¹ïÀ³¡B©ÎªÌ§A¤S¦³¨ä¥LÀɮ׮榡

§Ú¤W¦¸´Nµo²{§Aªº"«~¦W"  «Ü¦³°ÝÃD

ÁÙ¦³»¡©úºÉ¶q¥Î"¹Ï¤ù"¡A¤£µM§O¤H«ÜÃøÀ´§A¦bªí¹F¤°»ò

§@ªÌ: PJChen    ®É¶¡: 2021-12-6 14:27

¦^´_ 30# °a¤ªºµ
¤j¤j¦n,

§Ú·Q¼W¥[¤@­Ó³æ¿Wµ{¦¡
±q¦U®w¦sªí¤¤,ºI¨ú"´Á¥½¼Æ¶q"
¶K¨ì¦h«È¤á½LÂIªíªºMÄæ"´Áªì"

±Ä»P¤§«eªº"¨ú½LÂI¼Æ¶q"¦P¼Ëªºµ{¦¡­ì«h
1) ·j´M¦U®wªíªº"´Á¥½"¤G¦r,¬°·j´MªºÄæ¦ì
2) ¤ñ¹ï«~¦W& «È¤á¦WºÙ
3) ¦h«È¤á½LÂIªíªºE4 & DIÄ欰§ä´M¤u§@ªíªº¨Ì¾Ú
4) ¸U¹F®w¦sªí,©ú¦~«×¶}©l¤]§ï¬°¤GÄ榡,©Ò¥H¤£¥Î¬ÝStock!
¨Ò1¡G½LÂI!E4=2021/07/13
¤ñ¹ï AÄæ«È¤á"ÂAªá"ªºDIÄæ¬OD+1,«h­n§ä
ÂAªá®w¦sªíªº"13!"

¨Ò2¡G½LÂI!E4=2021/07/13
¤ñ¹ï AÄæ«È¤á"»e¸Á"ªºDIÄæ¬OD+0,«h­n§ä
»e¸Á®w¦sªíªº"12!"
²Å¦X¥H¤W­n¥ó,«h
¶K¨ì¦h«È¤á½LÂIªíªºMÄæ"´Áªì"
    [attach]34464[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-12-7 16:41

¦^´_ 30# °a¤ªºµ
ºµ¤j¦n,
³o¦¸­«ÂI¦b´ú¸Õ´Áªì/´Á¥½¼Æ¦r.
¦A§ó·s¦Uªí®æ,¥H¤è«K´ú¸Õ
[attach]34469[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-8 11:43

¦^´_ 35# PJChen
¦³ªÅ¸Õ¸Õ¬Ý§a §Ú¥u¬O§ï¤@¤U¦Ó¤w ¨S¦³­«¼g


javascript:;
§@ªÌ: PJChen    ®É¶¡: 2021-12-8 22:48

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-12-8 22:49 ½s¿è

¦^´_ 36# °a¤ªºµ

ºµ¤j¦n,
§Ú¥ý´ú¸Õ¤F¤G®a,D+0 / D+1¦U´ú¸Õ¤@®a
1) »e¸Á...¬OD+0
E4=2021/07/15
À³¸Ó§ä14¤u§@ªí,¦ý«o§ä¤F13

2) ¸U¹F...¬OD+1
E4=2021/07/15
À³¸Ó§ä15¤u§@ªí,¦ý«o§ä¤F13

§Ú·QÀ³¬O§ä¤u§@ªí³W«h¿ù»~
§ä¤u§@ªí¦³©T©w³W«h....
D+0 or D+1ªº®M¥Î¦p¤U
D+0....E4¤é´Á=7/15®É+(+0)-1=15+0-1=14
D+1....E4¤é´Á=7/15®É+(+1)-1=15+1-1=15

½Ð°Ýµ{¦¡¤¤ªº³W«h­n«ç»ò§ïªk¡H
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-8 23:29

¦^´_ 37# PJChen
©êºp §ïªº®É­Ô¨S¬Ý²M·¡ ¦A¬Ý¬Ý¦³¨S¦³°ÝÃD·PÁÂ

javascript:;
§@ªÌ: PJChen    ®É¶¡: 2021-12-9 00:22

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-12-9 00:23 ½s¿è

¦^´_ 38# °a¤ªºµ

ºµ¤j¦n,
D+1³£·|§ì¨ú14¤u§@ªí,
À³¸Ó­n­n¨ú15¤u§@ªíªº¼Æ¾Ú¡I

§ä¤u§@ªí¦³©T©w³W«h....
DIÄæ D+0 or D+1ªº®M¥Î¦p¤U
DIÄæ¬O¼Æ¦r,D+0=0, D+1=1
D+0....E4¤é´Á=7/15®É+([DI]ªº­È)-1=15+0-1=14
D+1....E4¤é´Á=7/15®É+([DI]ªº­È)-1=15+1-1=15

¯à§_§âµ{¦¡§ï¦¨......+([DI]ªº­È)-1
³o¼Ë¤~·|¥¿½T
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-9 19:42

¦^´_ 39# PJChen
¦b¬Ý¬Ý§a §Ú¤Ö§PÂ_¤@­Ó ÀɦW ¨þ¨þ.. >"<


javascript:;
§@ªÌ: PJChen    ®É¶¡: 2021-12-13 00:00

¦^´_ 40# °a¤ªºµ

ºµ¤j¦n,
³o¦¸ÀÉ®×,¬O­×§ï¥¿¦¡ÀÉ,´ú¸Õ®É½LÂI¸ê®ÆºI¨úªº±¡§Î
1) ÂAªáÂI®w¦sªí ½LÂI¸ê®Æ,«O¤[¨Åªº³¡¥÷µLªk¶K¤W
2) ¸U¹F®w¦sªí ½LÂI¸ê®Æ,µLªk¶K¤W
3) ¨Î¨Î¦n¤¤Ãc¼t®w¦sªí 12/14 ½LÂI¸ê®Æ,µLªk¶K¤W
³o­Ó®w¦sªí¤ñ¸û¯S®í,¨Ò¦p¡G14¤u§@ªíªº¸ê®Æ,´N»P¨ä¥L³£¤£¬Û¦P,
³o­Ó¥u¦b±M®×®É¤~·|¥X²{,¬ù¦³2~3­Ó¤u§@ªí¬O¯S®í¤u§@ªí,³o¦¸¥u°µ¤@­Ó14¯S®í¤u§@ªí

¥t¥~¦b¥¿¦¡Àɪº§@·~,³s´Áªì³£µLªk¥¿±`¶K¤W,¦ý¦b´ú¸ÕÀÉ«h´X¥G³£¥¿±`
[attach]34509[/attach]
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-13 12:49

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-12-13 12:53 ½s¿è

¦^´_ 41# PJChen

§Ú¸Õ ´Á¥½ ¥i¥H¶K¨ì ´Áªì  ¨S¦³°ÝÃD ©p¬O«ü ªº ½LÂI¸ê®Æ
Workbooks("¦h«È¤á½LÂIªí.xlsx").Sheets("stock") ¬O¬Æ»ò§@¥Î?
¥i§_¦b»¡©ú¤@¦¸ ²Ó¸`¨BÆJ ·PÁÂ
§@ªÌ: PJChen    ®É¶¡: 2021-12-13 13:23

¦^´_ 42# °a¤ªºµ
ºµ¤j¦n,
³o¦¸ÀÉ®×,¬O­×§ï¥¿¦¡ÀÉ,´ú¸Õ®É¤GÄ榡½LÂI¸ê®ÆºI¨úªº±¡§Î
1) ÂAªáÂI®w¦sªí ½LÂI¸ê®Æ,«O¤[¨Åªº³¡¥÷µLªk¶K¤W,¥H12/11´ú¸Õ
2) ¸U¹F®w¦sªí ½LÂI¸ê®Æ,µLªk¶K¤W,¥H12/11´ú¸Õ
3) ¨Î¨Î¦n¤¤Ãc¼t®w¦sªí 12/14 ½LÂI¸ê®Æ,µLªk¶K¤W
³o­Ó®w¦sªí¤ñ¸û¯S®í,¨Ò¦p¡G14¤u§@ªíªº¸ê®Æ,´N»P¨ä¥L³£¤£¬Û¦P,
³o­Ó¥u¦b±M®×®É¤~·|¥X²{,¬ù¦³2~3­Ó¤u§@ªí¬O¯S®í¤u§@ªí,³o¦¸¥u°µ¤@­Ó14¯S®í¤u§@ªí
¥H¤W¬O¦b´ú¸ÕÀÉ®É,µo²{ªº¤£¥¿±`±¡§Î,½Ð¥ýÀ°¦£¬Ý¦³°ÝÃDªº³¡¥÷

¥t¥~¦b¥¿¦¡Àɪº§@·~,³s´Áªì³£µLªk¥¿±`¶K¤W,
³o­Ó¬O«ü§Ú¥­¤é¨Ï¥Îªº©Ò¦³ÀÉ®×,´Áªì³£µL¥¿±`¶K¤W©~¦h
³o¨ÇÀÉ©ú¦~«×ÁÙ·|¦A´«¤@§å·sÀÉ,©¡®É¦A´ú¸Õ¬Ý¬Ý
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-13 13:39

¦^´_ 43# PJChen

½Ð°Ý©pªºªí®æ®æ¦¡ ¥]§t¦h«È¤á½LÂIªí©M¨ä¥LÀÉ®×  ¬O§_³£¤£©T©w?
§@ªÌ: PJChen    ®É¶¡: 2021-12-13 18:10

¦^´_ 44# °a¤ªºµ

ºµ¤j¦n,
1) ¦h«È¤á½LÂIªí...Äæ¦ì³¡¥÷°ò¥»¤W¬O¤£Åܪº,¦Cªº³¡¥÷¦]¬°¥]§t¤F«È¤á¤Î«~¦W,
·í«È¤áor²£«~¼W¥[,´N¤@©w·|ÀHµÛÅÜ°Ê
¦]¬°µ{¦¡ªº¨Ì¾Ú¤§¤@´N¬O«È¤á&²£«~,¤£À³¸Ó¨ü¼vÅT¤~¬O¡I

2) ¦U«È¤áªº®w¦sªí,±Ä¤GÄæ¦X¨Ö,©ú¦~«×¶}©l­ì¤TÄæ¦X¨Öªº¸U¹F,¤]§ï¬°¤GÄæ
Äæ¦ì³¡¥÷°ò¥»¤W,¦b½LÂI¸ê®Æ«eªº,¤£·|§ïÅÜ,³o¦¸¥u¦³¸U¹F¦b½LÂIÄæ¦ì«e¦³¼W¥[¤@Äæ,
¦ý¼gµ{¦¡®É¤£¬O¥H"½LÂI"¤G¦r,´M§ä½d³ò©w¦ìÂI?
«á¨Ó·s¼Wªº´Áªì¼Æ¾Ú,¤]¬O¥H"´Á¥½"¤G¦r,´M§ä½d³ò©w¦ìÂI

¦Cªº³¡¥÷¦]¬°¥]§t«~¦W,·í²£«~µ²§ô,©Î¼W¥[²£«~,¦C¼Æ¤@©w·|¦³¼W¥[or´î¤Ö¡I
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-14 13:26

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-12-14 13:29 ½s¿è

¦^´_ 45# PJChen

¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý¦æ¤£¦æ ·PÁ  ¦ý °j°éÅܦh¤F¥Î¤F7­Ó°j°é..... ³t«×¤]·|ÅܺC¬Ý¬Ý¦³¨S¦³¤j¤j¥i¥HÀ°¦£^^"
    javascript:;
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-14 14:11

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-12-14 14:21 ½s¿è

¦^´_ 45# PJChen

³o¬O¥[¤J ´Á¥½©M½LÂI ¤@°_¤ñ¹ï ¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬ÝÁÙ¦³¨S¦³°ÝÃD ·PÁÂ

[attach]34520[/attach]
§@ªÌ: PJChen    ®É¶¡: 2021-12-14 17:15

¦^´_ 47# °a¤ªºµ
ºµ¤j¦n,
½Ð°Ý²{±N´Áªì&½LÂI¦X¬°¤@­Óµ{¦¡,­ì¥ý¬O§Æ±æ¤À¦¨¤G­Óµ{¦¡ªº¡I
¦]¬°¦³®É·|¤À¶}¨Ï¥Î....

¥Ø«e¥u¯à¥ý¥H´ú¸ÕÀÉ´ú¸Õ
µo²{½LÂIµL¼Æ¾Ú®É,µLªk¶K¤W´Áªì­È
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-15 08:52

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-12-15 08:55 ½s¿è

¦^´_ 48# PJChen

µo²{½LÂIµL¼Æ¾Ú®É,µLªk¶K¤W´Áªì­È    <----§â§PÂ_µù¸Ñ¤F

¤w¸g§âµ{¦¡ ½Æ»s¨Ã¤À¶}¤F ¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¦³°ÝÃD¦A¸ò§Ú»¡ ·PÁÂ


[attach]34522[/attach]
§@ªÌ: ­ã´£³¡ªL    ®É¶¡: 2021-12-15 21:12

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2021-12-15 21:14 ½s¿è

¨S¸Ô²Ó¬Ý­n§ì¤°»ò¼Æ¾Ú, ÀH«K¼g¤@­Ó°Ñ¦Ò, ¦Û¦æ¤F¸Ñµ{¦¡½X¦A®Ú¾Ú»Ý¨D§ï§ï:
Sub ½LÂI_´Áªì®w¦s()
Dim Arr, DD, PH$, FN1$, FN2$, FT$
Dim xB1 As Workbook, xS1 As Worksheet, xB2 As Workbook, xS2 As Worksheet
Dim xF1 As Range, xF2 As Range, TT$, DY
Application.ScreenUpdating = False
PH = ThisWorkbook.Path & "\"
FN2 = Range("B8")
If FN2 = "" Then MsgBox "«ü©wÀɦWºÙ¥¼¿é¤J!  ": Exit Sub
FN2 = Dir(PH & FN2 & "*.xls*")
If FN2 = "" Then MsgBox "«ü©wÀɤ£¦s¦b!  ": Exit Sub
'----------------------------------
FN1 = "¦h«È¤á½LÂIªí.xls"
On Error Resume Next: Set xB1 = Workbooks(FN1): On Error GoTo 0
If xB1 Is Nothing Then Set xB1 = Workbooks.Open(PH & FN1)
'-----------------------------------
On Error Resume Next: Set xB2 = Workbooks(FN2): On Error GoTo 0
If xB2 Is Nothing Then Set xB2 = Workbooks.Open(PH & FN2)
FT = Split(FN2, "­Ü®w")(0) 'ºI¨ú[«È¤á]¦WºÙ
'-----------------------------------
ThisWorkbook.Activate
Set xS1 = xB1.Sheets("½LÂI")
DD = xS1.[e4]
Arr = Range(xS1.[di1], xS1.[a6536].End(3))
For i = 6 To UBound(Arr) Step 2
    TT = Arr(i, 5) '«~¦W
    DY = Day(DD + Arr(i, UBound(Arr, 2)) - 1) '¤é´Á--day..¥H di Äæ¨ú·í¤Ñ©Î«e¤@¤Ñ
    If Arr(i, 1) <> FT Or TT = "" Then GoTo i01
    On Error Resume Next: Set xS2 = xB2.Sheets(DY & ""): On Error GoTo 0
    If xS2 Is Nothing Then GoTo i01
    Set xF1 = xS2.Cells.Find("´Á¥½", Lookat:=xlWhole) '§ä[´Á¥½®w¦s]¦ì¸m
    Set xF2 = xS2.[b:b].Find(TT, Lookat:=xlWhole) '§äBÄæ[«~¦W]¦ì¸m
    If xF1 Is Nothing Or xF2 Is Nothing Then GoTo i01
    xS1.Cells(i, 13) = xS2.Cells(xF2.Row, xF1.Column)
i01: Next i
MsgBox "´Áªì®w¦s¸ü¤J§¹¦¨, ¦h«È¤á½LÂIªí©|¥¼Àx¦s, ­Y½T©wµL»~¦A¤â°Ê¦sÀÉ!  "
End Sub
§@ªÌ: °a¤ªºµ    ®É¶¡: 2021-12-16 10:56

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

ÁÂÁ ·Ç¤j ¤p§Ì¬ã¨s¤@¤U ·PÁÂ
§@ªÌ: PJChen    ®É¶¡: 2021-12-16 21:08

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

­ã¤j¦n,

1) FT = Split(FN2, "®w¦sªí")(0)
«È¤áÀɦW¤j¦h¥HXXX®w¦sªí ©R¦W

¦ýFT = Split(FN2, "®w¦sªí")(0) 'ºI¨ú[«È¤á]¦WºÙ
³o¸Ì¬O¥Î³Ì¤j¦h¼Æªº"®w¦sªí"¨Ó¤ÀÂ÷¦r¦ê
¦ý¦]¬°¦P¤@«È¤á¦³¤£¦P¼t§O,
¨Ò¦p¡G¨Î¨Î¤¤Ãc¼t®w¦sªí
¦b[B8]·|¿é¤J"¨Î¨Î¤¤Ãc¼t®w¦sªí"
³o¼Ë¤S·|§ì¤£¨ìÀÉ®×
½Ð°Ý¦p¦ó­×§ï?
FT = Split(FN2, "®w¦sªí")(0)

2)
±Nµ{¦¡§ï¬°§ì¨ú½LÂI¸ê®Æ®É,
Áٻݭn¥[¤J¤@¬q¤ñ¹ï¤é´Áªºµ{¦¡
¤ñ¹ï³W«h
«È¤á®w¦sªíªº²Ä7¦C,¹ïÀ³"¦h«È¤á½LÂIªí"ªº²Ä6¦C
½Ð°Ý¥H¤Uµ{¦¡­n«ç»ò­×§ï?
    Set xF1 = xS2.Cells.Find("½LÂI", Lookat:=xlWhole) '§ä«È¤á[½LÂI]¦ì¸m
    Set xF2 = xS2.[b:b].Find(TT, Lookat:=xlWhole) '§äBÄæ[«~¦W]¦ì¸m
    If xF1 Is Nothing Or xF2 Is Nothing Then GoTo i01
    xS1.Cells(i, 60) = xS2.Cells(xF2.Row, xF1.Column) '¦h«È¤á½LÂIÄæ=60
§@ªÌ: ­ã´£³¡ªL    ®É¶¡: 2021-12-18 11:36

¦^´_ 52# PJChen


Sub ½LÂI_«ü©w¤é¼Æ¶q_¸ü¤J()
Dim Arr, Brr, Crr(1 To 25), xD, i&, j%, k%
Dim xB As Workbook, xS As Worksheet, xNN$, vB As Workbook, vS As Worksheet, vNN$
Dim PH$, xN$, DD, D$(1), xF As Range
Application.ScreenUpdating = False
Set xD = CreateObject("Scripting.Dictionary")
PH = ThisWorkbook.Path & "\"
vNN = Range("B8")
If vNN = "" Then MsgBox "«ü©wÀɦWºÙ¥¼¿é¤J!  ": Exit Sub
vNN = Dir(PH & vNN & "*.xls*")
If vNN = "" Then MsgBox "«ü©wÀɤ£¦s¦b!  ": Exit Sub
'----------------------------------
xNN = "¦h«È¤á½LÂIªí.xls"
On Error Resume Next: Set xB = Workbooks(xNN): On Error GoTo 0
If xB Is Nothing Then Set xB = Workbooks.Open(PH & xNN)
Set xS = xB.Sheets("½LÂI"): DD = CDate(xS.[e4])
D(0) = Day(DD - 1): D(1) = Day(DD)
Arr = Range(xS.[di1], xS.[a6536].End(3))
'-----------------------------------
On Error Resume Next: Set vB = Workbooks(vNN): On Error GoTo 0
If vB Is Nothing Then Set vB = Workbooks.Open(PH & vNN)
For k = 0 To 1
    Set vS = vB.Sheets(D(k) & "")
    Brr = vS.UsedRange
    Set xF = vS.Cells.Find("½LÂI", Lookat:=xlWhole).MergeArea
    For i = xF.Row + 2 To UBound(Brr) Step 2
        If Brr(i, 2) = "" Then GoTo i01 '«~¦WªÅ¥Õ
        For j = xF.Column To xF.Column + xF.Columns.Count - 1
            xD(Brr(i, 2) & "|" & k & "|" & CLng(Brr(i, j))) = Brr(i + 1, j)
        Next j
i01: Next i
Next k
vB.Close 0
'-----------------------------------
For i = 6 To UBound(Arr) Step 2
    If InStr("/" & vNN, Arr(i, 1)) <> 2 Or Arr(i, 5) = "" Then GoTo i02 '«È¤á¦WºÙ¤ñ¹ï
    For j = 1 To UBound(Crr)
        Crr(j) = xD(Arr(i, 5) & "|" & Arr(i, UBound(Arr, 2)) & "|" & CLng(Arr(i, j + 59)))
    Next j
    xS.Cells(i + 1, 60).Resize(1, UBound(Crr)) = Crr:   Erase Crr()
i02: Next i
xB.Activate: xS.Activate
Erase Arr, Brr: Set xD = Nothing: Set xB = Nothing: Set vB = Nothing: Set xS = Nothing: Set vS = Nothing
MsgBox "½LÂI¼Æ¶q¸ü¤J§¹¦¨, ¦h«È¤á½LÂIªí©|¥¼Àx¦s, ­Y½T©wµL»~¦A¤â°Ê¦sÀÉ!  "
End Sub
§@ªÌ: PJChen    ®É¶¡: 2022-1-2 00:39

¦^´_ 53# ­ã´£³¡ªL
­ã¤j¦n,

´ú¸Õ¦h¤é,´Áªì&½LÂI¸ê®Æ,³£¥¿½T...
·PÁ¡I




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)