標題: [發問] 顯示方法 [打印本頁]

---

作者: mdr0465    時間: 2017-2-4 23:26     標題: 顯示方法

各位大大,

  請看附件圖,請問點樣才可以顯示為8/10 呢??

  謝謝
[attach]26531[/attach]

---

作者: yen956    時間: 2017-2-5 10:48

在[a1]=application...前面加上 "'"
即 [a1]= "'" & application...

---

作者: ikboy    時間: 2017-2-6 11:39

Or.......

1. Sub zz()
   
2. Dim a, b, ar
   
3. ar = [b1:d4]
   
4. For i = 1 To UBound(ar)
   
5.     For j = 1 To UBound(ar, 2)
   
6.         If ar(i, j) = "a" Then a = a + 1
   
7.         If Len(ar(i, j)) Then b = b + 1
   
8.     Next
   
9. Next
   
10. [a1].NumberFormatLocal = "@"
    
11. [a1].Value = a & "/" & b
    
12. End Sub

複製代碼

---

作者: yen956    時間: 2017-2-6 15:46

回復 3# ikboy
原來也可以自訂儲存格式為 "@", 收下, 謝謝.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)