小编Jam*_*ker的帖子

我将复选框拉入电子表格,用于选择某些订单项以获得最终费用.虽然有一些不需要的复选框被拉入,但总共大约5个左右.我可以使用宏来获取这些不需要的复选框的特定单元格.由于我的数据更改,这些不需要的复选框并不总是在同一个地方,因此我将不得不一次删除它们,这不应该是一个问题,除了我不知道从中删除复选框的代码活跃的细胞.我需要一个代码来删除活动单元格或选定单元格中的复选框.我已经包含了我在下面尝试过的一些编码.第一部分是让我到正确的单元格中删除复选框.第二部分是两个不同的代码,我试图删除复选框,但都没有工作.我很感激你的意见.

'To delete unwanted checkboxes
    Sheets("Quote Sheet").Select
    Range("B9").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, -1).Select

    ActiveSheet.Shapes.Range(Array("Check Box 456")).Select
    Selection.Delete
    Selection.Cut

    ActiveCell.CheckBoxes.Delete
    Selection.FormatConditions.Delete

我有一张包含很多宏的成本单.其中一个宏是在工作表底部添加新的订单项.我想输入一个If代码,说如果我添加的项目以文本"Custom"开头,后面我希望它找到该单元格并选择它.下面是我正在尝试的代码但它调试类型不匹配并突出显示Custom = Range("B:B").值行.任何帮助深表感谢.

 Dim Custom As String
    Custom = Range("B:B").Value
    If Custom Like "Custom *" Then
    Cells.Find(What:="Custom ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
    ActiveCell.FormulaR1C1 = ("Test")
    End If