增加“是”“否”确认框

hmy16888

我遇到个问题，当弹出输入删除行数字时，我发现自已点错了，哈哈

点错了又没办法取消，现在只能硬删除才能结束运行。我想增加一个YES or NO的确认对话框，选“是”就继续进行删除，选“否”就取消这次误操作。

请大佬们提示一下应该怎么写？初学的我经常问傻瓜问题，哈哈，谢谢！

function DEL指定行及以下() {
    targetRange = ActiveSheet.UsedRange
    let rowCount = targetRange.Rows.Count
    let targetRow = 1

    while (true) {        
        targetRow = parseInt(InputBox("删除该行及以下所有行", "删除行"))
        if (targetRow!= 1 && targetRow <= rowCount)
            break
    }
    rowCount = rowCount - targetRow + 1
    targetRange.Offset(targetRow - 1, 0).Resize(rowCount, targetRange.Columns.Count).Delete()
}

孙森峰

请参考这个
//function OrderDelete() {
//        删除订单/发货目录和明细
        if(ActiveSheet.Range("G3").Value2 == OrderEntryItemsStr &&
                ActiveSheet.Name != OrderEntryStr) {
                var msg = "确定要删除订单吗，删除后将不可恢复！";
                var nStyle = jsOKCancel + jsExclamation + jsDefaultButton2;
                var tittle = "删除";
                var ret = MsgBox(msg,nStyle,tittle);
                if (ret == 1) {
                        let COrder = createOrder();
                        COrder.delete();
                        Application.DisplayAlerts = false;
                        ActiveSheet.Delete();
                        Application.DisplayAlerts = true;
                }
        }else if(ActiveSheet.Range("G3").Value2 == ShipmentItemsStr &&
                        ActiveSheet.Name != ShipmentEntryStr) {
                        var msg = "确定要删除发货单吗，删除后将不可恢复！";
                        var nStyle = jsOKCancel + jsExclamation + jsDefaultButton2;
                        var tittle = "删除";
                        var ret = MsgBox(msg,nStyle,tittle);
                        if (ret == 1) {
                                let CShipment = createShipment();
                                CShipment.delete();
                                Application.DisplayAlerts = false;
                                ActiveSheet.Delete();
                                Application.DisplayAlerts = true;
                        }
        } else {
                        const msg = "基础信息工作表不能删除！";
                        var nStyle = 0;               
                        const tittle = "删除";
                        MsgBox(msg,nStyle,tittle);               
               
        }
}

hmy16888

孙森峰 发表于 2024-10-4 20:14
请参考这个
//function OrderDelete() {
//        删除订单/发货目录和明细

好，谢谢，我试试，但估计我还是不会，哈哈哈

hmy16888

请问有好心人指导一下么？帮我修改一下代码，2楼的代码我看得不是很懂，试过不行，谢谢！

Again123456

hmy16888 发表于 2024-10-5 20:30
请问有好心人指导一下么？帮我修改一下代码，2楼的代码我看得不是很懂，试过不行，谢谢！

function test(){
        let row = InputBox("删除行","请输入行数，将从该行开始删除数据")
        if(row && row%1===0)
             ActiveSheet.UsedRange.Rows(`${row}:${ActiveSheet.UsedRange.Rows.Count}`).Delete()
}

hmy16888

Again123456 发表于 2024-10-8 08:35
function test(){
        let row = InputBox("删除行","请输入行数，将从该行开始删除数据")
        ...

感谢大佬，可以了