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

[µo°Ý] ¹ïÀ³¤é´Á¶K½LÂI¸ê®Æ

¦^´_ 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³£¥¿±`
­×§ï¥¿¦¡ÀÉ´ú¸Õ_20211212.rar (1.1 MB)

TOP

¥»©«³Ì«á¥Ñ °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ÁÂ

TOP

¦^´_ 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´ú¸Õ¬Ý¬Ý

TOP

¦^´_ 43# PJChen

½Ð°Ý©pªºªí®æ®æ¦¡ ¥]§t¦h«È¤á½LÂIªí©M¨ä¥LÀÉ®×  ¬O§_³£¤£©T©w?

TOP

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

TOP

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

¦^´_ 45# PJChen

¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý¦æ¤£¦æ ·PÁ  ¦ý °j°éÅܦh¤F¥Î¤F7­Ó°j°é..... ³t«×¤]·|ÅܺC¬Ý¬Ý¦³¨S¦³¤j¤j¥i¥HÀ°¦£^^"
    javascript:;

Macro_1_1214.rar (37.31 KB)

TOP

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

¦^´_ 45# PJChen

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

Macro_1_1214_.rar (40.71 KB)

TOP

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

¥Ø«e¥u¯à¥ý¥H´ú¸ÕÀÉ´ú¸Õ
µo²{½LÂIµL¼Æ¾Ú®É,µLªk¶K¤W´Áªì­È

TOP

¥»©«³Ì«á¥Ñ °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ÁÂ


Macro_1_1215.rar (44.32 KB)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ª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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD