Tặng mọi người Addins thao tác và chỉnh sửa Code trong VBA viết bằng VBA và mã mở!

Liên hệ QC

phan ngoc lan

Phan ngọc lan(^_^)
Tham gia
10/6/10
Bài viết
145
Được thích
338
Nghề nghiệp
Xây dựng
Chào các anh chị và mọi người trên diễn đàn!
Em thấy có rất nhiều người đam mê và viết lập trình trên bảng tính Excel diệu kỳ. Có nhiều Code mà các cao thủ viết rất hay nhưng khi tải về em nhìn thấy rất rối mắt muốn nghiền ngẫm các code nhưng phải phân tích đọc từng từ rất khó khăn. Hiện nay trên mạng có rất nhiều phần mềm chỉnh sửa và Index Code viết bằng VB6 nhiều khi vẫn chưa đáp ứng được. Nhân mấy ngày nghỉ cuối tuần vừa qua khi về quê em đã nảy ra sáng kiến viết Code để chỉnh sửa Code giúp mình thao tác nhanh hơn khi muốn lập trình trong Excel. Em đã viết tiện ích này giúp mọi người quản lý Code, tạo cho Code của mình sáng sủa hơn dễ đọc hơn!(nó sẽ tự tách các hàm VD: if, Select, For ... theo các Tab nhìn rất tiện)
mọi người hãy tải về và cho ý kiến nhé!
P/S: trong VBA em vẫn chưa biết cách viết một Form tìm kiếm và di chuyển cửa sổ tới thủ tục trong VBA đã tìm bằng Code. Nếu có cao thủ nào biết thì hướng dẫn cho em nhé! thank
Nhớ chọn trong mục tuỳ chọn tin tưởng tới đối tượng trong VBA nhé. Vì tiện ích dùng để chỉnh sửa Code trong VBA mà


Mình đã tải file mới: mình tải file VBECode.zip mới

Trong file mình có để ở chế độ PassWord nhưng không có gì. Nếu bạn nào muốn tham khảo code thì cứ bấm vào là mở được.

-Đã lâu không vào diễn đàn, nay em xin gửi mọi người file Addin mới chỉnh sửa. Trong file này em đã rút bớt một số tiện ích tìm kiếm trong module và hiệu chỉnh và sử lý code nên code có thể chạy nhanh hơn khoảng 50% so với trước:

-Do những lần trước không có nhiều thời gian để liệt kê một số tác dụng của tiện ích nên lần này em có chú thích một số tác dụng:

*Trên thanh toolbar "VBA1":
-Giúp mình chèn các chuỗi, các hàm hay sử dụng trong code:
Mã:
+Hàm if, Select, For, With, Do Loop, Do White, Do Until
+Chèn các bẫy lỗi, kết thúc hàm: On Error Resume Next, On Error GoTo HandleError, Exit Function, Exit Sub, Debug.Print ...
+Khai báo biến: As String, ...
+Hàm xác nhận: IsArray (varname), ...
+Hàm chuyển đổi: Cbool(exp), ...
+Hàm thao tác với chuỗi: Left$(AnyString,1), ...
+Hàm thao tác với thời gian: DateAdd("d",number,date), ...
+Hàm thao tác với thư mục và tệp tin: ChDir "C:\MyPicture", ...
+Hàm thông báo: MsgBox, InputBox
+Hàm toán: Abs(number)
+Hàm thao tác với mảng: LBound(AnyArray), ...
+Lưu các code yêu thích hay sử dụng của bạn vào Registry
+Đăc biệt trên Toobal này còn có tiện ích Sao chép và dán Code với 6 lần riêng biệt mà không ảnh hưởng tới Clipboard(Có thể sao lưu cho lần sử dụng sau)

*Trên thanh toolbar "VBA2" gồm các nút giúp mình thao tác trực tiếp tới Code:

Mã:
+Index module hiện hành
+Index thủ tục hiện hành
+Bỏ Index module hiện hành
+Bỏ Index thủ tục hiện hành
+Xoá những dòng code trống module hiện hành
+Xoá những dòng code trống thủ tục hiện hành
+Thêm chú thích vào đầu module hiện hành
+Thêm chú thích vào đầu thủ tục hiện hành
+Đặt chú thích toàn bộ các dòng code trong module hiện hành
+Đặt chú thích toàn bộ các dòng code trong thủ tục hiện hành
+Bỏ chú thích toàn bộ các dòng code trong module hiện hành
+Sắp xếp thủ tục trong module hiện hành từ A->Z
+Sắp xếp thủ tục trong module hiện hành từ Z->A
+Xoá các giá trị bạn đã in trong cửa sổ Immidiate
+Ẩn hiện cửa sổ Immidiate
+Đóng tất cả các cửa sổ Code đang mở
+Xoá tất cả code trong module hiện hành
+Xoá module hiện hành
+Các giá trị hằng của hộp thông báo: vbYesNo, vbNo, ...
+Các giá trị xuống dòng: vbCrLf, vbNewLine, ...
+Một số giá trị màu sắc: vbBlack, vbRed, vbYellow, ...
+Hàm VB thao tác với Registry: SaveSetting, DeleteSetting, GetSetting, SendKeys
+Và một số hàm và thủ tục linh tinh khác.
Hiện tại em mới chỉ viết một số code phục vụ em trong quá trình thao tác code cho nhanh hơn. Em thấy nó khá tiện lợi với em. Nếu Anh/Chị nào có ý tưởng hay hơn thì góp ý để em thêm vào tiện ích hay anh chị có thể sửa trực tiếp trên file rồi gửi lên diễn đàn để mọi người cùng thao tác code nhanh hơn.
file đính kèm:CodeVBA.rar
P/S: Chúc sức khỏe mọi người.
 

File đính kèm

  • VBECode.rar
    210.3 KB · Đọc: 1,291
  • VBECode.zip
    272.3 KB · Đọc: 1,418
  • CodeVBA.rar
    152.5 KB · Đọc: 1,133
Lần chỉnh sửa cuối:
Em xin nói thêm khi dùng tiện ích mọi người có thể copy và chỉnh sửa Code thoải mái như không được làm một tác động gì đến File Addin này vì nếu vậy Addin sẽ báo lỗi hoặc không thực hiện được
Khi không sử dụng được các tiện ích của Addin thì các bạn ra ngoài cửa sổ Excel nhấn tổ hợp phím Ctl+Q và trở lại thì sẽ sử dụng được
Tiện ích sẽ tạo một Menu trong cửa sổ VBA để mọi người sử dụng
Chúc mọi người thao tác nhanh hơn trong VBA khi lập trình!

Quên mất khi mới sử dụng các bạn vào tiện ích tuỳ chọn chọn vào đơn vị Tab cần Index là bao nhiều
Gợi ý: bạn lên chọn là 8 đơn vị thì khi Index tiện ích sẽ mới tạo ra các tab Index đẹp mắt
 
Lần chỉnh sửa cuối:
Cảm ơn bạn rất nhiều mong bạn chia sẽ thêm những tiện ích hay cho mọi người.
 
Em mới Test trên máy mình thì thấy tiện ích vẫn chạy tốt. Không biết máy khác thế nào xin mọi người cho em ý kiến nhé!
Thank!
 
Chào các anh chị và mọi người trên diễn đàn!
Em thấy có rất nhiều người đam mê và viết lập trình trên bảng tính Excel diệu kỳ. Có nhiều Code mà các cao thủ viết rất hay nhưng khi tải về em nhìn thấy rất rối mắt muốn nghiền ngẫm các code nhưng phải phân tích đọc từng từ rất khó khăn. Hiện nay trên mạng có rất nhiều phần mềm chỉnh sửa và Index Code viết bằng VB6 nhiều khi vẫn chưa đáp ứng được. Nhân mấy ngày nghỉ cuối tuần vừa qua khi về quê em đã nảy ra sáng kiến viết Code để chỉnh sửa Code giúp mình thao tác nhanh hơn khi muốn lập trình trong Excel. Em đã viết tiện ích này giúp mọi người quản lý Code, tạo cho Code của mình sáng sủa hơn dễ đọc hơn!(nó sẽ tự tách các hàm VD: if, Select, For ... theo các Tab nhìn rất tiện)
mọi người hãy tải về và cho ý kiến nhé!
P/S: trong VBA em vẫn chưa biết cách viết một Form tìm kiếm và di chuyển cửa sổ tới thủ tục trong VBA đã tìm bằng Code. Nếu có cao thủ nào biết thì hướng dẫn cho em nhé! thank
Nhớ chọn trong mục tuỳ chọn tin tưởng tới đối tượng trong VBA nhé. Vì tiện ích dùng để chỉnh sửa Code trong VBA mà


Riêng mình mở nó bị như sau:

[video=youtube_share;nNi9aDaf1Nk]http://youtu.be/nNi9aDaf1Nk[/video]
 
Thầy hãy giải nén toàn File ra rồi Addin nó vào như một Addin thường dùng vì khi khởi động file sẽ đăng ký một số thiết lập tới Win và file chạy tạo một đối tượng Even kích chuột trong VBA tạo menu trên thanh đó thầy hãy giải nén ra xem sao!
 
Thầy hãy giải nén toàn File ra rồi Addin nó vào như một Addin thường dùng vì khi khởi động file sẽ đăng ký một số thiết lập tới Win và file chạy tạo một đối tượng Even kích chuột trong VBA tạo menu trên thanh đó thầy hãy giải nén ra xem sao!
Cũng bị i chang như thế bạn à.
 
