n7822123

¦^´_ 1# mdr0465


³o®É­Ô´N­n¥J²Ó¾\Ū ·L³nµ¹ªº¨Ï¥Î»¡©ú¤F~

Excel ªº¿z¿ï¥\¯à¦³­­¨î¡A¥u¯à¦r¦ê¤ñ¹ï~~ ¦p¤U¹Ï

©Ò¥H¤£¯à¤é´Á/¼Æ¦r¤ñ¹ï~

¤U¸ü (49.85 KB)

2020-8-22 16:33

§â¤é´Á®æ¦¡§ï¤@¤U´N¦n¤F¡AÂ^¨ú§A³¡¤Àµ{¦¡¨Ó»¡©ú

D1 = DateSerial(CInt(splitstr(2)), CInt(splitstr(1)), CInt(splitstr(0)))
S1$ = Format(D1, "dd/mm/yy")
Set xR = Range("GROUPING!A1:K10000")
With xR
    .AutoFilter
    .AutoFilter Field:=2, Criteria1:=S1
    Range("GROUPING!A1").CurrentRegion.Copy
    Sheets("DAILY SALES").Range("A1").PasteSpecial xlValues
    .AutoFilter
End With

n7822123

¦^´_ 3# mdr0465

¦]¬°§Ú°O±o§Aªºµ{¦¡ÁÙ¦³¨ä¥L°ÝÃD....................

§Ú§ï¤F¤@¨Ç¡A¤w§Ñ°O§ï¤F­þ¨Ç¤F¡Aµ{¦¡¶Kµ¹§A

¿é¤J¤é´Áªº®É­Ô¤£­n¿é¤J Âù¤Þ¸¹ "

§A¦Û¤v¤ñ¹ï§a~~µ{¦¡¦p¤U

Sub Daily_Sales()
Dim xR As Range
Dim D1 As Date
Dim strformat As String
Dim splitstr() As String
Dim str As String
On Error Resume Next
Sheets("DAILY SALES").Range("A2:K1000").Clear
str = InputBox("Please Input The Date You Want to Search" & Chr(10) & Chr(10) & "Input Format ""DD/MM/YY""")
splitstr = Split(str, "/")
D1 = DateSerial(CInt(splitstr(2)), CInt(splitstr(1)), CInt(splitstr(0)))
S1$ = Format(D1, "dd/mm/yy")
Set xR = Range("GROUPING!A1:K10000")
With xR
    .AutoFilter
    .AutoFilter Field:=2, Criteria1:=S1
    Range("GROUPING!A1").CurrentRegion.Copy
    Sheets("DAILY SALES").Range("A1").PasteSpecial xlValues
    .AutoFilter
End With
Sheets("DAILY SALES").Activate
With Range([K2], [A65536].End(xlUp)) 'set borders
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Borders.ColorIndex = xlAutomatic
    .Font.Size = 18
    .Font.Name = "Times New Roman"
    .HorizontalAlignment = xlCenter
    .EntireColumn.AutoFit
End With
k = 2  ' for exchange date format
Do Until IsEmpty(Cells(k, 2))
    Cells(k, 2).NumberFormatLocal = "dd""/""mm""/""yy;@"
    k = k + 1
Loop
Range("A1").Select
End Sub

Àɮצp¤U

¼Ë¿ì.rar (45.49 KB)

¤U¸ü¦¸¼Æ: 4

2020-8-22 17:18