Forgotten your password?

Forum Index > Request > VBA (Simple Math in an Excelsheet)
Author Message
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:
[Login or Signup to view links and downloads.]


PS: this is a request for a VBA thread too.

greetings
nina
VBA?
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...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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...

[Login or Signup to view images.]


savvy?
do u not `tab` code?
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
done tabbing, lol
that is not tabbed very well....
tabbed:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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
:roll:
Forum Index > Request > VBA (Simple Math in an Excelsheet)