Xin giải pháp xử lý dữ liệu kiểu Text

[chibi]

Chào các anh/chị.
Khi chuyển dữ liệu từ TextBox trên Form vào sheet, dùng lệnh

Range("A1").Value = txt1.Text

Khi chuyển dữ liệu sang Workbook khác, dùng lệnh

 Workbooks("abc.xls").Sheets("abc1").Range("A1").Value = _
 Workbooks("xyz.xls").Sheets("xyz1").Range("A1").Value

Khi dữ liệu text có dạng "1/2" sẽ bị biến đổi.
Xin các anh/chị cho giải pháp xử lý.

 

[nguyentuhp]

Có nhiều cách để làm, theo tôi bạn thử 2 cách sau:
- Định dạng cells cần nhập dữ liệu dạng Text trước, sau đó dùng code để lấy dữ liệu
- Thêm dấu nháy đơn trước (') + dữ liệu của bạn

Chúc thành công.