Chương trình + Add-in Macro VBA tra cứu và đánh dấu từ trong Excel giống Word và PDF.

Nếu bạn dùng Word chăc hẳn sẽ biết chức năng tra cứu từ trong cụm từ Ctrl + F rất tiện dụng, bạn nhập từ hoặc cụm từ cần tra vào và ấn Next, Word sẽ tự động tìm kiếm và đánh dấu vào các cụm từ trùng với từ tra.

Tuy nhiên chức năng tra từ Ctrl+F trên Excel rất hạn chế khi tra cứu. Nó chỉ trỏ chuột vào ô có từ tra mà không biết từ đó ở vị trí nào, không đánh dấu từ đó trong cụm từ như trong Word.

Do vậy, QuanTriExcel.info phát triển “ Chương trình + Add-in Macro VBA tra cứu và đánh dấu từ trong Excel giống Word và PDF. “ với mục đích tra cứu từ trong Excel dễ dàng và tiện dụng như trong Word khắc phục những điểm yếu của Excel.

Hoạt động :

 Bạn chọn nút tra cứu hoặc ấn tổ hợp phím Ctrl+F -> nhập từ cần tra và chọn OK đến khi tra cứu xong.

Chương trình sẽ tự động quét toàn bộ các ô trong sheets hiện hành có dữ liệu và kiểm tra đối chiếu -> nếu trùng sẽ tô đỏ vào cụm từ trung và phủ vàng vào ô tương ứng.

Link tải chương trình ( file xlsm ) : Tại đây


Link tải Add-in Tra cứu từ : Tại đây


Link file mẫu thực hành : Tại đây

Chương trình tự tổng hợp các thư mục trong đường dẫn đã cho và tạo List cây thư mục giống hệt trên Web

Link tải chương trình : Tại đây
Code sử dụng:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xRow As Long
Dim s As String


Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\Users\cuongnh\Desktop\"

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = Application.DefaultFilePath & "\"

.Title = "Please select a folder to list Files from"

.InitialFileName = InitialFoldr$

.Show

s = .SelectedItems(1)

Target.Value = s

Cells(Target.Row - 1, Target.Column + 1).Select

If .SelectedItems.Count <> 0 Then

xDirect$ = .SelectedItems(1) & "\"

xFname$ = Dir(xDirect$, 7)

    Do While xFname$ <> ""
    'ActiveCell.Offset(xRow).Select
    ActiveCell.Offset(1).Select
    ActiveCell = xFname$

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=.SelectedItems(1) & "\" & xFname$
    ActiveCell.Offset(0, -1) = s
    'xRow = xRow + 1

    xFname$ = Dir

    Loop

End If

End With

ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh

End Sub

Chương trình quản lý kho vật tư

Hôm nay mình up lên file QUẢN LÝ PHỤ TÙNGmới nhất để chia sẻ với mọi người.

File đính kèm: Tại đây

Link dự phòng : Tại đây

Xem Video thao tác:

Trong file này đã cải tiến nhiều tính năng và so với các file đã up trong các lần trước
(Cải thiện giao diện của các Form Báo cáo, Danh mục, Các list form, Menu trong sheet, v.v…).

Còn một vấn đề nữa mà mình tìm hòai không ra, mô tả như sau:
Từ giao diện trên Form Nhập Hàng bạn nhập chứng từ xong nhấn nút Ghi Tạm, nếu muốn In Phiếu nhập kho hoặc In nhãn dán lên phụ tùng thì bạn Click chọn vào các nút tương ứng sau đó bấm nút Lưu CT thì dữ liệu sẽ được ghi chính thức vào Data và sẽ in ra các phiếu tương ứng như Phiếu nhập kho hoặc Nhãn dán lên phụ tùng (như bạn đã click chọn).

Ghi chú: Khi ta Click chọn In nhãn dán lên phụ tùng hoặc In phiếu nhập kho và nhấn tiếp nút Lưu CT thì sẽ đồng thời thi hành các lệnh Call PhieuNX và Call Label (các lệnh này gọi từ nút Lưu CT)

Tuy nhiên, nút lệnh trên chỉ thực hiện được đối với 1 lần nhập liệu đầu tiên, các lần nhập liệu tiếp theo thì nó chỉ ghi được dữ liệu và Data mà không thực hiện được các lệnh Call PhieuNX và Call Label để in các chứng từ Phiếu nhập kho và Nhãn dán lên phụ tùng.
Tương tự như vậy ở Form Xuất Hàng cũng bị tình trạng nêu trên.

Các bạn có thể tìm hiểu và ngâm cứu giúp tôi để khắc phục tình trạng nêu trên.

(Nếu được các bạn sửa thẳng vào file và ghi chú luôn, sau đó up lại lên hộ tôi)

Trân trọng cảm ơn !

P/S: Từ giao diện Form muốn đăng nhập vào Excel:
Username: chaongaymoi
Password: vungoimora
Hoặc:Tại
Username: a (chỉ cần gõ chữ a là vào được excel)

Chương trình VBA in nhiều sheets trong Excel và chọn máy in tự động.

Hoạt động :
 Bạn ấn tổ hợp phím Ctrl + q để vào giao diện chương trình : bạn ấn vào tên sheets tương ứng ở list sheets tổng bên trái -> sheets cần in sẽ tự động sang list sheets in ở bên phải -> bạn chọn máy in tương ứng và ấn nút in.
Ưu điểm : bạn có thể quản lý sheets cần in và in đồng thời nhiều sheets thay cho thao tác chọn thủ công.
Link tải File Excel chứa Macro Public Code :
Tại đây
Link tải Add-in tích hợp vào File Excel :
 Tại đây