Rate this book
What to read after Let's Play with Excel?
Hello there! I go by the name Robo Ratel, your very own AI librarian, and I'm excited to assist you in discovering your next fantastic read after "Let's Play with Excel" by ANURAG S PANDEY! 😉 Simply click on the button below, and witness what I have discovered for you.
Exciting news! I've found some fantastic books for you! 📚✨ Check below to see your tailored recommendations. Happy reading! 📖😊
Two of 51 Macros from this book are given below:
Macros to Encode and Decode the Sheet
[Please check both the Macros by copying into VB Editor of Any Excel file. Then RUN the Macro.]
Sub Encode_the_Sheet_Selected_
On Error GoTo ERR
Dim S1, S2 As Variant
Dim change(20), CHANGE2(20), l, M As Integer
Dim ic, lc, ir, lr, hello, J, k As Long
For I = 1 To 20
If I < 11 Then
change(I - 1) = I * I
CHANGE2(I - 1) = I * 4
Else
change(I - 1) = I * 3
CHANGE2(I - 1) = I * 2
End If
Next
ic = Int(InputBox("Enter begining Column No from where you want to Encode the Data."))
If ic < 1 Or ic = Empty Then ic = 1
lc = Int(InputBox("Enter Last Column No upto where you want to Encode the Data."))
If lc < ic Or lc = Empty Then
hello = lc
lc = ic
ic = hello
End If
ir = Int(InputBox("Enter begining Row No from where you want to Encode the Data."))
If ir < 1 Or ir = Empty Then ir = 1
lr = Int(InputBox("Enter Last Row No upto where you want to Encode the Data."))
If lr < ir Or lr = Empty Then
hello = lr
lr = ir
ir = hello
End If
M = 0
For J = ir To lr
For k = ic To lc
S1 = ""
S1 = """" & Sheets("Sheet1").Cells(J, k).NumberFormat & """"
S1 = S1 & Sheets("Sheet1").Cells(J, k).Value
Sheets("Sheet1").Cells(J, k).NumberFormat = "General"
S2 = """"
l = 0
For I = 1 To Len(S1)
S2 = S2 & Chr(Asc(Mid(S1, I, 1)) + change(l) + CHANGE2(M))
l = l + 1
If l > 19 Then l = 0
Next
M = M + 1
If M > 19 Then M = 0
Sheets("Sheet1").Cells(J, k).Value = S2
Next
Next
Exit Sub
ERR:
MsgBox ERR.Number & " " & ERR.Description
End Sub
Sub Decode_the_Sheet_Selected_
On Error GoTo ERR
Dim S1, S2, s3 As Variant
Dim change(20), CHANGE2(20), l As Integer
Dim ic, lc, ir, lr, hello, J, k As Long
For I = 1 To 20
If I < 11 Then
change(I - 1) = I * I
CHANGE2(I - 1) = I * 4
Else
change(I - 1) = I * 3
CHANGE2(I - 1) = I * 2
End If
Next
MsgBox ("You are required to tell exact Begining and End Columns and Rows Nos. of Encoded Data.")
ic = Int(InputBox("Enter begining Column No of the Encoded Data."))
If ic < 1 Or ic = Empty Then ic = 1
lc = Int(InputBox("Enter Last Column No of the Encoded Data."))
If lc < ic Or lc = Empty Then
hello = lc
lc = ic
ic = hello
End If
ir = Int(InputBox("Enter begining Row No of the Encoded Data."))
If ir < 1 Or ir = Empty Then ir = 1
lr = Int(InputBox("Enter Last Row No of the Encoded Data."))
If lr < ir Or lr = Empty Then
hello = lr
lr = ir
ir = hello
End If
M = 0
For J = ir To lr
For k = ic To lc
S1 = ""
S1 = Sheets("Sheet1").Cells(J, k).Value
S2 = ""
l = 0
For I = 2 To Len(S1)
S2 = S2 & Chr(Asc(Mid(S1, I, 1)) - (change(l) + CHANGE2(M)))
l = l + 1
If l > 19 Then l = 0
Next
For I = 2 To Len(S2)
If Mid(S2, I, 1) = """" Then
s3 = Mid(S2, 2, I - 2)
S1 = Right(S2, Len(S2) - I)
Exit For
End If
Next
M = M + 1
If M > 19 Then M = 0
If Left(S2, 1) = """" And I <= Len(S2) Then
Sheets("Sheet1").Cells(J, k).Value = S1
Sheets("Sheet1").Cells(J, k).Select
Selection.NumberFormat = s3
End If
Next
Next
Exit Sub
ERR:
MsgBox ERR.Number & " " & ERR.Description
End Sub
Do you want to read this book? 😳
Buy it now!
Are you curious to discover the likelihood of your enjoyment of "Let's Play with Excel" by ANURAG S PANDEY? Allow me to assist you! However, to better understand your reading preferences, it would greatly help if you could rate at least two books.
