Tạo Nút Xóa Dữ Liệu đã Nhập | 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. Tạo nút xóa dữ liệu đã nhập (1 người xem)

• Thread starter Thread starter titanic
• Ngày gửi Ngày gửi 14/7/11

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

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

titanic

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

Tham gia 25/5/10 Bài viết 161 Được thích 11 chào các anh/chị em muốn tạo một cái nút khi mình nhấp chọn vào nó sẽ tự động xóa các dữ liệu ở các ô mình muốn xóa (xem file đính kèm ) , cảm ơn trước nhe

File đính kèm

• nút xóa dưu liệu.xls nút xóa dưu liệu.xls 17 KB · Đọc: 393

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

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam Bạn cho ghi macro rồi bạn phủ khối ở vùng vàng đó rồi bấm xóa, tắt ghi macro, rồi vào VBA sửa lại chút xíu cho gọn, sau đó gán macro đó vào nút lệnh thôi! Sau khi ghi macro thì nó sẽ như vầy: PHP: Sao chép. Sub Macro1() ' ' Macro1 Macro ' ' Range("B2:C11").Select Selection.ClearContents End Sub Chỉnh lại chút xíu nó sẽ như vầy: PHP: Sao chép. Sub Macro1() Sheets("du lieu nhap").Range("B2:C11").ClearContents End Sub Upvote 0

dhn46

Hướng tới tương lai

Tham gia 1/3/11 Bài viết 3,251 Được thích 3,870 Bạn chắc cũng biết 1 ít về VBA nhỉ. Vậy code của bạn đây Mã: Sao chép. Private Sub CommandButton1_Click() Sheet2.Range("b2:c11").ClearContents End Sub Upvote 0 T

titanic

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

Tham gia 25/5/10 Bài viết 161 Được thích 11 cám ơn bạn đã chỉ nhưng có thể làm trên file mình gửi được không để mình nghiên cứu từ từ ? tại mình chưa hiểu lắm Upvote 0

dhn46

Hướng tới tương lai

Tham gia 1/3/11 Bài viết 3,251 Được thích 3,870 file của bạn đây. bạn tham khảo nhé Upvote 0 V

vinhnguyet

Thành viên mới

Tham gia 26/7/11 Bài viết 2 Được thích 0 hỏi thông tin về nút xóa dữ lieu em muốn xin các anh chị nào biết về tạo nút xóa dữ liệu hướng dẫn chi tiết cho em xem được không ah, em làm mãi mà không thực hiện được Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

dhn46 đã viết: file của bạn đây. bạn tham khảo nhé Nhấp chuột vào đây để mở rộng...

Bạn có đưa file lên cũng đừng khuyến mãi virus chứ File của bạn có con StartUp bự chảng Các bạn khác chú ý nha. Với file này mà Enable Macro, bị dính virus ráng chịu Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

dhn46 đã viết: Bạn chắc cũng biết 1 ít về VBA nhỉ. Vậy code của bạn đây Mã: Sao chép. Private Sub CommandButton1_Click() Sheet2.Range("b2:c11").ClearContents End Sub Nhấp chuột vào đây để mở rộng...

Em cám ơn, Nhưng cho em hỏi thêm chút, nếu trong trường hợp em muốn xoá luôn cột đó đi thì phải viết code như thế nào Em sửa lại code của anh nhưng không được vì no chỉ xoá data thôi "Private Sub CommandButton1_Click() Sheet2.Range("1:10").ClearContents End Sub" Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

0905744404 đã viết: Em cám ơn, Nhưng cho em hỏi thêm chút, nếu trong trường hợp em muốn xoá luôn cột đó đi thì phải viết code như thế nào Em sửa lại code của anh nhưng không được vì no chỉ xoá data thôi "Private Sub CommandButton1_Click() Sheet2.Range("1:10").ClearContents End Sub" Nhấp chuột vào đây để mở rộng...

Private Sub CommandButton1_Click() Sheet2.Range("1:10").Delete End Sub em làm được rồi em cám ơn Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế" [/QUOTE]

ndu96081631 đã viết: Bạn có đưa file lên cũng đừng khuyến mãi virus chứ File của bạn có con StartUp bự chảng Các bạn khác chú ý nha. Với file này mà Enable Macro, bị dính virus ráng chịu Nhấp chuột vào đây để mở rộng...

Em Chào thầy! thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên. thầy giúp em nha!! Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế" Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete Có thể record macro quá trình này để biết code ghi thế nào[/QUOTE] Em không hiểu code viết như thế nào hết, em kem VBA lắm thầy viết giúp em nha!! Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

0905744404 đã viết: Em Chào thầy! thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên. thầy giúp em nha!! Nhấp chuột vào đây để mở rộng...

Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete Có thể record macro quá trình này để biết code ghi thế nào Lần chỉnh sửa cuối: 29/7/11 Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

ndu96081631 đã viết: Em Chào thầy! thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên. thầy giúp em nha!! Nhấp chuột vào đây để mở rộng...

Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete Có thể record macro quá trình này để biết code ghi thế nào[/QUOTE] Em làm ra như thế này rồi mà không biết phải là thế nào để code tự xóa những dòng rỗng đi Thầy xem giúp em với Sub Macro2() ActiveWindow.SmallScroll Down:=-9 Selection.AutoFilter Field:=4, Criteria1:="=" ActiveWindow.SmallScroll Down:=-12 Rows("12:18").Select Selection.Delete Shift:=xlUp End Sub Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

0905744404 đã viết: Em làm ra như thế này rồi mà không biết phải là thế nào để code tự xóa những dòng rỗng đi Thầy xem giúp em với Sub Macro2() ActiveWindow.SmallScroll Down:=-9 Selection.AutoFilter Field:=4, Criteria1:="=" ActiveWindow.SmallScroll Down:=-12 Rows("12:18").Select Selection.Delete Shift:=xlUp End Sub Nhấp chuột vào đây để mở rộng...

Nếu làm không được thì đưa file lên đây nhé Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

ndu96081631 đã viết: Nếu làm không được thì đưa file lên đây nhé Nhấp chuột vào đây để mở rộng...

Em tải file lên rồi mong Thầy xem và viết lại code giúp em với.

File đính kèm

• Xoa Hien An Dong.xls Xoa Hien An Dong.xls 88.5 KB · Đọc: 50

Upvote 0 V

vinhnguyet

Thành viên mới

Tham gia 26/7/11 Bài viết 2 Được thích 0 em đã xem file anh gửi lên, anh có thể hướng dẫn em cách tạo ra nút xóa đó được không ah Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

ndu96081631 đã viết: Có thể record macro quá trình này để biết code ghi thế nào Nhấp chuột vào đây để mở rộng...

Bạn làm theo hướng dẫn của thầy ndu96081631 nha.nút thì không khó lắm nhưng cón code thì mình cũng đang nhờ thầy viết cho nè. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

0905744404 đã viết: Em tải file lên rồi mong Thầy xem và viết lại code giúp em với. Nhấp chuột vào đây để mở rộng...

Code xóa dòng chứa cell rổng tại cột D như sau: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next With Range("D4:D1000") .AutoFilter 1, "=" .Offset(1).SpecialCells(12).EntireRow.Delete .AutoFilter End With End Sub

File đính kèm

• Xoa Hien An Dong.xls Xoa Hien An Dong.xls 43 KB · Đọc: 116

Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

ndu96081631 đã viết: Code xóa dòng chứa cell rổng tại cột D như sau: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next With Range("D4:D1000") .AutoFilter 1, "=" .Offset(1).SpecialCells(12).EntireRow.Delete .AutoFilter End WithEnd Sub Nhấp chuột vào đây để mở rộng...

Em cám ơn thầy!!!Thầy giúp em viết lại code Hidden, anHidden những dòng có giá trị rỗng tại cột D với, em đang tìm hiểu về code VBA nên còn chậm lắm Thầy ạ Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

0905744404 đã viết: Em cám ơn thầy!!!Thầy giúp em viết lại code Hidden, anHidden những dòng có giá trị rỗng tại cột D với, em đang tìm hiểu về code VBA nên còn chậm lắm Thầy ạ Nhấp chuột vào đây để mở rộng...

Code như vầy sẽ là ẩn dòng có giá trị rổng tại cột D: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next Range("D4:D1000").AutoFilter 1, "<>" End Sub Còn để hiện ra thì hủy chế độ AutoFilter đi bằng đoạn code sau: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next ActiveSheet.AutoFilterMode = False End Sub Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế"

