LibreOffice Excel VBA→Libre Basicマクロ移行マニュアル

1 - (CC BY-NC ) . LibreOffice Excel_VBA Libre_Basic .. IPA IPA .. 1. VBA Libre_Basic ..1. 2. VBA Libre_Basic ..3. 3. Libre_Basic ..5. 4..7. 5..9. 6..11. 7..12. 8..13.. 9..14. 10..15. 11..16. 12. ( A1 ..16. 13..16. 14..17. 15..17. 16..17. 17..17. 18..18. 19. ( ) ..18. 20..18. 21..19. 22. ? ..19.. 23..19. 24..20. 25..20. 26..20. 27..21. 28..21-22. Excel_VBA Libre_Basic . Function .. LibreOffice Libre_Basic MicrosoftOffice VBA. LibreOffice Javascript Python .. Calc .. LibreBasic LibreBasic/OpenBasic Web .. Web . URL. Libre_Basic 1. VBA Libre_Basic . Calc 2 . PC PC Ods.)

2 Ods PC . Excel VBA . Excel .. LibreOffice Basic . VBA Excel . Standard VBAP roject . Calc VBA . VBAP roject VBA . VBA Excel . Standard .. VBA .. Macro-1.. Sheet1 . 0 .. 0 . Sheet2 Sheet1 . Sheet2 0 . Sheet1 0 . 0 . A1 0,0 . B1 1,0 . D6 3,5 . Excel VBA . , CalcBasic , .. SheetNO . 1 (SheetNO). 2 (SheetNO).. SheetMei . (SheetMei). Macro-2. 2. VBA Libre_Basic . VBA Libre_Basic . VBA Excel Sheet Calc . Libre_Basic .. VBA Excel Calc . PC .. Calc VBA Excel Calc VBA . VBA . VBA .. OK VBA Sheet . Excel Calc . ODF ODS . Standard VBAP roject . Libre_Basic . ods Standard Standard.

3 LibreOffice Basic . F ods N .. Module1 .. OK . Standard Module1 . Standard . Module1 . Macro-3.. Sub Main Sub End Sub . End Sub .. VBA . Private Sub test1(). End Sub . LibreBasic Private Public Private Public . Public . Private Public . VBA Editor 2012/04 . a) End Sub End Function . VBA . b) . VBA If . TAB . c) . VBA . d) Basic Module . VBA . Libre_Basic . Macro-4. 3. Libre_Basic .. LibreOffice Basic Standard . (Module1 . A. B. C. T . D .. ON/OFF.. B .. 1 .. Macro-5.. a) . b) 1 . c) . d) a c .. a) .. b) .. c) .. ret MsgBox . ret 7 .. VBA . Macro-6. 4.. OK.

4 T).. T) .. 1 . Macro-7. A .. Module1 C_checkA .. OK .. 1 . OFF ON . OFF . OFF.. Macro-8. 5.. 0 - OK . 1 - OK . 2 - . 3 - . 4 - . 5 - .. 0 - 1 . 256 - 2 . 512 - 3 .. 16 - . 32 - . 48 - . 64 - . 64 0 OK .. MsgBox " ", 4+0+48 ," ". 52 OK. 3 .. 4+0+48 .. Macro-9.. 1 - OK. 2 - . 3 - . 4 - . 5 - . 6 - . 7 - . Msgbox .. Dim modorichi As Integer modorichi = MsgBox(" " & chr(13) & " ",4+256+32, " . "). If modorichi = 7 Then ' . Exit Sub End if 1. Msg chr(13) . ExcelVBA vbCrLf . 1 . ' .. TAB . Macro-10. 6.. Excel_VBA Auto_Open . Calc .. OK .. sheet_check .. Macro-11.

5 7.. sheet_check Rangeselect .. Sub sheet_check(). ' . Call Rangeselect(0,"A1") 'Sheet1 A1 .. Call Rangeselect(1,"A2") 'Sheet2 A2 . Call Rangeselect(2,"A3") 'Sheet3 A3 . End Sub 0, A1 . Call . Sub Rangeselect(SheetNo as integer,DataArea as string). '**. '*' : . '* : , . '**. Dim LController As Object . Dim LSheet As Object LController = (). LSheet = (SheetNo). ( (DataArea)) ' . End Sub .. Macro-12. 8.. (Integer) -32768 32768. Long -2147483648 2147483647. Single 10E38 10E-45. Currency . String . Date . Boolean TRUE (-1) FALSE (0). Object . Variant .. Sub Rangeselect(SheetNo as integer,DataArea as string).

