Excel, Calc, Google Sheet マクロ

スポンサーリンク

セル(A1)に値代入、削除

Excel コード

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

LibreOffice Calcのコード

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

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

#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

コメント

  1. […] ○ Excel, Calc, Google Sheet マクロ | | ごった煮_1  セルA1に値を入れる […]

  2. […] ○ Excel, Calc, Google Sheet マクロ | | ごった煮_1  セルA1に値を入れる […]

タイトルとURLをコピーしました