Sign-In
Cart
Let's Play with Excel
Paperback
Series: VB Design & Code of Snake & Ladder Game and 51 Excel Macros
Please select the version of book you would like to purchase.
ISBN13: 9798502654241
Publisher: Independently Published
Published: May 11 2021
Pages: 216
Weight: 0.65
Height: 0.46 Width: 6.00 Depth: 9.00
Language: English
Publisher: Independently Published
Published: May 11 2021
Pages: 216
Weight: 0.65
Height: 0.46 Width: 6.00 Depth: 9.00
Language: English
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_Rows_N_Columns()
On Error GoTo ERR
Dim S1, S2 As Variant
Dim change(20), CHANGE2(20), l, M As Integer
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 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 lc = Int(InputBox(Enter Last Column No upto where you want to Encode the Data.))
If lc 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 lr = Int(InputBox(Enter Last Row No upto where you want to Encode the Data.))
If lr 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_Rows_N_Columns()
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 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 lc = Int(InputBox(Enter Last Column No of the Encoded Data.))
If lc hello = lc
lc = ic
ic = hello
End If ir = Int(InputBox(Enter begining Row No of the Encoded Data.))
If ir lr = Int(InputBox(Enter Last Row No of the Encoded Data.))
If lr 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 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
If I 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 lc = Int(InputBox(Enter Last Column No upto where you want to Encode the Data.))
If lc 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 lr = Int(InputBox(Enter Last Row No upto where you want to Encode the Data.))
If lr 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_Rows_N_Columns()
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 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 lc = Int(InputBox(Enter Last Column No of the Encoded Data.))
If lc hello = lc
lc = ic
ic = hello
End If ir = Int(InputBox(Enter begining Row No of the Encoded Data.))
If ir lr = Int(InputBox(Enter Last Row No of the Encoded Data.))
If lr 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 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
1 different editions
Also available
Also in
General Education
A Light in Dark Times: The New School for Social Research and Its University in Exile
Friedlander, Judith
Paperback
$52.50
How to Educate a Citizen: The Power of Shared Knowledge to Unify a Nation
Hirsch, E. D., Jr.
Hardcover
$23.74
The College Scam: How America's Universities Are Bankrupting and Brainwashing Away the Future of America's Youth
Kirk, Charlie
Hardcover
$35.99
Homeschooled: A New York Times Bestselling Memoir and Read with Jenna Pick
Merrill Block, Stefan
Hardcover
From $17.99
7-Figure Educator: Turn Your Experience as an Educator Into Income, Impact, and Freedom
Jordan-Thomas, Erica
Paperback
$18.99
Light Up the Learning Brain: 7 Keys to Reducing Disruptive Behavior in the Classroom
Sinarski, Jessica
Paperback
$16.10
Loteria: First Words / Primeras Palabras (Bilingual: English/Spanish): A Bilingual Picture Book
Rodriguez, Patty
Stein, Ariana
Hardcover
$9.49
The Total Money Makeover: Classic Edition: A Proven Plan for Financial Fitness
Ramsey, Dave
Hardcover
$12.99
Teach Like a Champion 3.0: 63 Techniques That Put Students on the Path to College
Lemov, Doug
Paperback
$35.15
The College Finder: Your comprehensive guide to finding colleges that fit YOUR unique path
Antonoff, Steven R.
McCann M. S., Jay
Paperback
$47.45
Math Fact Fluency: 60+ Games and Assessment Tools to Support Learning and Retention
Bay-Williams, Jennifer
Kling, Gina
Paperback
$34.15
Poisoned Ivies: The Inside Account of the Academic and Moral Rot at America's Elite Universities
Stefanik, Elise
Hardcover
$27.55
The Neurodivergent Learner: A New Approach to Your Child's Success in the Classroom and Beyond
King, Emily W., PhD
Hardcover
$28.80
Why You Should Read Children's Books, Even Though You Are So Old and Wise
Rundell, Katherine
Hardcover
$17.09
The Digital Delusion: How Classroom Technology Harms Our Kids' Learning--And How to Help Them Thrive Again; Updated Edition
Cooney Horvath, Jared, PhD Med
Paperback
$20.90
Miracle Children: Race, Education, and a True Story of False Promises
Green, Erica L.
Benner, Katie
Hardcover
$28.49
The Kids Who Aren't Okay: The Urgent Case for Reimagining Support, Belonging, and Hope in Schools
Greene, Ross W.
Hardcover
$26.60
The Joy of Money: How to Do More with and Feel Better about Your Money--No Matter How Much You Have
Grimes, Carrie Joy
Hardcover
$28.50
The Best 392 Colleges, 2027: In-Depth Profiles & Ranking Lists to Help Find the Right College for You
Soto, David
The Princeton Review
Franek, Robert
Paperback
$25.64
The People's Guide to College Applications: A Week-By-Week Approach to Writing, Connecting, and Getting in
Constantino, Jill
Paperback
$21.95
The Power of the Socratic Classroom: Students. Questions. Dialogue. Learning.
Fischer, Charles Ames
Paperback
$43.75
Lies My Teacher Told Me: Everything Your American History Textbook Got Wrong
Loewen, James W.
Paperback
$18.99
The Station Rotation Model & UDL: Elevate Tier 1 Instruction and Cultivate Learner Agency
Tucker, Catlin R.
Paperback
$25.60
Scholastic Success with Reading Comprehension Grade 2 Workbook
Scholastic Teaching Resources
Paperback
$6.64
Permission to Feel: The Power of Emotional Intelligence to Achieve Well-Being and Success
Brackett, Marc
Paperback
$18.04
Scholastic Success with Reading Comprehension Grade 4 Workbook
Scholastic Teaching Resources
Paperback
$6.64
Financial Feminist: Overcome the Patriarchy's Bullsh*t to Master Your Money and Build a Life You Love
Dunlap, Tori
Hardcover
From $11.99
One Trusted Adult: How to Build Strong Connections & Healthy Boundaries with Young People
Raney Edd, Brooklyn
Paperback
$29.94
What's So Great about the Great Books?: Why You Should Read Classic Literature (Even Though It Might Destroy You)
Kanakia, Naomi
Hardcover
$24.65
Scholastic Success with Reading Comprehension Grade 3 Workbook
Scholastic Teaching Resources
Paperback
$6.64
Better Than Carrots or Sticks: Restorative Practices for Positive Classroom Management
Frey, Nancy
Smith, Dominique
Fisher, Douglas
Paperback
From $11.99
First Little Readers Parent Pack: Guided Reading Level a: 25 Irresistible Books That Are Just the Right Level for Beginning Readers
Schecter, Deborah
Charlesworth, Liza
Paperback
$22.79
The Addiction Recovery Workbook: Powerful Skills for Preventing Relapse Every Day
Freedman, Paula A.
Paperback
$23.74
Original Sins: The (Mis)Education of Black and Native Children and the Construction of American Racism
Ewing, Eve L.
Paperback
$19.80
How to Take Smart Notes: One Simple Technique to Boost Writing, Learning and Thinking
Ahrens, Sönke
Paperback
$21.24
Setting Limits in the Classroom, 3rd Edition: A Complete Guide to Effective Classroom Management with a School-Wide Disciplineplan
Stanzione, Lisa
MacKenzie, Robert J.
Paperback
$17.09
Beyond the Science of Reading: Connecting Literacy Instruction to the Science of Learning
Wexler, Natalie
Paperback
$35.10
Universal Design for Learning: Principles, Framework, and Practice
Rose, David H.
Meyer, Anne
Paperback
$45.60
Culturally Responsive Teaching and the Brain: Promoting Authentic Engagement and Rigor Among Culturally and Linguistically Diverse Students
Hammond, Zaretta L.
Paperback
$37.66
Illuminating Care: The Pedagogy and Practice of Care in Early Childhood Communities
Garboden Murray, Carol
Paperback
$42.50
The Writing Revolution 2.0: A Guide to Advancing Thinking Through Writing in All Subjects and Grades
Hochman, Judith C.
Wexler, Natalie
Paperback
$33.25
Supporting Student Executive Functions: Insights and Strategies for Educators
Carey, Lisa
Reid, Alexis
Paperback
$46.25
AI with Intention: Principles and Action Steps for Teachers and School Leaders
Frontier, Tony
Paperback
$32.25
Mtss for Reading Improvement: A Leader's Tool Kit for Schoolwide Success (Reading Science in Action: An Mtss Tool Kit)
Stollar, Stephanie
Brown, Sarah
Paperback
$43.65
The Naked Roommate: And 107 Other Issues You Might Run Into in College (Revised and Updated)
Cohen, Harlan
Paperback
From $10.99
Hacking School Discipline: 9 Ways to Create a Culture of Empathy and Responsibility Using Restorative Justice
Maynard, Nathan
Weinstein, Brad
Paperback
From $9.99
The Fallacy Detective: Thirty-Eight Lessons on How to Recognize Bad Reasoning
Bluedorn, Hans
Bluedorn, Nathaniel
Paperback
$35.00
Math Practice Workbook Grades 6-8: 1000+ Questions You Need to Kill in Middle School by Brain Hunter Prep
Brain Hunter Prep
Paperback
$18.99
MANUAL SUPERANDO PÉRDIDAS EMOCIONALES, vigésimo aniversario, edición extendida: programa de acción para superar la muerte, el divorcio y otras pérdida
James, John W.
Friedman, Russell
Paperback
$16.14
Reading Assessment Done Right: Tools and Techniques for Data-Driven Instruction
Stollar, Stephanie
Winn, Kate
Paperback
$35.14
The Preparation: How To Become Competent, Confident, and Dangerous
Smith, Maxim
Casey, Doug
Smith, Matt
Hardcover
$42.74
Scholastic Success with Reading Comprehension Grade 5 Workbook
Scholastic Teaching Resources
Paperback
$6.64
The Golden Thread: A History of the Western Tradition, Volume I: The Ancient World and Christendom
Hankins, James
Guelzo, Allen C.
Hardcover
$114.00
The Essentials of Adolescent Literacy: Integrating Evidence-Based Reading and Writing Instruction in Grades 5-12
Sedita, Joan
Paperback
$52.73
The Inspired Homeschool: How History's Heroes Light a Path Toward Joyful, Confident Learning
Pepito, Jennifer
Hardcover
$23.74
The Resistance Solution: Why Educators Resist Change and What They Need Instead
Silver, Becca
Paperback
$23.74
Teaching with Dignity: How to Create Classroom Ecosystems Where People Thrive
Krownapple, John
Cobb, Floyd
Snyder, Summer
Paperback
$26.55
Fostering Resilient Learners: Strategies for Creating a Trauma-Sensitive Classroom
Souers, Kristin
Hall, Pete
Paperback
$35.10
Your Students, My Students, Our Students: Rethinking Equitable and Inclusive Classrooms
Fisher, Douglas
Jung, Lee Ann
Frey, Nancy
Paperback
$33.20
Unearthing Joy: A Guide to Culturally and Historically Responsive Curriculum and Instruction
Muhammad, Gholdy
Paperback
$35.14
The Essential Homeschool Kindergarten Workbook: 135 Fun Curriculum-Based Activities to Build Reading, Writing, and Math Skills!
Lewallen, Hayley
Paperback
$12.34
Creating a Language-Rich Math Class: Strategies and Activities for Building Conceptual Understanding
Atkins, Sandra L.
Paperback
$55.99
The Opposite of Cheating: Teaching for Integrity in the Age of AI Volume 4
Bertram Gallant, Tricia
Rettinger, David A.
Paperback
$34.93
Thriving with ADHD Workbook for Kids: 60 Fun Activities to Help Children Self-Regulate, Focus, and Succeed
Miller, Kelli, Lcsw MSW
Paperback
$17.09
Enhancing Professional Practice: The Framework for Teaching
Furman, Jim S.
Kappes, Lee
Danielson, Charlotte
Paperback
$37.95
Handwriting Practice Book for Kids Ages 6-8: Printing workbook for Grades 1, 2 & 3, Learn to Trace Alphabet Letters and Numbers 1-100, Sight Words, 10
Hippidoo
Lalgudi, Sujatha
Paperback
$11.99
Learn to Read Activity Book: 101 Fun Phonics Lessons to Teach Your Child to Read
Braun, Hannah, M. Ed
Paperback
$13.29
CompTIA Tech+ Certification All-in-One Exam Guide, Third Edition (Exam FC0-U71)
Wempen, Faithe
Paperback
$57.00
First Little Readers Parent Pack: Guided Reading Level B: 25 Irresistible Books That Are Just the Right Level for Beginning Readers
Schecter, Deborah
Charlesworth, Liza
Paperback
$22.79
The Preparation: How To Become Competent, Confident, and Dangerous
Smith, Maxim
Casey, Doug
Smith, Matt
Paperback
$33.24
The Principal's Playbook on Instructional Leadership: 23 Things That Matter Most for Improving Student Achievement
McLaurin Ed D. Nbct, Josh
Paperback
$18.04
The 5 Love Languages of Children: The Secret to Loving Children Effectively
Chapman, Gary
Campbell, Ross
Paperback
$16.14
Teaching with AI: A Practical Guide to a New Era of Human Learning
Bowen, José Antonio
Watson, C. Edward
Paperback
$36.33
Forward, Together: Moving Schools from Conflict to Community in Contentious Times
Couros, George
Paperback
$23.70
Facing the Fantasy, Finding the Way Forward: Every Educator's Guide to Moving Beyond Behavior Management to Lasting Behavioral Change Using Neuroscien
Bowman, Doris
Bowman, Rick
Paperback
$45.54
Scholastic Success with Reading Comprehension Grade 1 Workbook
Scholastic Teaching Resources
Paperback
$6.64
The Writing Revolution 2.0: A Guide to Advancing Thinking Through Writing in All Subjects and Grades
Hochman, Judith C.
Wexler, Natalie
Paperback
$39.90
Transform Your Teaching with Universal Design for Learning: Six Steps to Jumpstart Your Practice
Pusateri, Jennifer L.
Paperback
$33.60
What Happened to College?: How Politics Broke Higher Education and What We Can Do to Fix It
Gross, Neil
Hardcover
$28.50
Black People Invented Everything: The Deep History of Indigenous Creativity
Dass, Sujan Kumar
Paperback
$41.93