求助，根据sheet1中的下拉框，自动标注sheet2的颜色

梅香埋影

如图，我想根据台账表中的下拉菜单选择后，把车位表中的车位号自动变色成和台账表中相应的销售状态颜色一样。、
如图，如果车位1的状态是认购，那么车位图中的1变成黄色，如果车位1变成意向，那车位表中的1就要变成蓝色。

cao47112

我没有加按钮，在宏里面直接运行“状态刷新”就可以更新了，是全局刷新一下，试试

cao47112

cao47112 发表于 2023-3-3 16:27
我没有加按钮，在宏里面直接运行“状态刷新”就可以更新了，是全局刷新一下，试试

对了，你的车位图里面格式不统一，尤其是开始的01-16车位，前面不规则的加了各种状态的引号（包括子母车位），要清除掉才可以。
然后我测试时候把楼栋的底色和左上角的“车位图“”三个字一起清除掉了，需要你补充上。
新人代码写的比较长（又不是不能用.jpg）

梅香埋影

cao47112 发表于 2023-3-3 16:54
对了，你的车位图里面格式不统一，尤其是开始的01-16车位，前面不规则的加了各种状态的引号（包括子母车 ...

感谢大神帮忙，还有请问下那个微型车位的选中好像不变色？

cao47112

梅香埋影 发表于 2023-3-7 10:16
感谢大神帮忙，还有请问下那个微型车位的选中好像不变色？

微型的落了，你在
If InStr(arr(x, 6), "子母") Then arr(x, 8) = arr(x, 6) & "-1"
这句之前加一行
arr(x, 6) = Replace(arr(x, 6), "(微型)", "")
就可以了，忘记替换掉 (微型) 这个字段了。

梅香埋影

cao47112 发表于 2023-3-7 10:41
微型的落了，你在
If InStr(arr(x, 6), "子母") Then arr(x, 8) = arr(x, 6) & "-1"
这句之前加一行

太感谢了，虽然我还不大懂这些代码的意思