Đến đây bác lại nói:anhtuan1066 đã viết:
Nếu thật sự bác đã dùng các kiểu, cho em hỏi: Dùng cột phụ không phải là kiểu sao? Với em bài này nếu không dùng cột phụ để tách tháng ra thì em bó tay.anhtuan1066 đã viết:
Chibi đã viết:
[color=darkblue]Sub[/color] Macro2()
[color=green]'[/color]
' Macro2 Macro
[color=green]' Macro recorded 12/11/2007 by QuocAnh[/color]
[color=green]'[/color]
'
Sheet1.Select
Cells.Find(What:="ngay sinh", SearchOrder:=xlByRows).Activate
[color=darkblue]Dim[/color] sodong [color=darkblue]As[/color] [color=darkblue]Long[/color]
sodong = ActiveCell.CurrentRegion.Rows.Count
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "cot phu"
ActiveCell.Offset(1, 0).FormulaR1C1 = "=DATE(9999,MONTH(RC[1]),DAY(RC[1]))"
ActiveCell.Offset(1, 0).AutoFill Destination:=ActiveCell.Range("A2:A" & sodong)
ActiveCell.Range("A1").Select
Selection.Sort Key1:=ActiveCell, Order1:= _
xlAscending, Key2:=ActiveCell.Offset(0, -2).Range("A1"), Order2:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Select
[color=darkblue]End[/color] [color=darkblue]Sub[/color]SA_DQ đã viết:
Sub SAPXEP()
Range("D2:D10000").NumberFormat = "mmm"
Range("B2:K10000").Sort Key1:=Range("D2"), Order1:=xlAscending
Range("D2:D10000").NumberFormat = "dd/mm/yyyy"
End SubSao kỳ vậy cà... Có bác nào bị giống vậy nữa không? Em test kỹ lắm mới dám cho lên đây đấy chứ.anhtuan1066 đã viết:
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=ActiveCell.Range _
("A1:A743"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", DataOption:=xlSortNormalNếu dùng VBA rồi thì chơi tới luôn. Nếu ngày không ở cột D hoặc dòng cuối lớn hơn 10000 thì sao? SortMonth mang tính tổng quát hơn, bao nhiêu dòng hoặc ngày ở cột nào cũng được (hạn chế là bảng tính không sử dụng cột IV (cột 256 cuối cùng) vì SortMonth sẽ dùng cột.anhtuan1066 đã viết:
[/FONT]
[FONT=Verdana]Sub SortMonth()
On Error GoTo baoloi
rc = Cells(1, 1).End(xlDown).Row
cotngay = ActiveCell.Column
tencot = Mid(Cells(1, cotngay).Address, 2, InStr(2, Cells(1, cotngay).Address, "$") - 2)
chon = MsgBox("Ban sap xep thang cho cot " & tencot & " ?", vbYesNo + vbDefaultButton2, "Sort Month")
If chon = 6 Then
For r = 2 To rc
Cells(r, 256) = Month(Cells(r, cotngay))
Next
Range(Cells(2, 1), Cells(rc, 256)).Sort Key1:=Cells(2, 256), Order1:=xlAscending, Header:=xlNo
Columns(256).ClearContents
Cells(1, cotngay).Select
End If
Exit Sub
baoloi:
MsgBox "Du lieu ô " & Cells(r, cotngay).Address(0, 0) & " khong phai ngay!", vbOKOnly, "Sort Month"
Cells(r, cotngay).Select
End Sub
[/FONT]
[FONT=Verdana]=(day(...)=d/k1)*(month(...)=dk2)*row($2:$...)
