VBA - Vùng động - Tham chiếu bằng cách nào? (1 người xem)

[khongaicanobody]

Kính gửi diễn đàn

Trong Excel tôi muốn viết code để copy một vùng và paste ở trỗ khác. Tuy nhiên Vùng tôi muốn copy là một vùng động mà tôi xác định được thông qua biến i, ví dụ như từ A1:E(i). Như vậy tôi phải viết hàm range như thế nào để cho đúng cú pháp? hay phải làm thế nào để tham chiếu đến 1 vùng động?
Hiện nay tôi đã viết : Range(R10C1:RC9).Copy nhưng máy báo lỗi (tất nhiên là vậy).

Cám ơn anh anh chị.

 

[Quang_Hải]

Kính gửi diễn đàn

Trong Excel tôi muốn viết code để copy một vùng và paste ở trỗ khác. Tuy nhiên Vùng tôi muốn copy là một vùng động mà tôi xác định được thông qua biến i, ví dụ như từ A1:E(i). Như vậy tôi phải viết hàm range như thế nào để cho đúng cú pháp? hay phải làm thế nào để tham chiếu đến 1 vùng động?
Hiện nay tôi đã viết : Range(R10C1:RC9).Copy nhưng máy báo lỗi (tất nhiên là vậy).

Cám ơn anh anh chị.

Thử cách này nha. Copy đoạn code này vào và chạy thử sẽ thấy hiệu ứng của nó

Sub test()
Dim MySelection
Set MySelection = Application.InputBox("Nhap Vung Can Copy", "Vung Du Lieu", Default, 100, 100, , , 8)
MySelection.Copy
End Sub

 

[ptm0412]

Range("A1:E" & i).Copy

 

[hungpecc1]

Kính gửi diễn đàn

Trong Excel tôi muốn viết code để copy một vùng và paste ở trỗ khác. Tuy nhiên Vùng tôi muốn copy là một vùng động mà tôi xác định được thông qua biến i, ví dụ như từ A1:E(i). Như vậy tôi phải viết hàm range như thế nào để cho đúng cú pháp? hay phải làm thế nào để tham chiếu đến 1 vùng động?
Hiện nay tôi đã viết : Range(R10C1:RC9).Copy nhưng máy báo lỗi (tất nhiên là vậy).

Cám ơn anh anh chị.

Nguyên tắc để truyền 1 tham số vào biến thì phải sử dụng " & : ví dụ

Range("A1","E" & i ) hay Range("A1","E" & i &"")

 

[Ngoai Thanh]

Kính gửi diễn đàn

Trong Excel tôi muốn viết code để copy một vùng và paste ở trỗ khác. Tuy nhiên Vùng tôi muốn copy là một vùng động mà tôi xác định được thông qua biến i, ví dụ như từ A1:E(i). Như vậy tôi phải viết hàm range như thế nào để cho đúng cú pháp? hay phải làm thế nào để tham chiếu đến 1 vùng động?
Hiện nay tôi đã viết : Range(R10C1:RC9).Copy nhưng máy báo lỗi (tất nhiên là vậy).

Cám ơn anh anh chị.

Chắc bạn cần cái này :

Sub chon()
Dim i As Integer
i = Range("A65536").End(xlUp).Row
Range("A1:E" & i).Select
End Sub
(nhờ mod xóa bài của mình đi , lúc mình post bài chưa thấy bài của thày PTM và Hungpecc1)

 

[Hoàng Trọng Nghĩa]

Chắc bạn cần cái này :

Sub chon()
Dim i As Integer
i = Range("A65536").End(xlUp).Row
Range("A1:E" & i).Select
End Sub
(nhờ mod xóa bài của mình đi , lúc mình post bài chưa thấy bài của thày PTM và Hungpecc1)

Không cần xóa bài đâu! Cố gắng nhanh hơn mấy cao thủ ấy nhé!

 

[ptm0412]

Không cần xóa bài đâu! Cố gắng nhanh hơn mấy cao thủ ấy nhé!

Lâu nay tôi cũng ít trả lời bài, mục đích nhường cho các tài năng khác. Nhưng topic này hình như quanghai trả lời không rõ ràng lắm, nên ngứa tay.

 

[Ngoai Thanh]

Không cần xóa bài đâu! Cố gắng nhanh hơn mấy cao thủ ấy nhé!

