Ned halp with Visual Basic

[SyntheticDarkness]

Hah, I have no idea if I can put this here or not, but oh well~
My teacher said I need to generate 6 random numbers in excel, with no repeats, and a timer between each number appearing. Excel has a Visual Basic thingy in it, which is basically what the macro's are. But anyway. I need someone to help me make the code to generate 6 random numbers, between 1-100, with no repeats, and a timer between each number appearing. I need the numbers to appear in cells A1 to A6. Anyone up to the job? ;3

[HighBuddha]

don't ask for people to do your homework for you also i think this is the wrong forum.
edit: nvm i thought there was a code forum for some reason

[SyntheticDarkness]

Not homework, coursework. ^^
And I've already tried whoring google for help, no luck.

[JKPolk]

You're an idiot.

http://www.ozgrid.com/forum/showthread.php?t=76232

[SyntheticDarkness]

That would generate repeats.

[JKPolk]

Then learn to do an if statement. I'm not doing the project for you, this is easy stuff. If you don't understand it, try asking your teacher for help. Like you're supposed to.

[SyntheticDarkness]

Lawl, I never asked you to do it, I asked for help. xD

[EDEdDNEdDYFaN]

Originally Posted by SyntheticDarkness

Lawl, I never asked you to do it, I asked for help. xD

He gave you a link that essentially tells you everything that you need to do. And considering you seem to be too lazy to think for yourself heres a clue (If the vb in excel is similar to normal vb)

If intX = intY or intZ or intEtc then
   intX = int((100 - 1 + 1) * rnd ) + 1
else
   intX = intX
end if

Hopefully you'll be able to think of the solution from there, otherwise you need to start using the rest of your brain some more.

[SyntheticDarkness]

Oh right, see, that's helpful. ;o
Thanks. ^^

[SyntheticDarkness]

Done it. I made it generate 6 numbers between 1-6, with a 1 second delay between each, no duplicates. Also, ph34r my sloppy coding skillz. ;3

Sub Macro6()
Application.OnTime Now + TimeValue("00:00:01"), "Rand1"
Application.OnTime Now + TimeValue("00:00:02"), "Rand2"
Application.OnTime Now + TimeValue("00:00:03"), "Rand3"
Application.OnTime Now + TimeValue("00:00:04"), "Rand4"
Application.OnTime Now + TimeValue("00:00:05"), "Rand5"
Application.OnTime Now + TimeValue("00:00:06"), "Rand6"
Range("G6").Select
End Sub

Sub Rand1()
Range("F1").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
End Sub

Sub Rand2()
Rand2:
Range("F2").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F2") = Range("F1") Then
GoTo Rand2
End If
End Sub

Sub Rand3()
Rand3:
Range("F3").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F3") = Range("F1") Or Range("F3") = Range("F2") Then
GoTo Rand3
End If
End Sub

Sub Rand4()
Rand4:
Range("F4").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F4") = Range("F1") Or Range("F4") = Range("F2") Or Range("F4") = Range("F3") Then
GoTo Rand4
End If
End Sub

Sub Rand5()
Rand5:
Range("F5").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F5") = Range("F1") Or Range("F5") = Range("F2") Or Range("F5") = Range("F3") Or Range("F5") = Range("F4") Then
GoTo Rand5
End If
End Sub

Sub Rand6()
Rand6:
Range("F6").Select
ActiveCell.FormulaR1C1 = Int((StaticRnd() * 6) + 1)
If Range("F6") = Range("F1") Or Range("F6") = Range("F2") Or Range("F6") = Range("F3") Or Range("F6") = Range("F4") Or Range("F6") = Range("F5") Then
GoTo Rand6
End If
End Sub

[All_That_Chaz]

vb's so cute.

[Problems]

If you ever need any more help and can't find any PM me 'cause my dad has like 15+ years in vb (and a buttload of other comp language) experience, but I'm sure FFR would be more convenient.

[SyntheticDarkness]

Mmk, thanks.

[All_That_Chaz]

Visual Basic isn't even going to be supported anymore starting like... now, so don't bother. Anyone teaching vb is out of their mind.

[Kekeb]

Originally Posted by All_That_Chaz

Visual Basic isn't even going to be supported anymore starting like... now, so don't bother. Anyone teaching vb is out of their mind.

Welcome to poor high schools.

[JKPolk]

Welcome to a great introduction language? It's better than Scheme at teaching people the basics of coding and is also a crude way to start with OOP. Not *that* bad of a basic language.

[Psycho8137]

ITT Post the most complex VB code you possibly can for a simple task.

[All_That_Chaz]

Originally Posted by JKPolk

Welcome to a great introduction language? It's better than Scheme at teaching people the basics of coding and is also a crude way to start with OOP. Not *that* bad of a basic language.

Oh I agree entirely. I can't think of a better way to get introduced to object-oriented programming. But it's practical uses are pretty restrictive. It's just so damn inefficient. But it was cute when I took it as my first programming class back in 10th grade.

[JKPolk]

Fair enough. Between that and programming on my Ti-83+ I think I put in a few solid months of completely pointless work. Still learned a lot, though, while managing to make a program on my calc that took my Honors Chem final for me. Good times.

[L0NEvvolf]

Crap to late to help sorry good job getting it done