SOBasicHELP.pl - Witryna ta poświęcona jest językowi StarBasic. Pozdrawia Vbadam! Powrót na str.0

Konwerter VBA <=> StarOffice52Basic <=> OpenOfficceBasic.
Pierwsze kroki.

MAKRO

Kod napisany w VBA Excel

StarOfficeBasic dla StarOffice5.2

StarBasic dla OpenOffice.org

Wywołanie
sygnału
dźwiękowego

 Sub DajGlos
Beep
End Sub		 Sub DajGlos
Beep
End Sub		 Sub DajGlos
Beep
End Sub

Wywołanie
okna
komunikatu

 Słowo "Print" w VBA nie służy do
wywoływania okna dialogowego.
Komenda ta działa tylko
w oknie instrukcji bezpośrednich.		 Sub WyswietlKomunikat
Print "Witamy w StarBasic"
End Sub		 Sub WyswietlKomunikat
Print "Witamy w OOBasic"
End Sub

Wywołanie
okna
komunikatu

 Sub WyswietlKomunikat
MsgBox "Witamy w Basic"
End Sub		 Sub WyswietlKomunikat
MsgBox "Witamy w StarBasic"
End Sub		 Sub WyswietlKomunikat
MsgBox "Witamy w OOBasic"
End Sub

EXCEL/CALC
Idz do
komórki A3

 Sub IdzDoKomorki()
Application.GotoReference:="R3C1"
End Sub		 Sub IdzDoKomorki()
ActiveWindow.GoToCell("A3")
End Sub		 sub IdzDoKomorki
oDok = ThisComponent.CurrentController.Frame
Nawigator=createUnoService("com.sun.star.frame.DispatchHelper")
dim argty(0) as new com.sun.star.beans.PropertyValue
argty(0).Name = "ToPoint"
argty(0).Value = "$A$3"
Nawigator.executeDispatch(oDok,".uno:GoToCell","",0,argty())
end sub

EXCEL/CALC
Fokus na
komórkę A3

 Sub WybierzKomorke()
Range("A3").Select
End Sub		 Sub WybierzKomorke()
ActiveWindow.GoToCell("A3")
End Sub		 Sub WybierzKomorke()
ThisComponent.Sheets.getByName("Arkusz1").getCellByPosition(0,2)
rem                                                            'lub .getCellRangeByName("A3")
End Sub

EXCEL/CALC
Wybierz
Arkusz1

 Sub WybierzArkusz()
Sheets("Arkusz1").Select
End Sub		 Sub WybierzArkusz()
ActiveWindow.JumpToTable(1)
End Sub		  

EXCEL/CALC
Zaznacz
komórkę B10
w Arkuszu 1

 Sub IdzDoKomorkiNaArk1()
Sheets("Arkusz1").Select
Cells(10,2).Select
End Sub		 Sub IdzDoKomorkiNaArk1()
ActiveWindow.JumpToTable(1)
ActiveWindow.GoToCell("B10")
End Sub		 sub IdzDoKomorkiNaArk1
ThisComponent.CurrentController _
.Select(ThisComponent.Sheets(0).getCellByPosition(1,9))
end sub

EXCEL/CALC
Wstaw liczbę
345 do aktywnej
komórki

 Sub WstawDoKomorki()
ActiveCell.Value = 345
End Sub		 Sub WstawDoKomorki()
Selection.Insert(345)
End Sub		 Sub WstawDoKomorki()
ThisComponent.CurrentSelection.setValue(345)
End Sub
  c.d.n. c.d.n. c.d.n. c.d.n

EXCEL/CALC
Czerwony
tekst
w komórce

 Sub ZmienCzcionke
Selection.Font.ColorIndex = 3
End Sub
 Sub ZmienCzcionke
Selection.Font.Color =16711680
End Sub
Sub ZmienCzcionke
ThisComponent.CurrentSelection.CharColor = 16711680
End Sub

Autor:MARCC
  c.d.n. c.d.n c.d.n c.d.n
powrót do strony głównej data ostatniej modyfikacji - 3 października 2003 adamgra@poczta.onet.pl