Chào các anh chị và mọi người trên diễn đàn!
Em thấy có rất nhiều người đam mê và viết lập trình trên bảng tính Excel diệu kỳ. Có nhiều Code mà các cao thủ viết rất hay nhưng khi tải về em nhìn thấy rất rối mắt muốn nghiền ngẫm các code nhưng phải phân tích đọc từng từ rất khó khăn. Hiện nay trên mạng có rất nhiều phần mềm chỉnh sửa và Index Code viết bằng VB6 nhiều khi vẫn chưa đáp ứng được. Nhân mấy ngày nghỉ cuối tuần vừa qua khi về quê em đã nảy ra sáng kiến viết Code để chỉnh sửa Code giúp mình thao tác nhanh hơn khi muốn lập trình trong Excel. Em đã viết tiện ích này giúp mọi người quản lý Code, tạo cho Code của mình sáng sủa hơn dễ đọc hơn!(nó sẽ tự tách các hàm VD: if, Select, For ... theo các Tab nhìn rất tiện)
mọi người hãy tải về và cho ý kiến nhé!
P/S: trong VBA em vẫn chưa biết cách viết một Form tìm kiếm và di chuyển cửa sổ tới thủ tục trong VBA đã tìm bằng Code. Nếu có cao thủ nào biết thì hướng dẫn cho em nhé! thank
Nhớ chọn trong mục tuỳ chọn tin tưởng tới đối tượng trong VBA nhé. Vì tiện ích dùng để chỉnh sửa Code trong VBA mà


Sao tôi lại thấy thế này? Tôi chưa xem những thứ khác đâu

VBA.jpg
 
Lần chỉnh sửa cuối:
Ý tưởng file của chị rất hay, rất mong chị Phan ngọc Lan và các thày bớt chút thời gian hoàn thiện Add-Ins này, nó thực sự rất cần với những người mới học VBA.
 
Ý tưởng file của chị rất hay, rất mong chị Phan ngọc Lan và các thày bớt chút thời gian hoàn thiện Add-Ins này, nó thực sự rất cần với những người mới học VBA.
Đã lâu không vào diễn đàn, nay vào thấy bạn có quan tâm đến vấn đề này. Mình tưởng không còn ai quan tâm đến vấn đề này nữa nên không viết nữa. giờ gửi bạn file Addin mình viết bằng vb6 này mới test thử máy mình thấy dùng tốt bạn hãy tải về và kiểm tra thử rồi cho mình ý kiến nhé!
 

File đính kèm

  • InDexVBA.zip
    254.3 KB · Đọc: 646
Tôi nghĩ lỗi trường hợp của thày Domfootwear là khả năng thày dùng Win7, tôi Test trên máy của mình đối với WinXP thì hoàn toàn OK, đến Win 7 thì không được (máy tôi cài chế độ 2 Win)

--------
Cảm ơn Chị Phan Ngọc Lan, tiện ích của chị rất hữu dụng, rất mong chị sẽ cho ra nhiều tiện ích hay như vậy.
 
Lần chỉnh sửa cuối:
Hôm nay nhân lúc rảnh rỗi mình gửi lên tặng các bạn file addin mới do mình viết. Mình tải file mới ở trang đầu. Khi sử dụng các bạn cần chọn trong mục tuỳ chọn tin tưởng tới đối tượng trong VBA nhé. chúc các bạn sử sụng VBA dễ dàng hơn. Trong file mình có để ở chế độ PassWord nhưng không có gì. Nếu bạn nào muốn tìm hiểu code, bạn chỉ cần bấm vào là mở được
 
Lần chỉnh sửa cuối:
Hôm nay kiểm tra lại thấy tiện ích vẫn có một số lỗi như phần Index module ở phần Index đầu module mình đặt bẫy lỗi vẫn còn bị thiếu nên khi Index với module chỉ có khai báo không có thủ tục nào thì hàm Index gặp phải vòng lặp vô tận mình đã sửa lỗi và thêm chức năng tuỳ chọn cài đặt tiện ích, mình để việc tạo menu chỉ ở trong file "VBECode.xla" không cần phải đi kèm theo file Menu.mdb nữa. Mọi người chỉ việc tải về không cần thiết lập gì cả. mình tải file mới ở bài 1
 
Lần chỉnh sửa cuối:
Add _ Ins của chị quả là rất tuyệt vời, vậy là từ nay viết Code em đỡ phải để ý thụt lề đầu dòng nữa, sau khi viết xong chạy 1 lần là ra Code bố trí rất đẹp mắt

Cảm ơn chi nhiều, rất mong chị sẽ cho ra đời nhiều tiện ích hay nữa.
 
Hôm nay kiểm tra lại thấy Form sắp xếp thủ tục mình đã đổi tên mà chưa sửa nên vẫn còn lỗi mình tải thêm file mới ở bài 1
 
