主题：在弹出的窗口中输入字符用来赋值给指定的变量

    Dim JRRQ1, JRRQ2 As String

InputValue(JRRQ1, "上次节日费日期","请输入上次节日日期,格式如20150501:")

      InputValue(JRRQ2 "本次节日费日期","请输入本次节日日期,格式如20150620:")

      下面的代码用来对比入职日和JRRQ1和JRRQ2的天数差，来判断是否执行节日费发放。此处代码省略。

  在编译的时候为何会报错，提示为“Variable 'JRRQ1' hides a variable in an enclosing block.“也就是变量隐藏变量。究竟什么原因？想请教一下各位，谢谢！

所有代码发出来看看.  你调试一下看看是那一句报错.

Dim JRRQ1, JRRQ2 As String 改一个名字，提示的意思是你已经定义过这个变量了。