excel做個性計算器,這個創意有意思!

Excel 鼠標 比目魚2號 2019-06-01

今天在網上學到一招鼠標懸停變色的技巧,想著用到做計算器上應該有點意思,試著做了一下,感覺還真不錯,先看效果:

excel做個性計算器,這個創意有意思!

看出特別的地方了嗎?就是鼠標移動到數字鍵上時,數字鍵自動變色,同時對應的數字顯示在顯示屏中。我們來看看如何做的。

1、計算器框架製作

框架的設置不是我們的重點,簡單說明一下,其實就是通過規劃單元格大小,設置填充色和單元格邊框來實現。其中:

1)顯示屏邊框設置:頂和左側用雙線自動色,底和右側用雙線白色,中間設置淺色豎虛線;

2)數字鍵等突出按鈕類型設置:頂和左側用雙線白色,底和右側用雙線自動色

2、鼠標懸停變色效果

要實現懸停變色,需要三步:

1)設置輔助數據通過超鏈接函數引用實現數字鍵的顯示

excel做個性計算器,這個創意有意思!

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)設置數據條件格式

excel做個性計算器,這個創意有意思!

公式為:=AND(ROW(C11)=$P$1,COLUMN(C11)=$P$2),此處公式用到P1、P2單元格輔助數據。

應用範圍為所有數字鍵和等號鍵:=$C$11:$G$17,$I$19

excel做個性計算器,這個創意有意思!

關鍵在於自定義函數的和超鏈接函數及數據條件格式的搭配使用,其實包括自定義函數,每個功能單獨用起來都很簡單,功能也有限。但一旦搭配巧妙了,就能得到意想不到的效果。

本文專為分享鼠標懸停的效果技巧,計算器具體功能實現暫未涉及,網上很多實現功能的文章,有興趣的可留言交流!

excel做個性計算器,這個創意有意思!

相關推薦

推薦中...