Chọn Vùng Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Chọn vùng trong VBA (1 người xem)

• Thread starter Thread starter keke355992
• Ngày gửi Ngày gửi 28/10/15

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ Chào các AC trong diễn đàn. Nhờ các AC xem giúm e file này, trong file e đã ghi rõ y/c. E cảm ơn ạ

File đính kèm

• Vung chon VBA.xls Vung chon VBA.xls 30.5 KB · Đọc: 219

Sắp xếp theo thời gian sắp xếp theo bầu chọn

nghiaphuc

Thành viên gạo cội

Thành viên danh dự Tham gia 25/9/09 Bài viết 5,729 Được thích 8,859 Giới tính Nam Nghề nghiệp Giáo viên

keke355992 đã viết: Chào các AC trong diễn đàn. Nhờ các AC xem giúm e file này, trong file e đã ghi rõ y/c. E cảm ơn ạ Nhấp chuột vào đây để mở rộng...

Làm biếng "chế" lại cái mới nên lấy code của bạn luôn: Bạn sửa câu lệnh Mã: Sao chép. Range(Cells(.Row, 2), Cells(.Row, 10).End(xlDown)).Select thành Mã: Sao chép. Range(Cells(.Row, 2), Cells(.Row, 10).End(xlDown)[COLOR=#ff0000][B].Offset(-5)[/B][/COLOR]).Select Upvote 0

Ngoai Thanh

Cánh Diều xanh

Tham gia 14/6/12 Bài viết 823 Được thích 906

keke355992 đã viết: Chào các AC trong diễn đàn. Nhờ các AC xem giúm e file này, trong file e đã ghi rõ y/c. E cảm ơn ạ Nhấp chuột vào đây để mở rộng...

Bạn chép thử tý code này thử xem nhé : Sub thu() Range("B65536").End(3).Resize(23, 9).Select End Sub Lần chỉnh sửa cuối: 28/10/15 Upvote 0

phulien1902

GPE - My love

Tham gia 6/7/13 Bài viết 3,543 Được thích 4,425

Ngoai Thanh đã viết: Bạn chép thử tý code này thử xem nhé : Sub thu() Range("B65536").End(3).Resize(23, 9).Select End Sub Nhấp chuột vào đây để mở rộng...

Code này hình như nhầm lẫn rồi? Upvote 0 K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ

nghiaphuc đã viết: Làm biếng "chế" lại cái mới nên lấy code của bạn luôn: Bạn sửa câu lệnh Mã: Sao chép. Range(Cells(.Row, 2), Cells(.Row, 10).End(xlDown)).Select thành Mã: Sao chép. Range(Cells(.Row, 2), Cells(.Row, 10).End(xlDown)[COLOR=#ff0000][B].Offset(-5)[/B][/COLOR]).Select Nhấp chuột vào đây để mở rộng...

Ôi đơn giản vậy mà e k nghĩ ra. Cứ loay hoay ++ -- row các kiểu. Thank a nhìu Upvote 0

Ngoai Thanh

Cánh Diều xanh

Tham gia 14/6/12 Bài viết 823 Được thích 906

phulien1902 đã viết: Code này hình như nhầm lẫn rồi? Nhấp chuột vào đây để mở rộng...

Nếu chọn 1 vùng thì xác định điểm đầu cần chọn rồi mở rộng bằng resize ra số dòng, số cột . Nếu biết một chút về VBA thì tự sửa thôi ... Upvote 0

nghiaphuc

Thành viên gạo cội

Thành viên danh dự Tham gia 25/9/09 Bài viết 5,729 Được thích 8,859 Giới tính Nam Nghề nghiệp Giáo viên

Ngoai Thanh đã viết: Nếu chọn 1 vùng thì xác định điểm đầu cần chọn rồi mở rộng bằng resize ra số dòng, số cột . Nếu biết một chút về VBA thì tự sửa thôi ... Nhấp chuột vào đây để mở rộng...

Có thể trên thực tế thì cái dòng cuối cùng đó không biết là dòng nào, do đó cũng chưa biết được tổng số dòng cần chọn. Như vậy thì Resize trong trường hợp này là không ổn. Và tất nhiên nếu dòng cuối cùng mà không lớn hơn 5 thì cách dùng Offset như bài #2 cũng "tèo". Upvote 0 K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ

nghiaphuc đã viết: Có thể trên thực tế thì cái dòng cuối cùng đó không biết là dòng nào, do đó cũng chưa biết được tổng số dòng cần chọn. Như vậy thì Resize trong trường hợp này là không ổn. Và tất nhiên nếu dòng cuối cùng mà không lớn hơn 5 thì cách dùng Offset như bài #2 cũng "tèo". Nhấp chuột vào đây để mở rộng...

Vẫn bài toán này, nhờ A và các Ac khác xem giúp em 1 chút nữa ạ. E cảm ơn nhìu !!!

File đính kèm

• Vung chon VBA.xls Vung chon VBA.xls 35 KB · Đọc: 84

Upvote 0 K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ Bác @nghiaphuc xem giúp em với ạ Upvote 0

Ngoai Thanh

Cánh Diều xanh

Tham gia 14/6/12 Bài viết 823 Được thích 906

nghiaphuc đã viết: Có thể trên thực tế thì cái dòng cuối cùng đó không biết là dòng nào, do đó cũng chưa biết được tổng số dòng cần chọn. Như vậy thì Resize trong trường hợp này là không ổn. Và tất nhiên nếu dòng cuối cùng mà không lớn hơn 5 thì cách dùng Offset như bài #2 cũng "tèo". Nhấp chuột vào đây để mở rộng...

Trong file của bạn ấy có 2 câu thế này , mình xin trích dẫn : - Khi em Click button, vùng chọn của em là : C4:J27 - E muốn khi ấn button thì chọn 1 vùng cách dòng dữ liệu cuối cùng 5 dòng, trong trường hợp này vùng chọn sẽ là C4:J22 Nên chẳng biết làm theo câu nào , nên làm tạm vậy, nếu chưa đúng thì la lên ...Nhưng chủ topic coi như không nhìn thấy... thì thôi . Nếu nói về chọn vùng mà còn chưa biết thì đừng nói đến VBA nữa . Chủ đề này mình không tham gia nữa ... Upvote 0 K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ

Ngoai Thanh đã viết: Trong file của bạn ấy có 2 câu thế này , mình xin trích dẫn : - Khi em Click button, vùng chọn của em là : C4:J27 - E muốn khi ấn button thì chọn 1 vùng cách dòng dữ liệu cuối cùng 5 dòng, trong trường hợp này vùng chọn sẽ là C4:J22 Nên chẳng biết làm theo câu nào , nên làm tạm vậy, nếu chưa đúng thì la lên ...Nhưng chủ topic coi như không nhìn thấy... thì thôi . Nếu nói về chọn vùng mà còn chưa biết thì đừng nói đến VBA nữa . Chủ đề này mình không tham gia nữa ... Nhấp chuột vào đây để mở rộng...

E chào A. Cho phép e nói 1 chút. Hôm qa đúng là em có thử cách của A, sau đó thử cách của A NghiaPhuc. Theo đó, cách của A nghiaphuc đáp ứng đúng y/c của e mong muốn, e vội cảm ơn A ý. Có thể trong lúc đó, e đã quên k Reply lại cho A. Mong a thông cảm ạ. Có thể a sẽ hỏi là: Hôm nay chẳng nhẻ vẫn quên... E còn trẻ ng, mới tập tành VBA và còn rất nhiều điều muốn hỏi A và các thầy, Ac trong diễn đàn. E sẽ rút kinh nghiệm. Chúc A 1 ngày tốt lành ! Upvote 0 K

keke355992

Thành viên thường trực

Tham gia 19/1/08 Bài viết 310 Được thích 20 Nghề nghiệp KẾ TOÁN THUẾ, TƯ VẪN THUẾ

hpkhuong đã viết: Mã: Sao chép. Sub GPE() Dim X, Y X = Application.Match(" -", Range("B2:B26"), 0) Y = Application.CountIf(Range("B2:B26"), " -") Range("B" & X + 2 & ":B" & X + Y).Select End Sub Nhấp chuột vào đây để mở rộng...

Cảm ơn a. Đúng ý em ồi Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0 cho em hỏi :muốn chọn vùng ( cụ thể là hàng) mà trong đó chứa biến i thì chọn như thế nào? ví dụ như sau Sub vidu() Dim i, j As Integer j = 3 For i = 1 To 100 If Worksheets("concrete").Cells(i, 4).Value = "Flocculation and Sedimentation Basin" Then Worksheets("Sheet1").Range(...).Value = ...' em muốn chọn hàng thứ i " Else .... End If Next i End Sub Upvote 0 T

tamthat

Thành viên hoạt động

Tham gia 25/7/07 Bài viết 173 Được thích 83 Giới tính Nam Nghề nghiệp Human

nhoxc11b đã viết: cho em hỏi :muốn chọn vùng ( cụ thể là hàng) mà trong đó chứa biến i thì chọn như thế nào? ví dụ như sau Sub vidu() Dim i, j As Integer j = 3 For i = 1 To 100 If Worksheets("concrete").Cells(i, 4).Value = "Flocculation and Sedimentation Basin" Then Worksheets("Sheet1").Range(...).Value = ...' em muốn chọn hàng thứ i " Else .... End If Next i End Sub Nhấp chuột vào đây để mở rộng...

Hàng thứ i thì là cột thứ mấy? Hay chỉ là hàng không thôi? Nếu chỉ là chọn hàng không thôi thì bạn cứ cho luôn vào : Rows(i) . Nếu chọn vùng kiểu như Range("A5:B8") mà số 8 là i thì điền Range("A5:B" & i) Upvote 0

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,808 Được thích 6,370 Donate (Momo) Giới tính Nam

nhoxc11b đã viết: cho em hỏi :muốn chọn vùng ( cụ thể là hàng) mà trong đó chứa biến i thì chọn như thế nào? ví dụ như sau Sub vidu() Dim i, j As Integer j = 3 For i = 1 To 100 If Worksheets("concrete").Cells(i, 4).Value = "Flocculation and Sedimentation Basin" Then Worksheets("Sheet1").Range(...).Value = ...' em muốn chọn hàng thứ i " Else .... End If Next i End Sub Nhấp chuột vào đây để mở rộng...

Nếu chỉ muốn chọn hàng i thì sử dụng thế này. Mã: Sao chép. Worksheets("Sheet1").Rows([COLOR=#ff0000][B]i[/B][/COLOR]).Select Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0 cho em hỏi thêm câu này: em có sub sau mà sao khi chạy nó báo lỗi ở dòng tô đỏ. các bác giúp em với. Sub copy1() Dim copyrange As Range Dim numrow, numcol As Integer Set copyrange = Sheets("con1").[a4].CurrentRegion copyrange.Offset(2).Resize(copyrange.Rows.Count - 2, copyrange.Columns.Count).Select Selection.copy Worksheets("FSB").Range("A5").Select Selection.Insert Shift:=xlDown End Sub Upvote 0

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,808 Được thích 6,370 Donate (Momo) Giới tính Nam

nhoxc11b đã viết: cho em hỏi thêm câu này: em có sub sau mà sao khi chạy nó báo lỗi ở dòng tô đỏ. các bác giúp em với. Sub copy1() Dim copyrange As Range Dim numrow, numcol As Integer Set copyrange = Sheets("con1").[a4].CurrentRegion copyrange.Offset(2).Resize(copyrange.Rows.Count - 2, copyrange.Columns.Count).Select Selection.copy Worksheets("FSB").Range("A5").Select Selection.Insert Shift:=xlDown End Sub Nhấp chuột vào đây để mở rộng...

Bạn xem lại sheet FSB có tồn tại hay không? Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843

nhoxc11b đã viết: cho em hỏi thêm câu này: em có sub sau mà sao khi chạy nó báo lỗi ở dòng tô đỏ. các bác giúp em với. Sub copy1() Dim copyrange As Range Dim numrow, numcol As Integer Set copyrange = Sheets("con1").[a4].CurrentRegion copyrange.Offset(2).Resize(copyrange.Rows.Count - 2, copyrange.Columns.Count).Select Selection.copy Worksheets("FSB").Range("A5").Select Selection.Insert Shift:=xlDown End Sub Nhấp chuột vào đây để mở rộng...

Thêm một dòng màu đỏ: Selection.copy Sheets("FSB").Select Sheets("FSB").Range("A5").Select Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0

giaiphap đã viết: Bạn xem lại sheet FSB có tồn tại hay không? Nhấp chuột vào đây để mở rộng...

em có sheet đó anh ơi ! Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0

befaint đã viết: Thêm một dòng màu đỏ: Selection.copy Sheets("FSB").Select Sheets("FSB").Range("A5").Select Nhấp chuột vào đây để mở rộng...

em đã làm như bác nói nhưng nó lại hiện bôi vàng dòng màu đỏ em gửi file lên bác xem hộ em cái. không biết excel của em có bị lỗi gì không Sub copy2() Dim copyrange As Range Dim numrow, numcol As Integer Set copyrange = Sheets("con1").[a4].CurrentRegion copyrange.Offset(2).Resize(copyrange.Rows.Count - 2, copyrange.Columns.Count).Select Selection.copy Sheets("FSB").Select Worksheets("FSB").Range("A3").Select Selection.Insert Shift:=xlDown End Sub

File đính kèm

• vba2.jpg 21 KB · Đọc: 3
• concrete.xlsm concrete.xlsm 84.6 KB · Đọc: 8

Lần chỉnh sửa cuối: 23/11/16 Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843

nhoxc11b đã viết: em đã làm như bác nói nhưng nó lại hiện bôi vàng dòng màu đỏ em gửi file lên bác xem hộ em cái. không biết excel của em có bị lỗi gì không Nhấp chuột vào đây để mở rộng...

Thêm dòng màu xanh Set copyrange = Sheets("con1").[a4].CurrentRegion Sheets("con1").Select copyrange.Offset(2).Resize(copyrange.Rows.Count - 2).Select Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0

befaint đã viết: Thêm dòng màu xanh Set copyrange = Sheets("con1").[a4].CurrentRegion Sheets("con1").Select copyrange.Offset(2).Resize(copyrange.Rows.Count - 2).Select Nhấp chuột vào đây để mở rộng...

cảm ơn bác rất nhiều nhiều nha ..dòng lệnh của em đã chạy. mà bác có thể giải thích cho em rõ hơn tại lại như vậy ạ. còn một vấn đề nữa khi em nhấn F5 để chạy thì chương trình hiện bảng "update Value" như hình . em không hiểu gì nên click "Cancel"..cái bảng đó lại hiện ra lần nữa, em tiếp tục click "cancel" thì bảng đó mất đi mà dòng lệnh chạy được.

File đính kèm

• update.jpg 25.2 KB · Đọc: 25

Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843

nhoxc11b đã viết: cảm ơn bác rất nhiều nhiều nha ..dòng lệnh của em đã chạy. mà bác có thể giải thích cho em rõ hơn tại lại như vậy ạ. còn một vấn đề nữa khi em nhấn F5 để chạy thì chương trình hiện bảng "update Value" như hình . em không hiểu gì nên click "Cancel"..cái bảng đó lại hiện ra lần nữa, em tiếp tục click "cancel" thì bảng đó mất đi mà dòng lệnh chạy được. Nhấp chuột vào đây để mở rộng...

Mã: Sao chép. Sub copy2() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual [COLOR=#0000ff]'// code của bạn: Từ chỗ Dim tới trước End Sub '.......[/COLOR] Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic End Sub Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,843

nhoxc11b đã viết: mà bác có thể giải thích cho em rõ hơn tại lại như vậy ạ. Nhấp chuột vào đây để mở rộng...

Khi "đứng" ở sheet nào (sheet.select hoặc sheet.Activate) thì mới chọn được range ở trên sheet đó (range().select) Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0 em lại vướng nữa bác ơi, sau khi em sort bằng code Sub sort() Dim sortrange As Range Set sortrange = Sheets("con1").[a4].CurrentRegion Sheets("con1").Select sortrange.AutoFilter Field:=3, Criteria1:= _ "Flocculation and Sedimentation Basin" End Sub em cho chạy tiếp code hồi nãy ( ở dưới ). thì nó không báo lỗi mà cũng không xuất kết quả luôn. nếu không chạy sub sort () thì sub copy2() lại chạy ngon lành...mong các bác chỉ em biết sai ở chỗ nào vậy Sub copy2() Dim copyrange As Range Dim numrow, numcol As Integer Set copyrange = Sheets("con1").[a4].CurrentRegion Sheets("con1").Select copyrange.Offset(2).Resize(copyrange.Rows.Count - 2, copyrange.Columns.Count).Select Selection.copy Sheets("FSB").Select Worksheets("FSB").Range("A3").Select Selection.Insert Shift:=xlDown End Sub Upvote 0 N

nhoxc11b

Thành viên mới

Tham gia 3/11/16 Bài viết 10 Được thích 0 cái phần thêm này của bác có ý nghĩ như thế nào vậy ! em thử thêm và chạy lại thì kết quả vẫn vậy .

befaint đã viết: Mã: Sao chép. Sub copy2() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual [COLOR=#0000ff]'// code của bạn: Từ chỗ Dim tới trước End Sub '.......[/COLOR] Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic End Sub Nhấp chuột vào đây để mở rộng...

Upvote 0 H

hieunt0023

Thành viên mới

Tham gia 13/2/12 Bài viết 13 Được thích 0 Các bác giúp em chọn các vùng khác nhau (màu vàng trong file gửi kèm) theo vùng chỉ định nhập ở ô L1:M2 (em muốn chọn kiểu như này ah; B&vlueL1:C&valueM1, B&valueL2:C&valueM2) em xin cảm ơn

File đính kèm

• select.xlsx select.xlsx 10.6 KB · Đọc: 7

Upvote 0 B

bebo021999

Thành viên gạo cội

Tham gia 26/1/11 Bài viết 6,041 Được thích 8,810 Giới tính Nam Nghề nghiệp GPE

hieunt0023 đã viết: Các bác giúp em chọn các vùng khác nhau (màu vàng trong file gửi kèm) theo vùng chỉ định nhập ở ô L1:M2 (em muốn chọn kiểu như này ah; B&vlueL1:C&valueM1, B&valueL2:C&valueM2) em xin cảm ơn Nhấp chuột vào đây để mở rộng...

Dùng đỡ cái này: PHP: Sao chép. Option Explicit Sub chonvung() Dim i&, rng, startC As String, endC As String Dim u As Range, addr As String rng = Range("L1:M" & Cells(Rows.Count, "L").End(xlUp).Row).Value startC = "B"' cot dau endC = "C" ' cot cuoi For i = 1 To UBound(rng) If rng(i, 1) <> "" And rng(i, 2) <> "" Then addr = startC & rng(i, 1) & ":" & endC & rng(i, 2) If u Is Nothing Then Set u = Range(addr) Else Set u = Union(u, Range(addr)) End If End If Next u.Select End Sub Upvote 0

Ronaldinho7

Zl: 0707315985

Tham gia 5/4/22 Bài viết 186 Được thích 204

hieunt0023 đã viết: Các bác giúp em chọn các vùng khác nhau (màu vàng trong file gửi kèm) theo vùng chỉ định nhập ở ô L1:M2 (em muốn chọn kiểu như này ah; B&vlueL1:C&valueM1, B&valueL2:C&valueM2) em xin cảm ơn Nhấp chuột vào đây để mở rộng...

Bạn thử coi Mã: Sao chép. Sub troioi() With Sheets("Sheet1") Union(.Cells(2, 2), .Cells(2, 3), .Range(.Cells(7, 2), .Cells(8, 3))).Select End With End Sub Upvote 0 H

hieunt0023

Thành viên mới

Tham gia 13/2/12 Bài viết 13 Được thích 0

Ronaldinho7 đã viết: Bạn thử coi Mã: Sao chép. Sub troioi() With Sheets("Sheet1") Union(.Cells(2, 2), .Cells(2, 3), .Range(.Cells(7, 2), .Cells(8, 3))).Select End With End [/QUOTE] Nhấp chuột vào đây để mở rộng...

Ronaldinho7 đã viết: Bạn thử coi Mã: Sao chép. Sub troioi() With Sheets("Sheet1") Union(.Cells(2, 2), .Cells(2, 3), .Range(.Cells(7, 2), .Cells(8, 3))).Select End With End Sub Nhấp chuột vào đây để mở rộng...

hay wa cảm ơn bác nhiều Bài đã được tự động gộp: 31/1/23

hieunt0023 đã viết: hay wa cảm ơn bác nhiều Nhấp chuột vào đây để mở rộng...

ah không dc vì giá trị cột L1 đến M2 thay đổi nó ko chọn dc Bài đã được tự động gộp: 31/1/23

bebo021999 đã viết: Dùng đỡ cái này: PHP: Sao chép. Option Explicit Sub chonvung() Dim i&, rng, startC As String, endC As String Dim u As Range, addr As String rng = Range("L1:M" & Cells(Rows.Count, "L").End(xlUp).Row).Value startC = "B"' cot dau endC = "C" ' cot cuoi For i = 1 To UBound(rng) If rng(i, 1) <> "" And rng(i, 2) <> "" Then addr = startC & rng(i, 1) & ":" & endC & rng(i, 2) If u Is Nothing Then Set u = Range(addr) Else Set u = Union(u, Range(addr)) End If End If Next u.Select End Sub Nhấp chuột vào đây để mở rộng...

Cảm ơn bác nhiều đúng cái em đang cần Lần chỉnh sửa cuối: 31/1/23 Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,805 Được thích 23,279 Nghề nghiệp U80 Trực quan hơn nè, mại zô: PHP: Sao chép. Sub SelectionRanges1() Dim Rng As Range With Sheets("Sheet1") Set Rng = .Range("B" & .[L1].Value & ":C" & .[M1].Value) MsgBox Rng.Address, , "Rng.Address:" Union(Rng, .Range("B" & .[L2].Value & ":C" & .[M2].Value)).Select MsgBox Selection.Address, , "Vùng Chon Theo Chi Sô Dòng & Côt" End With End Sub Upvote 0 B

bebo021999

Thành viên gạo cội

Tham gia 26/1/11 Bài viết 6,041 Được thích 8,810 Giới tính Nam Nghề nghiệp GPE

SA_DQ đã viết: Trực quan hơn nè, mại zô: PHP: Sao chép. Sub SelectionRanges1() Dim Rng As Range With Sheets("Sheet1") Set Rng = .Range("B" & .[L1].Value & ":C" & .[M1].Value) MsgBox Rng.Address, , "Rng.Address:" Union(Rng, .Range("B" & .[L2].Value & ":C" & .[M2].Value)).Select MsgBox Selection.Address, , "Vùng Chon Theo Chi Sô Dòng & Côt" End With End Sub Nhấp chuột vào đây để mở rộng...

Bác lại trói cái vùng L1:M2 rồi. Thời đại 4.0 rồi thả rông cho nó tự do mát mẻ đi bác. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 80 Đọc 3K Hôm nay lúc 04:23 SA_DQ

• Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ)

• • 
  • 
  • 

• ongke0711
• 24/7/25
• Lập Trình với Excel

Trả lời 23 Đọc 2K Hôm qua, lúc 22:17 kahainguyen K A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (3 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 19 Đọc 5K Hôm qua, lúc 21:35 bac0986101092

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 632 Đọc 94K Hôm qua, lúc 19:55 tuanktt3 T TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL

• • 

• vn81206
• 2/2/23
• Cơ sở dữ liệu

Trả lời 68 Đọc 26K Hôm qua, lúc 17:54 kahainguyen K E

• Question Question

VBA code tô màu ô excel theo điều kiện so sánh (2 người xem)

• eagle12
• Hôm qua, lúc 09:42
• Lập Trình với Excel

Trả lời 1 Đọc 45 Hôm qua, lúc 17:26 HUONGHCKT H B Phần mềm quản lý bán hàng trên excel offline (1 người xem)

• buihoanganhminh
• Hôm qua, lúc 14:09
• Hàm và công thức Excel

Trả lời 0 Đọc 44 Hôm qua, lúc 14:09 buihoanganhminh B [New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA (1 người xem)

• • 

• Nguyễn Duy Tuân
• 24/9/20
• BLUESOFTS: A-Excel, A-Tools

Trả lời 14 Đọc 4K Hôm qua, lúc 10:14 Nguyễn Duy Tuân T Sử dụng Google Sheets để tạo webapp nhận báo giá online

• • 

• thuctien
• 15/2/26
• Google Sheets

Trả lời 1 Đọc 229 Hôm qua, lúc 10:13 hotboykute H

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 66 Đọc 13K Hôm qua, lúc 09:40 Nguyễn Duy Tuân V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 21 Đọc 947 Hôm qua, lúc 08:12 Gà Công Nghệ H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự (1 người xem)

• • 

• hotboykute
• Chủ nhật lúc 14:42
• Những vấn đề chung

Trả lời 11 Đọc 211 Thứ hai lúc 17:42 HUONGHCKT H A

• Question Question

Nhờ sửa câu lệnh AutoFilter (2 người xem)

• AnhThu-1976
• Thứ hai lúc 12:13
• Lập Trình với Excel

Trả lời 1 Đọc 53 Thứ hai lúc 12:22 LOGANWover L A

• Question Question

Code nối các ghi chú với nhau theo điều kiện (2 người xem)

• AnhThu-1976
• Chủ nhật lúc 11:35
• Lập Trình với Excel

Trả lời 2 Đọc 106 Chủ nhật lúc 18:10 HUONGHCKT H Hướng dẫn tạo Macro chuyển số thành chữ trong Open Office 3.1 (Tiếng Việt Unicode)

• cadafi
• 5/6/09
• Những phần mềm bảng tính

Trả lời 15 Đọc 26K Thứ bảy lúc 20:46 hng1635 H N Tạo COM Add-In bằng Visual C++ (2 người xem)

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 19 Đọc 2K Thứ sáu lúc 20:45 nguyendang95 N Công thức này có gì thú vị: (1 người xem)

• SA_DQ
• Thứ sáu lúc 04:54
• Làm việc với ngày tháng và thời gian

Trả lời 1 Đọc 126 Thứ sáu lúc 11:46 ptm0412 H Hướng dẫn tạo Nút bấm sắp xếp họ tên tiếng Việt trong LibreOffice Calc (2 người xem)

• • 

• hng1635
• Thứ năm lúc 23:57
• Những phần mềm bảng tính

Trả lời 0 Đọc 88 Thứ năm lúc 23:57 hng1635 H VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

• phuongnam366377
• 31/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 5 Đọc 498 Thứ năm lúc 10:37 phuongnam366377 M Bảo mật code VBA autocad! (1 người xem)

• Michael Bit
• 9/2/26
• Hỏi đáp những vấn đề khác

Trả lời 18 Đọc 648 18/2/26 Michael Bit M Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 15
• chothadiem 11
• Michael Bit 9
• SA_DQ 9
• ongke0711 8
• YêuCN 7
• Gà Công Nghệ 6
• HieuCD 5
• ptm0412 5
• HUONGHCKT 5
• kahainguyen 5
• DeTong 4
• Officexinh 4
• hng1635 4
• vietdang170 4
• bac0986101092 4
• le_vis 3
• chiendich 3
• hoanglocphat 3
• AnhThu-1976 3

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 19
• SA_DQ 18
• GPE-Trợ Lý 13
• HUONGHCKT 9
• ongke0711 8
• Quang_Hải 7
• HieuCD 6
• le_vis 6
• DeTong 5
• LOGANWover 5
• vietdang170 5
• Gà Con yêu VBA 4
• Phuocam 3
• pycckuu410 3
• chiendich 3
• Hai Lúa Miền Tây 3
• Michael Bit 3
• hungvinh1402 2
• YêuCN 2
• Officexinh 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom