变色

xing_chen

fanyoulin 发表于 2023-7-1 00:32
这想法不合适，因为按钮通常是可以重复执行的，按钮不论是执行计算还是合并数据，总是要定期执行的，你这 ...

抱歉！老师！只有1朵花了，就是海底捞吧

fanyoulin

xing_chen 发表于 2023-7-1 09:07
谢谢老师的指导！早上好！针对老师的问题，我是这样想的：
1.我每次在运行本工作簿的全部代码后，再一次 ...

没有这个必要，正常来说，不能重复运行的代码是有问题的。所以我建议你还是从改善代码的角度入手，而不是去设定颜色；

fanyoulin

xing_chen 发表于 2023-7-1 09:07
谢谢老师的指导！早上好！针对老师的问题，我是这样想的：
1.我每次在运行本工作簿的全部代码后，再一次 ...

你要分析一下你的数据结构，数据结构字面看起来很高大上，其实就是指的数据整齐规范，有下面几个特点：
1、源数据要统一放在一个独立的工作表中，除源数据之外，该工作表不包含任何其它数据；
     源数据就相当于是一个数据库；
2、源数据不需要任何格式，连表格线也不需要。只需设定合适的字体和字号；
     源数据中间不要有空行，不能有合并单元格，不能省略重复的内容（这点切记）；
3、任何根据源数据生成的统计数据，可以分类别存放在不同的工作表中，在统计时按类别分别设定不同的统计条件。因为源数据只有一份，所以根据源数据得到的任何其它统计数据也就不会重复；
4、上述对源数据的要求是数据规范的基本要求，在规范的基础上，就没有你担忧的重复统计问题；

xing_chen

fanyoulin 发表于 2023-7-1 17:26
你要分析一下你的数据结构，数据结构字面看起来很高大上，其实就是指的数据整齐规范，有下面几个特点：
...

谢谢老师的回复！
源数据我现在是做到了放在1个表中，且原样。现在的问题是：比如数据分类汇总，我会至少设置2个代码，比如列序的重排，文本格式转换成数值格式，分类汇总，重排版等等，这样话就1个分类汇总，我可能会有5,6个模块。这样话，就会有暂停后的忘记步骤。

fanyoulin

xing_chen 发表于 2023-7-1 18:24
谢谢老师的回复！
源数据我现在是做到了放在1个表中，且原样。现在的问题是：比如数据分类汇总，我会至 ...

如果最终的统计结果是一个，那代码最好全部放在一个模块中，没必要分割成若干。
如果代码过程很长很复杂，可以把代码分成几个子模块，但最终还是要把各个子模块统一在一个总模块中，其作用就类似使用了多个按钮。这里还有个技术性的原因，一个模块最大的代码长度是8k，如果代码很长，放一个模块会出错，这个时候就要考虑分割的问题了。

xing_chen

fanyoulin 发表于 2023-7-1 19:16
如果最终的统计结果是一个，那代码最好全部放在一个模块中，没必要分割成若干。
如果代码过程很长很复杂 ...

把代码分成几个子模块，但最终还是要把各个子模块统一在一个总模块中？老师那里有此案列，发个链接。我看看学习

xing_chen

fanyoulin 发表于 2023-7-1 19:16
如果最终的统计结果是一个，那代码最好全部放在一个模块中，没必要分割成若干。
如果代码过程很长很复杂 ...

老师！批量画图填色，再批量换色
https://club.excelhome.net/thread-1666763-1-1.html
(出处: ExcelHome技术论坛)，我在这里发了个请求。你可以帮忙看看吗？谢谢

purpledragoon

以前做的一个按钮二个显示，你看下合用的话，参照自己的调整下！
Private Sub CommandButton1_Click()      '隐藏显示当日数据
    If CommandButton1.Caption = "隐藏当日数据" Then
        Range("26:40").EntireRow.Hidden = True
        CommandButton1.Caption = "显示当日数据"
        CommandButton1.BackColor = RGB(7, 226, 249)
    Else
        Cells.EntireRow.Hidden = False
        CommandButton1.Caption = "隐藏当日数据"
        CommandButton1.BackColor = RGB(128, 255, 5)
    End If
End Sub

xing_chen

purpledragoon 发表于 2023-7-1 21:21
以前做的一个按钮二个显示，你看下合用的话，参照自己的调整下！
Private Sub CommandButton1_Click()     ...

谢谢老师！有附件可以上传吗？

purpledragoon

想学习，就要有着多动手尝试，多操作的心态，这其实很简单的，我代码都发了。