返回列表 上一主題 發帖

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

tku0216

帖子
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)
收藏 分享

Hsieh

帖子
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兔年全勤獎章
7#
發表於 2012-12-14 19:32 | 只看該作者
回復 1# tku0216
只取日文嗎?

   
學海無涯_不恥下問

TOP

tku0216

帖子
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

stillfish00

帖子
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

帖子
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

帖子
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

stillfish00

帖子
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
試出來了 , 參考看看
  1. Sub sep()
  2.     Dim i As Long, j As Long
  3.     Application.ScreenUpdating = False
  4.    
  5.     For i = 1 To Int(Len([A1]) / 35)
  6.         With Cells(i, "B")
  7.             .Value = Mid([A1], 35 * (i - 1) + 1, 35)
  8.             For j = 1 To 35
  9.                 .Characters(j, 1).PhoneticCharacters = [A1].Characters(35 * (i - 1) + j, 1).PhoneticCharacters
  10.             Next
  11.         End With
  12.     Next i
  13.    
  14.     Range("B1:B" & Int(Len([A1]) / 35)).Phonetics.Visible = True
  15.     Application.ScreenUpdating = True
  16. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題