thanhvan1976
Thành viên mới
- Tham gia
- 1/11/19
- Bài viết
- 43
- Được thích
- 0
Có vẽ rỏ ràng hơn rồi, hy vọng bạn biết cách vận dụng vào thực tế
Bạn xem file thử có đúng ý bạn không nhéEm có 2 sheet (1 và 2)
*sheet1 chấm công cho nhân viên theo Sáng (S) Chiều (C) , Đêm (T), Hành chính (HC), hỗ trợ(F), Nghỉ không lương(Ro), Nghỉ phép(P), nghỉ ốm (Ô).
* Sheet 2 tổng hợp chấm công theo tháng
Em muốn nhờ các bác chuyển các buổi chấm công cho nhân viên trong sheet 1 sang sheet 2 các buổi S,C,F,T,HC chuyển thành"x" còn Ro,P,Ô vẫn giữ nguyên .
P/S: các bác giữ nguyên công thức cho em để em còn biết tính.
Trong file Ex Extrusion Data.xlam có thêm file customUI.xml nửa bạn, bạn nên xem lại cách tạo Ribbon.mọi người cho em hỏi,
em có 2 file add-in trong excel như đính kèm.
File 1: "Extrusion Data.xlam" e lấy trên mạng và có code tạo add-in ở module RibbonSetup -> em chạy add-in như bình thường.
File 2: "addin.xlam" e copy code trong module RibbonSetup của file 1 sang module file 2 -> khi em chạy add-in không hiện ra.
Mọi người giúp em kiểm tra nguyên nhân và cách sửa.
Em cảm ơn
1. Cám ơn bạn. mình đã kiểm tra được.Trong file Ex Extrusion Data.xlam có thêm file customUI.xml nửa bạn, bạn nên xem lại cách tạo Ribbon.
Bạn nên học kỷ lại ribbon đi hả hỏi, chứ không có kiến thức cơ bản mà hỏi chẳng biết trả lời sau luôn. Mã XML để tạo Ribbon (Mã tạo các nút lệnh trên Ribbon) khác với mã code VBA.Mình thấy ngôn ngữ mẫu được viết trong phần mềm Custom UI Editor For Microsoft Office và ngôn ngữ viết trong file Extrusion Data.xlam là khác nhau. Vậy khi mình sử dụng phần mềm Custom UI Editor For Microsoft Office thì nên dùng ngôn ngữ nào? và ưu nhược điểm của 2 ngôn ngữ.
Mình cũng đang học ribbon nên có nhiều điều chưa biết. Muốn hỏi thêm mọi người.Bạn nên học kỷ lại ribbon đi hả hỏi, chứ không có kiến thức cơ bản mà hỏi chẳng biết trả lời sau luôn. Mã XML để tạo Ribbon (Mã tạo các nút lệnh trên Ribbon) khác với mã code VBA.
File customUI.xml trong file Extrusion Data 2.xlam của bạn có gọi sub GetLabel, GetVisible, GetSize,... nói chung rất nhiều thứ. Những sub này có tác dụng lấy thông tin để hiển thị nút lệnh trên Ribbon. Chính vì vậy khi bạn xóa code VBA trong Module RibbonSetup thì những sub này sẽ không hoạt động được, nên nút lệnh trên Ribbon không hiển thị là đúng rồi. Bây giờ bạn cho code này vào Module RibbonSetup của file Extrusion Data 2.xlam sau đó lưu lại, bây giờ đóng file và mở lại xem có gì khác biệt. Bạn tự sửa và khám phá xem có cái gì hay.Mình cũng đang học ribbon nên có nhiều điều chưa biết. Muốn hỏi thêm mọi người.
Trước câu hỏi mình chưa cụ thể -> mình hỏi lại như sau:
1. mình tạo add in từ đầu bằng Custom UI Editor For Microsoft Office sau khi ấn "Validate" và tạo file *.xlam -> add in hoạt động bình thường và không thấy cần code ở bên file *.xlam vừa tạo.
2. mình có 2 file như đính kèm (file extrusion Data 2 được copy từ Extrusion Data 1) -> nếu xóa code trong module RibbonSetup của file extrusion data 2 thì file không còn chạy add in nữa
Nhờ các bạn kiểm tra và nguyên nhân?
Cám ơn bạn
'Hien thi cac nut lenh
Sub GetVisible(control As IRibbonControl, ByRef MakeVisible)
MakeVisible = True
End Sub
'Lay Label cua nut lenh
Sub GetLabel(ByVal control As IRibbonControl, ByRef Labeling)
Labeling = "ABC"
End Sub
'Lay ten Icon (Hinh anh hien thi) cho nut lenh
Sub GetImage(control As IRibbonControl, ByRef RibbonImage)
'Icon Folder
RibbonImage = "FileOpenDatabase"
End Sub
'Lay kich thuoc nut lenh
Sub GetSize(control As IRibbonControl, ByRef Size)
Size = Large
End Sub
'Chay lenh khi Clik vao nut lenh
Sub RunMacro(control As IRibbonControl)
MsgBox control.ID
End Sub
'Lay Tooltip cho nut lenh
Sub GetScreentip(control As IRibbonControl, ByRef Screentip)
Screentip = "123"
End Sub
cám ơn ban,File customUI.xml trong file Extrusion Data 2.xlam của bạn có gọi sub GetLabel, GetVisible, GetSize,... nói chung rất nhiều thứ. Những sub này có tác dụng lấy thông tin để hiển thị nút lệnh trên Ribbon. Chính vì vậy khi bạn xóa code VBA trong Module RibbonSetup thì những sub này sẽ không hoạt động được, nên nút lệnh trên Ribbon không hiển thị là đúng rồi. Bây giờ bạn cho code này vào Module RibbonSetup của file Extrusion Data 2.xlam sau đó lưu lại, bây giờ đóng file và mở lại xem có gì khác biệt. Bạn tự sửa và khám phá xem có cái gì hay.
Mã:'Hien thi cac nut lenh Sub GetVisible(control As IRibbonControl, ByRef MakeVisible) MakeVisible = True End Sub 'Lay Label cua nut lenh Sub GetLabel(ByVal control As IRibbonControl, ByRef Labeling) Labeling = "ABC" End Sub 'Lay ten Icon (Hinh anh hien thi) cho nut lenh Sub GetImage(control As IRibbonControl, ByRef RibbonImage) 'Icon Folder RibbonImage = "FileOpenDatabase" End Sub 'Lay kich thuoc nut lenh Sub GetSize(control As IRibbonControl, ByRef Size) Size = Large End Sub 'Chay lenh khi Clik vao nut lenh Sub RunMacro(control As IRibbonControl) MsgBox control.ID End Sub 'Lay Tooltip cho nut lenh Sub GetScreentip(control As IRibbonControl, ByRef Screentip) Screentip = "123" End Sub
gọi su
Mình vừa thử copy đoạn code bạn chỉ vào extrusion data 2.xlam --> ở 2 trường hợp bật trước và sau 1 add in khác. mình thấy có sự khác biệt. mình sẽ xem thêmFile customUI.xml trong file Extrusion Data 2.xlam của bạn có gọi sub GetLabel, GetVisible, GetSize,... nói chung rất nhiều thứ. Những sub này có tác dụng lấy thông tin để hiển thị nút lệnh trên Ribbon. Chính vì vậy khi bạn xóa code VBA trong Module RibbonSetup thì những sub này sẽ không hoạt động được, nên nút lệnh trên Ribbon không hiển thị là đúng rồi. Bây giờ bạn cho code này vào Module RibbonSetup của file Extrusion Data 2.xlam sau đó lưu lại, bây giờ đóng file và mở lại xem có gì khác biệt. Bạn tự sửa và khám phá xem có cái gì hay.
Mã:'Hien thi cac nut lenh Sub GetVisible(control As IRibbonControl, ByRef MakeVisible) MakeVisible = True End Sub 'Lay Label cua nut lenh Sub GetLabel(ByVal control As IRibbonControl, ByRef Labeling) Labeling = "ABC" End Sub 'Lay ten Icon (Hinh anh hien thi) cho nut lenh Sub GetImage(control As IRibbonControl, ByRef RibbonImage) 'Icon Folder RibbonImage = "FileOpenDatabase" End Sub 'Lay kich thuoc nut lenh Sub GetSize(control As IRibbonControl, ByRef Size) Size = Large End Sub 'Chay lenh khi Clik vao nut lenh Sub RunMacro(control As IRibbonControl) MsgBox control.ID End Sub 'Lay Tooltip cho nut lenh Sub GetScreentip(control As IRibbonControl, ByRef Screentip) Screentip = "123" End Sub
Anh(chị) có đáp án của câu này không ạ. Anh(chị) cho em xin đáp án tham khảo với ạ, em ngồi cả buổi chưa biết cách phải làm như thế nào.Mn giúp e bài này với ạ
1. Dựa vào thâm niên và bảng3 điền HSL ( cứ 3 năm chuyển 1 bậc lương. Sau 9 bậc lương được tính vượt khung(VK) theo nguyên tắc bắt đầu từ năm 28, HSL được cộng thêm 5% của HSL bậc 9. Các năm tiếp theo sau đó mỗi năm được tính thêm 1% của HSL bậc 9.