- 帖子
- 159
- 主題
- 44
- 精華
- 0
- 積分
- 241
- 點名
- 16
- 作業系統
- win7
- 軟體版本
- ie
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-8
- 最後登錄
- 2024-4-22
|
回復 9# Andy2483
Andy 學兄, 後輩有一些編碼上的疑問想向你請教
Sub TEST()
Dim Brr, V, Z, i&, R&, 館$, 廠$
Sheets("館別及廠商").UsedRange.Offset(3).EntireRow.Delete
館 = [館別及廠商!C1]: 廠 = [館別及廠商!E1]: If 館 = "" Or 廠 = "" Then Exit Sub
Brr = Range([總表!L1], [總表!A65536].End(xlUp))
For i = 3 To UBound(Brr)
If Brr(i, 1) <> 館 Or Brr(i, 12) <> 廠 Then GoTo i01 Else R = R + 1
Brr(R, 1) = Brr(i, 2): Brr(R, 2) = Brr(i, 3): Brr(R, 3) = Brr(i, 4)
Brr(R, 4) = Val(Brr(i, 11)): Brr(R, 5) = Val(Brr(i, 10))
V = V + Brr(R, 4) * Brr(R, 5)
i01: Next
If R = 0 Then Exit Sub
With [館別及廠商!A4].Resize(R, 5)
.Value = Brr: .Item(0, 5) = "=總表!J2"
For i = 7 To 10: .Borders(i).Weight = 4: Next
.Item(.Count + 4) = "合計": .Item(.Count + 5) = V
.Item(.Count + 5).NumberFormatLocal = "G/通用格式""元"""
End With
End Sub
請問以上紅色的標記 ".item(xxxxx) 是什麼意思呢? 是怎樣用法呢? 我在網上找過,但都還是一頭霧水,所以想請學兄指教,謝謝 |
|
發表於 2024-3-4 22:23
| 