[發問] 表單_運算式

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 101
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-9-22 16:44 | 只看該作者

回復 1# solely

1.
TextBox11 = (Round(Val(Cmbx_health) * 0.0517 * 0.3, 0) - Round(Val(Cmbx_health) * 0.0062 * 0.3, 0)) * (1 + Val(dependant) - Val(subsidy))

2.
換算保費，你要再甚麼時機換算，將結果放在何處?還有就是保費的換算公式為何?

3.
比較簡單作法是，物件的VISIBLE先設為FALSE，啟動表單時再判斷密碼，若密碼正確就全部顯示

測試.rar (115.56 KB)

學海無涯_不恥下問

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

3^#

發表於 2010-9-22 20:47 | 只看該作者

回復 2# Hsieh
1.Val、countdollar我學會怎麼使用了，感謝版主!!
2.換算保費，我是打算在新增資料的時候就算好
至於換算結果，想請問版主是放在sheets(人事資料)
還是另外開個薪資資料存放比較好??(若以隱密性為考量)
3.保費的詳細計算方式，我想自已先試著寫
只是我不知道在表單裡要怎麼抓取sheets(類別)的資料
例如textbox11=VLOOKUP(Cmbx_health,類別!A250,4)*(1+ dependant - subsidy)
vba要怎麼表示
4.以solely密碼進入，下半段的薪資資料看不到
沒用過Public不知道問題出在哪??

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 101
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-9-22 21:47 | 只看該作者

以solely密碼進入，下半段的薪資資料看不到
是因為你使用End結束所有工作
pw表單模組

Private Sub CommandButton1_Click()
If TextBox1 = "12345" Then
menu.Show: GoTo 100
ElseIf TextBox1 = "solely" Then
GoTo 100
End If
ThisWorkbook.Close
100
wp = TextBox1.Text
Unload Me
End Sub

複製代碼

學海無涯_不恥下問

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

5^#

發表於 2010-9-23 22:52 | 只看該作者

本帖最後由 solely 於 2010-9-24 07:42 編輯

回復 4# Hsieh
原來unload和end有差別XDD...謝謝版主~
想請問一下，round不是四捨五入嗎?
為什麼TextBox11健保費若是150,000換算出來的值是2326
我是哪裡出錯了
With Personnel
h = Val(.Cmbx_health)
.TextBox11=Round(h*0.0517*0.3,0)

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 101
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-9-23 23:12 | 只看該作者

回復 5# solely
健保費率計算公式我不知道
你要依照計算公式來設計流程
請有算過健保的人幫忙

學海無涯_不恥下問

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

7^#

發表於 2010-9-23 23:22 | 只看該作者

回復 6# Hsieh

投保薪資<42000
健保費=(投保薪資*5.17%-費差0.62%)*個人負擔30%
投保薪資>42000 and <53000
健保費=(投保薪資*5.17%-費差0.62%*20%)*個人負擔30%
投保薪資>=53000
健保費=(投保薪資*5.17%-費差0)*個人負擔30%
所以round(150,000*0.0517-0)*30%應該是2327
可是程式算出來是2326 不知道是為什麼??

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

8^#

發表於 2010-9-24 00:03 | 只看該作者

我想......可能是我的電腦需要休息了XDD
刪去所有直接算
Sub countdollar()
With Personnel
h = Val(.Cmbx_health)
.TextBox11=Round(h*0.0517*0.3,0)
End With
End Sub
算出來的值是2326... 0.0

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 101
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-9-24 14:43 | 只看該作者

With Personnel
h = Val(.Cmbx_health)
.TextBox11=Application.Round(h*0.0517*0.3,0)
End With
為何會有如此差異?原因為何?還請知道的前輩指導

學海無涯_不恥下問