vba顯示小數點 在 コバにゃんチャンネル Youtube 的精選貼文
「vba顯示小數點」的推薦目錄：
- 關於vba顯示小數點 在 コバにゃんチャンネル Youtube 的精選貼文
- 關於vba顯示小數點 在 大象中醫 Youtube 的精選貼文
- 關於vba顯示小數點 在 大象中醫 Youtube 的精選貼文
- 關於vba顯示小數點 在 [算表] vba combobox顯示百分比- 看板Office - 批踢踢實業坊 的評價
- 關於vba顯示小數點 在 04 VBA的SUB與去除小數點與更改字型 - YouTube 的評價
- 關於vba顯示小數點 在 EXCEL VBA 數字轉文字 - Mobile01 的評價
- 關於vba顯示小數點 在 [VBA ] 取小數點第三位問題- 看板Visual_Basic - PTT數位生活區 的評價
vba顯示小數點 在 04 VBA的SUB與去除小數點與更改字型 - YouTube 的美食出口停車場
文化EXCEL高階函數與大數據 VBA 自動化06(計算工時(NETWORKDAY與WORKDAY)&自定休假日函數說明&SUMPRODUCT&VBA的SUB與去除 小數點 與更改字型&自訂函數 ... ... <看更多>
vba顯示小數點 在 EXCEL VBA 數字轉文字 - Mobile01 的美食出口停車場
EXCEL VBA 數字轉文字- 請教各位高手:A1儲存格為0.000001,A2為0.0123 要如何在B1儲存格呈現000001,B2為0123,小弟用VBA都解不出來, ... 把小數點取代 ... <看更多>
vba顯示小數點 在 [算表] vba combobox顯示百分比- 看板Office - 批踢踢實業坊 的美食出口停車場
軟體:Excel
版本:2016
因選單需要顯示為百分比
但如果為字串表示則無法做運算
該如何讓Combobox選項數字顯示為百分比"%"
確有辦法讓該值做運算?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.37.216.201
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1505316474.A.9CA.html
感謝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
... <看更多>