Question

我想在excel工作表中启动和停止两个计时器。这就是我所拥有的：

打开工作表时，会触发此模块：

Sub SetOpenTimer()

OpenTimer = Now + TimeValue("00:00:10")
Application.OnTime OpenTimer, "StartTimerShutdownForm"

End Sub

10秒后（在本例中），触发了子startimershutdownform：

Sub StartTimerShutdownForm()

UserForm1.Show

End Sub

显示用户表单，其中显示消息。在Userform的initialize子中，触发了子setformtimer：

Sub setFormTimer()

FormTimer = Now + TimeValue("00:00:10")
Application.OnTime FormTimer, "Shutdown"

End Sub

如果setformtimer中的此计时器结束，则触发子shutdown 此子关闭工作簿，但在Userform中有一个按钮供用户取消setformtimer：

Sub stopFormTimer()

Application.OnTime EarliestTime:=FormTimer, _
Procedure:="setOpenTimer", Schedule:=False

End Sub

这假设要停止setformtimer，但它不起作用。当此计时器停止时，它会重新启动打开文档时触发的计时器，因此全部重新启动，但停止计时器代码不起作用。

在stopFormTimer，setFormTimer和StartTimerShutdownForm所在的模块中，我在顶部声明了这些

Dim OpenTimer As Date
Dim FormTimer As Date

我在这里缺少什么？为什么我不能停止计时器并重新启动第一个计时器？

Answer 1

我认为问题是你在两个潜艇中有不同的proc名称。他们必须匹配。我试试：

{
    "bloggtyp": "recept",
    "rubrik": "MOROTSSOPPA",
    "gillar": 17,
    "kommentarer": 3,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    },{
        "kommentartid": "2016-12-13",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "keeo"
    },{
        "kommentartid": "2016-12-11",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "madad"
    }],
    "timestamp": "2012 - 04 - 23",
    "taggar": ["morötter", "soppa", "förrätter"],
    "tid": {
        "tillagning": 5,
        "på spisen": 30
    },
    "img": "/bilder/ < filnamn.filextension >",
    "instruktioner": "Gör sa här: Skala morötterna – med din kropp! Koka i buljong.Salta och peppra efter tycke och smak.",

    "ingredienser": [{
        "typ": "Morötter",
        "gram": 500,
        "kcal/100g": 41
    }, {
        "typ": "buljong",
        "dl": 10,
        "kcal/100g": 128
    }, {
        "typ": "salt",
        "tsk": 1,
        "kcal/100g": 0
    }, {
        "typ": "peppar",
        "tsk": 1,
        "kcal/100g": 0
    }]
}

    {
    "bloggtyp": "recept",
    "rubrik": "BARKBROED MED TOMATSALSA",
    "gillar": 0,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 10 - 20",
    "taggar": ["broed", "tomater", "såser"],
    "tid": {
        "tillagning": 20,
        "på spisen": 30
    },
    "img": "/bilder/ < filnamn.filextension >",
    "instruktioner": "Gör sa här: Blanda ihop allt. Knada. Baka i 200 grader i 30minuter eller tills de fått smarrig, fin färg.",

    "ingredienser": [{
            "typ": "rågmjöl",
            "dl": 3.5,
            "kcal/100g": 44
        }, {
            "typ": "salt",
            "tsk": 1,
            "kcal/100g": 0
        }, {
            "typ": "hemgnagt barkmjöl",
            "dl": 1.5,
            "kcal/100g": 96
        }, {
            "typ": "vatten",
            "dl": 2,
            "kcal/100g": 0
        }, {
            "typ": "tomatsalsa på burk",
            "st": 1,
            "kcal/100g": 699
        }

    ]
}
 {
    "bloggtyp": "recept",
    "rubrik": "PADTHAI",
    "gillar": 0,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 11 - 20",
    "taggar": ["thai", "mat", "gott"],
    "tid": {
        "tillagning": 5,
        "på spisen": 10
    },
    "img": "/bilder/ < filnamn.filextension >",
    "instruktioner": "Gör så här: sätt värmen på 300grader och blanda alla ingredienser",

    "ingredienser": [{
            "typ": "toa nga",
            "dl": 5,
            "kcal/100g": 144
        }, {
            "typ": "salt",
            "tsk": 4,
            "kcal/100g": 0
        }, {
            "typ": "thai sås",
            "dl": 2,
            "kcal/100g": 96
        }, {
            "typ": "vatten",
            "dl": 2,
            "kcal/100g": 0
        }, {
            "typ": "tomatsalsa på burk",
            "st": 1,
            "kcal/100g": 699
        }

    ]
}
  {
    "bloggtyp": "recept",
    "rubrik": "kyckling panang",
    "gillar": 0,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 9 - 20",
    "taggar": ["thai", "mat", "bra"],
    "tid": {
        "tillagning": 6,
        "på spisen": 11
    },
    "img": "/bilder/ < filnamn.filextension >",
    "instruktioner": "Gör så här: sätt värmen på 300grader och blanda alla ingredienser",

    "ingredienser": [{
            "typ": "toa nga",
            "dl": 5,
            "kcal/100g": 144
        }, {
            "typ": "salt",
            "tsk": 4,
            "kcal/100g": 0
        }, {
            "typ": "thai sås",
            "dl": 2,
            "kcal/100g": 96
        }

    ]
}
 {
    "bloggtyp": "recept",
    "rubrik": "tom yam soup",
    "gillar": 0,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 8 - 20",
    "taggar": ["thai", "mat", "dåligt"],
    "tid": {
        "tillagning": 6,
        "på spisen": 12
    },
    "img": "/bilder/ < filnamn.filextension >",
    "instruktioner": "Gör så här: sätt värmen på 300grader och blanda alla ingredienser",

    "ingredienser": [{
            "typ": "böngroddar",
            "dl": 5,
            "kcal/100g": 198
        }, {
            "typ": "salt",
            "tsk": 4,
            "kcal/100g": 12
        }, {
            "typ": "thai sås",
            "dl": 2,
            "kcal/100g": 444
        }

    ]
}
 {
    "bloggtyp": "mina böcker",
    "rubrik": "självinsikt",
    "gillar": 0,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 8 - 20",
    "taggar": ["raw", "veggo", "varmrätter"],
    "img": "/bilder/ < filnamn.filextension >",
    "om boken": "denna är jättebra bok, kul"


}
 {
    "bloggtyp": "övrigt",
    "rubrik": "deprimerad",
    "gillar": 33,
    "kommentarer": 1,
    "kommentar": [{
        "kommentartid": "2016-12-12",
        "rubrik": "hej",
        "textkommentar": "jättefinblogg",
        "nickname": "liam"
    }],
    "timestamp": "2016 - 7 - 20",
    "taggar": ["knyppling", "prozac", "hjälp"],
    "img": [{
        "dir": "/bilder/ < filnamn.filextension >"
    }, {
        "dir": "/bilder/ < filnamn2.filextension >"
    }],
    "om boken": "denna är jättebra bok, kul"
}

vba start stop timers？

1 个答案: