pinklee

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-20 21:09 | 只看該作者

[發問] 儲存內的　１　一　都輚成半型的１

有４個儲存格分別如下
ＸＸ街十二巷一號
ＸＸ路１２巷１號
ＸＸ街十二巷１號
ＸＸ路１２巷一號

怎麼做到都會轉成

ＸＸ路12巷1號

國字　數字全型　都轉成半型的數字呢　感謝您

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-9-20 21:52 | 只看該作者

Sub yy()
For Each c In ActiveSheet.UsedRange
c.Value = StrConv(c.Value, vbNarrow, LocaleID)
Next
End Sub

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

3^#

發表於 2011-9-20 23:12 | 只看該作者

回復 2# oobird

謝謝 oobird 但是只有阿拉伯數字全型轉半型耶一沒有成半型的1
十一巷 -> 11巷
程式精簡佩服!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-9-21 10:44 | 只看該作者

回復 3# pinklee
國字的數值要轉成數字會有習慣不同的問題
例如:12若是標準應以一十二才能與二十以上文數字配合
若以數字直接編譯則應為一二
要以口語化轉譯似乎有困難

學海無涯_不恥下問

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

5^#

發表於 2011-9-21 14:23 | 只看該作者

回復 4# Hsieh

說的是有時也要將就一下習慣再回頭把文字上的一十二改成十二呵呵官大的人都有不同的想法謝啦

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-9-21 22:27 | 只看該作者

難度頗高，例如
二十一 = 21 ~十替換為空
十五 = 15 ~十替換為1
十 = 10 ~十替換為10

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

7^#

發表於 2011-9-22 15:48 | 只看該作者

ＸＸ街二十二巷1號
ＸＸ街一十二巷一十號
ＸＸ路１２巷１號
ＸＸ街一十二巷１號
ＸＸ路１２巷二一號
ＸＸ街一十巷1號
ＸＸ街一十巷1號

用了各位先進指教的亂做了一下下
Sub ttt()
Dim a, b As String

For Each C In ActiveSheet.UsedRange
C.Value = StrConv(C.Value, vbNarrow, LocaleID)
Next

For i = 1 To 10 Step 1
a = "一二三四五六七八九十"
b = "123456789十"
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next

a = "十巷十弄十號"
b = "0巷0弄0號"
For i = 1 To 6 Step 2
Cells.Replace Mid(a, i, 2), Mid(b, i, 2)
Next

a = "十"
b = ""
For i = 1 To 1
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next
End Sub

結果如下
XX街22巷1號
XX街12巷10號
XX路12巷1號
XX街12巷1號
XX路12巷21號
XX街10巷1號
XX街10巷1號
似乎可行

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2011-9-22 18:06 | 只看該作者

回復 7# pinklee

如果國數字的寫法與格式DBNum1相同可試試
預設最大數字為2000(因為號碼有超過1000號的地址)
可自行設定

Sub nn()
Dim C As Range
For i = 2000 To 1 Step -1
k = Application.Text(i, "[DBNum1]")
Cells.Replace k, i
Next
For Each C In ActiveSheet.UsedRange
C.Value = StrConv(C.Value, vbNarrow, LocaleID)
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

9^#

發表於 2011-9-22 18:49 | 只看該作者

回復 8# Hsieh

高手出招的確不凡簡潔
測了一下如果是十二巷不是一十二巷無法轉換十會轉成

ＸＸ街十二巷１號 ->XX街十2巷1號
謝了

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2011-9-22 22:24 | 只看該作者

本帖最後由 Hsieh 於 2011-9-22 22:27 編輯

回復 9# pinklee

不是說了要以DBNUM1格式為前提嗎?
若有兩種可能
如:12=> 一十二
或十二
或一二

Sub nn()
Dim C As Range
With ActiveSheet.UsedRange
For i = 200 To 1 Step -1
k = Application.Text(i, "[DBNum1]")
m = Application.Text(i, "[DBNum1]0")
.Cells.Replace m, i
.Cells.Replace k, i
If Int(i / 10) = 1 Then .Cells.Replace Mid(k, 2), i
Next
For Each C In .Cells
C.Value = StrConv(C.Value, vbNarrow, LocaleID)
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP