- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
回復 1# s7659109
你想要的功能在 Excel一般區(即單純透過儲存格輸入資料或公式) 是很難做到的,
因為 Excel 的儲存格內容在 "任一時間點上" 除非使用者或是程式(包含公式中的日期時間或是亂數函數等,不同時點資料可能會不同者)有做了變更,
不然是不會自己變動的,
即便是內容為公式亦或是樞紐分析表也是逃脫不出此點.
所以既然你的需求是使用者輸入資料後,
儲存格的內容還要有所變動,
那就只能透過程式囉,
現依你的需求實作如下 :- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target
- If .Column = 2 Then
- If .Offset(, -1) = "" And .Value <> "" Then
- Application.EnableEvents = False
- .Font.ColorIndex = -4105
- .Value = "統一匯款-" & .Value
- .Characters(1, 5).Font.ColorIndex = 3
- Application.EnableEvents = True
- End If
- End If
- End With
- End Sub
複製代碼 |
|