小编Ton*_*nyP的帖子

我试图基于a命名一个范围.然后将该范围定义为我的变量,这样我就可以将变量输入到另一个函数中.当我运行代码时,我得到一个类型不匹配错误.

Sub Faked()
Dim r As Range
Cells.Find(What:="EE status", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    Range(Selection, Selection.End(xlDown)).Name = "Win"
Set r = ("Win")


End Sub

我正在尝试创建一个可点击的切换按钮,如果它当前是未隐藏的,则会隐藏一年的数据,如果隐藏则取消隐藏它.我知道这种语法不正确,但我不知道如何使其工作.任何帮助,将不胜感激.

Sub Hide_2012()
Dim Yr2012 As Range
    Set Yr2012 = ThisWorkbook.Worksheets("Open Jobs Calculations").Range("AI:AT")

If Yr2012.Visible = False Then
     Yr2012.Visible = True
Else If Yr2012.Visible = True Then
     Yr2012.Visible = False
End If

我有一列数据(C),其中包含许多包含日期的单元格.我正在尝试创建一个宏来检查每个单元格是否包含日期,如果确实如此,则按月推进日期.我有代码从这里提前一个月推进日期http://excel.tips.net/T002180_Automatically_Advancing_by_a_Month.html并且它工作正常但我不知道如何用动态范围替换范围来评估C列中的所有单元格如果可能的话,我也想消除循环的需要.这是我到目前为止所拥有的.

Sub IncreaseMonth()
    Dim dDate As Date
    Dim NumberofTasks As Integer
        NumberofTasks = ThisWorkbook.Worksheets("Dashboard").Range("Number_of_Tasks")
    Dim x As Integer

    For x = 1 To NumberofTasks
        dDate = Range("C30").Value
        Range("C30").Value = _
            DateSerial(Year(dDate), _
            Month(dDate) + 1, Day(dDate))
    Next x
End Sub