网友帮做的VBA程序，最运行需要半小时，请网友帮看看。

LIUZHU

增加字体颜色

LIUZHU

在代码的末尾补充了增加颜色的部分

蜀山游侠

LIUZHU 发表于 2023-6-25 18:32
分工表是有颜色，而且是一个单元格中的文字，有不同的颜色。这个颜色起到的作用是什么？

主要是字号大小，上面的科目字号大些，是12号字，下面的人名，如果是两个字的是10号是紫色，如果是三个字的就是9号字蓝色。

蜀山游侠

LIUZHU 发表于 2023-6-25 18:32
分工表是有颜色，而且是一个单元格中的文字，有不同的颜色。这个颜色起到的作用是什么？

主要是字号大小，上面的科目字号大些，是12号字，下面的人名，如果是两个字的是10号是紫色，如果是三个字的就是9号字蓝色。

LIUZHU

蜀山游侠 发表于 2023-6-25 19:30
主要是字号大小，上面的科目字号大些，是12号字，下面的人名，如果是两个字的是10号是紫色，如果是三个字 ...

这个当然是可以设置的，加一个判断条件就可以了

LIUZHU

蜀山游侠 发表于 2023-6-25 19:30
主要是字号大小，上面的科目字号大些，是12号字，下面的人名，如果是两个字的是10号是紫色，如果是三个字 ...

如果名字是4个字，怎么处理呢？

蜀山游侠

LIUZHU 发表于 2023-6-26 08:38
如果名字是4个字，怎么处理呢？

非常非常感谢大神，学校暂时没有四个字的，有颜色就行，就用你上页那个代码就可以了。

everbest2015

        dictt(brr(i, 1)) = Array(brr(i, 2), brr(i, 3), brr(i, 4), brr(i, 5), brr(i, 6), brr(i, 7), brr(i, 8), brr(i, 9), brr(i, 10), brr(i, 11), brr(i, 12), brr(i, 13), brr(i, 14), brr(i, 15), brr(i, 16), brr(i, 17), brr(i, 18), brr(i, 19), brr(i, 20), brr(i, 21), brr(i, 22), brr(i, 23), brr(i, 24), brr(i, 25), brr(i, 26), brr(i, 27), brr(i, 28), brr(i, 29), brr(i, 30), brr(i, 31), brr(i, 32), brr(i, 33), brr(i, 34), brr(i, 35), brr(i, 36), brr(i, 37), brr(i, 38), brr(i, 39), brr(i, 40), brr(i, 41), brr(i, 42), brr(i, 43), brr(i, 44), brr(i, 45), brr(i, 46), brr(i, 47), brr(i, 48), brr(i, 49), brr(i, 50), brr(i, 51), brr(i, 52), brr(i, 53), brr(i, 54))  乖乖隆地动啊   这哥们是个狠人儿啊