Căn chỉnh các ô khi nhập từ CSV (Microsoft Excel)
Marinos làm việc với các tệp CSV rất nhiều. Trong trường hợp của anh ấy, các tệp CSV được tạo bởi một ứng dụng tùy chỉnh và anh ấy nhận thấy rằng anh ấy thậm chí có thể bao gồm các công thức trong đó. Vì vậy, nếu một dòng của tệp CSV chứa “,,, Total :, = SUM (D5: D13) ,,,,” thì công thức được đánh giá và tất cả đều ổn.
Tuy nhiên, một điều Marinos muốn làm là chỉ ra trong tệp CSV cách các ô riêng lẻ phải được căn chỉnh sau khi chúng được nhập vào Excel.
Dường như anh ấy nhớ rằng trong Lotus 123, anh ấy có thể sử dụng một ký tự tiền tố để chỉ ra sự liên kết của ô (‘cho bên trái, ^ cho giữa và “
cho bên phải); anh ấy nghĩ rằng khả năng tương tự sẽ rất tốt trong Excel.
Không có cách nào để thực hiện việc này trong Excel; việc căn chỉnh dữ liệu đã nhập dựa trên các giá trị mặc định của hệ thống, sao cho văn bản được căn trái và các số được căn phải. Một tùy chọn, tuy nhiên, sẽ là thêm một ký tự tiền tố mà sau đó bạn có thể “phân tích cú pháp” bằng macro để áp dụng căn chỉnh mong muốn. Ví dụ: bạn có thể sử dụng “<” cho bên trái, “^” cho chính giữa và “>” cho bên phải Khi Excel nhập tệp CSV, các trường được coi là văn bản. Sau đó, bạn có thể chạy macro này để tìm kiếm ký tự căn chỉnh hàng đầu và thực hiện hành động mong muốn:
Sub SetJustification() Dim rCell As Range For Each rCell In ActiveSheet.UsedRange With rCell Select Case Left(.Value, 1) Case "<" .Value = Mid(.Value, 2) .HorizontalAlignment = xlHAlignLeft Case "^" .Value = Mid(.Value, 2) .HorizontalAlignment = xlHAlignCenter Case ">" .Value = Mid(.Value, 2) .HorizontalAlignment = xlHAlignRight End Select End With Next Set rCell = Nothing End Sub
Macro kiểm tra từng ô trong trang tính. Nếu ô bắt đầu bằng một ký tự căn chỉnh thì ký tự đó sẽ bị xóa và căn chỉnh thích hợp được áp dụng.
_Lưu ý: _
Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.
ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.
Mẹo này (8709) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: