Các Câu Lệnh VBA đơn Giản | Giải Pháp Excel

Có thể bạn quan tâm

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 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 đề 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
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. Các câu lệnh VBA đơn giản

Thread starter hung2412
Ngày gửi 6/10/14

hung2412

Thành viên tích cực

Tham gia 5/8/08 Bài viết 929 Được thích 240 Giới tính Nam - Chọn 1 ô cụ thể: PHP:Sao chép. Range("A1").Select 'Hoặc: [A1].Select - Bôi đen toàn bộ Sheet: PHP:Sao chép. Cells.Select - Chọn khối ô dữ liệu từ trên xuống dưới liền mạch (Chọn cả khối dữ liệu): PHP:Sao chép. Range(Selection, Selection.End(xlDown)).Resize(, 17).Select Hoặc: Range([B6], [B6].End(xlDown)) - Chọn khối ô dữ liệu từ trên xuống dưới liền mạch (Theo chủ động): PHP:Sao chép. Range([B10], [B65000].End(xlUp).Offset(-1,0)).Select Hoặc: Range([B1].End(xlDown).Offset(1), [B65000].End(xlUp).Offset(-2)).Select Hoặc: Range([B9], [B65000].End(xlUp).Offset(-1)).Offset(, -1).Resize(, 12).Select - Chọn Sheet hiện hành: PHP:Sao chép. Windows("623 - nam non.xls").Activate Hoặc: Sheets("Sheet1").Select - Xóa bỏ Sheet: PHP:Sao chép. ActiveWindow.SelectedSheets.Delete Hoặc: Sheets("Sheet1").Delete - Tìm kiếm ô có dữ liệu: PHP:Sao chép. Cells.Find("NguyÔn V¨n Kiªn", , , , , , False, False).Activate - Chọn ô dữ liệu từ dưới lên trên liền mạch (Không phải chọn cả khối dữ liệu): PHP:Sao chép. Range("M" & [M65000].End(xlUp).Row).Select - Chọn ô dữ liệu từ dưới lên trên liền mạch (Không phải chọn cả khối dữ liệu): PHP:Sao chép. Selection.End(xlUp).Select - Chọn ô dữ liệu từ trên xuống dưới liền mạch (Không phải chọn cả khối dữ liệu): PHP:Sao chép. Selection.End(xlDown).Select - Đánh dữ liệu vào ô hiện hành: PHP:Sao chép. ActiveCell.FormulaR1C1 = "Tæng céng" - Ô chứa giá trị do 2 ô bên cạnh bên trái trừ nhau: PHP:Sao chép. ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" - Công thức Subtotal (Dòng tổng cộng hướng lên trên): PHP:Sao chép. Selection.Subtotal 2, xlSum, Array(5, 7), True, False, False - Sort dữ liệu (Có tích vào Header row): PHP:Sao chép. Selection.Sort [B10], Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal - Copy rồi paste dữ liệu vào ô hoặc vùng mới (Trong cùng một Sheet): PHP:Sao chép. Range("E15:F17").Copy Range("E18") - Cut rồi paste dữ liệu vào ô hoặc vùng mới (Trong cùng một Sheet): PHP:Sao chép. Range("E15:F17").Cut Range("E20") - Copy ở Sheet này rồi paste dữ liệu vào ô hoặc vùng mới trong Sheet kia (Trong cùng một Workbook): PHP:Sao chép. Sheets(1).Range("E15:F17").Copy Sheets(2).Range("D2") Hoặc: Sheets("Sheet1").Range("E15:F17").Copy Sheets("Sheet2").Range("D2") - Cut ở Sheet này rồi paste dữ liệu vào ô hoặc vùng mới trong Sheet kia (Trong cùng một Workbook): PHP:Sao chép. Sheets(1).Range("E15:F17").Cut Sheets(2).Range("D2") Hoặc: Sheets("Sheet1").Range("E15:F17").Cut Sheets("Sheet2").Range("D2") - Chọn toàn bộ các ô có dữ liệu liền mạch quanh ô được chọn: PHP:Sao chép. Range("C7").CurrentRegion.Select - Xóa ô hoặc nhiều ô hướng lên trên: PHP:Sao chép. Selection.Delete Shift:=xlUp - Chọn nhiều ô cách nhau: PHP:Sao chép. Range("I10,I13,I16").Select - Chọn một hoặc nhiều dòng (Cả dòng) liền nhau: PHP:Sao chép. Rows("1:5").Select - Chọn nhiều dòng (Không phải cả dòng) liền nhau: PHP:Sao chép. Range("A27:G31").Select - Chọn một dòng (Không phải cả dòng): PHP:Sao chép. Range("A27:G27").Select - Chọn một dòng (Cả dòng): PHP:Sao chép. Rows("13:13").Select - Chọn nhiều dòng (Cả dòng) cách nhau (Không liền nhau): PHP:Sao chép. Range("5:5,3:3,21:21").Select - Thêm một dòng hoặc nhiều dòng: PHP:Sao chép. Rows("4:5").Insert - Xóa một dòng hoặc nhiều dòng: PHP:Sao chép. Selection.Delete xlUp - Chọn một cột (Cả cột): PHP:Sao chép. Columns("M:M").Select - Chọn một cột (Không phải cả cột): PHP:Sao chép. Range("J6:J10").Select - Chọn nhiều cột (Không phải cả cột) liền nhau: PHP:Sao chép. Range("I5:L16").Select - Chọn nhiều cột (Cả cột) liền nhau: PHP:Sao chép. Columns("D:G").Select - Chọn nhiều cột (Cả cột) vừa cách nhau, vừa liền nhau: PHP:Sao chép. Range("K:L,B:B").Select - Chọn nhiều cột (Cả cột) cách nhau (Không liền nhau): PHP:Sao chép. Range("M:M,O:O,Q:Q,R:R").Select - Thêm một cột hoặc nhiều cột: PHP:Sao chép. Selection.Insert xlToRight - Xóa một cột hoặc nhiều cột một lúc: PHP:Sao chép. Selection.Delete xlToLeft - Co dãn cột theo chủ đích: PHP:Sao chép. Columns("B:B").ColumnWidth = 32.57 Columns("C:C").ColumnWidth = 9.57 - Co dãn dòng theo chủ đích: PHP:Sao chép. Rows("10:10").RowHeight = 32.25 - Co dãn cột theo tự động: PHP:Sao chép. Columns("G:G").EntireColumn.AutoFit - Co dãn dòng theo tự động: PHP:Sao chép. Range("2:4,6:6,13:14").EntireRow.AutoFit - Chữ nghiêng: PHP:Sao chép. Selection.Font.Italic = True - Chữ đậm: PHP:Sao chép. Selection.Font.Bold = True - Copy dữ liệu rồi dán dữ liệu thành giá trị chết (Không còn công thức) (Không có chọn các ô trống nguồn đè lên các ô đích): PHP:Sao chép. [I15:I17].Value = [I15:I17].Value - Copy dữ liệu rồi dán dữ liệu thành giá trị chết (Không còn công thức) (Có chọn không để các ô trống nguồn đè lên các ô đích): PHP:Sao chép. Range("C:C").Copy: Range("B:B").PasteSpecial , xlNone, True, False Application.CutCopyMode = False - Copy tính chất từ ô nguồn rồi paste vào các ô đích để đồng bộ với tính chất của ô nguồn: PHP:Sao chép. Selection.PasteSpecial , xlAdd, False, False - Thêm Sheet mới: PHP:Sao chép. Sheets.Add - Chuyển Sheet2 xếp sau Sheet 1: PHP:Sao chép. Sheets("Sheet2").Move After:=Sheets(2) - Chọn Sheet bên trái liền kề với Sheet đang chọn: PHP:Sao chép. ActiveSheet.Previous.Select - Chọn Sheet bên phải liền kề với Sheet đang chọn: PHP:Sao chép. ActiveSheet.Next.Select - Hủy chọn khối đang cut hoặc copy (Có đàn kiến đang chạy quanh khối được chọn): PHP:Sao chép. Application.CutCopyMode = False - Ghép các ô với nhau thành một: PHP:Sao chép. Range("G6:H6").Merge - Bỏ ghép các ô với nhau thành một: PHP:Sao chép. Range("G6:H6").UnMerge - Chọn nhiều dòng (Không phải cả dòng) một lúc để ghép các ô trên các dòng đó thành một (Cho tiện đỡ phải chọn từng dòng một để rồi sau đó trộn các ô với nhau): PHP:Sao chép. Range("A3:G3,A4:G4,A5:G5").Select - Tìm các ô rỗng: PHP:Sao chép. Selection.SpecialCells(xlCellTypeBlanks).Select - Tìm các ô chứa số chết (Không phải công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeConstants, 1).Select - Tìm các ô chứa bị lỗi (Không phải công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeConstants, 16).Select - Tìm các ô chứa ký tự (Không phải công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeConstants, 2).Select - Tìm các ô chứa số (Công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeFormulas, 1).Select - Tìm các ô chứa ký tự (Công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeFormulas, 2).Select - Tìm các ô chứa bị lỗi (Công thức): PHP:Sao chép. Selection.SpecialCells(xlCellTypeFormulas, 16).Select - Căn chữ trong ô sang trái: PHP:Sao chép. Selection.HorizontalAlignment = xlLeft - Căn chữ trong ô vào giữa (Theo chiều ngang): PHP:Sao chép. Selection.HorizontalAlignment = xlCenter - Tự động co dãn các ô cho vừa: PHP:Sao chép. Rows("6:7").WrapText = True - Kẻ dòng bên trên khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlEdgeTop).LineStyle = xlContinuous - Kẻ dòng bên trái khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous - Kẻ dòng bên dưới khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous - Kẻ dòng bên phải khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlEdgeRight).LineStyle = xlContinuous - Kẻ hàng dọc bên trong khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlInsideVertical).LineStyle = xlContinuous - Kẻ hàng ngang bên trong khối chọn (Nét liền): PHP:Sao chép. Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous - Kẻ dòng bên trái khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeLeft).Weight = xlHairline - Kẻ dòng bên trên khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlEdgeTop).LineStyle = xlContinuous Selection.Borders(xlEdgeTop).Weight = xlHairline - Kẻ dòng bên dưới khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous Selection.Borders(xlEdgeBottom).Weight = xlHairline - Kẻ dòng bên phải khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlEdgeRight).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).Weight = xlHairline - Kẻ hàng dọc bên trong khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlInsideVertical).LineStyle = xlContinuous Selection.Borders(xlInsideVertical).Weight = xlHairline - Kẻ hàng ngang bên trong khối chọn (Nét đứt): PHP:Sao chép. Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous Selection.Borders(xlInsideHorizontal).Weight = xlHairline - Bỏ dòng kẻ toàn bộ ô: PHP:Sao chép. Cells.Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone - Căn chỉnh dữ liệu vào giữa ô theo chiều dọc trong ô: PHP:Sao chép. Selection.VerticalAlignment = xlCenter - Đang chọn khối chọn nhưng muốn mở rộng thêm khối chọn ở bên phải: PHP:Sao chép. Selection.Resize(, 3).Select - Cố định dòng và cột: PHP:Sao chép. ActiveWindow.FreezePanes = True - TextToColumns: PHP:Sao chép. Selection.TextToColumns [G1], DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True - Định dạng số: PHP:Sao chép. Selection.NumberFormat = "#,##0" - Đổi tên Sheet: PHP:Sao chép. Sheets("Sheet1").Name = "Sheet2" - Tính tổng subtotal: PHP:Sao chép. ActiveCell.FormulaR1C1 = "=subtotal(9,R9C12:R[-1]C)" - Tô màu những ô bị lỗi (#N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, #NULL!): PHP:Sao chép. Range("O9:P9").Select Range(Selection, Selection.End(xlDown)).Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ISERROR(O9)" Selection.FormatConditions(1).Interior.ColorIndex = 6 - Tô màu những ô bị trùng: PHP:Sao chép. Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF(M:$M;M9)>1" Selection.FormatConditions(1).Interior.ColorIndex = 33 - Bôi đen khối chọn (Tương đương Shift + Ctrl + end): PHP:Sao chép. Range("F8").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Resize(, 1).Select - Tô màu: PHP:Sao chép. Range("G10:G12").Interior.ColorIndex = 6 - Xóa màu: PHP:Sao chép. Range("G10:G12").Interior.ColorIndex = xlNone - Xóa CF: PHP:Sao chép. Range("E14:F20").FormatConditions.Delete - Đổi tên Sheet: PHP:Sao chép. Sheets("Sheet1").Name = "Sheet2" - Copy Sheet ở file này sang file kia: PHP:Sao chép. Sheets("Sheet2").Copy After:=Workbooks("141 - a. gian nam non cu.xls").Sheets (1) - Bỏ qua lỗi: PHP:Sao chép. On Error Resume Next - Vô hiệu hóa hiện bảng đòi update khi mở file: PHP:Sao chép. ActiveWorkbook.UpdateLinks = xlUpdateLinksNever - Tắt chế độ hiện hộp thoại khi xóa Sheet: PHP:Sao chép. Application.DisplayAlerts = False - Chọn cả dòng tại vị trí khối ô chọn: PHP:Sao chép. Selection.EntireRow.Select - Chọn cả cột tại vị trí khối ô chọn: PHP:Sao chép. Selection.EntireColumn.Select - Xóa ô: PHP:Sao chép. Range("A15").ClearContents - Chọn nhiều Sheet trong 1 file (Theo số thứ tự từ trái qua phải): PHP:Sao chép. Worksheets(Array(1, 2)).Delete - Bỏ cột 1, 2, 3 sau khi dùng lệnh nhóm Subtotal: PHP:Sao chép. Cells.ClearOutline - Làm cho cả bảng tính về giá trị (Không còn công thức): PHP:Sao chép. Cells.Copy: Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False - Ẩn toàn bộ giá trị bằng 0: PHP:Sao chép. ActiveWindow.DisplayZeros = False - Đặt số trang, giữ dòng tiêu đề và đặt trang nằm ngang: PHP:Sao chép. ActiveSheet.PageSetup.CenterFooter = "Trang &P" ActiveSheet.PageSetup.PrintTitleRows = "$6:$7" ActiveSheet.PageSetup.Orientation = xlLandscape * Chú ý: Sheets(1) => Thể hiện Sheet thứ nhất từ bên trái ngoài cùng (Thể hiện số thứ tự của Sheet, không phải là tên Sheet1) Sheets("Sheet1") => Thể hiện tên Sheet1 (Không phải là số thứ tự của Sheet) Lần chỉnh sửa cuối: 6/10/14

Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọn

