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

[ongtrungducmx25]

mình addin (bangdiem) rồi sau đó muốn xem lại các sheet thì không được, mình làm mọi cách như: vào menu Format/sheet thì không hiện lại vào VBA chọn nút visible/-1-xlsheetvisible cũng không thấy hiện sheet ("Diemcu và Lopchua") làm sau file.xla có thể cộng vào sheet như thế nhỉ mong các bạn chỉ mình nhé! mình gởi file có hình trong đó nhé

 

[ptm0412]

Mình hiểu hình như bạn nhầm lẫn giữa add in và template thì phải
- Nếu bạn muốn mỗi khi bạn mở excel hoặc tạo 1 work book mới, bạn sử dụng được 1 số hàm tự tạo, hoặc thêm menu tự tạo thì đó là add in
- Nếu bạn muốn tạo 1 file mới với trình bày, định dạng giống 1 file có sẵn, thì đó là template. Thí dụ nếu bạn click phải vào 1 tên sheet bất kỳ, chọn insert, chọn spread sheet solution, chọn 1 trong các icon, đó là template

Vậy nếu ý bạn là ý 2, bạn hãy lưu lại dưới dạng template, bạn sẽ có 1 file có đuôi là .xlt

 

[ongtrungducmx25]

không phải đâu bạn minh muốn hỏi la file.xla sau có kèm theo cac sheet("Diemcu và Lopchua") thì làm như thế nào nhé

 

[voda]

Bạn mở cửa sổ code, vào Properties của ThisWorkbook chỉnh mục IsAddin = false. Mình gởi file đã chỉnh.

 

[ongtrungducmx25]

pác voda cho mình hỏi cái add-in mới này của em nó bị lỗi gì zậy có sửa được không
“Sub or funtion not define” va “this command well stop the debugger”
mỗi lần lưu lại thì mở ra thông báo lỗi nhé!
sau mình ẩn kiểu của pác voda thì các menu của em không làm việc được có rất nhiều lổi

 

[voda]

-file Sub or funtion not define.xla bị lỗi là do toàn bộ code trong MenuModule bị mất. Muốn sửa, bạn phải phục hồi code trong module này.
-File thongkeHs.xla không dùng được vì nó ở dạng file Addin. Muốn sử dụng nó, bạn vào Properties của ThisWorkbook chỉnh AddIn = false. Mình đã chỉnh lại cho bạn và dùng bình thường.

 

[ongtrungducmx25]

không có cách nào vào Properties của ThisWorkbook chỉnh AddIn = true. thì không dùng được sau nhỉ, vầy phải viết code bổ sung như thế nào cho file.xla đây mình thấy ở file bảng điểm.xla ở #1 thì nó khai báo để hiện các sheet, zậy thì khai báo như thế nào pác chỉ luôn cho em nhé

 

[ongtrungducmx25]

mình muốn thongkeHS của mình ẩn nhưng các menu của mình vẫn làm việc trên các sheet nhé (toan7a1,ly7a1,........)

 

[voda]

-Có nhiều cách làm cho sheet ẩn đi: Dùng chức năng Format/Sheet/Hide của Excel hoặc dùng code trong VBA.
-Trong trường hợp của bạn, theo mình bạn vào Tools/Options/View bỏ chọn mục sheet Tabs là được.

 

[ongtrungducmx25]

em biết cách này nhưng nếu chọn như zay thì nó không phải là file.xla nữa đâu còn làm như cách của pác "Properties của ThisWorkbook chỉnh AddIn = true" nói thì nó addin được nhưng đồi hỏi các sheet của em không mở được cho nên mình cần tìm giải pháp là khi mở thì code bị lỗi này là sau nhỉ

 Sub MoToan7a1()
Sheets("toan7a1").Select
End Sub

hình như bị lỗi "opject variable or with block variable not set" khi mở menu bảng điểm vì đã chỉnh "Properties của ThisWorkbook chỉnh AddIn = true" lỗi gì zậy

 

[voda]

