xin hỏi file.xla (bangdiem) này làm sau hiện lại sheet của bảng điểm?

[ongtrungducmx25]

pác vôda em làm được bao nhiêu đó là không biết mỗi lần mở ra thi phải gõ tên vào thì mở chạy được các sheet,còn các menu toan7a1,7a2,.....không thể nào mở ra bình thương được mở toan7a1 thì bảo phải nhập môn lớp là sau nhỉ.

 

[voda]

Muốn mở sheet các lớp từ menu, bạn phải chỉnh lại một số thủ tục trong module Tao toolbar. Ví dụ:

Private Sub Motoan7a2()
Setnhapmon = 4
Load Nhapmon
Nhapmon.Show
End Sub

Chỉnh lại thành:

Private Sub Motoan7a2()
Sheets("toan7a2").Activate
End Sub

 

[ongtrungducmx25]

mình đã dùng code của pác vôda rồi

Private Sub Motoan7a2()
Sheets("toan7a2").Activate
End Sub

nhưng vẫn báo lỗi, menu của em chạy được với các sheet toan7a1 ,không chạy được với sheet 7a2,có giải pháp nào để mở nhanh các sheet này không. mỗi lầm mở các sheet thì UF lại hiện ra, như thế làm cho quá trình mở sheet chậm đi nhé.

 

[voda]

Muốn mở các sheet từ menu, bạn phải Addin file.xla vào excel. Mình đã chỉnh sơ lại cho bạn để mở từ menu 2 sheet: toan7a1 và toan7a2. Bạn có thể từ đó bổ sung các sheet khác.

 

[ongtrungducmx25]

ở macro themxoa:

Option Explicit
Sub CheckBox7_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("N:N").Hidden
ActiveSheet.Columns("N:N").Hidden = Not sss
ActiveSheet.Range("N6:N55").ClearContents
ActiveSheet.Protect (Matkhau)
End Sub
Sub CheckBox5_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("G:G").Hidden
ActiveSheet.Columns("G:G").Hidden = Not sss
ActiveSheet.Range("G6:G55").ClearContents
ActiveSheet.Protect (Matkhau)
End Sub
Sub LopChua_CheckBox3_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("R:T").Hidden
ActiveSheet.Columns("R:T").Hidden = Not sss
ActiveSheet.Protect (Matkhau)
End Sub

em sửa chổ:

Sub axeploai_CheckBox3_Click()
Dim sss As Boolean
 
sss = ActiveSheet.Columns("R:T").Hidden
ActiveSheet.Columns("R:T").Hidden = Not sss
 
End Sub

thì nó không thực hiện "bảng xếp loại học lực" chọn vào dấu kiểm v:thống kể để ẩn đi cột thống kê

cho hỏi một chúc là (mật khẩu là sau nhỉ ở những dòng lệnh trên) ps:aaabc

sau không thể nào đổi tên được khi em add-in thì luôn hiện tên của zậy "
mau bang diem-xep loai hoc luc" pác có cách nào đổi lại được không vd:tên gì tùy ý nhé

 

[ongtrungducmx25]

Sau em mở toan7a1 hai lần thì thông báo lỗi và hiện ra là toan7a1(2) em muốn chọn trên menu của em là chọn toan7a1 bao nhiêu lần thì chỉ có một sheet đó thôi là toan7a1 thôi. chứ cái của em lỗi chọn 3,5....thì nó cho ra sheet toan7a1(3),.......tương ứng có cách nào không pác voda.

 

[voda]

Nguyên văn bởi ongtrungducmx25
Option Explicit
Sub CheckBox7_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("N:N").Hidden
ActiveSheet.Columns("N:N").Hidden = Not sss
ActiveSheet.Range("N6:N55").ClearContents
ActiveSheet.Protect (Matkhau)
End Sub
Sub CheckBox5_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("G:G").Hidden
ActiveSheet.Columns("G:G").Hidden = Not sss
ActiveSheet.Range("G6:G55").ClearContents
ActiveSheet.Protect (Matkhau)
End Sub
Sub LopChua_CheckBox3_Click()
Dim sss As Boolean
ActiveSheet.Unprotect (Matkhau)
sss = ActiveSheet.Columns("R:T").Hidden
ActiveSheet.Columns("R:T").Hidden = Not sss
ActiveSheet.Protect (Matkhau)
End Sub

