hücredeki rakamlari harf karşiliklarina çevirme
ID :
1087
ISLEM :
hücredeki rakamlari harf karşiliklarina çevirme
MAKRO KODU :
lgili hücreleri seçtikten sonra;
Kod:
Sub Encrypt2()
Dim Array1, Array2
Dim i As Integer
Dim MyRng As Range
Array1 = Array("a", "N", "b", "t", "S", "E", "T", "K", "I", "Z")
Array2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For Each MyRng In Selection
For i = LBound(Array1) To UBound(Array1)
MyRng = WorksheetFunction.Substitute(MyRng, Array1(i), Array2(i))
Next
Next
End Sub
'
Sub Decrypt2()
Dim Array1, Array2
Dim i As Integer
Dim MyRng As Range
Array1 = Array("a", "N", "b", "t", "S", "E", "T", "K", "I", "Z")
Array2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For Each MyRng In Selection
For i = LBound(Array1) To UBound(Array1)
MyRng = WorksheetFunction.Substitute(MyRng, Array2(i), Array1(i))
Next
Next
End Sub