OpenOffice.org Forum at OOoForum.orgThe OpenOffice.org Forum
 
 [Home]   [FAQ]   [Search]   [Memberlist]   [Usergroups]   [Register
 [Profile]   [Log in to check your private messages]   [Log in

ByVal in excel is what in OOo

 
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Calc
View previous topic :: View next topic  
Author Message
village-idiot
General User
General User


Joined: 02 Nov 2008
Posts: 11

PostPosted: Fri Jan 02, 2009 2:40 pm    Post subject: ByVal in excel is what in OOo Reply with quote

The following is OOo basic, it's part of the whole thing, I'm including only part because it's pretty long. I'm using it to high light a range (list11, 12 etc) when other cells are the active cell (M31, N31 etc). I'm using it in a worksheet to do Sudoko puzzles. In the other spread sheet program, it works fine, but in OOo the first range (list 11) is high lighted no matter what cell is active. If I make another cell active the other ranges aren't high lighted. When I open OOo basic to check a pop up says that there is a Basic Syntex error, unexpected symbol, and ByVal on the third line is high lighted. Is there another term to use instead of ByVal?
If it will help, I can e-mail both OOo and the other spread sheet to you, so you can see exactly what I'm talking about. Thanks in advance for any help, I don't know that much about OOo, I like to say I'm self taught and my teacher is an idiot.
village-idiot

Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Sheet1
Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = x1None
Range("vstrip1").Interior.ColorIndex = 1
Range("vstrip2").Interior.ColorIndex = 1
Range("hstrip1").Interior.ColorIndex = 1
Range("hstrip2").Interior.ColorIndex = 1
rem
If Intersect(Target, Range("m31")) Is Nothing Then
Else
Range("list11").Interior.ColorIndex = 36
Rem
End If
Rem
If Intersect(Target, Range("n31")) Is Nothing Then
Else
Range("list12").Interior.ColorIndex = 36
Rem
End If
Rem
If Intersect(Target, Range("o31")) Is Nothing Then
Else
Range("list13").Interior.ColorIndex = 36
Rem
Rem End If
Rem
Rem If Intersect(Target, Range("m32")) Is Nothing Then
Rem Else
Rem Range("list14").Interior.ColorIndex = 36
Rem
Rem End If
Rem
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Calc All times are GMT - 8 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group