Vì mình thấy vô duyên quá , chả khác gì hậu bối " nói leo " ..rõ ngại .

 

[khongaicanobody]

Các bác ơi, cho hỏi tý nữa với. Khi mình dùng Range, thì các cell đã bị merge là không thực hiện được, máy báo lỗi hoài. Có cách nào làm được không ạ?

Cám ơn

 

[Hoàng Trọng Nghĩa]

Các bác ơi, cho hỏi tý nữa với. Khi mình dùng Range, thì các cell đã bị merge là không thực hiện được, máy báo lỗi hoài. Có cách nào làm được không ạ?

Cám ơn

Bạn đưa cái file đó lên xem mới biết xử lý như thế nào. Nói chung chung không biết hình dung thế nào.

 

[khongaicanobody]

Anh xem file đính kèm nhé.

Đúng ra trong sheet "NhânHng" các ô C3 : E3, C4 : E4 và C5:I6 là merge cell. nhưng máy cứ báo lỗi đoạn cuối, Range("C3:C4, C5, G4, B10:I61").ClearContents hoài nên tôi phải unmerge đi.

Cám ơn anh.

 

[khongaicanobody]

Anh Nghĩa ơi. File hơi lớn nên tải lên không được

 

[Hoàng Trọng Nghĩa]

Anh Nghĩa ơi. File hơi lớn nên tải lên không được

Bạn chỉ cần đưa lên cái sheet có liên quan đến thủ tục đó thôi. không cần phải đưa hết toàn bộ. Nếu file có dung lượng lớn hơn 97kb thì nén lại rồi gửi lên.

 

[hungpecc1]

Anh xem file đính kèm nhé.

Đúng ra trong sheet "NhânHng" các ô C3 : E3, C4 : E4 và C5:I6 là merge cell. nhưng máy cứ báo lỗi đoạn cuối, Range("C3:C4, C5, G4, B10:I61").ClearContents hoài nên tôi phải unmerge đi.

Cám ơn anh.

Đoạn cuối nó báo lỗi như thế nào ? thông tin cụ thể như thế nào ?,theo mình vấn đề ClearContents không phụ thuộc vào Mergecell,

 

[huuthang_bd]

Đoạn cuối nó báo lỗi như thế nào ? thông tin cụ thể như thế nào ?,theo mình vấn đề ClearContents không phụ thuộc vào Mergecell,

Có 1 câu lệnh à, sao bạn không thử trước rồi hãy trả lời.

Anh xem file đính kèm nhé.

Đúng ra trong sheet "NhânHng" các ô C3 : E3, C4 : E4 và C5:I6 là merge cell. nhưng máy cứ báo lỗi đoạn cuối, Range("C3:C4, C5, G4, B10:I61").ClearContents hoài nên tôi phải unmerge đi.

Cám ơn anh.

Bạn thử thay bằng câu lệnh này xem

Range("C3:C4, C5, G4, B10:I61").value = ""

 

[hungpecc1]

Có 1 câu lệnh à, sao bạn không thử trước rồi hãy trả lời.

Bạn thử thay bằng câu lệnh này xem

Range("C3:C4, C5, G4, B10:I61").value = ""

ok thanks anh , lần sau em sẽ rút kinh nghiệm ^^

 

[huy2607]

Nguyên tắc để truyền 1 tham số vào biến thì phải sử dụng " & : ví dụ

Range("A1","E" & i ) hay Range("A1","E" & i &"")

Đề tài đã lâu nhưng mình đang tìm hiểu mà chưa hiểu lắm. Mong bạn giải thích dùm cách sử dụng " &. Tại sao trong câu lệnh thứ 2 phải dùng 2 dấu &? Thân cảm ơn!

 

[quanluu]

Đề tài đã lâu nhưng mình đang tìm hiểu mà chưa hiểu lắm. Mong bạn giải thích dùm cách sử dụng " &. Tại sao trong câu lệnh thứ 2 phải dùng 2 dấu &? Thân cảm ơn!

& theo mình là tách cái cố định với biến (thay đổi). Vấn đề 2 dấu & thì & thứ 2 là để ngăn cách cái biên i và cái cố định "". Thực chất "" là rỗng, & "" --> rỗng. mình thấy viết cái này hơi thừa. Có lẽ anh hungpecc1 viết thế để tường minh: vd như kiểu Range("A1", "E5") - tức là có " sau cùng