Excel, Calc, Google Sheet セルに記入するマクロ比較

表計算ソフトは、Excelが有名ですが値段が高すぎます。無料で使えるLibreOffice CalcとGoogleシートが便利です。

ダウンロード先：　LibreOffice – オフィススイートのルネサンス

セル（A1）に値代入、削除

セル（A1）に値代入、削除

Excel コード

ボタンを押すと「おはよう」と入力し、次にボタン押すとそれを消します。

Range(“セルの番地”) = ” 文字列 ” または　数値　　’// 数値は””いらない

Sub 練習1()
    If Range("A1") = "" Then
        Range("A1") = "おはよう！"
    Else
        Range("A1") = ""
    End If
End Sub

「数値＋文字」””なしだとエラーになります。　コンパイルエラー

LibreOffice Calcのコード

上記のExcelファイルを開く

自動で一行目に「Option VBASupport 1」が追加されます。

ボタンに関連づけられてるマクロ消えるので、再登録してください。

LibreのBasicを使って書くと

長い！　エディタに補完機能もない！　面倒！

わたしは、秀丸の補完機能を使いながら書いています。

Sub Main
	Doc=ThisComponent
	MySheet = Doc.CurrentController.ActiveSheet
	Cel = MySheet.getCellRangeByName("A1")
	If Cel.String = "" Then
		Cel.String = "日本最高！！"
	Else
		Cel.String = ""
	End If
End Sub

LibreOffice Calc 文字列と数値明確に分けます　.string .value

GAS　セルに値を入れる

function myFunction() {
  var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
  var sheet = spreadsheet.getSheetByName("シート1");
  var cell = sheet.getRange(1, 1);    // 1つのセル

  if (cell.getValue() === ""){
    cell.setValue("安倍さんを応援する");
  } else {
    cell.setValue("");  
  }
}

AutoitでExcelを操作する

AutoitはBasicのような文法で入門しやすいと思います。PCの自動化、画像認識、GUIとユーザーさんが作ってくれた関数を利用するといろいろなことができます。

ダウンロード先：　Home – AutoIt

#include "Excel.au3"

$oExcel = _Excel_Open() ;存在してるExcelに接続
$oExcel.Sheets("Sheet2").Select
If $oExcel.Cells(1,1).value = "" Then
    $oExcel.Cells(1,1).value = "立憲民主党嫌い"
Else
    $oExcel.Range("A1").value = ""
EndIf

AutoitでCalc(LibreOffice)を操作する

#include "OOoCalc.au3"

$oCalc = _OOoCalc_BookAttach("A1_autoit.ods")

If _OOoCalc_ReadCell($oCalc,"A1") = "" Then
    _OOoCalc_WriteCell($oCalc,"日本は素晴らしい",0,0) ;cell(x,y)
Else
    _OOoCalc_WriteCell($oCalc,"",0,0) ;cell(x,y)
EndIf