minhmee2610
Thành viên mới
- Tham gia
- 18/9/20
- Bài viết
- 26
- Được thích
- 6
Em chào các anh chị.
Em đang gặp khó khăn khi lấy giá trị của Editbox trong thanh công cụ tạo thêm. Hiện tại em không tìm ra được cách nào để lấy các giá trị của các ô đó khi nhập vào để đưa vào các Sub. Rất mong các anh chị hướng dẫn em phần này.
Em có để code cho anh chị không thích tải file có chứa Macro về.
--
Các Sub:
Em đang gặp khó khăn khi lấy giá trị của Editbox trong thanh công cụ tạo thêm. Hiện tại em không tìm ra được cách nào để lấy các giá trị của các ô đó khi nhập vào để đưa vào các Sub. Rất mong các anh chị hướng dẫn em phần này.
Em có để code cho anh chị không thích tải file có chứa Macro về.
--
HTML:
<!--RibbonX Visual Designer 1.94 for Microsoft Excel 16.0. XML Code produced on 2023/05/30-->
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
<ribbon >
<tabs >
<tab
id="tabtool"
label="Tool">
<group
id="grtool"
imageMso="PivotSwitchRowColumn"
label="Tool">
<button
enabled="true"
id="btnlogin"
imageMso="AcceptInvitation"
label="Login"
showImage="true"
showLabel="false"
size="large"
onAction="btnlogin_onAction"/>
<button
enabled="true"
id="btninbound"
imageMso="RmsNavigationBarHome"
label="Inbound"
showImage="true"
showLabel="false"
size="large"
onAction="btninbound_onAction"/>
<editBox
enabled="true"
id="txtboxfrom"
imageMso="AccessListEvents"
label="From:"
onChange="txtboxfrom_Change"
getText="txtboxfrom_getText"/>
<editBox
enabled="true"
id="txtboxto"
imageMso="AccessListEvents"
label="To:"
onChange="txtboxto_Change"
getText="txtboxto_getText"/>
</group >
</tab >
</tabs >
</ribbon >
</customUI >Các Sub:
Mã:
Public Sub txtboxfrom_getText(control As IRibbonControl, ByRef text)
text = Format(Date, "dd.mm.yyyy")
End Sub
Public Sub txtboxto_getText(control As IRibbonControl, ByRef text)
text = Format(Date, "dd.mm.yyyy")
End Sub
