Chuyển đổi dấu chấm và dấu phẩy

[zit0311]

Các bạn giúp mình.
Tình hình là mình muốn tạo 2 sheet. sheet 1 theo chuẩn tiếng việt.( ngăn cách số bằng dấu chấm) sheet 2 theo chuẩn tiếng anh ( ngăn cách số bằng dấy phẩy ).
Mình đã vào Control Panel ===> Regional and Language options ===> Customize chỉnh. Nhưng nếu chỉnh theo chuẩn tiếng Việt thì khi dùng chuẩn tiếng anh phải chỉnh lại/
Bạn nào biết cách tạo ra 2 sheet. mổi sheet theo mổi chuẩn thì giúp mình với.

Cảm ơn nhiều.

 

[huuthang_bd]

Các bạn giúp mình.
Tình hình là mình muốn tạo 2 sheet. sheet 1 theo chuẩn tiếng việt.( ngăn cách số bằng dấu chấm) sheet 2 theo chuẩn tiếng anh ( ngăn cách số bằng dấy phẩy ).
Mình đã vào Control Panel ===> Regional and Language options ===> Customize chỉnh. Nhưng nếu chỉnh theo chuẩn tiếng Việt thì khi dùng chuẩn tiếng anh phải chỉnh lại/
Bạn nào biết cách tạo ra 2 sheet. mổi sheet theo mổi chuẩn thì giúp mình với.

Cảm ơn nhiều.

Hình như các dấu phân cách có tác dụng trên toàn bộ các file Excel luôn. Ngay cả với 2 file bạn cũng không thể định nghĩa hai kiểu khác nhau.
Bạn tải file này về xem có giúp được gì cho bạn không. Tôi dùng Macro, dấu phân cách sẽ được thay đổi tự động khi bạn chọn vào mỗi sheet.

Lưu ý: Vì tôi dùng sự kiện Worksheet_Activate nên nó chỉ có tác dụng khi bạn xem hoặc in 1 sheet. In hàng loạt các sheet thì dấu phân cách ở các sheet sẽ giống nhau hết.

 

[zit0311]

bạn có thể giải thích rỏ hơn được ko. vì mình không rành excel lắm. Mình test bảng excel của bạn thì ok. nhưng khi mình tạo thêm nhiều sheet thì không được.
Và bạn cho hỏi thêm, có cách nào cop cái macro để bỏ qua nhiều file excel khác không.
Cảm ơn nhiều.

 

[thepdaoson]

Sau khi tạo sheet mới, bạn đặt con chuột vào sheet tab, click chuột phải, vào view code sau đó bạn insert code:
- Theo Mỹ:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.ThousandsSeparator = ","
Application.DecimalSeparator = "."
Application.UseSystemSparators = False
End Sub

- Theo Việt

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.ThousandsSeparator = "."
Application.DecimalSeparator = ","
Application.UseSystemSeparators = False
End Sub

Nhớ để worksheet và activate

 

[Ếch Xanh]

Sau khi tạo sheet mới, bạn đặt con chuột vào sheet tab, click chuột phải, vào view code sau đó bạn insert code:
- Theo Mỹ:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.ThousandsSeparator = ","
Application.DecimalSeparator = "."
Application.UseSystemSparators = False
End Sub

- Theo Việt

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.ThousandsSeparator = "."
Application.DecimalSeparator = ","
Application.UseSystemSeparators = False
End Sub

Nhớ để worksheet và activate

Bạn nên đặt With với Application

Private Sub Worksheet_Activate()
  With Application
    .ThousandsSeparator = ","
    .DecimalSeparator = "."
    .UseSystemSparators = False
  End With
End Sub

Và tôi nghĩ không cần phải dùng .ScreenUpdating = False làm gì. Nếu dùng nó mà không trả về True thì những gì thực hiện nó không cập nhật trên màn hình được.

 

[huuthang_bd]

Bạn nên đặt With với Application

Private Sub Worksheet_Activate()
  With Application
    .ThousandsSeparator = ","
    .DecimalSeparator = "."
    .UseSystemSparators = False
  End With
End Sub

Và tôi nghĩ không cần phải dùng .ScreenUpdating = False làm gì. Nếu dùng nó mà không trả về True thì những gì thực hiện nó không cập nhật trên màn hình được.

Tôi đã thử và thấy nếu không có câu lệnh .ScreenUpdating = True thì màng hình vẫn được cập nhật sau khi code thực thi xong.

 

[Cường Trần]

Em chỉ muốn cho một file excel định dạng theo kiểu mỹ, còn lại theo VN,
Em dùng mấy code trên, khi mở file có chứa code theo kiểu mỹ thì toàn bộ mấy file khác bị định dạng theo.
Thanks.

 

[vanle33]

Em chỉ muốn cho một file excel định dạng theo kiểu mỹ, còn lại theo VN,
Em dùng mấy code trên, khi mở file có chứa code theo kiểu mỹ thì toàn bộ mấy file khác bị định dạng theo.
Thanks.

Ở file đó, bạn bỏ tích chọn trong mục Use system separators (ở excel option) rồi định dạng chấm, phảy theo ý muốn ở 2 mục ở dưới.

 

[Cường Trần]

Ở file đó, bạn bỏ tích chọn trong mục Use system separators (ở excel option) rồi định dạng chấm, phảy theo ý muốn ở 2 mục ở dưới.

Không được anh
Thanks

 

[huuthang_bd]

Không được anh.
Em gửi 2 file, một cái theo VN, một cái theo mỹ.

Use system separators là tùy chọn được thiết lập chung cho Excel, không thể thiết lập khác nhau ở hai file.