Bạn gởi cho mình 2 file xla khác nhau. Mình nói về từng file một để tránh sự lẫn lộn:
-File bangdiem.xla:Khi bạn đã chỉnh AddIn = true, bạn không thể mở trực tiếp file này ra để sử dụng được mà phải AddIn nó vào trong Excel. Đó là lý do tại sao bạn mở menu bảng điểm thì bị báo lỗi "opject variable or with block variable not set".
-File thongkeHS.xla: File này có đuôi là xla nhưng nó chưa phải là file AddIn thực sự. Nếu bạn chỉnh AddIn = true, rồi AddIn vào trong Excel, khi bạn mở các sheet, bạn sẽ bị báo lỗi. Ví dụ như mở sheet toán7A1 thì sẽ bị báo lỗi ở dòng: sheets("toan7a1").select (như bạn mô tả ở trên).
Muốn khắc phục, bạn phải chỉnh sửa lại file này. Sheet trong file AddIn không phải là lớp cụ thể như: toan7a1, toán8a2...mà là một mẫu chung. Từ đó người dùng tạo ra các lớp cụ thể. Câu lệnh để hiển thị sheet là: Sheets("...").copy. Đó là những lý do gây lỗi mà bạn đã gặp

 

[ongtrungducmx25]

zay sửa lại như thế nào Sheets("...").copy pac chỉ rõ cho em với còn muốn trở thành add-in thật sự thì khắc phục menu nhập diểm của thongkeHS nó bị lỗi "opject variable or with block variable not set" bổ sung như thế nào nhỉ

 

[voda]

Bạn muốn chỉnh sửa file thongkeHS.xla thành file AddIn thật sự thì phải thay đổi lại cấu trúc của file đó:
-Chuyển các sheet lớp học như toan7a1, toán7a2...thành 1 mẫu chung.
-Sheet thống kê có thể giữ nguyên.
-Phần code trong các module phải làm gọn lại, bỏ bớt những chức năng không cần thiết sau đó bổ sung vào cho phù hợp...
Tóm lại nhiều việc phải làm chứ không chỉ là chuyện khai báo. Mình nghĩ bạn nên nghiên cứu và tự làm. Có thể dùng file bangdiem.xla để làm mẫu. Bạn mở phần code của file này, theo đó để làm. Bạn gặp khó khăn chỗ nào, cứ post câu hỏi lên. Nhiều người sẽ giúp bạn. Có điều câu hỏi phải thật cụ thể và rõ ràng. Tránh viết dài và chung chung.
Thân

 

[ongtrungducmx25]

cách tạo menu ở #1 là làm sau nhỉ ,pác vôda sau không giống như file của pác chỉ zay pác có thể cho em vi du cụ thể được không.

 

[voda]

Mình chưa hiểu lắm về câu hỏi. Bạn có thể nói rõ hơn được không? Gởi kèm file thì càng tốt.

 

[ongtrungducmx25]

file bangdiem ở bài 1 của em gởi lên thì không biết tạo menu như thế nào mà em mò tìm hoài không được,còn file thongkehs của em thì cách tạo menu thì em biết,nhưng không biết cách tạo menu của bangdiem đó ra sau ý em là thế pác voda có thể giải thích cho em được không! không có tạo Menusheet chỉ thấy có toolbar trong modul thôi

 

[voda]

File bangdiem.xla tạo menu bằng macro 4. Trong file có sheet Macro1 ẩn. Code của nó nằm trên sheet này. Bạn có thể tham khảo vấn đề tạo Menu bằng Macro sheet trên diễn đàn.

 

[ongtrungducmx25]

làm thế nào để gọi nó ra pác ơi,em muốn xem thử có được không pác nhé

 

[voda]

-Đầu tiên, bạn chỉnh Properties của ThisWorkbook chỉnh AddIn = false, tiếp theo vào format/sheet/unhide làm cho sheet Macro1 hiển thị. Unprotect sheet này, bạn sẽ thấy code.

 

[ongtrungducmx25]

sau em làm như pác chỉ thì chỉ thấy "lopchua và diemcu" thôi không thấy Macro1! pác ơi

 

[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