versi makroh (UDF) nya mungkin spt ini
Function Sum2Angka(N As Long, Optional Krite As String = "max") As Long
Dim i As Integer, arrN(), a, b
ReDim arrN(1 To Len(Trim(Abs(N))))
For i = 1 To Len(Trim(Abs(N)))
arrN(i) = Val(Mid(N, i, 1))
Next i
With WorksheetFunction
If LCase(Krite) = "max" Or IsEmpty(Krite) Then
a = .Large(arrN(), 1)
b = .Large(arrN(), 2)
ElseIf LCase(Krite) = "min" Then
a = .Small(arrN(), 1)
b = .Small(arrN(), 2)
End If
End With
* Sum2Angka = a + b*
End Function
sintaksnya di worksheet,
misal data yg akan diproses ada di A1
=SUM2ANGKA(A1,"MAX")
=SUM2ANGKA(A1,"MIN")
2009/9/8 Slamet Harto <[email protected]>
>
> kira-kira pertanyaan begini:
>
> menjumlahkan bilangan terkecil
> Di cell A1 ada bilangan 1213 di B1 menghasilkan 2 berasal dari 1+1
> Di Cell A2 ada bilangan 15273 di B2 menghasilkan 3 berasal dari 1+2
>
> menjumlahkan bilangan terbesar
> Di cell D1 ada 1213 di E1 menghasilkan 5 berasal dari 2+3
> Di cell D2 ada 15273 do E2 menghasilkan 12 berasal dari 5+7
>
> Kira-kira formulanya gimana or makrohnya gimana yaaa?
> Kalo penjawab membuatkan Workbuknya /// yaa terima kasih banyak
>
> Wassalam
