[CHIA SẺ ADD-IN] Một số Add-In cho Excel

[tor]

[Cập nhật lần cuối 2016-05-14#04]



Xin chào cả nhà.

Mình đang tập tành VBA, vì nhu cầu cá nhân nên loay hoay mãi mới viết được một số Add-In.
Hôm nay xin được chia sẻ lên đây, mong nhận được ý kiến của cả nhà để có thể phát triển thêm.

Đã kiểm tra trên Excel 2007 - 32bit | Excel 2010 - 32bit | Excel 2013 - 32bit.

Add-Ins Manager|Mở hộp thoại Add-Ins|Adjust Rows' Height|Điều chỉnh độ cao cột|Highlight Row and Column|Tô sáng dòng và cột|Insert Links of Sheets|Chèn liên kết đến các sheet|Remove Hidden Named Ranges Xóa các tên ẩn|Show All Worksheets|Hiện tất cả sheet|Show Hidden Columns|Hiện các cột ẩn|Sheet Manager by Description | Tìm kiếm sheet theo mô tả

 

[chuot0106]

[Cập nhật lần cuối 2015-04-26#02]



Xin chào cả nhà.

Mình đang tập tành VBA, vì nhu cầu cá nhân nên loay hoay mãi mới viết được một số Add-In.
Hôm nay xin được chia sẻ lên đây, mong nhận được ý kiến của cả nhà để có thể phát triển thêm.

Đã kiểm tra trên Excel 2007 - 32bit | Excel 2010 - 32bit.

Cảm ơn bạn đã chia sẻ.
Hỏi thêm 1 chút bạn có 1 nick khác nữa là [h=1]ego.bizzin[/h]có đúng không?

 

[thanhtamnguyen2104]

có thêm marco xóa tất cả sheet ẩn hok bạn. hoặc là xóa hàng loạt sheet

 

[tor]

2016-05-12-Bổ sung Add-in "Sheet Manager"



Bổ sung thêm Add-in "Sheet Manager".

- Ấn {Control-Alt-M} or {Control-Alt-X} để mở form ""Sheet Manager""​

- Gõ trong TextBox để tìm kiếm theo mô tả của sheet​

- Ấn {Enter} hoặc kích-đúp lên mục trong ListView để đi đến sheet​

- Ấn {F2} để sửa mô tả cho sheet"​

 

[kbw1]

Bổ sung thêm Add-in "Sheet Manager".

- Ấn {Control-Alt-M} or {Control-Alt-X} để mở form ""Sheet Manager""​

- Gõ trong TextBox để tìm kiếm theo mô tả của sheet​

- Ấn {Enter} hoặc kích-đúp lên mục trong ListView để đi đến sheet​

- Ấn {F2} để sửa mô tả cho sheet"​

Vs add in này.
Có thể tìm tên sheet rồi enter là nó đi đến sheet đấy được ko bạn?

 

[tor]

Vs add in này.
Có thể tìm tên sheet rồi enter là nó đi đến sheet đấy được ko bạn?

Tìm theo mô tả cho sheet nhé bạn;
Giá trị (khởi tạo) mặc định của mô tả là tên sheet;

 

[kbw1]

Tìm theo mô tả cho sheet nhé bạn;
Giá trị (khởi tạo) mặc định của mô tả là tên sheet;

Bạn cho mình xin riêng 1 add in Sheet manager được không bạn?

 

[tor]

Bạn cho mình xin riêng 1 add in Sheet manager được không bạn?

Bạn tải tệp đính kèm nhé, không có password bảo vệ.

 

[kbw1]

Bạn tải tệp đính kèm nhé, không có password bảo vệ.

Mình lưu file của bạn thành xla thì ko dùng được phím tắt.

 

[tor]

Mình lưu file của bạn thành xla thì ko dùng được phím tắt.

Bạn tải lại tệp .xla nhé.

'Code trong ThisWorksheet
Private Sub Workbook_Open()
    Application.OnKey "^%m", "v_showSheetManager"
    Application.OnKey "^%x", "v_showSheetManager"
End Sub
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^%m", ""
    Application.OnKey "^%x", ""
End Sub

'Code trong Module1
Sub v_showSheetManager()
    UserForm1.Show vbModeless
End Sub

 

[tor]

Mạng bị lag nên post trùng.

Nhờ Mod xóa giúp.

 

[kbw1]

Bạn tải lại tệp .xla nhé.

'Code trong ThisWorksheet
Private Sub Workbook_Open()
    Application.OnKey "^%m", "v_showSheetManager"
    Application.OnKey "^%x", "v_showSheetManager"
End Sub
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^%m", ""
    Application.OnKey "^%x", ""
End Sub

'Code trong Module1
Sub v_showSheetManager()
    UserForm1.Show vbModeless
End Sub

Cảm ơn bạn!
Add in này của bạn rất hữu dụng./

 

[kbw1]

Bạn tor ơi, mình muốn đổi tên UserForm 1 thành tên khác được ko bạn?

 

[tor]

Tất nhiên là được, bạn đổi thành tên gì bạn muốn.

[video=youtube;6ZWPAXn9yFI]https://www.youtube.com/watch?v=6ZWPAXn9yFI[/video]
-

'Giả sử bạn đổi UserForm1 thành frm_Sheets
'Code trong Module1
Sub v_showSheetManager()
     frm_Sheets.Show vbModeless
End Sub

 

[tor]

[2016-05-14] Hiển thị Tiếng Việt trên "Sheet Manager"

.

Tham khảo

• http://www.giaiphapexcel.com/forum/showthread.php?21414
• http://www.giaiphapexcel.com/forum/showthread.php?64418

 

[Heo Bụng Bự]

Bạn ơi cho mình xin code hàm join text với!
Thanks bạn nhiều

 

[kbw1]

Bạn Tor ơi, dùng add in của bạn.
Mỗi lần bấm phím Ctrl+Alt+M nó đều tự động sinh ra Comment trên ô A1 của từng sheet.