ªð¦^¦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]

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD