Làm thế nào để add tool viết bằng VBA vào tool của excel

[joga7785]

Chào các bạn - mình muốn nhờ các bạn tư vấn chủ để như sau:
B1. Mình đã tạo 1 macro cho phép tạo một tool có chức năng xóa sheet rỗng, xóa dòng trắng , xóa cột trăng như hình
http://www.mediafire.com/imageview.p...ey=canonwgm5i4
B2. Nhưng hiện tại xảy ra trường hợp sau:
- Nếu copy dữ liệu vào file gốc đã viết code VBA thì ấn vào 1 buton trên tool thì nó sẽ thực thi lệnh
- Nếu mở file excel mới thì chức năng của buton trên file mới không có tác dụng
- Mình viết code như sau:
PHP Code:
Sub DeleteEmptyRows()
Dim i As Long
Application.ScreenUpdating = False
With Sheet1.UsedRange
For i = .Rows.Count To 1 Step -1
If WorksheetFunction.CountA(.Cells(i, 1).EntireRow) = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
B3. Sau khi sửa được lỗi trên, mình muốn mang tool này sang bất kỳ máy tính nào thì phải đăng ký những gì thì excel ở các máy khác mới hiểu - và cho add tool lên taskbar
Nhờ các bạn chỉ giúp các vấn đề mình gặp phải trên

 

[domfootwear]

Ðề: Làm thế nào để add tool viết bằng VBA vào tool của excel

Chào các bạn - mình muốn nhờ các bạn tư vấn chủ để như sau:
B1. Mình đã tạo 1 macro cho phép tạo một tool có chức năng xóa sheet rỗng, xóa dòng trắng , xóa cột trăng như hình
http://www.mediafire.com/imageview.p...ey=canonwgm5i4
B2. Nhưng hiện tại xảy ra trường hợp sau:
- Nếu copy dữ liệu vào file gốc đã viết code VBA thì ấn vào 1 buton trên tool thì nó sẽ thực thi lệnh
- Nếu mở file excel mới thì chức năng của buton trên file mới không có tác dụng
- Mình viết code như sau:
PHP Code:
Sub DeleteEmptyRows()
Dim i As Long
Application.ScreenUpdating = False
With Sheet1.UsedRange
For i = .Rows.Count To 1 Step -1
If WorksheetFunction.CountA(.Cells(i, 1).EntireRow) = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
B3. Sau khi sửa được lỗi trên, mình muốn mang tool này sang bất kỳ máy tính nào thì phải đăng ký những gì thì excel ở các máy khác mới hiểu - và cho add tool lên taskbar
Nhờ các bạn chỉ giúp các vấn đề mình gặp phải trên

Đây là code xóa dòng trống, nếu muốn cho nó cơ động, sử dụng cho tất cả các sheet thì phải chỉnh Sheet1 sang ActiveSheet.

Sub DeleteEmptyRows()
Dim i As Long
Application.ScreenUpdating = False
With [COLOR="Red"][B]ActiveSheet[/B][/COLOR].UsedRange
For i = .Rows.Count To 1 Step -1
If WorksheetFunction.CountA(.Cells(i, 1).EntireRow) = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Sao là Taskbar, nó là Menu mới đúng chứ, bạn tham khảo link sau nhé
http://www.giaiphapexcel.com/forum/showthread.php?1362-Minh-họa-tạo-Menu-bằng-Worksheet-Macro4

 

[dat_butmuc]

Ðề: Làm thế nào để add tool viết bằng VBA vào tool của excel

Đây là code xóa dòng trống, nếu muốn cho nó cơ động, sử dụng cho tất cả các sheet thì phải chỉnh Sheet1 sang ActiveSheet.

Sub DeleteEmptyRows()
Dim i As Long
Application.ScreenUpdating = False
With [COLOR=red][B]ActiveSheet[/B][/COLOR].UsedRange
For i = .Rows.Count To 1 Step -1
If WorksheetFunction.CountA(.Cells(i, 1).EntireRow) = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Sao là Taskbar, nó là Menu mới đúng chứ, bạn tham khảo link sau nhé
http://www.giaiphapexcel.com/forum/showthread.php?1362-Minh-họa-tạo-Menu-bằng-Worksheet-Macro4

Bác "Dom..." này đi đâu cũng gặp ha (GPE rồi lại DKT, không biết còn chỗ nào nữa không, hình như còn cả bên DKT ???)

 

[atmt17]

Ðề: Làm thế nào để add tool viết bằng VBA vào tool của excel

Bác "Dom..." này đi đâu cũng gặp ha (GPE rồi lại DKT, không biết còn chỗ nào nữa không, hình như còn cả bên DKT ???)

Thì bác cũng thế thôi (có nick bên DKT không ta?)
Ẹc... Ẹc...