Lấy dữ liệu dạng text qua mảng (1 người xem)

[anhdepjai]

Gửi cả nhà,

Mình hay sử dụng kiểu: ar = sheet1.usedrange.value
Sau đó, thỉnh thoảng trong sheet1 nó có ô text mà con số lớn lớn (VD: 1234567890121121) Những ô này khi vào mảng nó hiểu là dạng số.
Nên khi mình paste cái mảng này vào chỗ khác thì nó bị thành 1.23 +E16 gì gì đó, ý là 1.23 x 10 lũy thừa ....
Mọi người xem giúp mình có cách khai báo kiểu nào để tránh trường hợp này được không

Xin cảm ơn nhiều

 

[snow25]

Gửi cả nhà,

Mình hay sử dụng kiểu: ar = sheet1.usedrange.value
Sau đó, thỉnh thoảng trong sheet1 nó có ô text mà con số lớn lớn (VD: 1234567890121121) Những ô này khi vào mảng nó hiểu là dạng số.
Nên khi mình paste cái mảng này vào chỗ khác thì nó bị thành 1.23 +E16 gì gì đó, ý là 1.23 x 10 lũy thừa ....
Mọi người xem giúp mình có cách khai báo kiểu nào để tránh trường hợp này được không

Xin cảm ơn nhiều

Vậy bạn khai báo mảng kiểu string xem có được không.Nếu không được thì làm Format khi điền vào file excel là dạng text cũng được mà.

 

[khitamdao]

bạn cho thêm ký tự ' vào là được mà (biểu thị đây là dạng text, VD: '1234567890121121)

 

[HieuCD]

Gửi cả nhà,

Mình hay sử dụng kiểu: ar = sheet1.usedrange.value
Sau đó, thỉnh thoảng trong sheet1 nó có ô text mà con số lớn lớn (VD: 1234567890121121) Những ô này khi vào mảng nó hiểu là dạng số.
Nên khi mình paste cái mảng này vào chỗ khác thì nó bị thành 1.23 +E16 gì gì đó, ý là 1.23 x 10 lũy thừa ....
Mọi người xem giúp mình có cách khai báo kiểu nào để tránh trường hợp này được không

Xin cảm ơn nhiều

Thêm mảng
Dim strArr() as string
redim strArr( .... , .... )
Chạy vòng For gán mảng ar vào strArr, gán strArr lên Sheet

 

[batman1]

Giả sử dữ liệu từ dòng 2 tới 10, cột A và B. Cột B chứa dãy dài chữ số. Cần sao chép sang cột D, E.

Sub test()
Dim arr()
    arr = Sheet1.Range("A2:B10").Value
    Sheet1.Range("E2").Resize(UBound(arr)).NumberFormat = "@"
    Sheet1.Range("D2").Resize(UBound(arr), 2).Value = arr
End Sub

 

[anhdepjai]

Mọi người xem thử copy giúp mình dữ liệu từ sheet 1 sang sheet 2 bằng mảng mà giữ nguyên dạng giúp mình với

 

[ppc0312]

Mọi người xem thử copy giúp mình dữ liệu từ sheet 1 sang sheet 2 bằng mảng mà giữ nguyên dạng giúp mình với

Ghi macro copy bình thường theo range nhé, là được (và bạn là bạn chủ thì nên là người "thử" đã)

 

[anhdepjai]

Mình đang dùng cách là copy range.
Mình muốn nhờ mọi người cách làm qua mảng

 

[ndu96081631]

Mọi người xem thử copy giúp mình dữ liệu từ sheet 1 sang sheet 2 bằng mảng mà giữ nguyên dạng giúp mình với

Lâu lắm rồi tôi có viết hàm Join2DArray chuyên dùng để nối nhiều mảng thành 1 mảng theo cú pháp

Function Join2DArray(các mảng cần nối)

Trường hợp của bạn thì có thể xem "các mảng cần nối" chỉ là 1 mảng
Xem cách hoạt động của code trong file đính kèm dưới đây và kiểm tra xem còn chỗ nào sai sót không nhé

 

[anhdepjai]

Lâu lắm rồi tôi có viết hàm Join2DArray chuyên dùng để nối nhiều mảng thành 1 mảng theo cú pháp

Function Join2DArray(các mảng cần nối)

Trường hợp của bạn thì có thể xem "các mảng cần nối" chỉ là 1 mảng
Xem cách hoạt động của code trong file đính kèm dưới đây và kiểm tra xem còn chỗ nào sai sót không nhé

Em đã test thành công, cả năm toàn phải code dạng copy, file chạy cứ giật giật lại code lòng vòng. Cảm ơn thầy NDU nhiều, chúc thầy năm mới luôn mạnh khỏe