Help: Đảo các ký tự trong chuỗi

[TienDuongPC]

Lúc trước em nhập ngày tháng năm theo kiểu MM,dd,yyyy, bây giờ muốn đổi lại thành dd,MM,yyyy
ai giúp em với

 

[vu_tuan_manh_linh]

Thử cách này đi.
1. Tùy chỉnh trong Control Panel định dạng ngày tháng là mm/dd/yyy
2. Mở file excel ra, định dạng cho cột ngày tháng là mm/dd/yyyy
3. Lưu file
4. Chỉnh trong control panel định dạng là dd/mm/yyyy
5. Mở file excel, định dạng vùng ngày tháng là dd/mm/yyyy
Hy vọng là ok.

 

[TienDuongPC]

Thử cách này đi.
1. Tùy chỉnh trong Control Panel định dạng ngày tháng là mm/dd/yyy
2. Mở file excel ra, định dạng cho cột ngày tháng là mm/dd/yyyy
3. Lưu file
4. Chỉnh trong control panel định dạng là dd/mm/yyyy
5. Mở file excel, định dạng vùng ngày tháng là dd/mm/yyyy
Hy vọng là ok.

File này lúc trước em đánh bằng định dạng cột là text lên bây giờ đổi theo kiểu đó nó cũng ko thay đổi gì cả bác à.

 

[hoamattroicoi]

File này lúc trước em đánh bằng định dạng cột là text lên bây giờ đổi theo kiểu đó nó cũng ko thay đổi gì cả bác à.

Nếu bị dính kiểu Text mà thử các kiểu đều không được kể cả vụ +0, *1, rồi paste ADD thì dùng chức năng Text column của Excel tách chuỗi ngăn cách bởi dấu "/" rồi dùng hàm Date nối lại là OK.

 

[vu_tuan_manh_linh]

File này lúc trước em đánh bằng định dạng cột là text lên bây giờ đổi theo kiểu đó nó cũng ko thay đổi gì cả bác à.

Chịu khó làm như tôi hướng dẫn, trước khi thực hiện bước 3 thì quét toàn bộ vùng dữ liệu ngày tháng của bạn rồi chạy đoạn code sau

Sub F2_Selection()
Dim Cll As Range
Dim Fml As Variant, Vl As Variant
For Each Cll In Selection
    If Rows(Cll.Row & ":" & Cll.Row).EntireRow.Hidden = False Then
        Cll.Select
        Fml = Cll.Formula
        Vl = Cll.Value
        If Vl <> "" Then
            If Left(Cll.Formula, 1) = "=" Then
                ActiveCell.FormulaR1C1 = Fml
            Else
                If IsNumeric(Vl) Then
                    ActiveCell.FormulaR1C1 = Evaluate(Vl)
                Else
                    ActiveCell.FormulaR1C1 = Vl
                End If
            End If
        End If
    End If
Next
End Sub

Sau đó thực hiện tiếp từ bước 3 trở đi

 

[TienDuongPC]

Chịu khó làm như tôi hướng dẫn, trước khi thực hiện bước 3 thì quét toàn bộ vùng dữ liệu ngày tháng của bạn rồi chạy đoạn code sau

Sub F2_Selection()
Dim Cll As Range
Dim Fml As Variant, Vl As Variant
For Each Cll In Selection
    If Rows(Cll.Row & ":" & Cll.Row).EntireRow.Hidden = False Then
        Cll.Select
        Fml = Cll.Formula
        Vl = Cll.Value
        If Vl <> "" Then
            If Left(Cll.Formula, 1) = "=" Then
                ActiveCell.FormulaR1C1 = Fml
            Else
                If IsNumeric(Vl) Then
                    ActiveCell.FormulaR1C1 = Evaluate(Vl)
                Else
                    ActiveCell.FormulaR1C1 = Vl
                End If
            End If
        End If
    End If
Next
End Sub

Sau đó thực hiện tiếp từ bước 3 trở đi

Vẫn không được anh à, Anh có thể làm giúp em luôn được không.

 

[doveandrose]

Vẫn không được anh à, Anh có thể làm giúp em luôn được không.

20 kí tự 20 kí tự 20 kí tự

 

[vu_tuan_manh_linh]

Vẫn không được anh à, Anh có thể làm giúp em luôn được không.

Của bạn đây!!! Chịu khó vọc một chút thì mới nâng cao dần kỹ năng lên được bạn ạ!!

 

[TienDuongPC]

Của bạn đây!!! Chịu khó vọc một chút thì mới nâng cao dần kỹ năng lên được bạn ạ!!

20 kí tự 20 kí tự 20 kí tự

Em cám ơn mọi người