Excel 函数应用(输入数字，变更成其它内容)

lkk0063 · 发表于 2019-7-2 13:28

本帖最后由 lkk0063 于 2019-7-5 12:43 编辑

当L7 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"
当L8 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"
当L9 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"......... 以此类推直到P65536栏位, 请问如何变更, 谢谢

高 · 发表于 2019-7-2 13:28

输入1变成Go，无填充颜色（即使原来有填充颜色也变成无填充）；
输入2变成 No Go，填充颜色为红色
如果对颜色有别的要求，自己再改一下。

砂海 · 发表于 2019-7-3 16:39

这样的问题找度娘吧.

lkk0063 · 发表于 2019-7-4 12:45

砂海发表于 2019-7-3 16:39
这样的问题找度娘吧.

好的，我去找看看

FRC · 发表于 2019-7-4 14:21

在哪里输出GO 和NO GO 呢？

lkk0063 · 发表于 2019-7-5 12:46

FRC 发表于 2019-7-4 14:21
在哪里输出GO 和NO GO 呢？

从 L7 ~ L65536 任何一个栏位中
当L7 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"
当L8 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"
当L9 栏位输入 1 时会自动出现 "Go", 输入 2 时会自动出现 "No Go"

lkk0063 · 发表于 2019-7-5 16:46

高发表于 2019-7-5 16:09
输入1变成Go，无填充颜色（即使原来有填充颜色也变成无填充）；
输入2变成 No Go，填充颜色为红色
如果对 ...

谢谢帮忙,已可以使用
但是以下code 有点看不明白，可否说明一下, thanks

If Target.Count > 1 Or Target.Column <> 16 Then Exit Sub

复制代码

这是定义只执行在 P7~P65536 栏位吗?

If Target.Row > 6 And Target.Row < 65537 Then

复制代码

高 · 发表于 2019-7-5 17:03

lkk0063 发表于 2019-7-5 16:46
谢谢帮忙,已可以使用
但是以下code 有点看不明白，可否说明一下, thanks

1、如果内容发生改变的单元格数量大于1或者列号不等于16就（退出程序）

2、如果内容发生改变的单元格的行号大于6并且小于65537就

lkk0063 · 发表于 2019-7-9 11:29

高发表于 2019-7-5 17:03
1、如果内容发生改变的单元格数量大于1或者列号不等于16就（退出程序）2、如果内容发生改变的单元格的行 ...

Hello,谢谢

		自动登录	找回密码
密码			注册

Excel 函数应用(输入数字，变更成其它内容)

最佳答案