七夕将至，又趕上七月初四我媳婦生日，研究研究表白函數/表格/VBA,網上能收到很多效果。

1.有的是通過信息内容，來條件格式，來顯示單元格顔色效果。

2.有的有圖形法，通過信息的變化畫一個曲線愛心。

本期重點

本期關鍵詞：時間延遲效果/VBA/累加符号&/無限循環/1秒鐘刷新

今天我就自己研究個表白表格，延遲效果 字體顯示，删除内部截止函數，可以無限循環表白。哈哈~~來看看效果吧~

動态效果

1.由于我們做的是一個循環的表白效果，所以我們要先準備一個可以循環的字幕，字幕内容。

2.為了能達到這個表白效果，要帶有名字，做一個信息引用。用~"桃心"&C2&"桃心"~增加效果。

3.前面的信息是通過VLOOKUP數字來引用的，所以要加一個數字前列。

滾動信息

這個本家楊超越同學還是蠻好看的~嘿嘿~

1.文件-選項-自定義功能區-開發工具-加載項（我的Excel用的是Office 2016，此處選擇就可以增加開發工具，制作宏做準備。）

2.開啟這個宏的啟用-文件-選項-信任中心-信任中心設置-宏設置-啟用宏（有的小夥伴說宏怎麼都無法制作，那是因為你這個宏被禁用了！）

開啟宏

3.建立今天重點項目，一個宏！（第一個宏是可以停止的，第二個是無限循環的，今天的課程是講的是無限循環效果。）

第一個宏：數字到10，即刻停止：

Public k As Integer

Sub Start()

k = k 1

If k > 10 Then Exit Sub

Application.OnTime Now TimeValue("0.00.01"), "Start"

[a1] = [a1] 1

End Sub

第二個宏：無限循環：

Sub Start()

Application.OnTime Now TimeValue("0.00.01"), "Start"

[a1] = [a1] 1

End Sub

4.宏的創建：

開發工具-宏-宏名（start）-創建-複制上面的宏-粘貼-保存~結束~

宏的建立

3.創建一個宏-按鈕~

1.開發工具-插入-按鈕-框一個效果出來-寫上字：請輸入完名字後，按此按鈕！

此按鈕就是執行按鈕，安完了就開始無限循環模式~

按鈕

按完按鈕你會發現這個A1的單元格開始讀秒，一秒一個數字，通過這裡的數字來VLOOKUP後面的數據，你懂得~然後你會想這個數值時無限放大的？是的無限循環的數值是無限往下讀的，怎麼停？上面不是給了你一個數到10就停止的麼~你懂了吧。

還有就是這個信息你這樣子處理，大于10怎麼辦？用mod函數啊，讀10的餘數，所得信息都是這個0-9，嘿嘿~~

讀取信息在此：=VLOOKUP(MOD(A1,10),Sheet2!B:C,2,0)

數據讀取

4.設置一個背景~

诶，你會發覺這個表白，有點醜吧，怎麼說呢，就是不夠花哨，不夠騷~

1.頁面布局-背景-加載一個圖~

背景

2.首列值，直接隐藏，不再顯示~隻顯示我們的文字區域~

5.滾動表白雄起~

保存文件，發送給哪個你喜歡的她~~去吧~

七夕将至，雄起~~(●￣(ｴ)￣●)

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部