VBA过程中代码： endYear = Value(Mid(Application.Cells(row + mTop - 1, "I"), 3, 2))
作者&投稿：訾狮 （若有异议请与网页底部的电邮联系）
你可以将value 改成val
endYear = Val(Mid(Application.Cells(row + mTop - 1, "I"), 3, 2))
row mTop endYear都是变量吧？
endYear =Application. Value(Mid(Cells(row + mTop - 1, "I"), 3, 2))
或者
endYear = Application.Value(Mid(Range("I" & row + mTop - 1), 3, 2))
并不是所有的工作表函数都能直接用于VBA。mid() 可以直接用，用法也没变，但 value() 却不是VBA的内置函数。再比如，工作表公式中，if的用法是if(条件，真的值，假的值)，而且VBA里if的用法是 if 条件 then .... end if 。所以这个提示一点也不奇怪。
禄果澳蒲： VBA中并没有value函数的.所以提示你Value()是＂未定义函数或过程＂? 你可以将value 改成val endYear = Val(Mid(Application.Cells(row + mTop - 1, ＂I＂), 3, 2))
广宗县18210496538： EXCEL的VBA编程 - ？
禄果澳蒲： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnTime Now + TimeValue(＂00:10:00＂), ＂bc＂ End Sub 以上代码复制到sheet代码区 Public Sub bc() m = ActiveWorkbook.Path i = Year(Now) & ＂年＂ & Month(Now...
广宗县18210496538： vba问题一？
禄果澳蒲： 在相应的Sheet中定位事件代码如下. 1、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.AddressLocal = Range(＂A1＂).AddressLocal Then '如果激活单元格是A1 Range(＂B3:C5＂).ClearContents '清除B3:C5区域...
广宗县18210496538： VBA代码中的结束语句是什么? - ？
禄果澳蒲： End Sub (过程) End Function(函数)
广宗县18210496538： 如何VB设计一个程序,到指定使用次数或指定日期后无法使用该程序. - ？
禄果澳蒲： 要是说到指定日期打不开 你可以使用day(date)来获得指定日期,用month(date)来获得月份 用 year(date)来获得年份 比如你想在它2011年6月19日打不开代码可以这样写Option ExplicitPrivate Sub Form_Load() If Year(Date) = ＂2011＂ And ...
广宗县18210496538： VBA有没有代码是可以直接退出不往下继续执行的语句?? - ？
禄果澳蒲： end exit sub exit function on error goto'on error resume
广宗县18210496538： vba中如何终止整个程序的执行? - ？
禄果澳蒲： 直接在msgbox后面使用end语句,比如 if a= 1 then msgbox “错误退出” end end if
广宗县18210496538： vba中使用date变量出错 - ？
禄果澳蒲： 用CDate 函数 转换一下 time2 = cdate(Sheets(＂sheet2＂).Cells(n, 5).Value) 如果不行,把你的具体内容贴上,我再看下
广宗县18210496538： 求高手解决vb关于倒计时的代码 - ？
禄果澳蒲： 这个……定义两个时间变量->赋值->转换为Double(一般Copymemory)->相减->整数部分是相差的天数,小数部分表征时间
广宗县18210496538： y = [h14].End(3).Row EXCEL VBA 代码中的END(3)括号中的3是什么意啊? - ？
禄果澳蒲： 正规的代码是y = [h14].End(xlUp).Row,即上箭头,用3效果一样