phihndhsp

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

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,488 Giới tính Nam Nghề nghiệp Giáo Viên Bạn nên gom lại từng loại từng loại thì hay hơn đó. Cái nào định dạng ra định dạng, cái nào liên quan tới copy paste ra 1 dạng, cái nào công thức ra 1 dạng, cái nào gotospecial ra 1 dạng..... Như vậy thì người đọc sẽ. Dễ dàng hiểu hơn, với lại nên viết tường minh và tránh viết tắt Upvote 0 SA_DQ

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,549 Được thích 22,836 Nghề nghiệp U80 Nếu là mình, thì tiêu đề topic này sẽ là: "Các câu lệnh VBA đơn giản để làm việc trên trang tính." Upvote 0

Cá ngừ F1

( ͡° ͜ʖ ͡°)

Thành viên BQT Moderator Tham gia 1/1/08 Bài viết 2,579 Được thích 3,722 Donate (Momo)

Giới tính Nam Nghề nghiệp Quan hệ.. và quan hệ.. Bạn viết thế này nghe người mới học VBA cũng choáng váng, có lẽ cũng nên phân loại ra đâu là phương thức, đâu là thuộc tính, đâu là hàm số.. Upvote 0

Thuyanhanoi

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

Tham gia 15/10/12 Bài viết 304 Được thích 154 Nghề nghiệp Nhân viên - Viết tiếp đi bạn [hung2412], rất hay với người mới học - Rất mong các thành viên có kinh nghiệm đóng góp và bổ sung Lần chỉnh sửa cuối: 6/10/14 Upvote 0