Lập VBA sắp xếp thứ thự ngày tháng (1 người xem)

[Chian91]

E có file excel đính kèm. Em muốn sắp xếp thứ tự ngày tháng theo thứ tự tăng dần trên cột F. và các dữ liệu tương ứng của các hàng cũng chạy theo từ cột C đến cột F. e xin chân thành cảm ơn!

 

[phulien1902]

E có file excel đính kèm. Em muốn sắp xếp thứ tự ngày tháng theo thứ tự tăng dần trên cột F. và các dữ liệu tương ứng của các hàng cũng chạy theo từ cột C đến cột F. e xin chân thành cảm ơn!

Bạn thử:

Sub abc()
    ActiveSheet.Range("F15").Sort Key1:=ActiveSheet.Columns("F"), Order1:=xlAscending, Header:=xlGuess
End Sub

 

[Chian91]

Em cám ơn nhiều ạ!

 

[Chian91]

Em chỉ muốn các hàng từ cột C đến cột F chạy theo còn các hàng cột A,B giữ nguyên ạ. A/C giúp em với!

 

[phulien1902]

'----------------------

 

[HieuCD]

Em chỉ muốn các hàng từ cột C đến cột F chạy theo còn các hàng cột A,B giữ nguyên ạ. A/C giúp em với!

thử code

Sub GPE()
    ActiveSheet.Range("D16:F815").Sort Key1:=ActiveSheet.Columns("F"), Order1:=xlAscending, Header:=xlNo
End Sub

 

[phulien1902]

thử code

Sub GPE()
    ActiveSheet.Range("D16:F815").Sort Key1:=ActiveSheet.Columns("F"), Order1:=xlAscending, Header:=xlNo
End Sub

Xin lỗi mọi người.

 

[HieuCD]

.....

Mình ít khi dùng lệnh sort nên mới viết thử
Chúc bạn và gia đình một tối vui

 

[Chian91]

E cám ơn các A/C nhiều ạ!

 

[Chian91]

Tiện đây các A/C giúp đỡ em với. trong file đính kèm e muốn lập VBA chứ không muốn dùng công thức như trong file. Nhờ các A/C giúp e với, e xin cảm ơn nhiều ạ.

 

[HieuCD]

Tiện đây các A/C giúp đỡ em với. trong file đính kèm e muốn lập VBA chứ không muốn dùng công thức như trong file. Nhờ các A/C giúp e với, e xin cảm ơn nhiều ạ.

chạy code

Sub NgayDi()
Dim Arr(), Darr(), i As Long
On Error Resume Next
With Sheet1
  Darr = .Range("E4", .Range("E" & Rows.Count).End(3)).Value2
  ReDim Arr(1 To UBound(Darr), 1 To 1)
  For i = 1 To UBound(Darr, 1)
    If Darr(i, 1) <> "" Then Arr(i, 1) = Darr(i, 1) + 3
  Next i
  .Range("F4").Resize(UBound(Darr)) = Arr
End With
End Sub

 

[Hoang2013]

Sub VBAThayChoCongThuc()
 Dim J As Long, KCach As Long

 KCach = [g2].Value
 For J = 4 To 18
    With Cells(J, "E")
        If IsDate(.Value) Then
            .Offset(, 1).Value = .Value + KCach
        End If
    End With
 Next J
End Sub

(Chậm rồi nhưng vẫn đưa lên vậy!)

 

[phuyen89]

Tiện đây các A/C giúp đỡ em với. trong file đính kèm e muốn lập VBA chứ không muốn dùng công thức như trong file. Nhờ các A/C giúp e với, e xin cảm ơn nhiều ạ.

Bạn chép Code sau vào Module và chạy xem nhé.

Sub TinhToan()
    Dim iDistance As Double
    Dim rng As Range
    iDistance = Sheet1.Range("G2").Value
    For Each rng In Range("E4", Sheet1.Range("E60000").End(xlUp))
        If Not IsEmpty(rng.Value) = True Then
            rng.Offset(, 2).Value = rng.Value + iDistance
        End If
    Next rng
End Sub

 

[Chian91]

Em chân thành cám ơn các A/C nhiều ạ!

 

[bibim2014]