变量取值

queenie_jing

老师好，截图代码中的日期值是个变量，会经常修改。
我的需求是：当我按下快捷键ctrl+q时
会弹出一个文本框【请设置文件到期日期】
我输入完日期后，点击确定
以下截图红框就可以取到我键入的日期了
请问我的需求可行不？能帮我加一下吗？

liulang0808

楼主看下录制宏，弹出窗体有快捷键，可以设置下，然后改代码再弹出inpubox窗体，输入日期。
再修改open事件对应的代码
可以先删除，再增加，下面是增加的案例，自己针对修改下
Sub AddEventsCode1()
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString _
"Private Sub Workbook_Open()" & Chr(13) & _
"MsgBox ""Hello""" & Chr(13) & _
"End Sub"
End Sub