Cách 1: gán từng item cho ComboBox1 bằng đoạn code dưới đây: With ComboBox1 .AddItem "Item 1" .AddItem "Item 2" .AddItem "Item 3" .AddItem "Item 4" End With Cách 2: Khai báo Rowsource trong Properties của ComboBox, chọn ComboBox1 trong cửa sổ Properties của ComboBox ta khai báo tại dòng Rows…
Đọc thêmCode hiện ẩn toàn bộ sheet: Copy Sub Unhide_Multiple_Sheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub
Đọc thêmThêm code để Ẩn Button Close của UserForm - VBA excel Với đoạn code dưới đây thì thêm trực tiếp vào userform mà không cần tạo thêm module. Code: Copy Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Lon…
Đọc thêmTrước hết xin vui lòng sao lưu các file của bạn trước! bước 1: Mở (các) file chứa các Dự án VBA bị khóa của bạn bước 2: Tạo một file xlsm mới và lưu code dưới đây trong Module1 Copy Option Explicit Private Const PAGE_EXECUTE_READWRITE = &H40 Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ …
Đọc thêmCopy worksheet từ Workbook này sang workbook khác bằng VBA: Copy Public Sub CopySheetToEndAnotherWorkbook() ActiveSheet.Copy After:=Workbooks("Book1.xlsx").Sheets(Workbooks("Book1.xlsx").Worksheets.Count) End Sub Code này sao chép worksheet đang hoạt động và đặt bản sao vào cuối Book1, thay thế "Book1…
Đọc thêmHướng dẫn in ấn trong excel đầy đủ và chi tiết nhất với các thủ thuật và mẹo in ấn hàng đầu bạn cần biết. Nội dung bài học: 1. Tạo Nút Print Preview And Print 2. Chọn Máy In 3. In 1 Sheet, 1 File Hoặc 1 Vùng Được Chọn 4. In 1 Số Trang Nhất Định 5. Chọn Chiều Ngang Hoặc Dọc Khi In 6. Hiển Thị Lề Trang In (Show Margins) 7. Thay Đổi Kích Th…
Đọc thêmVới cách này ta dùng code vba để bẻ khóa mật khẩu trên Excel VBA Project, để sử dụng mã này Vui lòng sao lưu các tệp của bạn trước khi thực hiện! Mở (các) tệp chứa các Dự án VBA bị khóa của bạn Tạo một tệp xlsm mới và paste đoạn mã dưới đây vào trong Module1 và click Run hoặc nhấp phím F5 trên bàn phím để chạy nó.Bẻ khóa …
Đọc thêmBình thường khi nhập liệu trong excel để viết hoa chữ cái đầu tiên thì cần nhấn giữ phím Shift trước khi viết chữ, với đoạn code VBA dưới đây sẽ giúp bạn bỏ qua thao tác đó. Copy Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = WorksheetFunction.Proper(Target.Value) End Sub
Đọc thêmChỉ cần 1 vài dòng lệnh để các bạn có thể tìm toàn bộ mật khẩu Wi-Fi đã lưu trên máy tính của bạn. đầu tiên các bạn vào nhấn tổ hợp phím tắt Window + R hoặc trong menu start tại ô search gõ CMD mở cmd bằng run as administrator và gõ dòng lệnh sau netsh wlan show profile để hiện danh sách các mạng wifi mà máy tính củ…
Đọc thêmExcel có rất nhiều các phím tắt hỗ trợ cho người dùng thực hiện nhanh một lệnh hoặc chèn nhanh công thức. Sử dụng các tổ hợp phím tắt excel giúp bạn tiết kiệm được thời gian cũng như tăng tốc độ xử lý dữ liệu, soạn thảo trong excel. Nếu thường xuyên phải làm việc với Excel thì sử dụng phím tắt excel chính là việc làm ý nghĩa nhất và nên là…
Đọc thêmLink tải file thực hành: https://drive.google.com/file/d/1-b04KXiL6fnj6s3MZuNpJVpH44zhpuLb/view
Đọc thêmSắp xếp dữ liệu trong excel, một công việc nhiều thao tác. Muốn tự động bạn chỉ cần làm theo cách sau. Click chuột phải vào tên sheet muốn sắp xếp dữ liệu tự động chọn View Code và paste đoạn code dưới đây vào cửa sổ được hiện ra. Private Sub Worksheet_Deactivate() With Range([A6], [A65536].End(xlUp)).Resize(, 8) .Sort .Cells(1, 8), 1, …
Đọc thêmKhi bạn thiết kế form nhập liệu trong excel, bạn đã thiết kế một nút đóng để thoát khỏi Form nhập liệu và muốn người dùng không nhấp vào nút close mặc định của microsoft thì bạn sẽ ẩn hay remove nút close mặc định này đi, bài này sẽ hướng dẫn các bạn cách làm điều đó. Trong UserForm bạn paste code d…
Đọc thêmTiếp theo bài cách thay đổi màu chữ của buttom khi nhấp chuột trong userform mình hướng dẫn cách thay đổi màu buttom khi di chuột qua buttom. Cách làm: chèn code dưới đây vào Form mà có buttom muốn thay đổi màu khi di chuột qua. Private Sub delete_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As S…
Đọc thêmNhiều khi bạn thiết kế UserForm để nhập liệu trong excel mà muốn nhập nhiều dòng trong một ô textbox thì làm thế nào? Trong bài viết này mình hướng dẫn bạn làm việc đó bằng 2 cách như sau: Cách 1: Dùng code vba dưới đây: Private Sub UserForm_Initialize() With TextBox1 .MultiLine = True …
Đọc thêmĐể thay thay đổi màu chữ của buttom khi nhấp chuột trong userform nhìn cho chuyên nghiệp và sinh động các bạn chỉ cần chèn đoạn code dưới đây vào userform. Private Sub btnNhapKho_Enter() btnNhapKho.ForeColor = vbRed End Sub Private Sub btnNhapKho_Enter() btnNhapKho.ForeColor = vbBlack End Sub Chú ý: thay btnNhapKho …
Đọc thêmKhi trong userform có listbox mà bạn chọn dòng trong đó muốn di chuyển xuống mà không dùng tới scrollbar hoặc chỉ dùng bàn phím bằng mũi tên lên/xuống thì làm thế nào? Bài này sẽ giúp bạn làm việc đó, cách làm như sau: 1, trong trình soạn thảo vba tạo một module với name là scrolling và paste code dưới …
Đọc thêmTrong khi làm việc với Excel, nhất là khi nhập số điện thoại, hoặc nhập những con số khác qua form nhập liệu, chúng ta sẽ muốn chỉ cho phép người dùng nhập được các số từ 0 đến 9, và kiểm soát không cho người dùng nhập chữ vào đó giúp dữ liệu của chúng ta sạch sẽ và đúng chuẩn hơn. Trong bài viết này, Qu ốc Bình Blog sẽ hướng dẫn các bạn làm đư…
Đọc thêmBạn có một UserForm và bạn muốn cho phép người dùng có thể thu nhỏ như họ có thể làm với hầu hết các ứng dụng. Cách làm như sau: - Mở trình soạn thảo VBA của excel. - Tạo một module bằng cách vào insert > Module - paste đoạn code dưới đây vào module mới tạo. Private Declare Function FindWindowA Lib "USER32" _ (…
Đọc thêm