Show pageOld revisionsBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. ```vb Function re(CellLocation As Range, RegPattern As String) Dim OutPutStr As String Dim RegEx As Object, RegMatchCollection As Object, RegMatch As Object Set RegEx = CreateObject("vbscript.regexp") With RegEx .Global = True .Pattern = RegPattern End With OutPutStr = "" Set RegMatchCollection = RegEx.Execute(CellLocation.Value) For Each RegMatch In RegMatchCollection OutPutStr = OutPutStr & RegMatch Next re = OutPutStr End Function ``` ```vb Function CamelCase(str) Dim arr, i arr = Split(LCase(str), "_") For i = LBound(arr) + 1 To UBound(arr) arr(i) = UCase(Left(arr(i), 1)) & Mid(arr(i), 2) Next CamelCase = Join(arr, "") End Function ``` open/excel-모듈.txt Last modified: 2024/10/05 06:15by 127.0.0.1