返回列表 上一主題 發帖

請教操作 excel vba 直書橫書操作

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-11-20 14:48 | 顯示全部帖子
本帖最後由 stillfish00 於 2013-11-20 14:50 編輯

回復 2# eigen
模組新增Function:
  1. Function StrToVertical(s As String) As String
  2.   With CreateObject("vbscript.regexp")
  3.     .Global = True
  4.     .Pattern = "(\d+|[^\d])"
  5.     StrToVertical = .Replace(s, "$1" & vbLf)
  6.   End With
  7. End Function
複製代碼
PrintPage() 中
  1. .[i3] = E.Range("d1")
複製代碼
改為
  1. .[i3] = StrToVertical(E.Range("d1").Value)
複製代碼

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題