Author | Message |
---|
Nina Ametuar Posts: 134
| Not much to say, just download and look.. It's an excelsheet using some simple Math (Random numbers, Half, Double, Square, Faculty, Sum) formulas and a graphic in VBA. Download: SimpleMath PS: this is a request for a VBA thread too. greetings nina
|
Meka][Meka Unstopable Posts: 700
| VBA?
|
Nina Ametuar Posts: 134
| Yeah, VBA (Visual Basic for Applications) I could post ony the code in the Visual Basic thread but then you don't have the visualisation in the excelsheet. the code inside goes like this...
Code: | Private Sub Random1_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B1") = Random End Sub Private Sub Go1_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B1").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E1") = Half Worksheets(1).Range("E2") = Doble Worksheets(1).Range("E3") = Square Worksheets(1).Range("E4") = Faculty End Sub Private Sub Random2_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B10") = Random End Sub Private Sub Go2_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B10").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E10") = Half Worksheets(1).Range("E11") = Doble Worksheets(1).Range("E12") = Square Worksheets(1).Range("E13") = Faculty End Sub Private Sub Random3_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B19") = Random End Sub Private Sub Go3_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B19").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E19") = Half Worksheets(1).Range("E20") = Doble Worksheets(1).Range("E21") = Square Worksheets(1).Range("E22") = Faculty End Sub | and it looks like...
 savvy?
|
Meka][Meka Unstopable Posts: 700
| do u not `tab` code?
|
Nina Ametuar Posts: 134
| Yes, normally I do tab my code but in this case I seem to have been lazy, my apologize for this... I will edit it tomorrow for you. g'nite zzZZZ
|
Nina Ametuar Posts: 134
| done tabbing, lol
|
Meka][Meka Unstopable Posts: 700
| that is not tabbed very well....
|
Meka][Meka Unstopable Posts: 700
| tabbed:
Code: | Private Sub Random1_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B1") = Random End Sub Private Sub Go1_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B1").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E1") = Half Worksheets(1).Range("E2") = Doble Worksheets(1).Range("E3") = Square Worksheets(1).Range("E4") = Faculty End Sub Private Sub Random2_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B10") = Random End Sub Private Sub Go2_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B10").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E10") = Half Worksheets(1).Range("E11") = Doble Worksheets(1).Range("E12") = Square Worksheets(1).Range("E13") = Faculty End Sub Private Sub Random3_Click() Dim Random As Long Randomize Random = Int((5 * Rnd() + 1)) Worksheets(1).Range("B19") = Random End Sub Private Sub Go3_Click() Dim RandomNumber As Long Dim Half As Double Dim Doble As Long Dim Square As Long Dim Faculty As Long RandomNumber = Range("B19").Value Half = RandomNumber / 2 Doble = RandomNumber * 2 Square = RandomNumber * RandomNumber Faculty = RandomNumber RandomNumber = RandomNumber - 1 Do While RandomNumber > 0 Faculty = Faculty * RandomNumber RandomNumber = RandomNumber - 1 Loop Worksheets(1).Range("E19") = Half Worksheets(1).Range("E20") = Doble Worksheets(1).Range("E21") = Square Worksheets(1).Range("E22") = Faculty End Sub |
|
Nina Ametuar Posts: 134
| :roll:
|