Hsieh

¦^´_ 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.
´«ºâ«O¶O¡A§A­n¦A¬Æ»ò®É¾÷´«ºâ¡A±Nµ²ªG©ñ¦b¦ó³B?ÁÙ¦³´N¬O«O¶Oªº´«ºâ¤½¦¡¬°¦ó?

3.
¤ñ¸û²³æ§@ªk¬O¡Aª«¥óªºVISIBLE¥ý³]¬°FALSE¡A±Ò°Êªí³æ®É¦A§PÂ_±K½X¡A­Y±K½X¥¿½T´N¥þ³¡Åã¥Ü
´ú¸Õ.rar (115.56 KB)

¤U¸ü¦¸¼Æ: 8

2010-9-22 16:44

Hsieh

¥Hsolely±K½X¶i¤J¡A¤U¥b¬qªºÁ~¸ê¸ê®Æ¬Ý¤£¨ì
¬O¦]¬°§A¨Ï¥ÎEndµ²§ô©Ò¦³¤u§@
pwªí³æ¼Ò²Õ

1. Private Sub CommandButton1_Click()
   
2. If TextBox1 = "12345" Then
   
3.     menu.Show: GoTo 100
   
4.    ElseIf TextBox1 = "solely" Then
   
5.    GoTo 100
   
6. End If
   
7.      ThisWorkbook.Close
   
8. 100
   
9. wp = TextBox1.Text
   
10. Unload Me
    
11. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# solely
°·«O¶O²v­pºâ¤½¦¡§Ú¤£ª¾¹D
§A­n¨Ì·Ó­pºâ¤½¦¡¨Ó³]­p¬yµ{
½Ð¦³ºâ¹L°·«Oªº¤HÀ°¦£

Hsieh

With Personnel
   h = Val(.Cmbx_health)
  .TextBox11=Application.Round(h*0.0517*0.3,0)
End With
¬°¦ó·|¦³¦p¦¹®t²§?­ì¦]¬°¦ó?ÁٽЪ¾¹Dªº«e½ú«ü¾É