从工作表“目录”中A列开始逐行复制内容到工作表模板中指定位置并新建工作表

jxwfz740724

liulang0808 发表于 2019-9-22 08:05
Sheets(Sheets.Count).Name = Sheets("模板").[h8]
修改
Sheets(Sheets.Count).Name =format( Sheets.c ...

大佬，如何在增加按钮旁也就是B8处，增加一个计数功能，按一下，数字加一。这样和B7对应，可以检查是不是少按了或者多按了，谢谢大佬。用Range("B8") = Range("B8") + 1   这个加在按钮2中可行吗？

liulang0808

jxwfz740724 发表于 2019-9-22 10:16
大佬，如何在增加按钮旁也就是B8处，增加一个计数功能，按一下，数字加一。这样和B7对应，可以检查是不是 ...

请参考之前的代码部分

jxwfz740724

liulang0808 发表于 2019-9-22 10:28
请参考之前的代码部分

    If Sheets.Count = 3 Then
        [b7] = 0
    End If
    j = [b7] + 1
把B7改为B8就可以了是吗？我试试看。但是这个J代表什么呢？还是说B7=B7+1就可以

liulang0808

jxwfz740724 发表于 2019-9-22 10:36
If Sheets.Count = 3 Then
         = 0
    End If

是的，用来存序号，不被覆盖就可以了，每次点击按钮看看变化就知道了

jxwfz740724

liulang0808 发表于 2019-9-22 10:44
是的，用来存序号，不被覆盖就可以了，每次点击按钮看看变化就知道了

谢谢大佬，

jxwfz740724

liulang0808 发表于 2019-9-22 10:44
是的，用来存序号，不被覆盖就可以了，每次点击按钮看看变化就知道了

如果按钮按得次数规定在一个范围内（比如1-99），能实现吗？如何加代码。

liulang0808

jxwfz740724 发表于 2019-9-22 11:01
如果按钮按得次数规定在一个范围内（比如1-99），能实现吗？如何加代码。

对单元格里的值进行判断即可，增加if语句。楼主可以自己参考着处理的

jxwfz740724

liulang0808 发表于 2019-9-22 11:16
对单元格里的值进行判断即可，增加if语句。楼主可以自己参考着处理的

请问ifB7》100，提示超出指定范围，怎么做？

liulang0808

jxwfz740724 发表于 2019-9-22 14:18
请问ifB7》100，提示超出指定范围，怎么做？

ifB7》100
这个符号就不对，上传楼主的修改附件看看吧

jxwfz740724

我想在C7处按照“目录”A列取值，此模板A列为50，此处显示50，然后，B7,B8处设置一个条件，超出此值，弹出数据无效，或者其他什么可以提醒我的提示或动作。