ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ªí³æ_¹Bºâ¦¡

[µo°Ý] ªí³æ_¹Bºâ¦¡

¥»©«³Ì«á¥Ñ solely ©ó 2011-6-5 22:18 ½s¿è

³o´X¤Ñ¬Ý¤Foobird Hsieh¨â¦ì¦Ñ®vªº¦^¤å(«OÅ@¤u§@ªí)
§Ú¤]¼ÒÀÀ¤F¤@¤U¡A·PıÆZ¬¯ªº...pw¡÷menu¡÷personnel
¨Ï¥ÎªÌªº±K½X12345 ¦Û¤wªº±K½Xsolely(Á`¤£¯à§â¦Û¤w¤]Âê¤FXD)
¥Ñ©ó§ÚªºÅÞ¿èÆ[©À¤£¦n¡A¤]ÁÙ¤£·|¥Îwith¡A©Ò¥H¨Ï¥Î¤Fif.
§Úªº°ÝÃD¬O.....

1.§Ú·Q¦bkeyin§ë«Oª÷ÃB«á¡A¦Û°ÊÅã¥Ü°·«O¶O
   ¥i¬O§Ú­Y¤£¥ý¿é¤J²²¤f¼Æ©M¸É§Uªº¤H¼Æ´N·|¸õ²§±`-.-"""
  1. Private Sub Cmbx_health_Change()
  2. TextBox11 = (Round(Cmbx_health * 0.0517 * 0.3, 0) - Round(Cmbx_health * 0.0062 * 0.3, 0)) * (1 + dependant - subsidy)
  3. End Sub
½Æ»s¥N½X
2.­Y¬O§Q¥Î§Úªº(¤u§@ªí_Ãþ§O)¨Ó´«ºâ«O¶O¡A¤S¸Ó¦p¦ó¼gµ{¦¡??
3.¦p¤W¹Ï ¤W¥b¬q¬O°ò¥»¤H¨Æ¸ê®Æ ¤U¥b¬q¬OÁ~¸ê¸ê®Æ
   ¬O§_¦³¤èªk ¦b¦@¥Î¦P¤@±iªí³æ(personnel)ªº±¡ªp¤U
   ¥i¥HÅý¨Ï¥ÎªÌ12345¥u¬Ý¨ì¤W¥b¬qªº¸ê®Æ
   ´¿·Q¹L§Q¥ÎIf ct.Name Like "TextBox*" Then ct.Visible = falseªº¤è¦¡
   ¥i¬O¤£ª¾¹D«ç»ò¹B¥Î?
[attach]2844[/attach]

¦^´_ 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)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
1.Val¡Bcountdollar§Ú¾Ç·|«ç»ò¨Ï¥Î¤F¡A·PÁª©¥D!!
2.´«ºâ«O¶O¡A§Ú¬O¥´ºâ¦b·s¼W¸ê®Æªº®É­Ô´Nºâ¦n
    ¦Ü©ó´«ºâµ²ªG¡A·Q½Ð°Ýª©¥D¬O©ñ¦bsheets(¤H¨Æ¸ê®Æ)
    ÁÙ¬O¥t¥~¶}­ÓÁ~¸ê¸ê®Æ¦s©ñ¤ñ¸û¦n??(­Y¥HÁô±K©Ê¬°¦Ò¶q)
3.«O¶Oªº¸Ô²Ó­pºâ¤è¦¡¡A§Ú·Q¦Û¤w¥ý¸ÕµÛ¼g
    ¥u¬O§Ú¤£ª¾¹D¦bªí³æ¸Ì­n«ç»ò§ì¨úsheets(Ãþ§O)ªº¸ê®Æ
    ¨Ò¦ptextbox11=VLOOKUP(Cmbx_health,Ãþ§O!A250,4)*(1+ dependant - subsidy)
   vba­n«ç»òªí¥Ü
4.¥Hsolely±K½X¶i¤J¡A¤U¥b¬qªºÁ~¸ê¸ê®Æ¬Ý¤£¨ì
    ¨S¥Î¹LPublic¤£ª¾¹D°ÝÃD¥X¦b­þ??

TOP

¥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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ solely ©ó 2010-9-24 07:42 ½s¿è

¦^´_ 4# Hsieh
­ì¨Óunload©Mend¦³®t§OXDD...ÁÂÁª©¥D~
·Q½Ð°Ý¤@¤U¡Around¤£¬O¥|±Ë¤­¤J¶Ü?
¬°¤°»òTextBox11°·«O¶O ­Y¬O150,000´«ºâ¥X¨Óªº­È¬O2326
§Ú¬O­þ¸Ì¥X¿ù¤F
With Personnel
   h = Val(.Cmbx_health)
  .TextBox11=Round(h*0.0517*0.3,0)

TOP

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

TOP

¦^´_ 6# Hsieh

§ë«OÁ~¸ê<42000
°·«O¶O=(§ë«OÁ~¸ê*5.17%-¶O®t0.62%)*­Ó¤H­t¾á30%
§ë«OÁ~¸ê>42000 and <53000
°·«O¶O=(§ë«OÁ~¸ê*5.17%-¶O®t0.62%*20%)*­Ó¤H­t¾á30%
§ë«OÁ~¸ê>=53000
°·«O¶O=(§ë«OÁ~¸ê*5.17%-¶O®t0)*­Ó¤H­t¾á30%
©Ò¥Hround(150,000*0.0517-0)*30%À³¸Ó¬O2327
¥i¬Oµ{¦¡ºâ¥X¨Ó¬O2326  ¤£ª¾¹D¬O¬°¤°»ò??

TOP

§Ú·Q......¥i¯à¬O§Úªº¹q¸£»Ý­n¥ð®§¤FXDD
§R¥h©Ò¦³ª½±µºâ
Sub countdollar()
With Personnel
   h = Val(.Cmbx_health)
  .TextBox11=Round(h*0.0517*0.3,0)
End With
End Sub
ºâ¥X¨Óªº­È¬O2326... 0.0

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD