- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
Or.......- Sub zz()
- Dim a, b, ar
- ar = [b1:d4]
- For i = 1 To UBound(ar)
- For j = 1 To UBound(ar, 2)
- If ar(i, j) = "a" Then a = a + 1
- If Len(ar(i, j)) Then b = b + 1
- Next
- Next
- [a1].NumberFormatLocal = "@"
- [a1].Value = a & "/" & b
- End Sub
|
|
發表於 2017-2-6 11:39
| 