6 SheetNO DataArea .. Dim modorichi As Integer 'modorichi . modorichi = MsgBox(" ",4+256+32, " "). modorichi MsgBox . Dim .. Dim .. CONST = .. Const Pai = .. Macro-13.. 9.. Calc ods 2. VBA Libre_Basic . Module .. A).. Calc Module . P).. Macro-14. 10.. 9.. 0 A1 A1 C19 E1 C . A1 G19 A4 .. ' . Sub macrotest(). Call Rangeselect(0,"A1") ' 0 A1 . Call Rangecopy_paste(0,0,"A1:C19","E1") 'A1 C19 E1 . Call Sort_pro(0,2,"A1:G19",true,1) 'C . Call Range_Print(0,"A1:G19",2,1) 'A1 G19 A4 . End sub (Call . MsgBox Loop . OK. Sub macrotest(). 0 A1 . Call Rangeselect(0,"A1") ' 0 A1.

7 , . Call Rangecopy_paste(0,0,"A1:C19","E1") 'A1 C19 E1 . , , , . Call Sort_pro(0,2,"A1:G19",true,1) 'C . , , , , . Call Range_Print(0,"A1:G19",2,1) 'A1 G19 A4 . , , , . End sub .. PDF . Macro-15. 11.. Data_Clear(SheetNo as integer,Start_retsu as string,Start_gyou as long,End_retsu as string,End_gyou as long).. Call Data_Clear(0,"A",14,"AR",40) ' 0 A14 AR40 . 12. ( A1 .. Range_Print(SheetNo as integer,P_Area as string,Houkou as integer,Psize as integer).. ( A1 .. , , 1 2 , A4=1,A3=2 .. Call Range_Print(0,"A1:AR40",1,2) ' 0 A1 AR40 A3 .. 0 1 . Call ActiveSheetNo(1) ' 1.))

8 Call Range_Print(1,"A1:AR40",1,2) ' 1 A1 AR40 A3 . 13.. Print_out(SheetNo as integer,s_retu as integer,s_gyou as long,e_retu as integer,e_gyou as long,houkou as integer,Psize as integer).. , , , , , 1 2 , A4=1,A3=2 .. Call Print_out(0,0,0,2,39,1,1) ' 0 A1 C40 A4 .. 0 1 . Call ActiveSheetNo(1) ' 1 . Call Print_out(1,0,0,2,39,1,1) ' 1 A1 C40 A4 . Macro-16. 14.. Rangeselect(SheetNo as integer,DataArea as string).. , .. Call Rangeselect(0,"A1") ' 0 A1 .. 15.. Rangeselect_clear(SheetNo as integer,DataArea as string).. , .. Call Rangeselect_clear(0,"A1:B5") ' 0 A1:B5.

9 16.. Search_AEnd(SheetNo as integer,RetsuCell as string,bangoukbn as integer).. , )A1 , :1 :2 .. Call Search_AEnd(0,"A1",1) ' 0 A . End_Row . 17.. Search_DEnd(SheetNo as integer,Col as integer,Bangoukbn as integer).. ( ).. , )A=0 , :1 :2 .. Call Search_DEnd(0,0,1) ' 0 A . End_Row . Macro-17.. 1 10 A10 . 2 9 getCellByPosition( , ) . End_Row . Call Search_DEnd(0,2,2) ' 0 C . ' End_Row . Call Print_out(0,0,0,2,End_Row,1,1) ' 0 A1 C A4 . 18.. Rangecopy_paste(CSheetNo as integer,PSheetNo as integer,CopyArea as string,Pastecell as string).. , , , .. Call Rangecopy_paste(0,1,"A1:B9","A20") ' 0 A1 B9 1 A20.

10 19. ( ).. Rangecopy_datapaste(CSheetNo as integer,PSheetNo as integer,CopyArea as string,PasteArea as string).. , , , .. Call Rangecopy_datapaste(0,1,"A1:B5","A1:B5") ' 0 A1 B5 1 A1 B5 . 20.. SheetShow(sSheet as String) ' . SheetHide(sSheet as String) ' .. Call SheetShow(" ") ' . Call SheetHide(" ") ' . Macro-18. 21.. SheetProtect(SheetNo as integer,Pas as String,Kaijyokbn as integer).. , "" , 1/ 2 .. Call SheetProtect(0,"",1) ' 0 . 22.. Sort_pro(SheetNo as integer,Sort_col as integer,Sort_area as string,Narabijun as string,Midashi as integer). 26 .. , 0 , A1:B3 , =True =False).