Thx! how similar is vba code to
vb code in visual basic? if you know one, do you know the other?
ok, here's the code:
Option Explicit
Dim stText As String
Dim iLength As Integer
Dim iCurrPosition As Integer
Dim stCurrChr As String
Dim lSum As Long
Dim stNums As String
Const a As Integer = 1
Const b As Integer = 2
Const c As Integer = 3
Const d As Integer = 4
Const e As Integer = 5
Const f As Integer = 6
Const g As Integer = 7
Const h As Integer = 8
Const i As Integer = 9
Const j As Integer = 10
Const k As Integer = 11
Const l As Integer = 12
Const m As Integer = 13
Const n As Integer = 14
Const o As Integer = 15
Const p As Integer = 16
Const q As Integer = 17
Const r As Integer = 18
Const s As Integer = 19
Const t As Integer = 20
Const u As Integer = 21
Const v As Integer = 22
Const w As Integer = 23
Const x As Integer = 24
Const y As Integer = 25
Const z As Integer = 26
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
stText = Target
iLength = Len(stText)
stNums = ""
lSum = 0
For iCurrPosition = 1 To iLength
stCurrChr = Mid(stText, iCurrPosition, 1)
Select Case stCurrChr
Case "a", "A"
stNums = stNums & a & ", "
lSum = lSum + a
Case "b", "B"
stNums = stNums & b & ", "
lSum = lSum + b
Case "c", "C"
stNums = stNums & c & ", "
lSum = lSum + c
Case "d", "D"
stNums = stNums & d & ", "
lSum = lSum + d
Case "e", "E"
stNums = stNums & e & ", "
lSum = lSum + e
Case "f", "F"
stNums = stNums & f & ", "
lSum = lSum + f
Case "g", "G"
stNums = stNums & g & ", "
lSum = lSum + g
Case "h", "H"
stNums = stNums & h & ", "
lSum = lSum + h
Case "i", "I"
stNums = stNums & i & ", "
lSum = lSum + i
Case "j", "J"
stNums = stNums & j & ", "
lSum = lSum + j
Case "k", "K"
stNums = stNums & k & ", "
lSum = lSum + k
Case "l", "L"
stNums = stNums & l & ", "
lSum = lSum + l
Case "m", "M"
stNums = stNums & m & ", "
lSum = lSum + m
Case "n", "N"
stNums = stNums & n & ", "
lSum = lSum + n
Case "o", "O"
stNums = stNums & o & ", "
lSum = lSum + o
Case "p", "P"
stNums = stNums & p & ", "
lSum = lSum + p
Case "q", "Q"
stNums = stNums & q & ", "
lSum = lSum + q
Case "r", "R"
stNums = stNums & r & ", "
lSum = lSum + r
Case "s", "S"
stNums = stNums & s & ", "
lSum = lSum + s
Case "t", "T"
stNums = stNums & t & ", "
lSum = lSum + t
Case "u", "U"
stNums = stNums & u & ", "
lSum = lSum + u
Case "v", "V"
stNums = stNums & v & ", "
lSum = lSum + v
Case "w", "W"
stNums = stNums & w & ", "
lSum = lSum + w
Case "x", "X"
stNums = stNums & x & ", "
lSum = lSum + x
Case "y", "Y"
stNums = stNums & y & ", "
lSum = lSum + y
Case "z", "Z"
stNums = stNums & z & ", "
lSum = lSum + z
End Select
Next
iLength = Len(stNums)
stNums = Left(stNums, iLength - 2)
Target.Offset(0, 1) = stNums
Target.Offset(0, 2) = lSum
Application.EnableEvents = True
End If
End Sub