如何根据条件双击是否增减一个固定模板

c1988138

想通过VBA功能，实现内嵌一个固定模板。这个模板在表格里是看不到的，只有双击决定是否添加/删除。
需求：①希望通过双击A列为“清单”单元格，提示是否新增一个固定模板，点击是，就可以新增固定模板，固定模板为[5-15行]，其中B列固定模板序号为根据清单行的序号，增加后缀.，自动往后生成编号（可以扩展，如1.11/1.12/1.13/……等等）。

②定额行可以快速插入删减行，最好序号后缀.后的序号可以自动更新重新生成，如1.1/1.2/1.3，删除1.2行，则1.3行需要自动改为1.2。
③如果清单下面已经增加了一个固定模板，双击清单，则可以提示是否删除该固定模板。删除范围为该清单下面到下条清单中间所有的行。因为做的过程中可能会存在增减定额行。

只要A列单元格为清单，则可以双击显示确认是否增加/删除固定模板，其他位置则双击无效。


感觉这个功能很实用，但不会做，附件已经上传了，希望得到大家的帮助。

boyayes

好吧，给你改了一下，不要双击了，改为右键菜单了。

当A列的单元格值为"清单"或"定额"时，会启用自定义的右键菜单。

3190496160

就是一个非常繁琐的力气活而已，没有什么技术难度，先留个记号吧

3190496160

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Row > 4 And T.Column = 1 Then
    If T.Count > 1 Then End
    If InStr(T.Value, "清单") = 0 Then End
    Cancel = True
    If T.Offset(1) = "计价" Then
        w = MsgBox("清单已经存在，是否删除下面的清单？", vbYesNo)
        If w = vbNo Then End
        r = Cells(Rows.Count, 1).End(xlUp).Row
        For i = T.Row + 1 To r
            If InStr(Cells(i, 1), "清单") > 0 Then
                js = i
                Exit For
            End If
        Next i
        If js = "" Then
            js = r
        Else
            js = js - 1
        End If
        Rows(T.Row + 1 & ":" & js).Delete
    Else
        w = MsgBox("是否新增一个固定模板？", vbYesNo)
        If w = vbNo Then End
        Rows("5:15").Select
        Selection.Copy
        Rows(T.Row + 1).Select
        Selection.Insert Shift:=xlDown
        hh = T.Offset(, 1).Value
        For i = T.Row + 2 To T.Row + 11
            m = m + 1
            Cells(i, 2) = hh & "." & m
        Next i
   End If
End If
End Sub

3190496160

序号问题没法解决，仅供参考
固定模板.rar (20.72 KB, 下载次数: 14)

2024-1-19 13:50 上传

点击文件名下载附件

半百

请测试。。。。

c1988138

半百 发表于 2024-1-19 14:32
请测试。。。。

是希望做成内嵌的固定模板，不要从第1个模板里复制，开始的时候，表里是没有一个模板，清单整理完成，才开始固定模板部分的工作，所以固定模板希望做成内嵌的。
看下能不能在帮忙调整下。

c1988138

3190496160 发表于 2024-1-19 13:50
序号问题没法解决，仅供参考

是内嵌的，4楼的大哥是可以自动变化的，您看下可以参照下调整下不。

c1988138

3190496160 发表于 2024-1-19 13:50
序号问题没法解决，仅供参考

我发现是要双击模板里的序号，输入回车键，会自动变过来。但不能直接增加模板直接变化。

boyayes

请查收。

在VBA工程的Sheet1里有代码、
在VBA工程的模块1里有代码、
在VBA工程的ThisWorkbook里有代码.

半百

c1988138 发表于 2024-1-19 15:01
是希望做成内嵌的固定模板，不要从第1个模板里复制，开始的时候，表里是没有一个模板，清单整理完成，才 ...

不好意思，我不知道怎么“内嵌”模板，只能将其设置在另一表中（隐藏了），用时直接复制。