麻辣家族討論版版 » Excel程式區 » 顯示方法

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

[發問] 顯示方法

中學生 Rank: 2

帖子: 167
主題: 48
精華: 0
積分: 253
點名: 6
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2025-9-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-2-4 23:26 | 只看該作者

[發問] 顯示方法

各位大大,

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

謝謝

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2017-2-5 10:48 | 只看該作者

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

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

3^#

發表於 2017-2-6 11:39 | 只看該作者

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

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2017-2-6 15:46 | 只看該作者

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

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

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