엑셀 매크로

Sub ConvertUndoerscoreToCamelCase()

    Dim columnName

    Dim convertedName

    Range("A1").Select

    While Selection.Value <> ""

        columnName = LCase(Selection.Value)

        convertedName = "REPLACE(SUBSTITUTE(PROPER(LOWER(RC[-1])), ""_"", """"), 1, 1, LOWER(LEFT(RC[-1])))"

        Selection.Offset(0, 1).FormulaR1C1 = "=" & convertedName

        Selection.Offset(0, 2).FormulaR1C1 = "=CONCATENATE("", "",UPPER(RC[-2]), "" AS  "", RC[-1])"

        Selection.Offset(1, 0).Select

    Wend

    

End Sub

 

 


 
 
자바스크립트
"GENERATE_DATE".toLowerCase().replace(/_([a-z])/g, function (g) { return g[1].toUpperCase(); });

 
profile

이브리타, 나의 에뜨와르
너와 내가 공유하는 추억
너와 내가 만들 추억