Windows 10에서 시작 프로그램 (윈도우 켜질 때 같이 시작되는 프로그램 추가하는 방법)

윈도우 + R 키 누르면 나오는 실행창에 아래와 같이 입력하면 탐색기가 열린다.

shell:startup


탐색기가 열리면, 어떤 폴더를 가리키고 있을 것인데, 
거기에 바로가기나 단독으로 실행 가능한 exe 파일을 복사하면ㄷ된다.

Excel 모든 시트 셀 내용만 지우기

아래의 스크립트를실행한다.

Sub 모든시트내용지우기()

         Dim WS_Count As Integer
         Dim i As Integer

         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For i = 1 To WS_Count

            ' 여기에 원하는 코드를 넣는다. 열린 파일에 숨긴 시트가 있으면 에러날 때가 있음
            Debug.Print ("시트 변경함 : " + ActiveWorkbook.Worksheets(i).name)
            ActiveWorkbook.Worksheets(i).Select 
            Cells(1, 1).Select
            
            '모든 셀 내용 삭제
            Cells.Select
            Selection.ClearContents

         Next i

End Sub

vba 로 color=#ffffff 태그 깨진 것 찾기

시간이 너무 없었다.

태그가 어디에서 깨졌는지 모르겠는데, 처리해야 할 스트링 양이너무 많았다.

남은시간은 30분 정도...

그래서 TAG verifty 관련하여 vba 툴을 검색하다가 시간이 없어서 대충 몇가지 조건으로 거르도록 했다.
아래는 3가지 조건이다.

1. TAG 꺽쇄가 짝수인가.
2. TAG가 OPEN CLOSE 로 구성되어있는가.
3. TAG 에 알 수 없는 다양한 미스로 인해 결과문에 태그의 일부가 노출되는가.

아래 코드는 부끄럽지만, 빠르게 확인해보기 위한 것이니까 그냥 작성했다.
에러가 발생한 내용에는 "#COLOR_TAG_ERROR"를 담아 리턴하기로 한다.

Function checkColorTagVerify(str_)
' "Microsoft VBScript Regular Expressions 5.5"  를 선택하고 실행하여야한다

'검사할 문장
Dim sText As String
sText = str_

'태그 꺽쇄 갯수를 찾아서 나머지가 발생하면 에러로 간주
Dim charactercountA As Integer
Dim charactercountB As Integer

charactercountA = Len(str_) - Len(Replace(str_, "<", ""))
charactercountB = Len(str_) - Len(Replace(str_, ">", ""))

'Debug.Print (charactercountA)
'Debug.Print (charactercountB)

If charactercountA Mod 2 > 0 Then
sText = "#COLOR_TAG_ERROR"
End If

If charactercountB Mod 2 > 0 Then
sText = "#COLOR_TAG_ERROR"
End If

'혹시 모를 나머지 검사...
Dim find_ As Integer '시작 태그 깨짐으로 color= 만 남는 경우
Dim find2_ As Integer '끝 태그 깨짐으로 /color 만 남는 경우
Dim find3_ As Integer '시작태그는 있는데 끝 태그가 없는 경우,
Dim find4_ As Integer '시작태그는 있는데 끝 태그가 없는 경우의 반대

'Debug.Print (sText)


find3_ = InStr(sText, " 0 And find4_ = 0 Then
    sText = "#COLOR_TAG_ERROR"
End If

If find4_ > 0 And find3_ = 0 Then
    sText = "#COLOR_TAG_ERROR"
End If


'정규식 시작

Dim regEx
Set regEx = New RegExp

regEx.Pattern = "<[^>]+>"  '--- html tag match를 위한 정규식
regEx.IgnoreCase = True
regEx.Global = True
sText = regEx.Replace(sText, "")

'Debug.Print sText

'정규식 끝


find_ = InStr(sText, "color=")
find2_ = InStr(sText, "/color")

If find_ > 0 Then
    sText = "#COLOR_TAG_ERROR"
End If

If find2_ > 0 Then
    sText = "#COLOR_TAG_ERROR"
End If

checkColorTagVerify = sText

End Function

테스트결과

Excel 파일 Compare 하기

COM 추가기능에 Inquire 를 추가하면 Excel 파일을 비교하는 기능을 사용할 수 있다.

Inquire 추가 방법

Excel 에서 JSON 파싱하기 (VBA사용, excel 365에서 확인 완료)

좋은 방법이 있을까 고민하다가 선구자를 따라가기로 했다.
github에 괜찮은 도구가 있어서 이것을 소개한다.

해당 git에서 "JsonConverter.bas" 파일을 VBA 프로젝트로 가져오기 (Import) 하면 끝
JsonConverter 라는 module 이 추가된다.
(vb6.0 에서 microsoft scripting runtime 참조 체크 해두어야 했던것 같음)

Windows Only, Mac용에서 사용하려면 추가 라이브러리의 설치가 필요한데 이건 안해봤음.(현재 Mac이 없음)

사용 방법 샘플 코드

Private Sub VBA_JSON_TEST()
Dim JSON_ As String
Dim Parse As Object

'json 소스
    JSON_ = "{  ""data"": {    ""translations"": [      {        ""translatedText"": ""welcome."",        ""detectedSourceLanguage"": ""ko""      }    ]  }}"
    Set Parse = JSONConverter.ParseJson(JSON_)

    '접근 방법
    Debug.Print Parse("data")("translations")(1)("translatedText")

End Sub

https://github.com/VBA-tools/VBA-JSON

Excel 어떤 단어가 몇개 포함하고 있는지 계산하는 방법

정규식으로 하려다가 엑셀 기능 가지고 해보게 된 일이 있는데...

어떤 단어가 1개 이상 포함된 경우 이것이 몇개 포함되었는지 확인하는 계산식이다.

만일 G2라는 셀에 "abc(VALUE)ab(VALUE)abcd(VALUE)eee"라는 값이 있는데 여기에는 (VALUE)라는 단어가 3개 존재하고 있다. 이게 3개가 있음을 확인하는 방법이다.

1. 일단 G2의 전체 길이를 알아낸다.
2. (VALUE)를 모두 제거한 값의 길이를 알아낸다.
3. (VALUE)는 7글자이므로 1에서 2를 뺀 뒤, 7로 나눈 값이 포함된 갯수를 의미한다.

엑셀 수식으로 하면 이렇게 된다.

=(LEN(G2)-LEN(SUBSTITUTE(G2,"(VALUE)","")))/LEN("(VALUE)")

Excel 123 을 ABC로 변경하기 (숫자를 알파벳으로)

입력된 숫자를 순서대로 ABC로 표시해주는 VBA 함수
쓸일이 있어서 찾아본 뒤 기록함.

출처 : https://ateitexe.com/change-alphabet-integer/

Function CNumAlp(va As Variant) As Variant '?換する??
  Dim al As String
 
  If IsNumeric(va) = True Then '?値だったら
    al = Cells(1, va).Address(RowAbsolute:=False, ColumnAbsolute:=False) '$無しでAddress取得
    CNumAlp = Left(al, Len(al) - 1)
  Else 'アルファベットだったら
    CNumAlp = Range(va & "1").Column '列番?を取得
  End If
End Function