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

EXCEL VBA ¥Ñ­pºâ»¡©ú­pºâª÷ÃB

EXCEL VBA ¥Ñ­pºâ»¡©ú­pºâª÷ÃB

EXCEL VBA ¥Ñ­pºâ»¡©ú­pºâª÷ÃB

EÄ欰¦Û­q¤§§R°£¦r¦ê(·|¦A¼W¥[)¡A¥Î¨Ó§R°£BÄæ­pºâ»¡©ú¤¤ªº¦r¦ê¡A³Ì«á·|Åܦ¨­pºâ¦¡¡A¦A±N­pºâ¦¡­pºâ¬°CÄõªºª÷ÃB¡C


EXCEL VBA ­pºâ»¡©úÂàª÷ÃB.rar (3.35 KB)

Àµ½Ð¨ó§U¡AÁÂÁÂ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

¦^´_ 1# ML089
  1. Sub nn()
  2. For Each b In Range([B2], [B65536].End(xlUp))
  3.   mystr = b
  4.   For Each a In Range("E:E").SpecialCells(xlCellTypeConstants)
  5.     mystr = Replace(mystr, a, "")
  6.   Next
  7.   b.Offset(, 1) = Evaluate(mystr)
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
·PÁ¡A¸g´ú¸Õ§¹¥þ¥¿½T

¬O§_¥i¥H¦AÀ°¦£§ï¬°¦Û©w¨ç¼Æ
¨Ò¦p§Ú¦b C2 ¿é¤J =­pºâ(B2) ´N¯à­pºâ¥X¨Ó
EÄ檺§R°£¦r¦ê§Ú·Q©ñ¤J¦Û©w¨ç¼Æ¤¤¤ñ¸û¤è«K¨Ï¥Î(¦]¬°¦³¤£¦Pªº®æ¦¡­n¥Î¤~¤£¥Î¤@ª½§ïµ{¦¡)¡A¤]³Â·Ð¹w¯d§R°£¦r¦ê­nÂX¥RªºªÅ¶¡¡A¦A¦¸½Ð°U¡A·PÁÂ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# ML089
  1. Function MyCal(Mystr As String, Rng As Range) As Double
  2. For Each a In Rng
  3.   Mystr = Replace(Mystr, a, "")
  4. Next
  5. MyCal = Evaluate(Mystr)
  6. End Function
½Æ»s¥N½X
C2=mycal(B2,$E$2:$E$6)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

¤Ó´Î¤F¡A¦Û­q¨ç¼ÆÁÙ¬O¤ñ¸û¦n¥Î

³Ì«á¦A³Â·Ð¤@¤U
¦pªG¨S¦³¿é¤J²Ä¤G°Ñ¼Æ®É¡A¥i¥H¥Î¤º©w°Ñ¼Æ­È  "¤ç","¨â","Ä«ªG","­»¿¼","¨F½¼"
¦p¯à§ï¦¨³o¼Ë´N¤Ó§¹¬ü¤F
¥ýÁÂÁ§A
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 5# ML089
  1. Function MyCal(Mystr As String, ParamArray MyStrList()) As Double
  2. For Each a In MyStrList
  3.   Mystr = Replace(Mystr, a, "")
  4. Next
  5. MyCal = Evaluate(Mystr)
  6. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh

ÁÂÁ¦^ÂСA¦ý©M§Ú·Q­nªº¦³ÂI¤£¤@¼Ë¡A¦]¬°§Ú¤£·|§ï¡A§Æ±æ¦A³Â·Ð¤@¤U

¦pªG¨S¦³¿é¤J²Ä¤G°Ñ¼Æ®É¡A¥i¥H¥Î¤º©w°Ñ¼Æ­È  "¤ç","¨â","Ä«ªG","­»¿¼","¨F½¼"

¬O«ü ²Ä¤G°Ñ¼Æ¤´¬O RANGE
¦p ²Ä¤G°Ñ¼Æ¨S¦³¿é¤J®É( =MyCal(B2) )¡A§R°£¦r¦ê¨Ï¥Î FUNCTION¤ºªº¤@²Õ°Ñ¼Æ°}¦C  "¤ç","¨â","Ä«ªG","­»¿¼","¨F½¼" (¼g¦bFUNCTION ¸Ì­±)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 7# ML089
  1. Function MyCal(Mystr As String) As Double
  2. MyStrList=Array("¤ç","¨â","Ä«ªG","­»¿¼","¨F½¼")
  3. For Each a In MyStrList
  4.   Mystr = Replace(Mystr, a, "")
  5. Next
  6. MyCal = Evaluate(Mystr)
  7. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh

§Ú·Q¨Ï¥Î¤WÁÙ¬O¥H³Ì«á³o¤è¦¡¤ñ¸û²³æ
·PÁ§Aªº¤£¹½¨ä·Ðªº¨ó§U

¤£ª¾¹D­n¦p¦óµ¹§A¤@­ÓÆg¡A©Î¹³Y+µ¹§A³Ì¨Î¦^µª
­n¦p¦óCLOSE¥»°ÝÃD?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD