반응형
셀 범위를 입력으로 받아 해당 셀의 값을 문자열로 변환한 후 "<"와 ">" 사이에 있는 모든 문자열을 제외하여 문자열의 길이를 카운트하는 사용자정의 함수입니다.
Function countCharsWithoutTags(rng As Range) As Integer
Dim cellValue As String
cellValue = rng.Value
Do While InStr(cellValue, "<") > 0 And InStr(cellValue, ">") > 0
cellValue = Left(cellValue, InStr(cellValue, "<") - 1) & Mid(cellValue, InStr(cellValue, ">") + 1)
Loop
countCharsWithoutTags = Len(cellValue)
End Function
예를 들어 셀에 "나는 <b>굉장히</b> 멋있다"라는 값이 있으면 이 함수를 사용하여 "=countCharsWithoutTags(A1)"수식을 입력하면 "<b>"와 "</b>"가 제거된 후 남은 문자의 길이인 10(띄어쓰기 포함)을 출력합니다.
'소프트웨어' 카테고리의 다른 글
인공지능을 활용한 안드로이드 앱 개발 (with ChatGPT) (0) | 2023.08.13 |
---|---|
아두이노 IR 리모콘 송신 코드 재작성 (0) | 2023.03.07 |
웹브라우저 도스박스(EM-DOSBOX)용 게임 패키지 툴 소스 (0) | 2022.12.14 |
리모콘 IR신호 수신기 및 송신기 코드 (0) | 2022.10.26 |
에어소프트건 비비로더(자동급탄기) 소스코드 (4) | 2022.10.17 |