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

[µo°Ý] ¦p¦ó±Nvba¼Ò²Õ°µ¦¨¨ç¼Æ«ü¥O¡A´O¨ì¨t²Î¸Ì

¥»©«³Ì«á¥Ñ luhpro ©ó 2010-7-23 00:06 ½s¿è

§A¥i°Ñ¦Ò VBA ªº»¡©ú¤¤Ãö©ó MacroOptions ¨ç¼Æªº¥Îªk»P½d¨Ò.

Sub AddUDFToCustomCategory()
    Application.MacroOptions Macro:="SplitRun", Description:="¥¨¶°ªº»¡©ú", Category:="§ÚªºÃþ§O"
End Sub

Function SplitRun(«ü©w, ²Å¸¹, ¦^¶Ç§Ç¸¹)

  Dim StrRun
  StrRun = Split(«ü©w, ²Å¸¹)
   SplitRun = StrRun(¦^¶Ç§Ç¸¹ - 1)
End Function

¦¹ªk¤¤©Ò«Ø¥ß¥X¨Óªº¨ç¼Æ¥u¯à¥Î©ó¸Óµ{¦¡©Ò¦bªºÀÉ®×,
¦ý¦sÀÉ«á§Y¥i¤@ª½¨Ï¥Î¦Ó¤£¦A»Ý­n°õ¦æ¸Óµ{¦¡.

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD