Tôi cần trợ giúp về Excel 2010.

Chào mọi người, và cảm ơn trước sự giúp đỡ. Tôi đang sử dụng Windows 8.1 với Excel 2010. Tôi đang cập nhật một chương trình Excel do ai đó tạo ra cách đây vài năm. Chương trình có một biểu mẫu người dùng với các tab bên trong. Tôi muốn thêm các nút "Tiếp theo" và "Quay lại" để khi người dùng nhấp vào chúng, họ có thể cuộn qua các tab khác nhau. Tôi đã thêm nút "Tiếp theo" và "Quay lại" vào mỗi tab khác nhau bằng VBA. Khi tôi bật macro, các nút không hoạt động. Vì vậy, nếu ai đó có thể giúp đỡ, tôi sẽ rất biết ơn.


Trả lời:

Tôi không chắc tại sao bạn lại muốn thêm các nút để thực hiện chức năng tương tự như khi nhấp vào các tab ở đầu phần điều khiển nhiều trang, nhưng dù sao thì đoạn mã sau sẽ chuyển đến trang Tiếp theo hoặc Trang Trước đó. Lưu ý rằng tôi đã thiết lập các hàm con để thực hiện công việc dưới dạng các hàm con được gọi và sau đó mỗi nút sẽ gọi các hàm con này.

Hai hàm con sau đây là ví dụ về việc gọi các hàm con để thực hiện quá trình xử lý.

Private Sub CommandButton4_Click()
Giả định CommandButton4 dùng để quay lại trang trước.
Gọi trang trước
End Sub

'Phần phụ đề sau đây là ví dụ về việc chuyển sang trang tiếp theo'
Private Sub CommandButton5_Click()
'Giả định CommandButton5 dành cho trang tiếp theo'
Gọi NextPage
End Sub

Hai hàm con sau đây là các hàm con được gọi để thực hiện quá trình xử lý.

'Lệnh con sau được gọi để chuyển về trang trước'
Sub PreviousPage()
'Lưu ý rằng số trang được tính từ 0 đến ít hơn 1 so với tổng số trang (thẻ)'
Nếu Me.MultiPage1.Value > 0 thì 'Giá trị trang đầu tiên là số 0'
Me.MultiPage1.Value = Me.MultiPage1.Value - 1
Khác
MsgBox "Đã ở trang đầu tiên."
Kết thúc nếu
End Sub

'Đoạn mã sau được gọi để chuyển sang trang tiếp theo'
Sub NextPage()

'Lưu ý rằng số trang được tính từ 0 đến ít hơn 1 so với tổng số trang (thẻ)'
'Trong dòng tiếp theo, Pages.Count - 1 là số trang cuối cùng _
Vậy cần trừ đi 2 cho trang áp chót.
Nếu Me.MultiPage1.Value <= Me.MultiPage1.Pages.Count - 2 thì
Me.MultiPage1.Value = Me.MultiPage1.Value + 1
Khác
MsgBox "Đã đến trang cuối cùng."
Kết thúc nếu
End Sub

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).

Image
Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0). Tôi có kinh nghiệm sử dụng Excel ở mức trung bình nhưng không thể hiểu cách đạt được những điều sau: 1) Về Cột K, khoảng K12 đến K377. 2) Tất cả các ô trong phạm vi trên đều là ô trống hoặc các ô chứa số dương lớn hơn 0, ví dụ: 14,37. (Lưu ý rằng sự tồn tại của các ô và số trống trong phạm vi này là hoàn toàn tùy ý (không có bất kỳ mẫu logic, lặp lại nào). 3) Tôi đang cố gắng viết một công thức (hoặc sử dụng hàm hoặc macro) yêu cầu như sau: A) Tìm kiếm trong phạm vi K12 đến K377. B) Xác định vị trí và xác định số "cuối cùng" trong cột. (LƯU Ý: Với "cuối cùng", ý tôi là số nằm gần cuối phạm vi của cột nhất. Tức là số gần nhất với hàng 377, trong cột K.) C) Dù số đó là gì, tôi muốn số đó được trả về và hiển thị trong ô tôi chọn, giả sử ô K10. D) Tự động làm mới: Lý tưởng nhất là bất cứ khi nào cột (cột K) số được chỉnh sửa (thêm vào hoặc tr...
Read more