Cách sử dụng Range (2 người xem)

[tanthanh94]

Chào Các Anh GPE
Em thấy trên diễn dàn code copy dữ liệu từ vùng này sang vùng khác
Em gửi file này nhờ các anh hộ trợ thêm
Nội dung em để trong file đính kèm
Các anh nào biết link sử dùng lệnh này cho emxin

 

[ChanhTQ@]

Thực sự mình chưa rõ câu này của bạn:

Các anh/chị nào biết link sử dùng lệnh này cho em xin

Nhưng nhìn qua 3 macro thì rất giống với cách làm bài tập (BT) về vòng lặp;

Nói rằng là BT vì trong thực tế có cách khác hay dùng hơn
đó là
(1) & (2):

    [B9].CurrentRegion.Copy Detination:= [F9]

(3)

[B19].CurrentRegion.Copy Detination:= [M17]
[h19].CurrentRegion.Copy Detination:= [M9999].End(xlUp).Oset(1)

 

[tanthanh94]

Thực sự mình chưa rõ câu này của bạn:


Nhưng nhìn qua 3 macro thì rất giống với cách làm bài tập (BT) về vòng lặp;

Nói rằng là BT vì trong thực tế có cách khác hay dùng hơn
đó là
(1) & (2):

    [B9].CurrentRegion.Copy Detination:= [F9]

(3)

[B19].CurrentRegion.Copy Detination:= [M17]
[h19].CurrentRegion.Copy Detination:= [M9999].End(xlUp).Oset(1)

Mình mới tham khảo trên diễn đàn bạn có thể viết lại code cho mình hoc hỏi
Rất cám ơn bạn đã chỉ giúp

 

[tanthanh94]

Không có vị nào hướng dẫn cả. Đành phải chờ thôi.

 

[Hoàng Trọng Nghĩa]

Chào Các Anh GPE
Em thấy trên diễn dàn code copy dữ liệu từ vùng này sang vùng khác
Em gửi file này nhờ các anh hộ trợ thêm
Nội dung em để trong file đính kèm
Các anh nào biết link sử dùng lệnh này cho emxin

Tôi không biết bạn ứng dụng nó cho cái gì, mẫu như thế nào tôi làm như thế đó.

Thủ tục các nút lệnh:

Private Sub CommandButton1_Click()
    Range("E2:E5").Value = Range("A2:A5").Value
End Sub


Private Sub CommandButton2_Click()
    Range("F9:H12").Value = Range("B9:D12").Value
End Sub


Private Sub CommandButton3_Click()
    Range("M17:O20").Value = Range("C17:E20").Value
    Range("M21:O24").Value = Range("G17:I20").Value
End Sub

 

[tanthanh94]

Tôi không biết bạn ứng dụng nó cho cái gì, mẫu như thế nào tôi làm như thế đó.

Thủ tục các nút lệnh:

Private Sub CommandButton1_Click()
    Range("E2:E5").Value = Range("A2:A5").Value
End Sub


Private Sub CommandButton2_Click()
    Range("F9:H12").Value = Range("B9:D12").Value
End Sub


Private Sub CommandButton3_Click()
    Range("M17:O20").Value = Range("C17:E20").Value
    Range("M21:O24").Value = Range("G17:I20").Value
End Sub

Chào Anh
Em muốn viết lệnh giống commandButton 1 mỗi lần nhấn là copy tiếp tục còn cái này chỉ copy cố định nếu thêm giá trị vào cột A dòng 6 thì đâu có copy
Chẳng qua là em muốn học hỏi thêm từ commandbutton1 mở rộng thêm thì làm bằng cách nào
Emcám ơn Anh đã giúp em

 

[Kiều Mạnh]

Chào Anh
Em muốn viết lệnh giống commandButton 1 mỗi lần nhấn là copy tiếp tục còn cái này chỉ copy cố định nếu thêm giá trị vào cột A dòng 6 thì đâu có copy
Chẳng qua là em muốn học hỏi thêm từ commandbutton1 mở rộng thêm thì làm bằng cách nào
Emcám ơn Anh đã giúp em

nếu Bạn Muốn học thì tìm trên diễn đàn đọc nhé VD: VBA căn bản , lập trình với Excel hay sách của phan tự hướng ... nguyễn khắc duy VVV...trong đó có hướng dẫn chi tiết

 

[Hoàng Trọng Nghĩa]

Chào Anh
Em muốn viết lệnh giống commandButton 1 mỗi lần nhấn là copy tiếp tục còn cái này chỉ copy cố định nếu thêm giá trị vào cột A dòng 6 thì đâu có copy
Chẳng qua là em muốn học hỏi thêm từ commandbutton1 mở rộng thêm thì làm bằng cách nào
Emcám ơn Anh đã giúp em

Vì cái mẫu bạn đưa lên như thế tôi hướng dẫn bạn như thế, còn muốn nối tiếp nhau thì phải làm cái mẫu cho nó thực tế một chút, chứ không, nếu code tiếp diễn thì cái này chồng lên cái kia làm sao mà thực hiện được! Cho nên, khi hỏi bài, các bạn phải thực tế một chút, yêu cầu rõ ràng một chút, etc. thì mới có sự hướng dẫn tỉ mỉ của người khác.

 

[tanthanh94]

Vì cái mẫu bạn đưa lên như thế tôi hướng dẫn bạn như thế, còn muốn nối tiếp nhau thì phải làm cái mẫu cho nó thực tế một chút, chứ không, nếu code tiếp diễn thì cái này chồng lên cái kia làm sao mà thực hiện được! Cho nên, khi hỏi bài, các bạn phải thực tế một chút, yêu cầu rõ ràng một chút, etc. thì mới có sự hướng dẫn tỉ mỉ của người khác.

Em bổ sung file anh chi giup nha
Cám on Anh nha

 

[Hoàng Trọng Nghĩa]

Em bổ sung file anh chi giup nha
Cám on Anh nha

Nếu đơn giản như thế thì không có vòng lặp nào ở đây đâu nha bạn!

Private Sub CommandButton3_Click()
    Dim LastRow1 As Long, LastRow2 As Long
    LastRow1 = Range("A" & Rows.Count).End(xlUp).Row
    LastRow2 = Range("E" & Rows.Count).End(xlUp).Row
    If LastRow1 < 2 And LastRow2 < 2 Then
        MsgBox "Chua co du lieu nao de copy"
    Else
        Range("M:O").ClearContents
        If LastRow1 >= 2 Then
            Range("A2:C" & LastRow1).Copy Range("M2")
        End If
        If LastRow2 >= 2 Then
            Dim LastRow3 As Long
            LastRow3 = Range("M" & Rows.Count).End(xlUp).Row
            If LastRow3 < 2 Then LastRow3 = 2
            Range("E2:G" & LastRow2).Copy Range("M" & LastRow3)
        End If
    End If
End Sub