Titre: Let's Play with Excel (VB Design & Code of Snake & Ladder Game and 51 Excel Macros)
�diteur: Independently published
Date de parution: 2021
Langue: anglais
ISBN � 13 chiffres: 9798502654241
Reliure: Couverture souple
�tat de l'article: New

A propos de ce titre

Synopsis

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
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_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 < 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

Les informations fournies dans la section � A propos du livre � peuvent faire r�f�rence � une autre �dition de ce titre.

Description de la librairie

Hello! Ria Christie Collections is an online venture that was initially set up in 2012 to sell books. We do not have a physical high street store. We are professional online booksellers. We only sell brand new books in perfect condition that we source from various suppliers and the publishers. Primarily, our aim is to provide an excellent service to all our customers. We always work as a team to achieve this. Our other objectives are to: 1. Ensure that all our products reach their destination quickly in a safe and secure manner 2. Answer to all our customer queries within 24 hours 3. Ensure that our customers are happy with their purchases 4. Provide all the items at a competitive price 5. Always listen to our customers Ria Christie Collections is not a registered company. It is a Sole Trader venture. Other key information is shown below: Contact Person Name: Rakesh Luchmun (Mr) Storefront Name: Ria Christie Collections Place of Establishment Address: Suite B; ARUN House; ARUN Building Arundel Road Uxbridge UB8 2RR United Kingdom E-Mail Address: riachristie@hotmail.co.uk VAT Number: GB 160 5650 25 We always work hard and aim to comply with all of Abebooks Policies. If you have any issues, please do not hesitate to write to us whether before or after a purchase. We promise to reply to you promptly and, in any case, within 24 hours. Thank you kindly! Yours sincerely Mr Rakesh Luchmun (Founder) and the Ria Christie Collections Team

Visitez la page d�accueil du vendeur

Informations commerciales relatives au vendeur

Ryefield Investments Limited
175 Pield Heath Road, Uxbridge, UB8 3NL, United Kingdom

Conditions de vente et de livraison

Conditions g�n�rales de vente

All Returns and Refund are as per Abebooks policies.

Droit de r�tractation

Si vous �tes un consommateur, vous pouvez vous r�tracter du pr�sent contrat dans les conditions indiqu�es ci-dessous. Etre un consommateur signifie �tre une personne physique qui agit � des fins qui n'entrent pas dans le cadre de son activit� commerciale, industrielle, artisanale ou lib�rale.

Informations standardis�es sur la r�tractation

Droit de r�tractation:

Vous avez le droit de vous r�tracter du pr�sent contrat sans donner de motif dans un d�lai de quatorze jours.

Le d�lai de r�tractation expire quatorze jours apr�s le jour o� vous-m�me, ou un tiers autre que le transporteur et d�sign� par vous, prend physiquement possession du dernier bien, lot ou pi�ce.

Pour exercer le droit de r�tractation, vous devez nous Ria Christie Collections, Suite B; (inside) ARUN House; ARUN, Arundel Road; Uxbridge Ind Est, UB8 2RR, Uxbridge, United Kingdom, +44 7727654838, notifier votre d�cision de r�tractation du pr�sent contrat au moyen d'une d�claration d�nu�e d'ambigu�t� (par exemple, lettre envoy�e par la poste, t�l�copie ou courrier �lectronique). Vous pouvez utiliser le mod�le de formulaire de r�tractation mais ce n'est pas obligatoire. Vous pouvez �galement remplir et transmettre une d�claration claire � cette fin sur notre site internet � �Vos commandes� dans �Votre compte�. Si vous utilisez cette option, nous vous enverrons sans d�lai un accus� de r�ception de la r�tractation sur un support durable (par exemple, par courriel).

Pour que le d�lai de r�tractation soit respect�, il suffit que vous transmettiez votre communication relative � l'exercice du droit de r�tractation avant l'expiration du d�lai de r�tractation.

Effets de la r�tractation :

En cas de r�tractation de votre part du pr�sent contrat, nous vous rembourserons tous les paiements re�us de vous, y compris les frais de livraison (� l'exception des frais suppl�mentaires d�coulant du fait que vous avez choisi, le cas �ch�ant, un mode de livraison autre que le mode moins co�teux de livraison standard propos� par nous) sans retard excessif et, en tout �tat de cause, au plus tard quatorze jours � compter du jour o� nous sommes inform�s de votre d�cision de r�tractation du pr�sent contrat. Nous proc�derons au remboursement en utilisant le m�me moyen de paiement que celui que vous aurez utilis� pour la transaction initiale, sauf si vous convenez express�ment d'un moyen diff�rent; en tout �tat de cause, ce remboursement n'occasionnera pas de frais pour vous.

Nous pouvons diff�rer le remboursement jusqu'� ce que nous ayons re�u le bien ou jusqu'� ce que vous ayez fourni une preuve d'exp�dition du bien, la date retenue �tant celle du premier de ces faits.

Vous devrez renvoyer ou rendre le bien, � Ria Christie Collections, Suite B; (inside) ARUN House; ARUN Building, Arundel Road; Uxbridge Ind Est, UB8 2RR, Uxbridge, United Kingdom, +44 7727654838, sans retard excessif et, en tout �tat de cause, au plus tard quatorze jours apr�s que vous nous aurez communiqu� votre d�cision de r�tractation du pr�sent contrat. Ce d�lai est r�put� respect� si vous renvoyez le bien avant l'expiration du d�lai de quatorze jours. Vous devrez prendre en charge les frais directs de renvoi du bien. Votre responsabilit� n'est engag�e qu'� l'�gard de la d�pr�ciation du bien r�sultant de manipulations autres que celles n�cessaires pour �tablir la nature, les caract�ristiques et le bon fonctionnement de ce bien.

Exceptions au droit de r�tractation

Le droit de r�tractation ne s'applique pas � :

la fourniture d'un contenu num�rique non fourni sur un support mat�riel (tel qu'un CD ou un DVD), si vous avez accept� au moment de la passation de votre commande que nous commencions la fourniture de celui-ci et renonc� � votre droit de r�tractation ;
la fourniture d'un journal, d'un p�riodique ou d'un magazine, sauf pour les contrats d'abonnement � ces publications.

Formulaire de r�tractation

(A compl�ter et renvoyer seulement si vous souhaitez-vous r�tracter du pr�sent contrat)

A l'attention de : (Ria Christie Collections, Suite B; (inside) ARUN House; ARUN, Arundel Road; Uxbridge Ind Est, UB8 2RR, Uxbridge, United Kingdom, +44 7727654838)

Je vous notifie par la pr�sente ma r�tractation du contrat portant sur la vente des produits suivants :

num�ro de commande :

Command� le/re�u le :

Mon nom et mon adresse :

Signature (seulement si ce formulaire est notifi� en version papier) :

Date

Conditions d'exp�dition

Orders usually ship within 2 business days. If your book order is heavy or oversized, we may contact you to let you know extra shipping is required. Thank you!

Frais d?exp�dition de Royaume-Uni�vers�Etats-Unis

Frais d?exp�dition de Royaume-Uni�vers�Etats-Unis
Quantit� command�e	6 � 12 jours ouvr�s	6 � 12 jours ouvr�s
Premier article	EUR 13.84	EUR 13.84

Les d�lais de livraison sont fix�s par les vendeurs et varient en fonction du transporteur et du lieu. Les commandes transitant par les douanes peuvent �tre retard�es et les acheteurs sont responsables de tous les droits ou frais associ�s. Les vendeurs peuvent vous contacter au sujet de frais suppl�mentaires afin de couvrir toute augmentation des co�ts d'exp�dition de vos articles.