如何使用VBA中的命令按钮以编程方式在现有用户窗体上创建新复选框？

Question

我试过了

Set chkBox = UserForm1.Controls.Add("Forms.Checkbox.i", "Checkbox" & i) '.Object.Caption = Range("D3").Value 我甚至试过

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
    Left:=51.75, Top:=183, Width:=120, Height:=19.5)
    .Name = "NewCheckBox"
    .Object.Caption = Range("D3").Value

但是这给了我一个复选框，但不是我创建的用户窗体，而是我正在使用的活动表。

任何建议

Answer 1

在我写的最原始的形式中，这添加了一个复选框（位于UserForm1的左上角）

with gs(d) as (
    select d::date
    from generate_series (
        (select min("createdOn") from "mstRecord"),
        (select max("repairClose") from "mstRecord"),
        '1 day'
    ) gs (d)
)
select (
    select count(*)
    from gs
    where
        "createdOn" <= d and "repairClose" > d
        and
        extrat(dow from d) <> 0
) as "noOfDays"
from "mstRecord"
where "repairClose" is not null

你会想要玩定位等。