尋找特定字元,並將之後的字元改為大寫

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

12^#

發表於 2011-2-14 08:28 | 只看該作者

回復 10# kimbal

DEAR

不好意意.
再解釋一下,

是,要找,特定字申,並將此字申之後之所有字元改成大寫.
EX:
姓名: a,b,C,D

-->

姓名: A.B,C,D

其中:姓名: 回定..
之後英文是會有不同, ,
只要將字元改成大寫.即可.

hi...

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

13^#

發表於 2011-2-14 08:37 | 只看該作者

回復 11# Hsieh

DEAR Hsieh

方便的話, 給個範例... 因,不是很懂的VB...

hi...

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2011-2-14 10:15 | 只看該作者

本帖最後由 Hsieh 於 2011-2-14 10:22 編輯

回復 13# txiec

Sub nn()
mystr = "姓名: a,b,C,D " '原字串
replacestr = "姓名: " '搜尋字串(不轉大寫)
k = InStr(mystr, replacestr) + Len(replacestr)
temp = Mid(mystr, k) '欲轉成大寫字串
MsgBox Replace(mystr, temp, UCase(temp))
End Sub

複製代碼

學海無涯_不恥下問

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

15^#

發表於 2011-2-14 15:25 | 只看該作者

回復 14# Hsieh

dear Hsieh

sorry.

需求說的不是很清楚.. 附上附件.

　　　再麻煩您了。。。　

原DATA.rar (1.86 KB)

data 錯誤轉換 (2).rar (7.26 KB)

hi...

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

16^#

發表於 2011-2-14 15:35 | 只看該作者

回復 15# txiec

這種問題必需考慮所有文字檔的規則

學海無涯_不恥下問

帖子: 23
主題: 6
精華: 0
積分: 36
點名: 0
作業系統: VISTA
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 竹南
註冊時間: 2010-7-15
最後登錄: 2012-4-30

17^#

發表於 2011-2-14 16:00 | 只看該作者

回復 16# Hsieh

dear ..

是的,了解.

是否有機會,直接找
" ), " 之後,之字申,轉大寫
" M/C(2)  "

hi...

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^#

發表於 2011-2-14 16:06 | 只看該作者

回復 17# txiec

給的方法你自己都不試嗎?

學海無涯_不恥下問