麻辣家族討論版版 » Excel程式區 » 用 Numberformat 在數字後加上文字(文字由變數取得)

返回列表下一主題上一主題發帖

[發問] 用 Numberformat 在數字後加上文字(文字由變數取得)

中學生 Rank: 2

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-10-9 18:30 | 只看該作者

[發問] 用 Numberformat 在數字後加上文字(文字由變數取得)

請問大大們:
我的目的是在數字後加上文字說明，但不要影響儲存格的數字:
例如: 數字值是567，希望儲存格顯示567 (20%) ，這(20%)是利用其他變數取得的值。
目前是利用numberformat 來做，寫個小程式驗證一下，卻發現問題如下:
若變數a="123" or a="---"時，程式可正確執行，但若 a="abc"就有錯誤無法執行，
大大可以幫忙看一下問題出在哪裡嗎?

Sub Macro3()
a = "abc" 'a變數就是用來取得放在數字後面的文字
Selection.NumberFormat = "0.0" & a
End Sub

複製代碼

樓主熱帖

收藏

　暱稱: 蝕光迴狼

中學生 Rank: 2

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-10-9 19:38 | 只看該作者

回復 1# swatt

　NumberFormat：為時間日期格式，故無法使用以下字母

　B、D、E、G、H、M、N、R、S、Y

我很笨,所以我很用心
　我學藝不精,但我渴求知識

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-10-9 19:56 | 只看該作者

本帖最後由 GBKEE 於 2014-10-10 05:31 編輯

回復 1# swatt

Option Explicit
Sub Ex()
Dim a
'a = """abc""" 'a變數就是用來取得放在數字後面的文字
a = """GBK""" '字串加上"
Selection.NumberFormat = "0.0" & a
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

4^#

發表於 2014-10-13 16:21 | 只看該作者

RE: [已解決]用 Numberformat 在數字後加上文字(文字由變數取得)

回復 3# GBKEE

感謝 GBKEE 大大, 原來是要再加一組引號.
另外也學到要在字串裡加上"的話，需要用兩個""，修改code如下:

Sub Macro3()
a = "abc" 'a變數就是用來取得放在數字後面的文字
Selection.NumberFormat = "general" & """" & a & """"
End Sub

複製代碼

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

返回列表下一主題上一主題