返回列表 上一主題 發帖

註解為何次數受限呢?

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2014-4-9 10:16 | 顯示全部帖子
本帖最後由 GBKEE 於 2014-4-9 10:20 編輯

回復 1# myleoyes
詳看說明
  1. NoteText 方法
  2. expression.NoteText(Text, Start, Length)
  3. expression     必選。該運算式傳回 Range 物件。
  4. Text     選擇性的 Variant。要新增到註解中的文字 (不超過 255 個字元)。
複製代碼
  1. Sub 增資註解(註解 As String)
  2.     Dim S(), AR(), E As Variant, i As Integer, M As Variant
  3.     With Range("G2")
  4.         '.NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & 註解
  5.         .Comment.Text .Comment.Text & IIf(.Comment.Text <> "", Chr(10), "") & 註解
  6.         .Comment.Shape.TextFrame.AutoSize = True
  7.     End With
  8.     [F2].Select '暫借用
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-4-10 05:55 | 顯示全部帖子
回復 3# myleoyes
要新增到註解中的文字 (不超過 255 個字元)
     實太可惜也就是說無解囉!
     只好將就嚕!謝謝再三!!

怎會無解,不是改成如此
  1.   .Comment.Text .Comment.Text & IIf(.Comment.Text <> "", Chr(10), "") & 註解
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-4-11 08:02 | 顯示全部帖子
回復 5# myleoyes
有錯當改,不夠細心
  1. Dim S As Variant, E As Variant, A As Long
  2.     S = Split([G2].Comment.Text, vbLf)
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題