Xin Add-in cố định vùng di chuột (Scroll Area) cho Office 2010 (2 người xem)

[Decepticon]

Bình thường mình làm như trong ảnh rất là bất tiện, vừa mất công lại không thể lưu sau khi đóng file. Các anh chị có add-in nào giải quyết được vụ này ko ạ?

 

[nghiaphuc]

Bình thường mình làm như trong ảnh rất là bất tiện, vừa mất công lại không thể lưu sau khi đóng file. Các anh chị có add-in nào giải quyết được vụ này ko ạ?

Bạn có thể sử dụng một trong 2 sự kiện này cho đối tượng ThisWorkbook:
[GPECODE=vb]Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.ScrollArea = "A16:T55"
Next
End Sub[/GPECODE]
[GPECODE=vb]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.ScrollArea = "A16:T55"
End Sub[/GPECODE]
Cách thứ nhất áp dụng cho trường hợp bạn không có nhu cầu thêm/xóa sheet, còn cách thứ 2 áp dụng cho trường hợp có thể phát sinh việc thêm, xóa sheet trong quá trình làm việc với file.

 

[Decepticon]

cám ơn bạn nhưng cách này cũng chưa ổn lắm vì vùng cần khóa ở mỗi sheet là khác nhau, phải có thêm tùy chọn vùng khóa giống cái kuntools for excel mới được.

 

[huuthang_bd]

cám ơn bạn nhưng cách này cũng chưa ổn lắm vì vùng cần khóa ở mỗi sheet là khác nhau, phải có thêm tùy chọn vùng khóa giống cái kuntools for excel mới được.

Làm theo yêu cầu cho bạn luôn.
Sử dụng trong menu chuột phải nhé.

 

[Decepticon]

Làm theo yêu cầu cho bạn luôn.
Sử dụng trong menu chuột phải nhé.

bạn ơi add-in này chỉ cố định vùng đang hiển thị thôi, ngoài ra nó còn khóa chết tất cả các ô luôn ko sửa được gì cả
ví dụ mình muốn đặt scroll area cho sheet 1 là A1:H50 và mọi ô trong vùng này đều hoạt động bình thường

 

[huuthang_bd]

bạn ơi add-in này chỉ cố định vùng đang hiển thị thôi, ngoài ra nó còn khóa chết tất cả các ô luôn ko sửa được gì cả

Là sao bạn? Tôi không hiểu.
Add-in này chỉ làm thay việc mà bạn đang làm tay trong hình ở bài #1 và cho phép lưu lại thiết lập của bạn.

ví dụ mình muốn đặt scroll area cho sheet 1 là A1:H50 và mọi ô trong vùng này đều hoạt động bình thường

Muốn vậy thì bạn chỉ việc chọn vùng A1:H50, click chuột phải chọn Set Scroll Area.

 

[giaiphap]

bạn ơi add-in này chỉ cố định vùng đang hiển thị thôi, ngoài ra nó còn khóa chết tất cả các ô luôn ko sửa được gì cả
ví dụ mình muốn đặt scroll area cho sheet 1 là A1:H50 và mọi ô trong vùng này đều hoạt động bình thường

Bạn xem thử được chưa, chọn vùng cần Set Scroll Area nhấp Menu chuột phải để chọn. Muốn nó trở thành Add-Ins để sử dụng cho các file khác thì bạn mở nó lên và lưu dưới dạng Add-Ins(dạng xlam), sau đó add vào Excel để sử dụng.

 

[Decepticon]

Là sao bạn? Tôi không hiểu.
Add-in này chỉ làm thay việc mà bạn đang làm tay trong hình ở bài #1 và cho phép lưu lại thiết lập của bạn.

Muốn vậy thì bạn chỉ việc chọn vùng A1:H50, click chuột phải chọn Set Scroll Area.

ặc, vậy mà mình cứ nghĩ phải hiện cái cửa sổ để điền giá trị
add-in chạy ổn rồi nhưng cái này là gì vậy ợ

 

[huuthang_bd]

ặc, vậy mà mình cứ nghĩ phải hiện cái cửa sổ để điền giá trị
add-in chạy ổn rồi nhưng cái này là gì vậy ợ

Cái đó không phải do Add-in của tôi tạo ra. Bạn kiểm tra lại các Add-in khác hoặc các file đang mở.

 

[Decepticon]

hì, add-in của bác giaiphap gọn gàng hơn nhưng ko thể lưu lại thiết lập như của bác huuthang_bd, hơi bị tiếc

Cái đó không phải do Add-in của tôi tạo ra. Bạn kiểm tra lại các Add-in khác hoặc các file đang mở.

vậy thì quái nhỉ, chả hiểu mọc ra từ đâu, xóa hết add-in rồi mà vẫn còn != =)

 

[giaiphap]

hì, add-in của bác giaiphap gọn gàng hơn nhưng ko thể lưu lại thiết lập như của bác huuthang_bd, hơi bị tiếc


vậy thì quái nhỉ, chả hiểu mọc ra từ đâu, xóa hết add-in rồi mà vẫn còn != =)

Mình mã hóa lại file của bác huuthang_bd bạn xem có giúp ích được gì không?

 

[Decepticon]

Mình mã hóa lại file của bác huuthang_bd bạn xem có giúp ích được gì không?

cám ơn bác, hàng nhỏ gọn hơn nhưng hoạt động vẫn ngon lành
à mà liệu bác có thể chỉnh cái menu cho giống add-in của bác được ko? bác huuthang_bd đì zai hơi xấu

 

[giaiphap]

cám ơn bác, hàng nhỏ gọn hơn nhưng hoạt động vẫn ngon lành
à mà liệu bác có thể chỉnh cái menu cho giống add-in của bác được ko? bác huuthang_bd đì zai hơi xấu

Tôi thì không đủ khả năng rồi, đụng tới classmodule thì mù tịt luôn. mà xấu đẹp gì bạn ơi, tôi nghĩ hiệu quả là trên hết. Mò đại hên quá nó trúng rùa. Nếu muốn xuất dạng Add-Ins thì bạn xóa lệnh Goi trong sub Autpen

 

[Decepticon]

Tôi thì không đủ khả năng rồi, đụng tới classmodule thì mù tịt luôn. mà xấu đẹp gì bạn ơi, tôi nghĩ hiệu quả là trên hết. Mò đại hên quá nó trúng rùa. Nếu muốn xuất dạng Add-Ins thì bạn xóa lệnh Goi trong sub Autpen

cám ơn bác rất nhiều, mình thử xuất add-in mà ko xóa lệnh Goi vẫn ok

nhân tiện bác chỉ mình cách xóa mấy nghìn dòng trắng trong file excel này nhé

 

[nguyenhdu]

Làm theo yêu cầu cho bạn luôn.
Sử dụng trong menu chuột phải nhé.

Thêm vào menu chuột phải làm sao vậy huuthang_bd.