tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-8 15:45 | 只看該作者

請教一個抓取固定字數後，非派到不同行的vba。

各位大大好，附件檔案包含日文字串(包含平假與片假)，我寫了一段VBA，要求將a1儲存格的日文字串，每35個字換到別的儲存格。但我發現帶出的字串非完整字串。請問是否有語法可以解決？
缺少下圖紅框內的字:

檔案下載：

日文測試.rar (14.37 KB)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2012-12-8 22:16 | 只看該作者

回復 1# tku0216
試出來了 , 參考看看

Sub sep()
Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = 1 To Int(Len([A1]) / 35)
With Cells(i, "B")
.Value = Mid([A1], 35 * (i - 1) + 1, 35)
For j = 1 To 35
.Characters(j, 1).PhoneticCharacters = [A1].Characters(35 * (i - 1) + j, 1).PhoneticCharacters
Next
End With
Next i
Range("B1:B" & Int(Len([A1]) / 35)).Phonetics.Visible = True
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2012-12-8 22:24 | 只看該作者

補充一下
Range.Phonetics.Visible = True 是打開注音標示欄位

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

4^#

發表於 2012-12-9 18:14 | 只看該作者

這位大大感謝您的回覆，可否請教您的程式碼第8~9行的迴圈是在執行哪一件事情？

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2012-12-9 19:31 | 只看該作者

回復 4# tku0216
A1字串中包含片假名和漢字 ,
漢字上方標註的平假名是放在注音標示欄位 , 他不屬於字串本身
又每一個漢字的平假名可能為多個字元 , 即注音標示字串
8,9行只是取出每個字的"注音標示字串", 再給到B中每個字的注音標示欄位

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

6^#

發表於 2012-12-14 17:22 | 只看該作者

回復 tku0216
A1字串中包含片假名和漢字 ,
漢字上方標註的平假名是放在注音標示欄位 , 他不屬於字串本 ...
stillfish00 發表於 2012-12-9 19:31

感謝大大的回覆，提醒您不可以取整數，否則會無法抓到無法整除的最後一行。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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