Xin code hoán chuyển vị trí 2 vùng

[boyxin]

Chào các bác. EM CÓ VẤN ĐỀ THẾ NÀY
Trên 1 bảng tính, sau khi chọn 1 vùng (2 cell liền nhau trên cùng 1 dòng). chạy code thì hiện lên hộp

và địa chỉ của vùng 1 hiện trong khung vị trí 1Chọn vào khung vị trí 2 thì cho phép ta chọn tiếp vùng 2 (2 cell liền nhau trên cùng 1 dòng), khi chọn xong thì địa chỉ của vùng 2 hiện trong khung vị trí 2
Nhấn nút chuyển thì giá trị của chúng được hoán chuyển trí cho nhau (dạng Paste Special Value - không ảnh hưởng tới công thức tại các cell khác tham chiếu tới những cell đã hoán chuyển vị trí về giá trị)
Rất mong được các bác giúp đỡ

 

[ndu96081631]

Chào các bác. EM CÓ VẤN ĐỀ THẾ NÀY
Trên 1 bảng tính, sau khi chọn 1 vùng (2 cell liền nhau trên cùng 1 dòng). chạy code thì hiện lên hộp

và địa chỉ của vùng 1 hiện trong khung vị trí 1Chọn vào khung vị trí 2 thì cho phép ta chọn tiếp vùng 2 (2 cell liền nhau trên cùng 1 dòng), khi chọn xong thì địa chỉ của vùng 2 hiện trong khung vị trí 2
Nhấn nút chuyển thì giá trị của chúng được hoán chuyển trí cho nhau (dạng Paste Special Value - không ảnh hưởng tới công thức tại các cell khác tham chiếu tới những cell đã hoán chuyển vị trí về giá trị)
Rất mong được các bác giúp đỡ

Thuật toán chung để chuyển dời vị trí 2 vùng cho nhau là:
- Copy vùng 1 ra 1 vùng tạm
- Cho vùng 1 = vùng 2
- Cho vùng 2 = vùng tạm
ví dụ như file đính kèm:

Sub Test()
 Dim Rng1 As Range, Rng2 As Range, Temp As Variant
 Set Rng1 = [A1:B1]
 Set Rng2 = [E1:F1]
 Temp = Rng1.Value
 Rng1.Value = Rng2.Value
 Rng2.Value = Temp
End Sub

Tôi nghĩ bạn dư sức làm mà

 

[boyxin]

Thuật toán chung để chuyển dời vị trí 2 vùng cho nhau là:
- Copy vùng 1 ra 1 vùng tạm
- Cho vùng 1 = vùng 2
- Cho vùng 2 = vùng tạm
ví dụ như file đính kèm:

Sub Test()
 Dim Rng1 As Range, Rng2 As Range, Temp As Variant
 Set Rng1 = [A1:B1]
 Set Rng2 = [E1:F1]
 Temp = Rng1.Value
 Rng1.Value = Rng2.Value
 Rng2.Value = Temp
End Sub

Tôi nghĩ bạn dư sức làm mà

Vấn đề của mình ở đây là
vùng 1, vùng 2 là người dùng chọn tùy ý, không có phần chung
địa chỉ vùng 1, vùng 2 hiện trong hai khung

 

[Po_Pikachu]

Mình cứu bạn đây!

Sub chuyenvung() Dim vung1 As Range, vung2 As Range Dim vitri1, vitri2 On Error GoTo loi Set vung1 = Application.InputBox("Chon vi tri 1:", "Thong bao", Type:=8) Set vung2 = Application.InputBox("Chon vi tri 2:", "Thong bao", Type:=8) vitri1 = vung1 vitri2 = vung2 vung2 = vitri1 vung1 = vitri2 loi: Exit Sub End Sub

 

[voda]

Bạn có thể dùng Form. Nhớ chọn vùng trước khi load form:

Private Sub UserForm_Activate()
Dim rgn1 As Range, rgn2 As Range
   Set rgn1 = Selection.Areas(1)
   Set rgn2 = Selection.Areas(2)
   TextBox1.Text = rgn1.Address
   TextBox2.Text = rgn2.Address
End Sub

 

[ptm0412]

Trong toolbox của form có cái control RefEdit, dùng nó để chọn vùng được. Nếu dùng form thì vẽ 2 cái, chọn 2 vùng, kiểm tra kích thước 2 vùng cho bằng nhau, rồi đổi.
Tính làm 1 cái mẫu mà Excel mình hư gì đó, vẽ RefEdit lên form nóbáo Invalid Argument. Trước kia đã từng làm được.

Tìm thấy file cũ lần trước, có dùng RefEdit

 

[boyxin]

Mong muốn của em đã ghi rõ ràng trong file đính kèmRất mong các bác giúp đỡ

 

[Po_Pikachu]

Bực quá file lỗi tùm lum luôn! Mình gửi lại theo yêu cầu của bạn nè! Chúc bạn vui! Thân.

 

[boyxin]

Gửi bác file này! Mượn file của bác ptm0412 nha!
Thân.

file của bạn mình mở ra toàn báo lỗi,

không mở được

 

[ptm0412]

Làm được file mẫu rồi đây

 

[rollover79]

Bạn xem thử file này xem có đúng ý của bạn không nhé.