-Theo đoạn code trên, mỗi thủ tục khi chạy đều có động tác mở và khóa sheet. Nếu bạn chỉ bỏ 2 dòng: ActiveSheet.Unprotect(Matkhau) và ActiveSheet.Protect(Matkhau) ở 1 thủ tục, thì thủ tục ấy không chạy được.
-Matkhau là 1 hằng được khai báo từ trước. Muốn khỏi phiền hà, bạn soát lại tất cả code, bỏ tất cả những gì liên quan đến mật khẩu sẽ không bị tình trạng này nữa.
-Tên của menu là do mình tạo ra trong sheet Macro4. Muốn đổi tên gì bạn vào đây để chỉnh.
-Khi đã tạo sheet toan7a1 rồi, bạn còn mở thêm nữa thì sẽ bị báo lỗi vì excel phát hiện sự trùng tên. Sheet mới vẫn được tạo ra và có thêm số để phân biệt. Ví dụ toan7a1(1). Có thể dùng bẩy lỗi để khắc phục tình trạng này. Hoặc thêm đoạn code sau:

Private Sub Motoan7a1()
For i = 1 To Sheets.Count
If Sheets(i).Name = "toan7a1" Then
Exit Sub
End If
Next
Sheet8.Copy Before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(1).Name = "toan7a1"
End Sub

-Theo mình, các sheet trong file Addin nên là những sheet mẫu. Nó chưa có tên lớp, chưa có danh sách học sinh để thuận lợi cho việc tạo lớp, thay đổi danh sách lớp, hoặc tiện cho nhiều người sử dụng

 

[ongtrungducmx25]

pác vôda ơi pác hướng dẫn cụ thể vào đâu để chỉnh lại sheet Macro4,có phải là sheetmacro1 là tạo menu không!

 

[voda]

Trong file của bạn, đúng là sheet Macro1. Bạn mở sheet này để chỉnh. Bạn kích vào dòng =ADD.MENU(10;menu) sẽ thấy 1 khung màu xanh xác định giới hạn của vùng menu (name do người dùng đặt). Trong vùng này, cột 1 là tên menu (dòng đầu là menu chính, các dòng còn lại là menu con) cột 2 là tên các thủ tục. Các thủ tục này sẽ được thực hiện khi ta kích vào menu tương ứng.

 

[ongtrungducmx25]

pác voda em dã cải thiện như ý của pác nói rồi ,nhưng có vấn đề là không đổi được tên của addin là "mau bang diem-xep loai hoc luc" pác có cách nào làm thay đổi bản tên đó không.

 

[voda]

Bạn kích phải vào file xla, chọn Properties/Summary. Bạn chỉnh ở mục Title. Có thể chỉnh thêm ở các mục khác theo ý muốn.

 

[ongtrungducmx25]

chào pác voda em đã chỉnh lại được rồi,theo cách của pác nhưng có một file vd này sau em không thể chỉ lại được zay phải làm sau đây,em sửa lại tên nhưng nó chỉ cho hiện được một chữ "T" thôi pác cho biết nguyên tắc đó là sau nhỉ

 

[voda]

-Nếu máy bạn có font Arial Unicode hoặc MS Song, bạn sẽ thấy tên Addin của bạn chuyển sang tiếng Tàu.
-Trước mắt để giải quyết trường hợp này, bạn xóa trắng Title đó đi. Excel sẽ lấy tên file làm tên Addin. Bạn chỉ cần đổi tên file theo ý muốn.

 

[ongtrungducmx25]

có đấy làm sau chuyển sang chữ có mà để làm nổi bậc chủ đề pác voda

 

[voda]

Mình chưa hiểu ý câu hỏi. Bạn có thể giải thích rõ hơn?

 

[ongtrungducmx25]

sau xếp thống kê của em lúc trước là =toan7a1!AE1 để liên kế đếm số học sinh theo điều kiện nhưng bây gời thì lại bị đổi sang là:=[thunghiem03.xla]toan7a1!AE1 có cách nòa là cho nó đổi lại được không nhỉ =toan7a1!AE1

 

[tedaynui]

sau xếp thống kê của em lúc trước là =toan7a1!AE1 để liên kế đếm số học sinh theo điều kiện nhưng bây gời thì lại bị đổi sang là:=[thunghiem03.xla]toan7a1!AE1 có cách nòa là cho nó đổi lại được không nhỉ =toan7a1!AE1

Anh thầy dùng lệnh tìm và thay thế
tìm : [thunghiem03.xla]
Thay : để trống
Sau đó Replace All

TDN

 

[namkpac]

Mình chưa hiểu ý câu hỏi. Bạn có thể giải thích rõ hơn?

Em chào a, em thấy a có bài viết về file .xla, em cũng có 1 file .xla và cũng dùng nhiều cách để mở nhưng đến giờ vẫn chưa mở được các sheet nên muốn gửi file lên nhờ anh và mọi người mở các sheet lên hộ em với