篩選?關鍵字?查詢? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 篩選?關鍵字?查詢?

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

[發問] 篩選?關鍵字?查詢?

超級版主 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兔年全勤獎章

21^# 跳轉到 »

發表於 2013-4-30 15:35 | 顯示全部帖子

回復 57# emma

Option Explicit
Sub EX()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String
Dot = 123456789
m = "000萬0千0百0十0"
If Len(CStr(Dot)) = 1 Then m = "0"
If Len(CStr(Dot)) = 2 Then m = "0十0"
If Len(CStr(Dot)) = 3 Then m = "0百0十0"
If Len(CStr(Dot)) = 4 Then m = "0千0百0十0"
MsgBox Format(Dot, m)
End Sub

複製代碼

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

超級版主 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兔年全勤獎章

22^#

發表於 2013-5-1 17:41 | 顯示全部帖子

回復 59# emma

Option Explicit
Sub EX()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String
Dot = Int(123456789 / 1000)
m = "0萬0千"
MsgBox Format(Dot, m)
End Sub

複製代碼

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

超級版主 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兔年全勤獎章

23^#

發表於 2013-5-2 06:47 | 顯示全部帖子

回復 61# emma

Option Explicit
Private Sub Ex()
'１２,３４５萬６千７百８十
Dim Dot As Long, m As String, t As String, i As Integer
m = "0萬0仟0佰0拾0 " '加上一空格:處理個位數為0
Dot = Sheets("工作表1").[A1]
t = Format(Dot, m)
For i = IIf(Len(t) > 10, 3, 1) To Len(m) Step 2
'IIf(Len(t) > 10, 3, 1) 處理萬位數為0
t = Replace(t, Mid(m, i, 2), "")
Next
Sheets("工作表1").[A4] = t
'Sheets("工作表1").[A4] = RTrim(t)
'LTrim、RTrim 與 Trim 函數
'傳回一個沒有前頭空白 (LTrim)、後面空白 (RTrim) 或前後均無空白的Variant (String)，
End Sub

複製代碼

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

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

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