註解的問題

Discussion:

註解的問題

(时间太久无法回复)

Max

2005-10-21 14:40:06 UTC

我有個Excel檔案, 其中有個欄位都有插入"註解".
(1)最近打開後發現原本"註解"所用的字型與現在的環境不符, 造成看不到內容, 所以必須要一個個去修改字型, 可是有超過5000個欄位要改, 很累,
不知有快速的方式解決!
(2)如果我想把其中一個欄位直接轉成"註解", 不知有沒有辦法?

chijanzen

2005-10-21 15:33:02 UTC

Permalink

你好:

如果要整批修改字型，就需要用 VBA 程式碼來做了
(1)最近打開後發現原本"註解"所用的字型與現在的環境不符, 造成看不到內容, 所以必須要一個個去修改字型, 可是有超過5000個欄位要改, 很累,
程式碼如下:

Sub modifycomment()
'整批修改現有工作表中註解的字型
Dim rng As Range
Dim ComRange As Range
'取得工作表中有註解的儲存格的集合
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'修改註解字體及大小
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "細明體"
.Size = 11
End With
Next rng
End Sub

(2)如果我想把其中一個欄位直接轉成"註解", 不知有沒有辦法?

假設你要將 A1:A20 儲存格的值轉換成"註解"

程式碼如下:

Sub Addcomment()
Dim rng As Range
'範圍為 A1: A20
For Each rng In Range("A1:A20")
On Error Resume Next
'假設儲存格的值不為空白
If rng <> "" Then
Set cmt = rng.Addcomment
'將儲存格的值寫入註解中
cmt.Text rng.Value
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "細明體"
.Size = 11
End With
End If
Next rng
End Sub

有問題歡迎再提出
--
天行健，君子以自強不息
地勢坤，君子以厚德載物

http://www.vba.com.tw/plog/

"Max" 來函：

Post by Max
我有個Excel檔案, 其中有個欄位都有插入"註解".
(1)最近打開後發現原本"註解"所用的字型與現在的環境不符, 造成看不到內容, 所以必須要一個個去修改字型, 可是有超過5000個欄位要改, 很累,
不知有快速的方式解決!
(2)如果我想把其中一個欄位直接轉成"註解", 不知有沒有辦法?

Max

2005-10-22 02:25:03 UTC

Permalink

太神奇了! OK了吔! 謝謝!!

"chijanzen" 來函：

Post by chijanzen
如果要整批修改字型，就需要用 VBA 程式碼來做了
(1)最近打開後發現原本"註解"所用的字型與現在的環境不符, 造成看不到內容, 所以必須要一個個去修改字型, 可是有超過5000個欄位要改, 很累,
Sub modifycomment()
'整批修改現有工作表中註解的字型
Dim rng As Range
Dim ComRange As Range
'取得工作表中有註解的儲存格的集合
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'修改註解字體及大小
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "細明體"
.Size = 11
End With
Next rng
End Sub
(2)如果我想把其中一個欄位直接轉成"註解", 不知有沒有辦法?
假設你要將 A1:A20 儲存格的值轉換成"註解"
Sub Addcomment()
Dim rng As Range
'範圍為 A1: A20
For Each rng In Range("A1:A20")
On Error Resume Next
'假設儲存格的值不為空白
If rng <> "" Then
Set cmt = rng.Addcomment
'將儲存格的值寫入註解中
cmt.Text rng.Value
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "細明體"
.Size = 11
End With
End If
Next rng
End Sub
有問題歡迎再提出
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"Max" 來函：

阿貴

2006-12-13 03:50:00 UTC

Permalink

我看不懂程式碼要放到哪去?
怎麼改?

"chijanzen" 來函：

¥xÆW·L³n§Þ³N€äŽ©³B

2006-12-25 07:39:51 UTC

Permalink

±zŠn¡G

±z¶·¥ý¥Ñ¥\¯àªíŠC€W€§[€ušã]/[¥š¶°]/[Visual Basicœs¿èŸ¹]¡A¶}±ÒVisual Basicœs¿èŸ¹«á¡A·sŒW€@ŒÒ²Õ¡AŠA±Nµ{Š¡œXœÆ»sšìŒÒ²Õ€º§Y¥i¡DÁÂÁÂ

Denny Kuong
¥xÆW·L³n§Þ³N€äŽ©³B

ŠpªGnŸã§å×§ïŠr«¬¡AŽN»Ýn¥Î VBA µ{Š¡œXšÓ°µ€F
Sub modifycomment()
Dim rng As Range
Dim ComRange As Range
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'×§ïµùžÑŠrÅé€Î€j€p
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "²Ó©úÅé"
.Size = 11
End With
Next rng
End Sub
°²³]§An±N A1:A20 ÀxŠs®æªºÈÂàŽ«Šš"µùžÑ"
Sub Addcomment()
Dim rng As Range
'œd³ò¬° A1: A20
For Each rng In Range("A1:A20")
On Error Resume Next
'°²³]ÀxŠs®æªºÈ€£¬° ªÅ¥Õ
If rng <> "" Then
Set cmt = rng.Addcomment
'±NÀxŠs®æªºÈŒg€JµùžÑ€€
cmt.Text rng.Value
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "²Ó©úÅé"
.Size = 11
End With
End If
Next rng
End Sub
Š³°ÝÃDÅwªïŠAŽ£¥X
--
€ÑŠæ°·¡A§g€l¥HŠÛ±j€£®§
Ša¶Õ©[¡A§g€l¥H«pŒwžüª«
http://www.vba.com.tw/plog/

Jesse

2007-02-07 05:47:00 UTC

Permalink

你好，針對這個問題，我想請問有沒有辦法更改註解預設的字型跟大小，我找了好多地方，都找不到相關設定，麻煩幫幫忙解開我的疑問。

"chijanzen" 來函：

Celine

2007-12-27 02:09:00 UTC

Permalink

那再進階請問幾個問題：
1.用巨集的方式必須在完成所有註解之後執行巨集以一次調整註解的格式，我們有辦法改變預設的格式so that註解一建立時就是我想要的格式？
2.承上，我想要註解裡不出現使用者名稱，有辦法嗎？
謝謝

"chijanzen" 來函：