|
각 셀의 숫자앞에 띄우기 담에 숫자가 있는데,,, (첨부참조)
그 셀의 합을 구해야 합니다...
급하게 리플 부탁합니다...
어떻게 해야 하나요..
==============[솔이님 글에 대한 답변입니다]==============
안녕하세요?
사용자정의 함수를 이용하였습니다.
Public Function strTOnum(문자 As String) As Single
Dim intA As Integer
Dim intB As Integer
Dim strA As String
Dim TempS As String
strA = Trim(문자)
intB = Len(strA)
For intA = 1 To intB
If IsNumeric(Mid(strA, intA, 1)) Or Mid(strA, intA, 1) = "." Then
TempS = TempS & Mid(strA, intA, 1)
End If
Next intA
If TempS = "" Then
strTOnum = 0
Else
strTOnum = CSng(TempS)
End If
End Function
그럼.. |
|