返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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 
3#
發表於 2012-12-9 19:31 | 顯示全部帖子
回復 4# tku0216
A1字串中包含片假名和漢字 ,
漢字上方標註的平假名是放在注音標示欄位 , 他不屬於字串本身
又每一個漢字的平假名可能為多個字元 , 即注音標示字串
8,9行只是取出每個字的"注音標示字串", 再給到B中每個字的注音標示欄位

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題