Go Back   Rage3D » Rage3D Discussion Area » Community and Site Discussions » Off Topic Lounge
Rage3D Subscribe Register FAQ Members List Calendar Mark Forums Read

Off Topic Lounge Discuss anything you want here folks. A place for computer junkies to boldly post Off Topic... Rant and rave if it is necessary, but just try to keep it clean!

Reply
 
Thread Tools Display Modes
Old Jul 30, 2008, 11:45 AM   #1
Advertisement (Guests Only)

Login or Register to remove this ad
kmillerusaf
Radeon R200
 
Join Date: Nov 2007
Location: United States SC
Posts: 61
kmillerusaf is still being judged by the masses


Default Anyone Familiar with VBA in Excel?

No need to bother pasting my code or what I need help with unless I know someone is familiar with both VBA and Excel. I hope someone is familiar though! Thanks!

Keith
kmillerusaf is offline   Reply With Quote
Old Jul 30, 2008, 01:40 PM   #2
kmillerusaf
Radeon R200
 
Join Date: Nov 2007
Location: United States SC
Posts: 61
kmillerusaf is still being judged by the masses


Default

BUMP!

People in here talk a lot!
kmillerusaf is offline   Reply With Quote
Old Jul 30, 2008, 02:47 PM   #3
Doozer
lollollollol
 
Join Date: Mar 2002
Location: England SE London, UK
Posts: 19,033
Doozer knows why the caged bird singsDoozer knows why the caged bird singsDoozer knows why the caged bird singsDoozer knows why the caged bird singsDoozer knows why the caged bird sings


Default

Quote:
Originally Posted by kmillerusaf View Post
BUMP!
Pregnant
__________________
Mobo : Asus P8777-V LX2 Processor : Intel Core i5 3570K 3.40GHz @ 4.40GHz Memory : 8Gb RAM
Graphics Card : GeForce GTX 690 Sound : Asus Xonar DGX 5.1 O/S : Win7, Monitor : 3 x Samsung 23"

Nikon D7100,
Nikkor 16-35mf f4
Sigma 120-400mm
Nikon 18-55mm kit lens,
Sigma 70-300 APO Macro,
Nikkor 50mm f1.8,
Sigma 150mm f/2.8 EX DG Macro HSM,
Sigma 10-20mm f4-5.6 EX DG,
Sigma 17-70mm f2.8-4.5 HSM,
Sigma x2 TC
Remote shutter release ,
Raynox D250 closeup/macro attachment,
Kenko extension tubes,
reverse lens adaptor,
Nikon SB800 flash,
Vivitar 285HV Flash unit,
Tripod (x2),
Monopod



Rage3d flickr Group
Doozer is offline   Reply With Quote
Advertisement (Guests Only)
Login or Register to remove this ad
Old Jul 30, 2008, 02:48 PM   #4
kmillerusaf
Radeon R200
 
Join Date: Nov 2007
Location: United States SC
Posts: 61
kmillerusaf is still being judged by the masses


Default

Not quite sure I understand what you are hinting at? Can you help?
kmillerusaf is offline   Reply With Quote
Old Jul 30, 2008, 03:22 PM   #5
Tizen
Custom User Title
 
Join Date: Jun 2004
Location: North Korea Close by.
Posts: 5,005
Tizen is still being judged by the masses


Default

He's saying don't be so damn nervous

Would help if you would tell what ya need anyway?
__________________
Don't panic
Tizen is offline   Reply With Quote
Old Jul 30, 2008, 03:24 PM   #6
caveman-jim
Deposed King of Rage3D
 
Join Date: Oct 2003
Posts: 49,000
caveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badgescaveman-jim doesn't need no stinkin' badges


Default

either that or post it in our popular programmers section
caveman-jim is offline   Reply With Quote
Old Jul 30, 2008, 03:37 PM   #7
kmillerusaf
Radeon R200
 
Join Date: Nov 2007
Location: United States SC
Posts: 61
kmillerusaf is still being judged by the masses


Default

