일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |
Tags
- 윈도우10 먹통현상 해결하기
- 윈도우 10 슬라이드 종료 단축키 만들기
- net user 사용법
- AIX NAS NFS
- 롤오버 기간을 설정한 비밀번호 마이그레이션 방법
- 메타버스 용어
- javascript redirection code
- AIX NFS
- 삼성멀티캠퍼스SQL
- 무료 이미지 제공 사이트
- 바탕화면에 원격 데스크톱 연결 바로가기 만들기
- 오라클팁
- 한글 기호 자동변환 해제
- 윈도우 10 프리징 해결하기
- 오라클DB팁
- 금리와 물가와의 상관관계
- 작업표시줄 먹통현상 해결하기
- 잘라내기 단축키
- POP폰트
- 복사 단축키
- AIX 버전확인
- OpenSSL 업데이트
- 스타워즈 영화 감상 순서
- 붙여넣기 단축키
- 부자의 그릇 요약
- 레드햇 버전확인
- ie모드 해제
- 엑셀에서 콤마를 제외한 숫자 개수 세기
- 업무에 바로 쓰는 SQL
- 헤드퍼스트SQL
Archives
- Today
- Total
Today is Present.
엑셀 문자열에서 숫자만 계산하기(VBA코드) 본문
문자열에서 문자와 숫자 구성이 다음과 같이 입력되어 있을 때, 숫자만 추출하여 합계를 낸다.
입력서식은 A1 셀값에 전북 50, 충북 20, 서울 100 이라고 입력되었을 경우
VBA 모듈 추가 후 A2 셀값에 =SumNumbers(A1) 이라고 입력하면
사용자 함수(SumNumbers())를 통해 문자열 중 숫자만 추출하여 A2 셀값에 170이라는 결과값을 얻는다.
□ VBA 코드
Function SumNumbers(rngS As Range, Optional strDelim As String = " ") As Double
'Update 20141210
Dim xNums As Variant, lngNum As Long
xNums = Split(rngS, strDelim)
For lngNum = LBound(xNums) To UBound(xNums) Step 1
SumNumbers = SumNumbers + Val(xNums(lngNum))
Next lngNum
End Function
□ 사용자 함수 호출로 인한 결과화면
반드시 입력데이터 구성이 TEXT1 숫자1, TEXT2 숫자2, TEXT3 숫자3 이런식으로 구성되어 있어야 한다.
728x90
반응형
'신속한 업무를 위한 팁' 카테고리의 다른 글
윈도우 10 슬라이드 내려서 PC 종료 버튼 만들기 (0) | 2020.11.25 |
---|---|
업무 향상을 위한 엑셀 단축키/사용팁 안내 (0) | 2020.11.24 |
엑셀에서 텍스트 문자열의 숫자를 제거하기(VBA 코드) (0) | 2020.11.24 |
에듀파인 예산입력자료에서 산출식 문자열 계산 모듈(CalStr) (0) | 2020.11.24 |
엑셀에서 0 표시 없애기 (0) | 2020.11.24 |