ndu96081631 đã viết: Code như vầy sẽ là ẩn dòng có giá trị rổng tại cột D: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next Range("D4:D1000").AutoFilter 1, "<>" End Sub Còn để hiện ra thì hủy chế độ AutoFilter đi bằng đoạn code sau: PHP: Sao chép. Private Sub CommandButton3_Click() On Error Resume Next ActiveSheet.AutoFilterMode = False End Sub Nhấp chuột vào đây để mở rộng...

Em cám ơn thầy nha, nó đã giúp em nhiều trong công việc lắm Upvote 0

0905744404

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

Tham gia 26/10/10 Bài viết 333 Được thích 107 Nghề nghiệp Trước là : Thủ Kho - còn giờ thì :"Tài Xế" bạn "vinhnguyet" tải file này ve xem nha http://www.mediafire.com/?1ciynkqta8w6ltm đây là cách không viết code Lần chỉnh sửa cuối: 29/7/11 Upvote 0 N

nguyenhongnguyen

Thành viên mới

Tham gia 7/9/14 Bài viết 3 Được thích 0

dhn46 đã viết: Bạn chắc cũng biết 1 ít về VBA nhỉ. Vậy code của bạn đây Mã: Sao chép. Private Sub CommandButton1_Click() [SIZE=3][COLOR=#ff0000]Sheet2[/COLOR][/SIZE].Range("b2:c11").ClearContents End Sub Nhấp chuột vào đây để mở rộng...

Bạn ơi cho mình hỏi dựa vào đâu mà mình ghi Sheet2? HÌnh như đó ko phải tên sheet. Sr mình mới tìm hiểu nên k rõ lắm! Upvote 0

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam Các bạn cho mình hỏi với: mình có from nhập liệu có ListBox ở dưới như hình đính kèm giờ mình muốn viết code cho buttom xoá để nó xoá dòng dữ liệu trong listbox đó đồng thời xoá luôn dữ liệu có trong sheet đã nhập vào từ from đó thì làm sao ạ?

File đính kèm

• Untitled.png 24.6 KB · Đọc: 24

Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,229 Nghề nghiệp U80

Các bạn cho mình hỏi với: mình có from nhập liệu có ListBox ở dưới như hình đính kèm giờ mình muốn viết code cho buttom xoá để nó (2) xoá dòng dữ liệu trong listbox đó đồng thời (1) xoá luôn dữ liệu có trong sheet đã nhập vào từ from đó thì làm sao ạ? Nhấp chuột vào đây để mở rộng...

(1) Nhìn vô CSDL của bạn thì muốn xóa dòng dữ liệu (DL) chắc chỉ có cách tìm ngày (nhập kho) của mã hàng đó; sau đó tìm mã hàng đó mà xóa thôi (a) Tìm ngày nhập ta có thể áp dụng phương thức FIND() (với vài chú ý . . . khi sử dụng với DL là ngày-tháng-năm) (b) Trong các dòng DL tìm thấy ta tìm dòng nào có mã hàng đó thì xóa đi (2) Cái này sẽ khó 1 khi không thấy file Form mô tê răng chừ(!) Upvote 0

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam

SA_DQ đã viết: (1) Nhìn vô CSDL của bạn thì muốn xóa dòng dữ liệu (DL) chắc chỉ có cách tìm ngày (nhập kho) của mã hàng đó; sau đó tìm mã hàng đó mà xóa thôi (a) Tìm ngày nhập ta có thể áp dụng phương thức FIND() (với vài chú ý . . . khi sử dụng với DL là ngày-tháng-năm) (b) Trong các dòng DL tìm thấy ta tìm dòng nào có mã hàng đó thì xóa đi (2) Cái này sẽ khó 1 khi không thấy file Form mô tê răng chừ(!) Nhấp chuột vào đây để mở rộng...

File đây ạ. Bạn xem giúp mình với. Mình mới làm quen với VBA

File đính kèm

• kd01_tuhocvba0809.xlsm kd01_tuhocvba0809.xlsm 47.9 KB · Đọc: 9

Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,229 Nghề nghiệp U80 Macro để xóa dòng trên trang tính sẽ là vầy: PHP: Sao chép. Private Sub CommandButton4_Click() Dim Rws As Long, J As Long, DgXoa As Long, Num Dim Rng As Range, sRng As Range: Dim MyAdd As String, THang As String Rws = [B7].CurrentRegion.Rows.Count Set Rng = [A6].Resize(Rws) Set sRng = Rng.Find(Me!txtngay.Value, , xlFormulas, xlWhole) If Not sRng Is Nothing Then MyAdd = sRng.Address Do THang = sRng.Offset(, 2).Value If THang = Me!cbten.text Then DgXoa = sRng.Row Num = MsgBox("Xóa Ḍng Có Ngày " & sRng.Value & Chr(10) & "Tên Hàng: " & THang, 4, "GPE.COM") If Num = 6 Then Rows(DgXoa & ":" & DgXoa).Delete: Exit Do End If End If Set sRng = Rng.FindNext(sRng) Loop While Not sRng Is Nothing And sRng.Address <> MyAdd Else MsgBox "Nothing" End If End Sub Upvote 0

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam

SA_DQ đã viết: Macro để xóa dòng trên trang tính sẽ là vầy: PHP: Sao chép. Private Sub CommandButton4_Click() Dim Rws As Long, J As Long, DgXoa As Long, Num Dim Rng As Range, sRng As Range: Dim MyAdd As String, THang As String Rws = [B7].CurrentRegion.Rows.Count Set Rng = [A6].Resize(Rws) Set sRng = Rng.Find(Me!txtngay.Value, , xlFormulas, xlWhole) If Not sRng Is Nothing Then MyAdd = sRng.Address Do THang = sRng.Offset(, 2).Value If THang = Me!cbten.text Then DgXoa = sRng.Row Num = MsgBox("Xóa Ḍng Có Ngày " & sRng.Value & Chr(10) & "Tên Hàng: " & THang, 4, "GPE.COM") If Num = 6 Then Rows(DgXoa & ":" & DgXoa).Delete: Exit Do End If End If Set sRng = Rng.FindNext(sRng) Loop While Not sRng Is Nothing And sRng.Address <> MyAdd Else MsgBox "Nothing" End If End Sub Nhấp chuột vào đây để mở rộng...

còn buttom cập nhật mình chưa biết viết thế nào, bạn giúp mình với. Xin cảm ơn bạn nhiều Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Bạn cho ghi macro rồi bạn phủ khối ở vùng vàng đó rồi bấm xóa, tắt ghi macro, rồi vào VBA sửa lại chút xíu cho gọn, sau đó gán macro đó vào nút lệnh thôi! Sau khi ghi macro thì nó sẽ như vầy: PHP: Sao chép. Sub Macro1() ' ' Macro1 Macro ' ' Range("B2:C11").Select Selection.ClearContents End Sub Chỉnh lại chút xíu nó sẽ như vầy: PHP: Sao chép. Sub Macro1() Sheets("du lieu nhap").Range("B2:C11").ClearContents End Sub Nhấp chuột vào đây để mở rộng...

e xin lỗi vì chen ngang nhưng anh chị cho e hỏi chút là e tạo xong nút xóa và bây giờ muốn tạo nút undo thì hàm công thức như nào ạ. e có 1 công thức nhưng không biết chèn dữ liệu ạ. E cảm ơn ! Sub Back() MyVar = [SourceDL] [TargetDL] = MyVar End Sub Upvote 0

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam

Dragon20 đã viết: e xin lỗi vì chen ngang nhưng anh chị cho e hỏi chút là e tạo xong nút xóa và bây giờ muốn tạo nút undo thì hàm công thức như nào ạ. e có 1 công thức nhưng không biết chèn dữ liệu ạ. E cảm ơn ! Sub Back() MyVar = [SourceDL] [TargetDL] = MyVar End Sub Nhấp chuột vào đây để mở rộng...

Undo trong VBA (Application.Undo) chỉ phục vụ trong trường hợp bạn thao tác thủ công mà không sử dụng VBA thì nó sẽ được thực hiện, còn không nó báo lỗi. Còn thủ tục Sub Back của bạn mục đích để làm gì, bạn có thể nói rõ hơn không? Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Undo trong VBA (Application.Undo) chỉ phục vụ trong trường hợp bạn thao tác thủ công mà không sử dụng VBA thì nó sẽ được thực hiện, còn không nó báo lỗi. Còn thủ tục Sub Back của bạn mục đích để làm gì, bạn có thể nói rõ hơn không? Nhấp chuột vào đây để mở rộng...

Vâng ạ, e gửi a file luôn cho dễ hình dung ạ. Xin cảm ơn .

File đính kèm

• 123.xlsm 123.xlsm 46 KB · Đọc: 5

Upvote 0

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam

Dragon20 đã viết: Vâng ạ, e gửi a file luôn cho dễ hình dung ạ. Xin cảm ơn . Nhấp chuột vào đây để mở rộng...

Tôi xem file xong, xem code, tôi chẳng hiểu gì cả nói chi đến hình dung thế nào. Bạn giải thích cụ thể xem. Code này tôi cũng không biết để làm gì luôn! Sub back() Myvar = [Sheets("Roulet").Range("a50:a1500")] [targetDL] = Myvar End Sub Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Tôi xem file xong, xem code, tôi chẳng hiểu gì cả nói chi đến hình dung thế nào. Bạn giải thích cụ thể xem. Code này tôi cũng không biết để làm gì luôn! Sub back() Myvar = [Sheets("Roulet").Range("a50:a1500")] [targetDL] = Myvar End Sub Nhấp chuột vào đây để mở rộng...

có nghĩa là e cần tạo nút Back " lùi lại" ạ. trước nút back nó được gắn hàm nhưng e không hiểu được cách lấy dữ liệu. hàm cũ nó là Sub back() Myvar = [sourceDL] [targetDL] = Myvar End Sub Xin cảm ơn ! Upvote 0

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam

Dragon20 đã viết: có nghĩa là e cần tạo nút Back " lùi lại" ạ. trước nút back nó được gắn hàm nhưng e không hiểu được cách lấy dữ liệu. hàm cũ nó là Sub back() Myvar = [sourceDL] [targetDL] = Myvar End Sub Xin cảm ơn ! Nhấp chuột vào đây để mở rộng...

Bạn nói cho rõ nghĩa hơn đi, bạn muốn lùi lại như thế nào? Vùng dữ liệu của sheet nào? Khối ô nào? Myvar để làm gì? targetDL sẽ ở đâu? v.v... Và sau đó nữa là gì? Kết quả mong muốn như thế nào? Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Bạn nói cho rõ nghĩa hơn đi, bạn muốn lùi lại như thế nào? Vùng dữ liệu của sheet nào? Khối ô nào? Myvar để làm gì? targetDL sẽ ở đâu? v.v... Và sau đó nữa là gì? Kết quả mong muốn như thế nào? Nhấp chuột vào đây để mở rộng...

Dạ e muốn lùi lại từng ô một của SheetA cột A2:A1500 sau mỗi lần click nút mũi tên < ạ. Myvar và target là dữ liệu của cột A trong SheetA ạ. Xin cảm ơn ! Upvote 0

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam

Dragon20 đã viết: Dạ e muốn lùi lại từng ô một của SheetA cột A2:A1500 sau mỗi lần click nút mũi tên < ạ. Myvar và target là dữ liệu của cột A trong SheetA ạ. Xin cảm ơn ! Nhấp chuột vào đây để mở rộng...

Có phải bạn muốn nói Nếu ô đang chọn là A3, khi bấm vào thì nó sẽ chọn ô A2 phải không? Có các trường hợp xảy ra: - Nếu đang ở ô A2 thì nó đứng lại và thông báo giới hạn hay phải chọn ô A1500? - Nếu đang chọn là khối ô VD như A4:A10 thì bấm vào nó sẽ chọn thế nào? Chọn ô A3 hay sao? - Nếu ô đang chọn, không thuộc nhóm ô A2:A1500 thì nó sẽ như thế nào? Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Có phải bạn muốn nói Nếu ô đang chọn là A3, khi bấm vào thì nó sẽ chọn ô A2 phải không? Có các trường hợp xảy ra: - Nếu đang ở ô A2 thì nó đứng lại và thông báo giới hạn hay phải chọn ô A1500? - Nếu đang chọn là khối ô VD như A4:A10 thì bấm vào nó sẽ chọn thế nào? Chọn ô A3 hay sao? - Nếu ô đang chọn, không thuộc nhóm ô A2:A1500 thì nó sẽ như thế nào? Nhấp chuột vào đây để mở rộng...

Tiêu đề trong file dễ hiểu a ạ, a bấm nút 1 2 đến ô nào thì bấm nút mũi tên < nó sẽ lùi lại một bước, giống như mình bấm back trong file excel ạ. Upvote 0

Hoàng Trọng Nghĩa

Chuyên gia GPE

Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam

Dragon20 đã viết: Tiêu đề trong file dễ hiểu a ạ, a bấm nút 1 2 đến ô nào thì bấm nút mũi tên < nó sẽ lùi lại một bước, giống như mình bấm back trong file excel ạ. Nhấp chuột vào đây để mở rộng...

Đây nhé, không biết có đúng với ý bạn không. Mã: Sao chép. Sub back() Dim e As Long e = Sheets("A").Range("A1501").End(xlUp).Row If e > 1 Then Sheets("A").Range("A" & e).ClearContents End If End Sub

File đính kèm

• 123.xlsm 123.xlsm 41.3 KB · Đọc: 3

Upvote 0

Dragon20

Thành viên mới

Tham gia 6/11/21 Bài viết 10 Được thích 1

Hoàng Trọng Nghĩa đã viết: Đây nhé, không biết có đúng với ý bạn không. Mã: Sao chép. Sub back() Dim e As Long e = Sheets("A").Range("A1501").End(xlUp).Row If e > 1 Then Sheets("A").Range("A" & e).ClearContents End If End Sub Nhấp chuột vào đây để mở rộng...

Dạ e cảm ơn a nhiều ạ. 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

Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 49 Đọc 21K 20 phút trước Maika8008 [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (3 người xem)

• • 

• GPE-Trợ Lý
• Hôm nay lúc 10:02
• Học tập Online

Trả lời 0 Đọc 116 Hôm nay lúc 10:02 GPE-Trợ Lý Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• 14/12/25
• Thư giãn

Trả lời 20 Đọc 748 Hôm qua, lúc 21:01 SA_DQ H hướng dẫn xóa dòng, cột file excel

• hoangvucntt
• Hôm qua, lúc 10:16
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 1 Đọc 60 Hôm qua, lúc 17:39 ptm0412 L nhờ hoàn thiện file dò xổ số

• levovantoan
• Thứ sáu lúc 23:25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 171 Hôm qua, lúc 12:01 Phan Thế Hiệp N Hướng dẫn công thức Query kết hợp Arrayfomula bị lỗi

• Na7979
• Hôm qua, lúc 11:40
• Lọc và sắp xếp dữ liệu

Trả lời 0 Đọc 41 Hôm qua, lúc 11:40 Na7979 N D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• 14/12/25
• Hàm và công thức Excel

Trả lời 20 Đọc 544 Hôm qua, lúc 10:56 Phan Thế Hiệp K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (1 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 13 Đọc 320 Thứ sáu lúc 19:07 ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• • 

• HeSanbi
• 13/12/25
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 254 Thứ sáu lúc 17:38 HeSanbi Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 943 Thứ sáu lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Thứ sáu lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• Thứ sáu lúc 14:01
• Google Sheets

Trả lời 0 Đọc 38 Thứ sáu lúc 14:01 Na7979 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA (1 người xem)

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 445 Thứ sáu lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 243 Thứ sáu lúc 08:11 minhnghia123 M M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 176 Thứ năm lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 178 Thứ năm lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 141 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 361 Thứ tư lúc 12:43 GPE-Trợ Lý CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 956 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008 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

• Maika8008 40
• thanthanhan 23
• dungpham01 19
• ongke0711 19
• ptm0412 17
• eagle12 16
• nguyenanhtruong2409 16
• Phan Thế Hiệp 16
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• dieppk.nb92 10
• Vũ Hải Sơn 9
• HeSanbi 9
• Gà Con yêu VBA 8
• bsbnhh 7
• le_vis 7
• duongnhuxuyen 7
• Hana2610 6

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

• Phan Thế Hiệp 82
• Maika8008 33
• thanthanhan 20
• ongke0711 17
• ptm0412 17
• HeSanbi 15
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• befaint 5
• pycckuu410 5
• SA_DQ 5
• Hoàng Tuấn 868 4
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Gà Con yêu VBA 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