- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ 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°õ¦æ¸Óµ{¦¡. |
|