Question

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

例如：我在excel中设置了一个按钮，有个单元格写有“领取任务”，当我按下按钮后，单元格内的字体会变为“已领取”...Excel能否做到这样？

Answer 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,"良","优")))

Answer 2

看看这个答案满意不

相关代码

/**

* CommandButton1_Click Macro

*/

function CommandButton1_Click()

{

Range("A1").Select();

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

}

Answer 3

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

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

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

Answer 4

能做到

追问

这个要怎么做啊？能说说吗？谢谢了

追答

在按钮编辑模式下右键添加宏,将上面的代码弄进去.