作者JointBank (噓~ 不要問!)
看板Office
標題[算表] vba combobox顯示百分比
時間Wed Sep 13 23:27:50 2017
軟體:Excel
版本:2016
因選單需要顯示為百分比
但如果為字串表示則無法做運算
該如何讓Combobox選項數字顯示為百分比"%"
確有辦法讓該值做運算?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.37.216.201
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1505316474.A.9CA.html
1F：→ soyoso: 選項顯示百分比可以數字 & "%"或format格式以"0%"之類 09/13 23:46
2F：→ soyoso: 運算上可先將val(combobox)除100 09/13 23:47
3F：→ soyoso: 運算上也可format(combobox) 09/13 23:50
4F：→ soyoso: 如有小數點val改以cdbl，取代replace combobox的%或left 09/13 23:56
5F：→ soyoso: 字數為len減1 09/13 23:57
感謝S大回覆
經測試結果如下
Private Sub CommandButton5_Click()
Dim s1, s2, s3, s4 As Double
If CheckBox1.Value = True Then
Range("f24").Value = Yes
ElseIf CheckBox2.Value = True Then
Range("f24").Value = No
End If
s1 = Application.WorksheetFunction.Round(-Range("j24").Value *
CDbl(ComboBox7.Value) / 100, 0)
s2 = Application.WorksheetFunction.Round(-Range("j24").Value *
Val(ComboBox7.Value) / 100, 0)
Range("J27").Value = s1
Range("J28").Value = s2
s2 為整數部份 正常可行
s1 帶小數點 ==>執行錯誤13
形態不符合
With ComboBox5
'.List = Array("0.0191")
.List = Array(1.91 & "%")
End With
With ComboBox7
'.List = Array("0.03", "0.1", "0.15", "0.2")
.List = Array(3 & "%", 10 & "%", 15 & "%", 20 & "%")
End With
End Sub
'此行改寫為
s1 = Application.WorksheetFunction.Round(-Range("j24").Value *
Left(ComboBox5.Value,Len(ComboBox5.Value -1), 0))
錯誤訊息為
翻譯錯誤
引數的個數錯誤或指定不了正確的屬性
※ 編輯: JointBank (114.37.216.201), 09/14/2017 00:57:11
※ 編輯: JointBank (114.37.216.201), 09/14/2017 01:02:14
s1 = Application.WorksheetFunction.Round(-Range("j24").Value *
Left(ComboBox5.Value, Len(ComboBox5.Value) - 1) / 100, 0)
執行正常
改怎麼判斷何時該加Application.WorksheetFunction
※ 編輯: JointBank (114.37.216.201), 09/14/2017 01:07:50
6F：→ soyoso: 當要使用工作表函數且worksheetfunction物件下有提供該函 09/14 07:04
7F：→ soyoso: 數方式時，加application.worksheetfunction或 09/14 07:05
8F：→ soyoso: worksheetfunction 09/14 07:05
9F：→ soyoso: 回文函數方"式"改為函數方"法" 09/14 07:06
10F：→ JointBank: 此案例application.worksheetfunction是有.len 這個方 09/14 09:46
11F：→ JointBank: 法的 但加了卻反而失敗 09/14 09:46
12F：→ soyoso: 於回文就有提了worksheetfunction物件下有提供該函數方法 09/14 10:02
13F：→ soyoso: 時 09/14 10:03
15F：→ soyoso: 明下並無搜尋len該方法 09/14 10:18
16F：→ soyoso: 原po回文寫到有這個方法，也請提出看看 09/14 10:19
18F：→ soyoso: 提示(字母排序)下也未看len的方法 09/14 10:21
19F：→ JointBank: 重新檢視後 確定無此方法 可能一時眼花未注意 感謝S 09/14 10:39
20F：→ JointBank: 大 09/14 10:39