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

loyyee

請問要如何用巨集計算下列計算數值加入註解中?
....... 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

GBKEE

回復 1# loyyee

試試看

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

複製代碼

loyyee

回復 2# GBKEE

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

GBKEE

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

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

loyyee

回復 4# GBKEE

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