도쿄사는 외노자

일본어는 쓰는 문자가 많아서 사람 짜증나게 하는데, 그래서 VBA에서는 한자를 가나로 변환해주는 함수 「GetPhonetic()」를 지원한다. 이를 사용하여 아래와 같은 자동 변환 매크로를 만들 수 있다. A열 : 변환 대상 B열 : 전각 가타카나 C열 : 전각 히라가나 D열 : 반각 가타카나 Sub MakeWordDict() '// 시트 선언 Dim shtWork As String shtWork = "Work" '// 변수 선언 Dim endRow As String Dim targetRange As Range Dim targetCell As Range Dim cellValue As String Dim cellValueKana As String '// 시트 활성화 ThisWorkbook.Sheets(sh..

0001 0002 AAA XXX BBB YYY CCC ZZZ 위와 같은 테이블을, 아래와 같은 JSON으로 바꾸어 출력하고자 한다. { "0001" : ["AAA", "BBB", "CCC"], "0002" : ["XXX", "YYY", "ZZZ"] } 코드는 다음과 같다. Sub MakeJson() '테이블이 있는 시트 설정 Dim shtWork As String shtWork = "Work" '시트 활성화 ThisWorkbook.Sheets(shtWork).Activate '변수 정의 Dim fileName, fileFolder, filePath As String Dim isFirstCol As Boolean Dim i, u As Long Dim maxRow, maxCol As Long 'JSON파일 ..

「0001」이라는 코드를 파라메터로 받아 셀에 설정하는 Sub이 있다. 이 경우, 먼저 대상이 되는 셀의 속성을 「표준」에서 「문자열」로 바꿔야 한다. 표준 속성의 셀에 그대로 해당 코드를 넣을 경우, 값이 그냥 1이 되어 버리기 때문. 코드는 아래와 같다. Sub SetCompanyCode(index, companyCode) '시트 Dim SumSheet As Worksheet Dim shtSum As String shtSum = "SumSheet" '워크시트 Set Set SumSheet = ThisWorkbook.Sheets(shtSum) 'Cell속성을 문자열로 변경 SumSheet.Cells(1, index).NumberFormat = "@" '회사 코드 입력 SumSheet.Cells(1, i..

B열의 모든 셀에 대하여, 강제개행코드를 삭제하기 '변수 선언 및 지정 Dim shtWork As String shtWork = "Work" Dim rngAll As Range Dim rngTarget As Range Dim cellStr As String Dim targetCol As String Dim endRow As Integer '개행코드를 삭제할 열 지정 targetCol = "B" '시트 활성화 Sheets(shtWork).Activate '활성화된 시트 내 지정 열의 마지막 줄 구하기 endRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row + 1 'B열을 Range지정 Set rngAll = Range(Cells(1, tar..

VBA 지정 폴더 내의 파일 Loop와 연계 '특정 리스트로부터 데이터 취득 Sub SumKnowledgeListFile(FileName, index) '통합작업용 시트명 Dim shtWork As String shtWork = "Work" '데이터 시트명 Dim shtData As String shtData = "데이터" Dim ingFile As Workbook Dim ingSheet As Worksheet Dim SumSheet As Worksheet Dim iRow As Integer Dim endCol As Integer Dim endRow As Integer '파라메터로 받은 Path로 데이터 파일 열기 Set ingFile = Workbooks.Open(FileName:=FileName, R..

Sub ClickRead() '화면 업데이트 일시 중지 Application.ScreenUpdating = False '정수 Dim filePath As String Dim fileList() As String Dim FileName As String Dim i As Integer '폴더 선택 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then filePath = .SelectedItems(1) End If End With '파일패스를 취득하지 못한 경우 If filePath = "" Then MsgBox "폴더를 선택해 주세요" Exit Sub End If '파일패스 맨뒤에 "\"가 없을 경우 추가 If Right(fi..

1. 모든 열의 중복행 삭제 '지정한 워크시트에서 중복행 삭제 Sub DeleteDuplicate(TargetSheet) '시트 설정 Set SumSheet = ThisWorkbook.Sheets(TargetSheet) '데이터의 마지막 행 취득 Dim intArray As Variant, i As Integer Dim rng As Range Set rng = SumSheet.UsedRange.Rows With rng '모든 칼럼을 비교 ReDim intArray(0 To .Columns.Count - 1) For i = 0 To UBound(intArray) intArray(i) = i + 1 '중복되는 데이터 삭제 Next i .RemoveDuplicates Columns:=(intArray), He..

1. 전체 시트 초기화 '워크시트 초기화 Sub ClearSheet(TargetSheet) '타겟 시트로 이동하여, 시트를 초기화 Sheets(TargetSheet).Activate With ActiveSheet Range("A1:XFD1048576").ClearContents End With End Sub 'WorkSheet선언 Dim shtWorkKnwl As String shtWorkKnwl = "Work_Knowledge" '시트 초기화 Call ClearSheet(TargetSheet:=shtWorkKnwl) 2. Range지정 초기화 '워크시트의 특정 Range초기화 Sub CustomClearSheet(TargetSheet, TargetRange) 'TargetSheet로 이동하여 지정한 R..

지옥같은 오전 근무시간을 마치고, 점심 뭐먹을지 고민하다가 인도카레를 먹었다. 먹고 페이페이로 계산했더니, 아래와 같이 페이페이 보너스 취득. 현재 페이페이에서는 まちかどペイペイ(마치카도 페이페이) 이벤트를 통해 대상 가게에서 1/20의 확률로 구입액을 매회 Max 1,000엔까지 돌려주고 있다. 난 980엔짜리를 샀으니, 980엔 + 49엔 (Cashless 5%)이 돌아온 것. 그간 회사의 Office Glico로 수도없이 페이페이를 사용해 왔지만... PayPay보너스에 당첨된 것은 단 2번, 그것도 100엔짜리였다. 근데 드디어 오늘, 한방에 1,000엔 가까이 당첨! 딱 점심밥이 980엔이라 엄청나게 이득본 느낌이다. 공짜밥 먹으니 기분 좋다. 오후엔 월도짓 그만하고 일 좀 해야지...

node.js 툴에서 excel파일을 json으로 불러와, 데이터를 만들어야 했다. 일단 원본이 되는 엑셀 파일은 다음과 같다. 이걸 convert-excel-to-json으로 불러와서 재구성한다. 코드는 다음과 같다. const excelToJson = require('convert-excel-to-json'); // 엑셀 파일 const input_form_file = '../data/example.xlsm'; function getDataSheet(){ const excel_sheets = excelToJson({ sourceFile: input_form_file, header: { rows: 3 // 필요없는 줄을 자를 수 있다 }, // 원하는 시트만 골라서 뽑아내기 sheets: ['stock..