Titel: Let's Play with Excel (VB Design & Code of Snake & Ladder Game and 51 Excel Macros)
Verlag: Independently published
Erscheinungsjahr: 2021
Sprache: Englisch
ISBN-13: 9798502654241
Einband: Softcover
Zustand: New

�ber diesen Titel

Inhaltsangabe

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

��ber diesen Titel� kann sich auf eine andere Ausgabe dieses Titels beziehen.

Anbieterinformationen

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

Zur Homepage des Verk�ufers

Unternehmensdaten des Verk�ufers

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

Gesch�ftsbedingungen und Versandinformationen

Verkaufsbedingungen

All Returns and Refund are as per Abebooks policies.

Widerrufsbelehrung

Wenn Sie Verbraucher sind, steht Ihnen ein Widerrufsrecht nach folgender Ma�gabe zu. Verbraucher ist jede nat�rliche Person, die ein Rechtsgesch�ft zu Zwecken abschlie�t, die �berwiegend weder ihrer gewerblichen noch ihrer selbst�ndigen beruflichen T�tigkeit zugerechnet werden k�nnen.

WIDERRUFSBELEHRUNG

Widerrufsrecht

Sie haben das Recht, binnen vierzehn Tagen ohne Angabe von Gr�nden diesen Vertrag zu widerrufen.

Die Widerrufsfrist betr�gt vierzehn Tage ab dem Tag, an dem Sie oder ein von Ihnen benannter Dritter, der nicht der Bef�rderer ist, die letzte Ware oder die letzte Teilsendung bzw. das letzte St�ck in Besitz genommen haben bzw. hat.

Um Ihr Widerrufsrecht auszu�ben, m�ssen Sie uns, Ria Christie Collections, Suite B; (inside) ARUN House; ARUN, Arundel Road; Uxbridge Ind Est, UB8 2RR, Uxbridge, United Kingdom, +44 7727654838, mittels einer eindeutigen Erkl�rung (z.B. ein mit der Post versandter Brief, Telefax oder E-Mail) �ber Ihren Entschluss, diesen Vertrag zu widerrufen, informieren. Sie k�nnen daf�r das beigef�gte Muster-Widerrufsformular verwenden, das jedoch nicht vorgeschrieben ist. Sie k�nnen auch eine andere eindeutige Erkl�rung auf der Webseite "Meine Bestellungen" in Ihrem "Nutzerkonto" elektronisch ausf�llen und �bermitteln. Machen Sie von dieser M�glichkeit Gebrauch, so werden wir Ihnen unverz�glich (z. B. per E-Mail) eine Best�tigung �ber den Eingang eines solchen Widerrufs �bermitteln. Zur Wahrung der Widerrufsfrist reicht es aus, dass Sie die Mitteilung �ber die Aus�bung des Widerrufsrechts vor Ablauf der Widerrufsfrist absenden.

Folgen des Widerrufs

Wenn Sie diesen Vertrag widerrufen, haben wir Ihnen alle Zahlungen, die wir von Ihnen erhalten haben, einschlie�lich der Lieferkosten (mit Ausnahme der zus�tzlichen Kosten, die sich daraus ergeben, dass Sie eine andere Art der Lieferung als die von uns angebotene, g�nstigste Standardlieferung gew�hlt haben), unverz�glich und sp�testens binnen vierzehn Tagen ab dem Tag zur�ckzuzahlen, an dem die Mitteilung �ber Ihren Widerruf dieses Vertrags bei uns eingegangen ist. F�r diese R�ckzahlung verwenden wir dasselbe Zahlungsmittel, das Sie bei der urspr�nglichen Transaktion eingesetzt haben, es sei denn, mit Ihnen wurde ausdr�cklich etwas anderes vereinbart; in keinem Fall werden Ihnen wegen dieser R�ckzahlung Entgelte berechnet. Wir k�nnen die R�ckzahlung verweigern, bis wir die Waren wieder zur�ckerhalten haben oder bis Sie den Nachweis erbracht haben, dass Sie die Waren zur�ckgesandt haben, je nachdem, welches der fr�here Zeitpunkt ist. Sie haben die Waren unverz�glich und in jedem Fall sp�testens binnen vierzehn Tagen ab dem Tag, an dem Sie uns �ber den Widerruf dieses Vertrags unterrichten, an Ria Christie Collections, Suite B; (inside) ARUN House; ARUN Building, Arundel Road; Uxbridge Ind Est, UB8 2RR, Uxbridge, United Kingdom, +44 7727654838, zur�ckzusenden oder zu �bergeben. Die Frist ist gewahrt, wenn Sie die Waren vor Ablauf der Frist von vierzehn Tagen absenden.

Sie tragen die unmittelbaren Kosten der R�cksendung der Waren. Sie m�ssen f�r einen etwaigen Wertverlust der Waren nur aufkommen, wenn dieser Wertverlust auf einen zur Pr�fung der Beschaffenheit, Eigenschaften und Funktionsweise der Waren nicht notwendigen Umgang mit ihnen zur�ckzuf�hren ist.

Ausnahmen vom Widerrufsrecht

Das Widerrufsrecht besteht nicht bzw. erlischt bei folgenden Vertr�gen:

Zur Lieferung von Zeitungen und Zeitschriften oder Illustrierten, mit Ausnahme von Abonnement Vertr�gen;
Bei der Lieferung digitaler Inhalte, die nicht auf einem k�rperlichen Datentr�ger (z.B. einer CD oder DVD) geliefert werden, wenn Sie dem Beginn der Ausf�hrung vor der Bestellung ausdr�cklich zugestimmt und zur selben Zeit best�tigt haben, dass mit der Ausf�hrung begonnen werden kann und Sie Ihr Widerrufsrecht verlieren, sobald die Ausf�hrung begonnen hat.

ENDE DER WIDERRUFSBELEHRUNG

Muster-Widerrufsformular

(Wenn Sie den Vertrag widerrufen wollen, dann f�llen Sie bitte dieses Formular aus und senden Sie es zur�ck)

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

Hiermit widerrufe(n) ich/wir* den von mir/uns* abgeschlossenen Vertrag �ber den Kauf der folgenden Waren*/ die Erbringung der folgenden Dienstleistung*

Bestellt am*/erhalten am*:

Name des/der Verbraucher(s):

Anschrift des/der Verbraucher(s):

Unterschrift des/der Verbraucher(s) (nur bei Mitteilung auf Papier):

Datum:

* Unzutreffendes streichen.

Versandbedingungen

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!

Versandkosten von Vereinigtes K�nigreich nach USA

Versandkosten von Vereinigtes K�nigreich nach USA
Bestellmenge	6 bis 12�Werktage	6 bis 12�Werktage
Erster Artikel	EUR 13.73	EUR 13.73

Die Versandzeiten werden von den Verk�uferinnen und Verk�ufern festgelegt. Sie variieren je nach Versanddienstleister und Standort. Sendungen, die den Zoll passieren, k�nnen Verz�gerungen unterliegen. Eventuell anfallende Abgaben oder Geb�hren sind von der K�uferin bzw. dem K�ufer zu tragen. Die Verk�uferin bzw. der Verk�ufer kann Sie bez�glich zus�tzlicher Versandkosten kontaktieren, um einen m�glichen Anstieg der Versandkosten f�r Ihre Artikel auszugleichen.