Hôm nay kiểm tra lại thấy Form sắp xếp thủ tục mình đã đổi tên mà chưa sửa nên vẫn còn lỗi mình tải thêm file mới ở bài 1
Bạn cho tôi hỏi. Tôi cũng đã có Addins sử dụng tổ hợp fím Ctrl+Q, nếu bây giờ muốn sửa lại tổ hợp fím Addins của bạn ở bài #1 thì fải sửa ở chỗ nào? (đối với file bình thường thì bấm Atl+F8 vào Options... để sửa, còn Addins thì chưa biết)
Xin cảm ơn!
 
Bạn cho tôi hỏi. Tôi cũng đã có Addins sử dụng tổ hợp fím Ctrl+Q, nếu bây giờ muốn sửa lại tổ hợp fím Addins của bạn ở bài #1 thì fải sửa ở chỗ nào? (đối với file bình thường thì bấm Atl+F8 vào Options... để sửa, còn Addins thì chưa biết)
Xin cảm ơn!
Bạn có thể dùng thủ tục Application.OnKey(Key as String, [Procedure]) để gán phím tắt cho ứng dụng
Đây là một số phím tắt mình đã kiểm tra qua có thể sử dụng được:
- Gán phím tắt:
PHP:
Public Sub ShortKeys()

        With Application
                .OnKey "^q", "Marco1"       'Ctrl+Q
                .OnKey "^w", "Marco2"       'Ctrl+W
                .OnKey "^A", "Marco3"       'Ctrl+A
                .OnKey "^Q", "Marco4"       'Ctrl+Shift+Q
                .OnKey "^W", "Marco5"       'Ctrl+Shift+W
                .OnKey "^Z", "Marco6"       'Ctrl+Shift+Z
                .OnKey "^e", "Marco7"       'Ctrl+E
                .OnKey "%q", "Marco8"       'Alt +Q
                .OnKey "%f", "Marco9"       'Alt +F
                .OnKey "^V", "Marco10"      'Ctrl+V
                .OnKey "^X", "Marco11"      'Ctrl+X
                .OnKey "^S", "Marco12"      'Ctrl+S
                .OnKey "%r", "Marco13"      'Alt+R
                .OnKey "%b", "Marco14"      'Alt+B
                .OnKey "%y", "Marco15"      'Alt+Y
                .OnKey "%j", "Marco16"      'Alt+J
                .OnKey "^N", "Marco17"      'Ctrl+Shift+N
                .OnKey "^T", "Marco18"      'Ctrl+Shift+T
                .OnKey "^D", "Marco19"      'Ctrl+Shift+D
                .OnKey "^G", "Marco20"      'Ctrl+Shift+G
                .OnKey "^K", "Marco21"      'Ctrl+Shift+K
                .OnKey "^H", "Marco22"      'Ctrl+Shift+H
                .OnKey "^U", "Marco23"      'Ctrl+Shift+U
                .OnKey "^I", "Marco24"      'Ctrl+Shift+I
                .OnKey "^O", "Marco25"      'Ctrl+Shift+O
                .OnKey "^P", "Marco26"      'Ctrl+Shift+P
                .OnKey "^L", "Marco27"      'Ctrl+Shift+L
                .OnKey "^M", "Marco28"      'Ctrl+Shift+M
        End With

End Sub
- Muốn bỏ gán phím: thì thay "Marco1" bằng ""
 
Lần chỉnh sửa cuối:
Ngâm Cứu lại thớt này Mạnh thấy có nhiều cái gần giống như cái phần mềm ở Web sau

http://codevba.com/download.htm#.V_sWu1R974Z

Mạnh đang Rảnh ngồi ko buồn ngủ .... Có ý định khảo cổ học ... khai quật code thớt này lên ngâm cứu xem thế

nào Không biết có Bạn nào có nhả hứng tham gia không ....để còn tính xem nó có thật sự cần thiết khai quật hay không +-+-+-+

Thăm dò Các Bạn một tẹo xem ý Sao ...//**/
 
Ngâm Cứu lại thớt này Mạnh thấy có nhiều cái gần giống như cái phần mềm ở Web sau

http://codevba.com/download.htm#.V_sWu1R974Z

Mạnh đang Rảnh ngồi ko buồn ngủ .... Có ý định khảo cổ học ... khai quật code thớt này lên ngâm cứu xem thế

nào Không biết có Bạn nào có nhả hứng tham gia không ....để còn tính xem nó có thật sự cần thiết khai quật hay không +-+-+-+

Thăm dò Các Bạn một tẹo xem ý Sao ...//**/
Khi nào "mở nắp" hú em 1 tiếng. rất cần thiết để khai quật đấy bác ạ. hỗ trợ cho người mới rất nhiều.
 
Web KT
Back
Top Bottom