<button id="TTPL_BT_2" label="Hop Dong Ky Ket" imageMso="ReviewTrackChanges" size="large" screentip="Quan ly toan bo hop dong lien quan den du an, vi du: Tu van thiet ke, Tham tra, Lap thau, Xay dung, Thiet bi...." onAction="HopDong" />
...
<button id="HD_BT_1" label="Huong Dan/Tro Giup" image="help" size="large" screentip="Toan bo ho so, giay to lien quan den vong doi cua du an deu duoc tap trung xu ly tai day." onAction="HuongDan" /><?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonLoad">
<ribbon>
<tabs>
<tab id="NewTab" label="Quan Ly Du An">
<group id="Nhom1" label="Gioi Thieu Chuong Trinh">
<labelControl id="GTCT_LB_1" getLabel="Tenchuongtrinh" />
<labelControl id="GTCT_LB_2" getLabel="Tacgia" />
<labelControl id="GTCT_LB_3" getLabel="Lienhe" />
</group>
<group id="Nhom2" label="Quan Ly Chung">
<button id="ThongTinDuAn" label="Thong Tin Du An" imageMso="BlogHomePage" size="large" screentip="Quan ly tong quan cac thong tin cua du an" supertip="Bao gom TMDT, dia diem, cac don vi lien quan..." onAction="ButtonClick" />
<button id="BieuDo" label="Bieu Do" imageMso="ChartInsert" size="large" screentip="Quan ly truc quan cac thong tin du an thong qua bieu do" onAction="ButtonClick" />
<button id="TienDo" label="Tien Do" imageMso="ChartTypeOtherInsertGallery" size="large" screentip="Quan ly tien do du an" onAction="ButtonClick" />
</group>
<group id="Nhom3" label="Thu Tuc Plap Ly">
<button id="HoSo" label="Ho So Phap Ly" imageMso="TranslationToolTip" size="large" screentip="Toan bo ho so, giay to lien quan den vong doi cua du an deu duoc tap trung xu ly tai day." onAction="ButtonClick" />
<button id="HopDong" label="Hop Dong Ky Ket" imageMso="ReviewTrackChanges" size="large" screentip="Quan ly toan bo hop dong lien quan den du an, vi du: Tu van thiet ke, Tham tra, Lap thau, Xay dung, Thiet bi...." onAction="ButtonClick" />
</group>
<group id="Nhom4" label="Thanh/Quyet toan">
<button id="GiaiNgan" label="Giai Ngan" image="tien" size="large" screentip="Toan bo ho so, giay to lien quan den vong doi cua du an deu duoc tap trung xu ly tai day." onAction="ButtonClick" />
</group>
<group id="Nhom5" label="Tien Ich">
<button id="TraCuuVanBan" label="Tra Cuu Van Ban" imageMso="FunctionsLookupReferenceInsertGallery" size="large" screentip="Tong hop cac Quyet Dinh, Nghi Dinh, Thong Tu..." onAction="ButtonClick" />
<button id="PhanLoaiDuAn" label="Phan Loai Du An" imageMso="FunctionsTextInsertGallery" size="large" screentip="Cac du an nhom A, nhom B, nhom C." onAction="ButtonClick" />
<button id="HinhThucDauThau" label="Hinh Thuc Dau Thau" imageMso="FunctionsRecentlyUsedtInsertGallery" size="large" screentip="Tim hieu cac hinh thuc dau thau: Chi dinh thau, dau thau rong rai, chao hang canh tranh..." onAction="ButtonClick" />
<button id="HinhThucHopDong" label="Hinh Thuc Hop Dong" imageMso="FunctionsFinancialInsertGallery" size="large" screentip="Tim hieu ve cac hinh thuc hop dong." onAction="ButtonClick" />
<button id="QuyDinhThoiGian" label="Quy Dinh Thoi Gian" imageMso="FunctionsDateTimeInsertGallery" size="large" screentip="Cac khoang thoi gian trong vong doi du an" onAction="ButtonClick" />
</group>
<group id="Nhom6" label="Huong Dan">
<button id="HuongDan" label="Huong Dan/Tro Giup" image="help" size="large" screentip="Toan bo ho so, giay to lien quan den vong doi cua du an deu duoc tap trung xu ly tai day." onAction="ButtonClick" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>Private rb As IRibbonUI
Private currSheetName As String
Sub CheckBox4_Click()
If Columns("F:J").EntireColumn.Hidden = True Then Columns("F:J").EntireColumn.Hidden = False Else Columns("F:J").EntireColumn.Hidden = True
End Sub
Sub LocHopDong()
Dim i As Long
Dim sArr(), dArr()
sArr = Sheets("Ho So").Range("B5:B" & Sheets("Ho So").[B65536].End(xlUp).Row).Resize(, 9).Value
ReDim dArr(1 To UBound(sArr), 1 To 18)
For i = 1 To UBound(sArr)
If sArr(i, 1) = ActiveSheet.Name Then
k = k + 1
dArr(k, 1) = k
dArr(k, 2) = sArr(i, 5)
dArr(k, 3) = sArr(i, 2)
dArr(k, 5) = sArr(i, 3)
dArr(k, 8) = sArr(i, 6)
dArr(k, 9) = sArr(i, 4)
End If
Next
[A5:R1000].ClearContents
If k Then [A5].Resize(k, 18) = dArr
End Sub
'## Gioi Thieu ##
'################
' Ten chuong trinh
Sub Tenchuongtrinh(control As IRibbonControl, ByRef returnedVal)
returnedVal = "Ten chuong trinh: Quan Ly Du An"
End Sub
' Ten Tac gia
Sub Tacgia(control As IRibbonControl, ByRef returnedVal)
returnedVal = "Tac gia: Nguyen Manh Tuan"
End Sub
' Lien he
Sub Lienhe(control As IRibbonControl, ByRef returnedVal)
returnedVal = "Lien he: ksnguyenmanhtuan@gmail.com"
End Sub
'## Ket Thuc Gioi Thieu ##
'#########################
'Callback for customUI.onLoad
Sub RibbonLoad(ribbon As IRibbonUI)
Dim sh As Worksheet
Set rb = ribbon
For Each sh In Sheets
If sh.Visible = -1 Then
currSheetName = sh.Name
Exit For
End If
Next sh
End Sub
Sub ButtonClick(control As IRibbonControl)
If currSheetName <> control.ID Then
Sheets(control.ID).Visible = -1
Sheets(currSheetName).Visible = 0
currSheetName = control.ID
End If
End Sub
Làm tất tần tật từ A đến Z thế này thì cái chổ màu đỏ kia chắc phải ghi là thành SIWTOM quá
Mình chỉ nói thế thôi chứ biết dù anh siwtom đã giúp bạn gần như toàn bộ nhưng anh ấy sẽ chẳng cần bạn "GHI TÊN" gì đó đâu
<tab id="NewTab" label="Quan Ly Du An"><tab id="NewTab" label="[B][COLOR=#ff0000]&[/COLOR][/B]Quan Ly Du An">Sub RibbonLoad(ribbon As IRibbonUI)
Dim sh As Worksheet
Set rb = ribbon
For Each sh In Sheets
If sh.Visible = -1 Then
currSheetName = sh.Name
Exit For
End If
Next sh
[B][COLOR=#ff0000]SendKeys "%q~"[/COLOR][/B]
End Sub
