Bác thử nối 1 kí tự đặc biệt với cái cột đó coi sao, xong rồi sử dụng ctrl HKính mong các thành viên chỉ giúp cách thêm đồng loạt dấu ( ' ) vào trước cột ngày tháng (thay vì phải click vào từng ô) để cố định định dạng khi chuyển thông tin sang máy tính khác với .
Xin chân thành cảm ơn!
Chân thành cảm ơn sự góp ý. Mình xin diễn đạt lại:Thật khổ với mấy người coi như người khác tự động hiểu hết ý định của mình vậy.
Bạn cần lập lại mười lần: muốn người khác hiểu thì phải có ví dụ. Ví dụ phải cho biết hiện tại đầu vào là cái gì, qua điều kiện gì thì được đầu ra. Và ít nhất phải có 5 dòng.
Hiện tại, nếu một ô (ví dụ A1) đang cho thấy 10/01/2024 thì:
B1 = "'" & A1 sẽ cho ra '45301
Hiện tại bạn muốn nó ra cái gì? "10012024", "10/01/2024" hay "10 Jan 2024"?
Hàm TEXT có thể đáp ứng được nhu cầu của bạn.
Bác thử nối 1 kí tự đặc biệt với cái cột đó coi sao, xong rồi sử dụng ctrl H
Món này không đơn giản như thế, dù sao nếu không có file ví dụ thì chắc còn dài dài vì viết trên này thì trông như vậy, nhưng đưa vào file chưa chắc đã như vậy.Bác thử nối 1 kí tự đặc biệt với cái cột đó coi sao, xong rồi sử dụng ctrl H
Sub Adddaunhayvaongaythang()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim lastRow As Long
Dim columnLetter As String
Dim columnNumber As Integer
' Gan worksheet hien tai
Set ws = ThisWorkbook.Sheets("Sheet1") ' Thay "Sheet1" bang ten sheet cua ban
' Su dung InputBox de nguoi dung nhap ten cot chua ngay thang
columnLetter = InputBox("Nhap ten cot chua ngay thang (vi du: A):", "Chon Cot")
' Kiem tra neu nguoi dung khong nhap gi
If columnLetter = "" Then
MsgBox "Ban chua nhap ten cot. Macro se dung lai.", vbExclamation
Exit Sub
End If
' Chuyen doi chu cai cot thanh so cot
columnNumber = Range(columnLetter & "1").Column
' Tim hang cuoi cung co du lieu trong cot
lastRow = ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row
' Thiet lap vung chua cac o can them dau '
Set rng = ws.Range(ws.Cells(1, columnNumber), ws.Cells(lastRow, columnNumber))
' Lap qua tung o trong vung va them dau '
For Each cell In rng
If IsDate(cell.Value) Then
cell.Value = "'" & cell.Value
End If
Next cell
MsgBox "Da them dau ' vao truoc ngay thang thanh cong!", vbInformation
End Sub
Khi bạn gửi câu trả lời. Bạn có test trước không? hay cứ copy nguyên câu trả lời của con chát bot gửi lên thế?Dùng VBA thử đi bạn, Assign macro vào, bấm chạy, nhập cột chứa ngày tháng bấm ok là đc
chạy ok tôi mới gửi lên nhéKhi bạn gửi câu trả lời. Bạn có test trước không? hay cứ copy nguyên câu trả lời của con chát bot gửi lên thế?
có vấn đề gì thế bạn, nó chạy ra được kết quả là ok rồi.Lại thêm một vụ "Người máy" nữa rồi.
Chạy chậm hơn mình tự viết.Khi bạn gửi câu trả lời. Bạn có test trước không? hay cứ copy nguyên câu trả lời của con chát bot gửi lên thế?
nhanh hơn thì viết gửi lên đây anh em tham khảo học hỏi, còn tôi vẫn dùng máy nó hỗ trợ để phục vụ công việc và phục vụ đời sống. Có ảnh hưởng gì đâu, đáng xấu hổ à bạn.Chạy chậm hơn mình tự viết.
Mình đang giao tiếp với BuiQuangThuan, không liên quan gì đến người khác.nhanh hơn thì viết gửi lên đây anh em tham khảo học hỏi, còn tôi vẫn dùng máy nó hỗ trợ để phục vụ công việc và phục vụ đời sống. Có ảnh hưởng gì đâu, đáng xấu hổ à bạn.
Hihi. có vẻ code của bạn ấy không hẳn là copy nguyên, tại thấy con bot mà bạn ấy tham khảo đã được kiểm nghiệm và chỉnh sửa rồi.Mình đang giao tiếp với BuiQuangThuan, không liên quan gì đến người khác.
Bạn đừng nóng tính vậy. Tại chỉ là đang thắc mắc thôi mà.Đúng đời! thùng rỗng thường kêu rất to
xin lỗi bạn, giọng văn như thế chỉ đang thích thể hiện, ra vẻ, coi thường, muốn dìm người khác để nâng mình lên thôi bạn ơi. Mấy kiểu này mình không để ý mấy đâu skip luôn, mình chỉ tôn trọng những người khiêm tốn biết mình biết ta thôi bạnHihi. có vẻ code của bạn ấy không hẳn là copy nguyên, tại thấy con bot mà bạn ấy tham khảo đã được kiểm nghiệm và chỉnh sửa rồi.
Bạn đừng nóng tính vậy. Tại chỉ là đang thắc mắc thôi mà.
Bạn nên hỏi thêm cách xóa dấu nháy, vì người bên máy kia sẽ rất bực bội khi nhận được file.chuyển thông tin sang máy tính khác