一系列 Microsoft 試算表軟體,具有可用來對資料進行分析、製圖及通訊的工具。
嗨齊維,
我是蜜雪兒,我很樂意説明您解決您的疑問或疑慮。
請複製此代碼。
2)右鍵按兩下感興趣的工作表選項卡。
3)選擇“查看代碼”
4) 將代碼粘貼到出現的視窗中。
5) 將檔案另存為啟用了宏的 .xlsm 檔。
6) 根據需要進行更改
私有子Worksheet_SelectionChange(按值目標作為範圍)
Dim rngVR As Range
調暗 RngC 作為範圍
Set rngVR = ActiveWindow.VisibleRange
應用程式。螢幕更新 = False
Range(“E:F”).Font.Name = “Arial” '或者您喜歡的任何字體
對於每個 rngC In Intersect(rngVR, Range(“E:E”))
rngC.Resize(1, 2).Font.Name = rngC.值
下一個 rngC
應用程式。螢幕更新 = 真
結束子
注意:此回應已自動翻譯。因此,可能存在語法錯誤或奇怪的表達式。
我希望這些資訊對您有所説明。如果您有任何疑問,請讓我知道,我將非常樂意為您提供進一步的説明。
如果答案有説明,請按兩下接受為答案。謝謝你,享受你的一天。:-)
此致敬意
蜜雪兒
這回覆已被自動翻譯,因此,可能出現文法錯誤或表達不當。