excel做个性计算器(excel怎么做计算器)

今天在网上学到一招鼠标悬停变色的技巧，想着用到做计算器上应该有点意思，试着做了一下，感觉还真不错，先看效果：

看出特别的地方了吗？就是鼠标移动到数字键上时，数字键自动变色，同时对应的数字显示在显示屏中。我们来看看如何做的。

1、计算器框架制作

框架的设置不是我们的重点，简单说明一下，其实就是通过规划单元格大小，设置填充色和单元格边框来实现。其中：

1）显示屏边框设置：顶和左侧用双线自动色，底和右侧用双线白色，中间设置浅色竖虚线；

2）数字键等突出按钮类型设置：顶和左侧用双线白色，底和右侧用双线自动色

2、鼠标悬停变色效果

要实现悬停变色，需要三步：

1）设置辅助数据通过超链接函数引用实现数字键的显示

R列至X列为提前准备好的数据，通过在计算器的数字键按钮单元格输入公式：

数字“1”位于C11单元格，公式：=IFERROR(HYPERLINK(hss(C11)),S11)，复制后粘贴到每个数字键单元格，中途会提示引用自身，不用管。

其中hss（）为自定义函数，接下来说明。

2）打开VBA编辑器插入模块，编辑自定义函数hss()

Public Function hss(sn As Range) Range("p1") = sn.Row Range("p2") = sn.Column If sn.Value <> "=" Then Range("K6") = sn.Value Else Range("k6") = "" End If End Function

其中Range("p1") = sn.Row、Range("p2") = sn.Column两句代码分别给P1、p2单元格赋值，作为第二个辅助数据区。

3）设置数据条件格式

公式为：=AND(ROW(C11)=$P$1,COLUMN(C11)=$P$2)，此处公式用到P1、P2单元格辅助数据。

应用范围为所有数字键和等号键：=$C$11:$G$17,$I$19

关键在于自定义函数的和超链接函数及数据条件格式的搭配使用，其实包括自定义函数，每个功能单独用起来都很简单，功能也有限。但一旦搭配巧妙了，就能得到意想不到的效果。

本文专为分享鼠标悬停的效果技巧，计算器具体功能实现暂未涉及，网上很多实现功能的文章，有兴趣的可留言交流！