vovietnghia
Thành viên mới
- Tham gia
- 7/3/08
- Bài viết
- 2
- Được thích
- 0
ví dụ: tôi muốn đổi định dạnh dấy phẩy sang dấy chấm như sau 2,500 thành 2.500 một cách hiệu quả nhất
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.UseSystemSeparators = True
End Sub
Private Sub Workbook_Open()
Application.DecimalSeparator = ","
Application.ThousandsSeparator = "."
Application.UseSystemSeparators = False
End Sub
Đổi trực tiếp trong Tools\Options cũng được mà anh, đâu cầu phải codeCó 2 cách:
1/Đổi cứng:Chuyển hẳn sang kiểu định dạng đó trong mọi file
Vào Control Parnel--->Regional and Language Options-->Trong thẻ Region Option--->Bạn điều chỉnh các mục tương ứng
2/Đòi hỏi bạn phải biết VBA (Bạn đặt code sau trong vùng code của This Workbook
Mã:Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.UseSystemSeparators = True End Sub Private Sub Workbook_Open() Application.DecimalSeparator = "," Application.ThousandsSeparator = "." Application.UseSystemSeparators = False End Sub