I'm not scary.... I have just come in contact with only 1 or 2 people who are familiar with VBA and Excel well enough to offer some insight... Basically the code is this:

Public Function FGs(ByVal MyNum As String) As String
Dim ScoresFG As String
Dim x As Variant
Dim i As Long
ScoresFG = MyNum
x = Split(ScoresFG, "-", -1)

For i = 0 To UBound(x)
Debug.Print x(i)
Next i

End Function

Right now, I am just looking for it to take a string of values from one cell formatted as 40-61-33 (test values) and display the string as different values into another cell... All I keep getting is a blank cell as the result.

My goal eventually is to have this split the values into the array like above, compare them to an IF statement (posted below) and tally up all the values. I made a fantasy football stat tracker in Excel to get out of paying for one... I think it's ridiculous to pay for something I can make.

If MyNum <= 39 Then
FGs = 3
ElseIf MyNum > 49 Then
FGs = 5
Else
FGs = 4
End If
kmillerusaf is offline   Reply With Quote
Old Jul 30, 2008, 03:46 PM   #8
I26
 
Posts: n/a


Default

I know a good bit of code but to be honest the best place I have found for such help is www.ozgrid.com and www.excelforum.com

Be prepared at ozgrid as it is a HUGE forum and the mods are really tight ship, unlike anywhere I have ever seen. They do however strive to answer quick and precise.
  Reply With Quote
Old Jul 30, 2008, 11:01 PM   #9
madyasiwi
Radeon R420
 
Join Date: Sep 2007
Posts: 230
madyasiwi is still being judged by the masses


Default

Haven't dealing with excel+vba for quite some time since switching to OpenOffice. But you could try this:
Code:
Public Function FGs(ByVal MyNum As String) As Long

	Dim x As Variant
	Dim i As Long
	Dim score As Long
	
	x = Split(MyNum, "-", -1)

	For i = 0 To UBound(x)
		score = CInt(x(i))
		If score <= 39 Then
			FGs = FGs + 3
		ElseIf score > 49 Then
			FGs = FGs + 5
		Else
			FGs = FGs + 4
		End If
	Next i

End Function

Last edited by madyasiwi : Jul 30, 2008 at 11:04 PM.
madyasiwi is offline   Reply With Quote
Old Jul 31, 2008, 04:31 AM   #10
squid
Cute
 
Join Date: Jul 2003
Location: Australia 127.0.0.1
Posts: 14,429
squid knows why the caged bird singssquid knows why the caged bird singssquid knows why the caged bird singssquid knows why the caged bird singssquid knows why the caged bird sings


Default

i did a bit of coding in vb for excel about 2 years ago, but haven't done anything since, and i'm a bit drunk at the moment so i'll have a look at it later if you are still having issues.
remember, there are quite a few examples that come with excel that you can have a look at.
squid is offline   Reply With Quote
Old Jul 31, 2008, 08:19 AM   #11
kmillerusaf
Radeon R200
 
Join Date: Nov 2007
Location: United States SC
Posts: 61
kmillerusaf is still being judged by the masses


Default

Thanks to all that I replied.. I actually with the help of someone on IRC came up with the solution and it works exactly the way I wanted. Thank you all though!
kmillerusaf is offline   Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
anyone familiar with this, m audio co2? warmonger180 Home Theaters and Photography 3 May 3, 2011 05:40 AM
Anyone familiar with Melbourne, FL? NEODARK Off Topic Lounge 12 Jun 24, 2010 03:42 PM
anyone familiar with agoraphobia? night Off Topic Lounge 15 Dec 8, 2004 09:58 AM
Anyone familiar with M-Net ? Soulkrusha Programmers Discussion Forum 1 Apr 17, 2004 03:09 PM
ASUS Q-Fan. Anyone familiar ? dovshuman General Hardware 2 Sep 16, 2003 11:55 AM


All times are GMT -5. The time now is 04:12 PM.



Powered by vBulletin® Version 3.6.5
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
All trademarks used are properties of their respective owners. Copyright ©1998-2011 Rage3D.com
Links monetized by VigLink