Không xuống dòng được khi copy paste từ Module vào bài viết sử dụng [php], [/php]

[dhn46]

Em có câu hỏi mong diễn đàn tư vấn cách giải quyết
Khi em copy code từ Module excel vào bài viết sử dụng

...

thì nó không xuống dòng như trên module, nếu sử dụng

...

thì xuống dòng bình thường
Sau đây là ví dụ trường hợp của em

Sub Button1_Click()Dim arrDim i, j As LongReDim arr(1 To Cells(65536, 18).End(xlUp).Row - 6, 1 To 6)j = 1For i = 5 To Cells(65536, 18).End(xlUp).Row - 1    If Cells(i, 18) > 0 Then        arr(j, 1) = j        arr(j, 2) = Cells(i, 3)        arr(j, 3) = Cells(i, 4)        arr(j, 4) = Cells(i, 5)        arr(j, 5) = Cells(i, 18)        arr(j, 6) = Cells(i, 19)    j = j + 1    End IfNext
Sheets("px").Range("a10").Resize(UBound(arr), 6) = arr

Sub Button1_Click()
Dim arr
Dim i, j As Long
ReDim arr(1 To Cells(65536, 18).End(xlUp).Row - 6, 1 To 6)
j = 1
For i = 5 To Cells(65536, 18).End(xlUp).Row - 1
    If Cells(i, 18) > 0 Then
        arr(j, 1) = j
        arr(j, 2) = Cells(i, 3)
        arr(j, 3) = Cells(i, 4)
        arr(j, 4) = Cells(i, 5)
        arr(j, 5) = Cells(i, 18)
        arr(j, 6) = Cells(i, 19)
    j = j + 1
    End If
Next


Sheets("px").Range("a10").Resize(UBound(arr), 6) = arr

Tks GPE!

 

[ndu96081631]

Tôi vẫn xuống dòng được bình thường đây:

Sub Button1_Click()
  Dim arr
  Dim i, j As Long
  ReDim arr(1 To Cells(65536, 18).End(xlUp).Row - 6, 1 To 6)
  j = 1
  For i = 5 To Cells(65536, 18).End(xlUp).Row - 1
    If Cells(i, 18) > 0 Then
      arr(j, 1) = j
      arr(j, 2) = Cells(i, 3)
      arr(j, 3) = Cells(i, 4)
      arr(j, 4) = Cells(i, 5)
      arr(j, 5) = Cells(i, 18)
      arr(j, 6) = Cells(i, 19)
      j = j + 1
    End If
  Next
  Sheets("px").Range("a10").Resize(UBound(arr), 6) = arr
End Sub

Code trên là copy từ module vào diễn đàn đấy

 

[dhn46]

Sao vậy nhỉ em đã làm rất nhiều lần rồi mà không được gì hết, phải tới hàng năm trời rồi mà vẫn hiện tượng trên. Liệu có phải do máy của em không? GPE có thể cho em sự giúp đỡ. Em dùng trình duyệt Google Chrome.

 

[Xiaojiangs]

Sao vậy nhỉ em đã làm rất nhiều lần rồi mà không được gì hết, phải tới hàng năm trời rồi mà vẫn hiện tượng trên. Liệu có phải do máy của em không? GPE có thể cho em sự giúp đỡ. Em dùng trình duyệt Google Chrome.

Lỗi này chỉ xảy ra khi sử dụng trình duyệt Chorme, bạn chuyển qua Firefox hoặc IE sẽ không bị hiện tượng trên.
(Đoạn code bạn post lên giúp mình lúc nãy còn thiếu câu end sub, hihihi)

 

[nghiaphuc]

To dhn46: Bạn đã hỏi câu này tại đây và đã được trả lời rồi mà.
Đây là cái tội hỏi mà không chịu theo dõi có ai trả lời mình không.