如何在Excel中设置个按钮,一按就可以改变单元格里的内容?

2024-11-24 05:46:15
推荐回答(4个)
回答1:

比如前一单元格是“1”时,后一单元格显示的是“40”,而前一单元格显示“2”时,后一单元格显示的是“40/2”。
这个可以用IF函数来解决。

假设数据是在A1单元格,要在B1单元格得出A1单元格变化时的结果,则可以在B1单元格写入公式
=IF(A1=1,"40",IF(A1=2,"40/2",""))

=IF(A1=1,40,IF(A1=2,"40/2",))&""

注:
一、IF函数的定义
执行真假值判断,根据逻辑计算的真假值,返回不同结果。
可以使用函数 IF 对数值和公式进行条件检测。
语法
IF(logical_test,value_if_true,value_if_false)

Logical_test 表示计算结果为 TRUE 或 FALSE 的任意值或表达式。例如,A10=100 就是一个逻辑表达式,如果单元格 A10 中的值等于 100,表达式即为 TRUE,否则为FALSE。本参数可使用任何比较运算符。

Value_if_true logical_test 为 TRUE 时返回的值。例如,如果本参数为文本字符串“预算内”而且 logical_test 参数值为 TRUE,则 IF 函数将显示文本“预算内”。如果logical_test 为 TRUE 而 value_if_true 为空,则本参数返回 0(零)。如果要显示TRUE,则请为本参数使用逻辑值 TRUE。Value_if_true 也可以是其他公式。

Value_if_false logical_test 为 FALSE 时返回的值。例如,如果本参数为文本字符串“超出预算”而且 logical_test 参数值为 FALSE,则 IF 函数将显示文本“超出预算”。如果 logical_test 为 FALSE 且忽略了 Value_if_false(即 value_if_true 后没有逗号),则会返回逻辑值 FALSE。如果 logical_test 为 FALSE 且 Value_if_false 为空(即value_if_true 后有逗号,并紧跟着右括号),则本参数返回 0(零)。Value_if_false 也可以是其他公式。
说明
函数 IF 可以嵌套七层,用 value_if_false 及 value_if_true 参数可以构造复杂的检测条件。请参阅下面最后一个示例。
在计算参数 value_if_true 和 value_if_false 后,函数 IF 返回相应语句执行后的返回值。
如果函数 IF 的参数包含数组,则在执行 IF 语句时,数组中的每一个元素都将计算。
Microsoft Excel 还提供了其他一些函数,可依据条件来分析数据。例如,如果要计算单元格区域中某个文本字符串或数字出现的次数,则可使用 COUNTIF 工作表函数。如果要根据单元格区域中的某一文本字符串或数字求和,则可使用 SUMIF 工作表函数。请了解关于根据条件计算值。

二、IF函数的用法
=IF(条件,条件成立的值,条件不成时的值)
假设A1单元格内容为空时,B1单元格返回“没有值”,如果A1单元格有任何内容时B1单元格返回“有值”。那么可以在B1单元格写入公式:
=IF(A1="","没有值","有值")

三、以两个IF条件为例
=IF(条件1,条件1成立时的值,IF(条件2,条件2成立时的值,两个条件都不成时要返回的值))
比如
假设A1单元格内容为男时要在B1单元格得出“60岁退休”,A1单元格内容为“女”时B1单元格得出“55岁退体”,A1单元格为空或其他的内容时B1单元格为空值,则B1单元格的公式可以写成:
=IF(A1="男","60岁退休",IF(A1="女","55岁退体",""))

四、以三个IF条件为例
=IF(条件1,条件1成立时的值,IF(条件2,条件2成立时的值,IF(条件3,条件3成立时的值,以上条件都不成时要返回的值)))
比如
如果A1单元格的数值小于60分,则B1单元格返回值为“不及格”,如果A1单元格值为小于70分,则B1单元格值为“及格”,如果A1单元格的值为小于90分,则B1单元格返回值为“良”,如果A1单元格的值在80分(含 80)以上,则B1单元格值为“优”。则B1单元格公式可以写成:
=IF(A1<60,"不及格",IF(A1<70,"及格",IF(A1<90,"良","优")))

回答2:

看看这个答案满意不

相关代码

/**

* CommandButton1_Click Macro

*/

function CommandButton1_Click()

{

Range("A1").Select();

Selection.Formula = "你已领取!";

}

回答3:

1 以下代码复制到代码框,就能如你所愿

Sub 更换文本()
'更改文本为 已领取
Selection = "已领取"
'更改颜色为红色,如果不需要以下一行代码可删除
Selection.Font.ColorIndex = 3
End Sub

2 再把按钮跟这个联上就好了

回答4:

能做到