如何在 Excel 中獲取貨幣符號(hào)

在 Excel 中故河,通過(guò)對(duì)單元格進(jìn)行格式化,我們可以為單元格中存儲(chǔ)的數(shù)字加上貨幣符號(hào)浩嫌。但如何判斷單元格中顯示的哪種貨幣呢杂拨?由于單元格的內(nèi)容是以數(shù)字形式存儲(chǔ)的专普,我們無(wú)法通過(guò)直接截取單元格內(nèi)容來(lái)判斷悯衬。下面我們將通過(guò)示例來(lái)分享幾種方法。

方法一:

這種方法通過(guò) Excel 中的 cell 函數(shù)進(jìn)行判斷筋粗,適用于比較簡(jiǎn)單的情況策橘。

cell 函數(shù)的 format 參數(shù),對(duì)每種單元格貨幣格式返回一個(gè)特定值娜亿,通過(guò)返回值即可判斷單元格中的貨幣格式丽已。如圖中所示,當(dāng)單元格存儲(chǔ)的是人民幣格式時(shí)买决,cell 的返回值是 C2- 或 C2沛婴,而美元返回的則是 ,2. 如果格式較少時(shí),使用此方法比較方便督赤。

方法二:

此方法利用 VBA 中 Range 的 Text 屬性將單元格的存儲(chǔ)內(nèi)容以文本形式返回嘁灯,再通過(guò)字符串函數(shù)提取其中的貨幣符號(hào)。代碼如下:

Public Function CurrSymbol(myCell As Range) As String
    Application.Volatile
    
    CurrSymbol = Left(Trim(myCell.Text), 1) ' Trim 函數(shù)用于去除 Text 屬性中的多余空格躲舌,Left 函數(shù)截取字符串中左側(cè)第一個(gè)字符
End Function

這里只是提供一種思路丑婿,如果單元格中存儲(chǔ)的貨幣比較復(fù)雜(如歐元等),還需要進(jìn)一步完善。

方法三:

此方法也是通過(guò)構(gòu)造 UDF 函數(shù)來(lái)實(shí)現(xiàn)的羹奉,但調(diào)用了 VBscript 中的 RegExp 對(duì)象秒旋,故適用范圍更廣。代碼如下:

Public Function CurrSymbol1(myCell As Range) As String
    Application.Volatile
    
    Static RE As Object
    
    If RE Is Nothing Then Set RE = CreateObject("VBScript.RegExp")
         
    With RE
        .Global = True
        .Pattern = "[0-9\-\.,\s]+"  ’ 替換包括數(shù)字诀拭、逗號(hào)迁筛、空格、下劃線及小數(shù)點(diǎn)符號(hào)
        CurrSymbol1 = .Replace(myCell.Text, "")
    End With
    
End Function

關(guān)于正則表達(dá)式耕挨,可以在網(wǎng)上找一下入門教程瑰煎,了解一下。

以上就是 Excel 中提取貨幣符號(hào)的三種方法俗孝,如果你認(rèn)為有用的話酒甸,就請(qǐng)我喝杯咖啡吧!

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末赋铝,一起剝皮案震驚了整個(gè)濱河市插勤,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌革骨,老刑警劉巖农尖,帶你破解...
    沈念sama閱讀 216,544評(píng)論 6 501
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異良哲,居然都是意外死亡贬蛙,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,430評(píng)論 3 392
  • 文/潘曉璐 我一進(jìn)店門步氏,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)吨艇,“玉大人,你說(shuō)我怎么就攤上這事巍实∽壹迹” “怎么了?”我有些...
    開封第一講書人閱讀 162,764評(píng)論 0 353
  • 文/不壞的土叔 我叫張陵棚潦,是天一觀的道長(zhǎng)令漂。 經(jīng)常有香客問(wèn)我,道長(zhǎng)丸边,這世上最難降的妖魔是什么叠必? 我笑而不...
    開封第一講書人閱讀 58,193評(píng)論 1 292
  • 正文 為了忘掉前任,我火速辦了婚禮妹窖,結(jié)果婚禮上纬朝,老公的妹妹穿的比我還像新娘。我一直安慰自己嘱吗,他們只是感情好玄组,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,216評(píng)論 6 388
  • 文/花漫 我一把揭開白布滔驾。 她就那樣靜靜地躺著,像睡著了一般俄讹。 火紅的嫁衣襯著肌膚如雪哆致。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,182評(píng)論 1 299
  • 那天患膛,我揣著相機(jī)與錄音摊阀,去河邊找鬼。 笑死踪蹬,一個(gè)胖子當(dāng)著我的面吹牛胞此,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播跃捣,決...
    沈念sama閱讀 40,063評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼漱牵,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了疚漆?” 一聲冷哼從身側(cè)響起酣胀,我...
    開封第一講書人閱讀 38,917評(píng)論 0 274
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎娶聘,沒(méi)想到半個(gè)月后闻镶,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,329評(píng)論 1 310
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡丸升,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,543評(píng)論 2 332
  • 正文 我和宋清朗相戀三年铆农,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片狡耻。...
    茶點(diǎn)故事閱讀 39,722評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡墩剖,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出酝豪,到底是詐尸還是另有隱情涛碑,我是刑警寧澤精堕,帶...
    沈念sama閱讀 35,425評(píng)論 5 343
  • 正文 年R本政府宣布孵淘,位于F島的核電站,受9級(jí)特大地震影響歹篓,放射性物質(zhì)發(fā)生泄漏瘫证。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,019評(píng)論 3 326
  • 文/蒙蒙 一庄撮、第九天 我趴在偏房一處隱蔽的房頂上張望背捌。 院中可真熱鬧,春花似錦洞斯、人聲如沸毡庆。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,671評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)么抗。三九已至毅否,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間蝇刀,已是汗流浹背螟加。 一陣腳步聲響...
    開封第一講書人閱讀 32,825評(píng)論 1 269
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留吞琐,地道東北人捆探。 一個(gè)月前我還...
    沈念sama閱讀 47,729評(píng)論 2 368
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像站粟,于是被迫代替她去往敵國(guó)和親黍图。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,614評(píng)論 2 353

推薦閱讀更多精彩內(nèi)容