Giúp sửa code Copy khi nhập > 255 ký tự (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em có đùng đoạn code bên dưới để copy từ 1 vùng cố định A1:A100 paste sang vùng cột H ( Từ Dọc sang Ngang ) . Code thì ok chạy khá là Nhanh và Nhẹ
Nhưng khi e nhập giá trị tại 1 ô của vùng A1:A100 mà > 255 ký tự thì nó báo lỗi. mong mọi người giúp em
( Lưu ý là em không muốn dùng Phương thức Copy vì nó làm tăng dung lượng bộ nhớ Ram khi e mở File 1 thời gian dài )

Sub copy()
Dim Arr()
Arr = Range("A1:A100").Value
Range("h50000").End(xlUp).Offset(1).Resize(, 100) = WorksheetFunction.Transpose(Arr)
Erase Arr
End Sub

 

[befaint]

Chào cả nhà GPE !
Em có đùng đoạn code bên dưới để copy từ 1 vùng cố định A1:A100 paste sang vùng cột H ( Từ Dọc sang Ngang ) . Code thì ok chạy khá là Nhanh và Nhẹ
Nhưng khi e nhập giá trị tại 1 ô của vùng A1:A100 mà > 255 ký tự thì nó báo lỗi. mong mọi người giúp em
( Lưu ý là em không muốn dùng Phương thức Copy vì nó làm tăng dung lượng bộ nhớ Ram khi e mở File 1 thời gian dài )

Sub copy()
Dim Arr()
Arr = Range("A1:A100").Value
Range("h50000").End(xlUp).Offset(1).Resize(, 100) = WorksheetFunction.Transpose(Arr)
Erase Arr
End Sub

Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
    tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, [COLOR=#ff0000]i-1[/COLOR]).Value = tmp
Erase Arr: Erase tmp
End Sub

p/s: Chỗ chữ màu đỏ sao chắc chắn vậy?

 

[minhtuan55]

Code a hay quá. dạ e thấy Copy Paste nó Chậm chậm. Anh cho em hỏi Code của a tối đa 1 ô e nhập được bao Nhiêu ký tự

Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
    tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, i).Value = tmp
Erase Arr: Erase tmp
End Sub

p/s: Chỗ chữ màu đỏ sao chắc chắn vậy?

 

[minhtuan55]

Code a e đã test e thấy nó bị lỗi rồi a. Sau khi paste sang cột H thì phải tương ứng 100 cột mà code của a nó tự thếm 1 cột nữa có giá trị là #N/A
e đã sửa lại như vầy thì thấy Ok mà không biết có đúng không nữa. Anh xem giúp em

Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, i-1).Value = tmp
Erase Arr: Erase tmp
End Sub

Sub copynew()
Dim Arr(), tmp(), i As Long
Arr = Sheet1.Range("A1:A100").Value
ReDim tmp(1 To UBound(Arr, 1))
For i = 1 To UBound(tmp)
    tmp(i) = Arr(i, 1)
Next i
Sheet1.Range("H50000").End(xlUp).Offset(1).Resize(, i).Value = tmp
Erase Arr: Erase tmp
End Sub

p/s: Chỗ chữ màu đỏ sao chắc chắn vậy?

 

[befaint]

Code a e đã test e thấy nó bị lỗi rồi a. Sau khi paste sang cột H thì phải tương ứng 100 cột mà code của a nó tự thếm 1 cột nữa có giá trị là #N/A
e đã sửa lại như vầy thì thấy Ok mà không biết có đúng không nữa. Anh xem giúp em

Xin lỗi. Tôi sửa lại ở bài trên rồi.

 

[befaint]

Code a hay quá. dạ e thấy Copy Paste nó Chậm chậm. Anh cho em hỏi Code của a tối đa 1 ô e nhập được bao Nhiêu ký tự

Nhập vào [A1]=REPT("D",32767) rồi chạy thử code xem.

 

[minhtuan55]

Nhập vào [A1]=REPT("D",32767) rồi chạy thử code xem.

DẠ <= 911 Ký tự a.Vậy cũng ok rồi. Thank a giỏi quá. Mà e không biết ReDim, UBound Là cái gì em không hiểu

 

[befaint]

DẠ <= 911 Ký tự a.Vậy cũng ok rồi. Thank a giỏi quá. Mà e không biết ReDim, UBound Là cái gì em không hiểu

Chời ơi!
A1=REPT("D",32767)
B1=len(A1)=32767 vậy là bao nhiêu ký tự?

 

[minhtuan55]

Chời ơi!
A1=REPT("D",32767)
B1=len(A1)=32767 vậy là bao nhiêu ký tự?

Anh thử chưa vậy, em nhập mà lớn hơn 911 ký tự là nó báo lỗi

 

[befaint]

Anh thử chưa vậy, em nhập mà lớn hơn 911 ký tự là nó báo lỗi

Loằng nhoằng nhỉ?
Đâu ra cái số 911 vậy?

Google search: Total number of characters that a cell can contain

https://support.office.com/en-us/ar...d-limits-16c69c74-3d6a-4aaf-ba35-e6eb276e8eaa

Excel 2003: một ô chứa được nhiều nhất 1024 ký tự?

 

[minhtuan55]

Ý em là nhập thì nhập được nhưng Code của anh báo lổi khi nhập > 911 ký tự. Em đã test rồi . Code của anh Chỉ đúng khi 1 ô nhập <= 911 ký tự thôi. Anh không có thử mà trách em. Đây em gửi File cho anh xem nhé. A thử nhập vào ô A1 là 912 ký tự rồi anh Click vào Nút copy xem

Loằng nhoằng nhỉ?
Đâu ra cái số 911 vậy?

Google search: Total number of characters that a cell can contain

https://support.office.com/en-us/ar...d-limits-16c69c74-3d6a-4aaf-ba35-e6eb276e8eaa

Excel 2003: một ô chứa được nhiều nhất 1024 ký tự?

 

[befaint]

Ý em là nhập thì nhập được nhưng Code của anh báo lổi khi nhập > 911 ký tự. Em đã test rồi . Code của anh Chỉ đúng khi 1 ô nhập <= 911 ký tự thôi. Anh không có thử mà trách em. Đây em gửi File cho anh xem nhé. A thử nhập vào ô A1 là 912 ký tự rồi anh Click vào Nút copy xem

Bạn xem trong file đính kèm ở bài #11, KHÔNG phải code ở bài #2 (mà vẫn là code ở bài #1).
Cái chỗ màu đỏ thì như này: Bạn mở Excel lên (không dùng cái file nào bạn đã tạo nhé), copy code ở bài #2, nhập cái ở bài #6 rồi chạy code xem kết quả ra làm sao.
Thôi vậy nha!!!