返回列表 上一主題 發帖

[發問] 如何在輸入完一段字後，在最前面加入統一匯款字樣

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-24 11:27 | 只看該作者

[發問] 如何在輸入完一段字後，在最前面加入統一匯款字樣

當摘要KEYIN一段字後，跳離原儲存格，
且前方貨號欄為空白時，則在這一段字最前方統一加上
統一匯款-(紅字)
如：統一匯款-雜貨1批。

Book12.rar (1.57 KB)

收藏 分享
希望支持!

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-9-25 22:22 | 只看該作者
回復 1# s7659109
你想要的功能在 Excel一般區(即單純透過儲存格輸入資料或公式) 是很難做到的,
因為 Excel 的儲存格內容在 "任一時間點上" 除非使用者或是程式(包含公式中的日期時間或是亂數函數等,不同時點資料可能會不同者)有做了變更,
不然是不會自己變動的,
即便是內容為公式亦或是樞紐分析表也是逃脫不出此點.

所以既然你的需求是使用者輸入資料後,
儲存格的內容還要有所變動,
那就只能透過程式囉,
現依你的需求實作如下 :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   With Target
  3.     If .Column = 2 Then
  4.       If .Offset(, -1) = "" And .Value <> "" Then
  5.         Application.EnableEvents = False
  6.         .Font.ColorIndex = -4105
  7.         .Value = "統一匯款-" & .Value
  8.         .Characters(1, 5).Font.ColorIndex = 3
  9.         Application.EnableEvents = True
  10.       End If
  11.     End If
  12.   End With
  13. End Sub
複製代碼

TOP

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
3#
發表於 2013-9-26 10:21 | 只看該作者
若原先已有的資料，如何一次全部在前面補充統一匯款字樣，後面再輸入依回答方式處理。

Book12-1.rar (7.43 KB)

希望支持!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-9-27 23:34 | 只看該作者
回復 3# s7659109
  1. Sub Add_Character()
  2. Dim A As Range
  3. For Each A In Range("B:B").SpecialCells(xlCellTypeConstants) '針對B欄位資料做檢查
  4.    If Left(A, 5) <> "統一匯款-" And A.Offset(, -1) <> "" Then
  5.    A = "統一匯款-" & A: A.Characters(1, 5).Font.ColorIndex = 3
  6.    ElseIf Left(A, 5) = "統一匯款-" And A.Offset(, -1) = "" Then
  7.    A.Characters(1, Len(A)).Font.ColorIndex = 0: A = Replace(A, "統一匯款-", "")
  8.    End If
  9. Next
  10. End Sub

  12. Private Sub Worksheet_Change(ByVal Target As Range)
  13. Application.EnableEvents = False
  14. Add_Character
  15. Application.EnableEvents = True
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
5#
發表於 2013-10-3 11:46 | 只看該作者
若要將已填入統一匯款的說明欄，copy出來一離開儲存格，會在填入統一匯款字樣，copy愈多次，就填入愈多次。
希望支持!

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題