麻辣家族討論版版 » Excel程式區 » 請問如何將計算結果加入註解中

返回列表下一主題上一主題發帖

請問如何將計算結果加入註解中

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-9-8 17:51 | 只看該作者

請問如何將計算結果加入註解中

請問要如何用巨集計算下列計算數值加入註解中?
....... F欄位       G欄位
1 A0001       13
2 A0005       12
3 A0008       11
4 A0010       11
5 A0011       11
6 A0012       5
7 A0022       4
8 A0025       3

J3欄位(計算G欄位>=11次數)=5
J3欄位註解得到結果：
次數=5
編號：A0001、A0005、A0008、A0010、A0011

樓主熱帖

收藏

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2011-9-9 11:41 | 只看該作者

回復 4# GBKEE

學到了感謝您~
趕快作筆記。

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-9-9 11:34 | 只看該作者

回復 3# loyyee
Mid(指定字串 , 啟始字元(數字) , 總字元(數字) ) ->傳回在一字串中傳回所指定的字元數

Mid(S, 1))->更正 Mid(S, 2))
因 S = S & "." & E 當=""時會多一個"."字元 , 加入註解時S要從第二個字元起加入.

中學生 Rank: 2

帖子: 42
主題: 9
精華: 0
積分: 64
點名: 0
作業系統: WINDOW7
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2011-9-3
最後登錄: 2013-6-10

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2011-9-9 11:11 | 只看該作者

回復 2# GBKEE

版主您好：
.Comment.Text ("次數=" & i & Chr(10) & "編號：" & Mid(S, 1))
Mid(S, 1) 代表意義為何?為何不能用 .Comment.Text ("次數=" & i & Chr(10) & "編號：" & S))?

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-9 10:15 | 只看該作者

回復 1# loyyee

試試看

Sub Ex()
Dim S As String, i As Integer, E As Range
For Each E In Range("F:F").SpecialCells(xlCellTypeConstants)
If E.Offset(, 1) >= 11 Then
S = S & "." & E
i = i + 1
End If
Next
With Range("J3")
If .Comment Is Nothing Then .AddComment
.Comment.Text ("次數=" & i & Chr(10) & "編號：" & Mid(S, 1))
End With
End Sub

複製代碼

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題