- 帖子
- 127
- 主題
- 28
- 精華
- 0
- 積分
- 160
- 點名
- 0
- 作業系統
- W7
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-11-1
- 最後登錄
- 2017-5-20
|
4#
發表於 2012-5-11 08:33
| 只看該作者
本帖最後由 icestormer 於 2012-5-11 08:43 編輯
回復 3# dechiuan999
我把超版的程式小小改了二個小地方後 居然會出現 只要遇到空格就會斷行了
,這是一邊學習超版提供的給你的程式碼中(substitute還是剛才去查才知道那是什麼作用.)不小心試出來的
原本超版的會在第二個空格後才會斷行 改成下方後會從第一個空格就開始斷了,不知這是不是你要的
Sub aa()
Dim mSht1 As Worksheet
Dim mRng As Range, mRng1 As Range, i%, Mystr$
Set mSht1 = Worksheets(1)
With mSht1
Set mRng = .Range("a1:a7")
.Columns("i").ColumnWidth = 10
For Each mRng1 In mRng
Mystr = mRng1.Value
For i = 0 To Len(Mystr) - Len(Replace(Mystr, " ", "")) '這裡迴圈也由2改為0開始
' For i = 2 To Len(Mystr) - Len(Replace(Mystr, " ", "")) '第二個以後的空白鍵開始取代
Mystr = Application.Substitute(Mystr, " ", Chr(10)) '跟超版的只有差在這裡少一 "i"
' Mystr = Application.Substitute(Mystr, " ", Chr(10), i)
Next
mRng1.Offset(, 8).Value = Mystr
mRng1.Offset(, 8).WrapText = True '利用WrapText屬性<<<< 不過這裡有一個問題 我試過不管有沒有這行 ,怎看起來效果一樣呢?
Next '
End With
End Sub |
|
發表於 2012-5-11 08:46
| 
