Selasa, 02 Juli 2024

GASWA menampilkan NAMA pengirim saja

function kirimPesan() {
  var url = 'https://sender.digilunar.com/send-message';
 var headers = {
  'Content-Type' : 'application/json',
  'Authorization' : 'vcQwWe2hJiHLYvyGosWHtS9msP7Bmt'
 };
 
  var body = {
          "api_key": "vcQwWe2hJiHLYvyGosWHtS9msP7Bmt",
          "sender": "6285708249267",
          "number": "6285229944411",
          "message": "Uji coba lunar"
  }
var options = {
  'method' : 'post',
  'headers' : headers,
  'payload' : JSON.stringify(body)
};

  var hasil = UrlFetchApp.fetch(url,options);
  Logger.log (hasil);
}
function doPost(e){
  var konten = e.postData.contents.split(',',12)[7].trim();
  var pengirim = konten.slice(12,konten.length-1);
  GmailApp.sendEmail('finaasiyb@gmail.com',"uji coba script",pengirim);
}

GASWA Kirim Pesan via email

function kirimPesan() {
  var url = 'https://sender.digilunar.com/send-message';
 var headers = {
  'Content-Type' : 'application/json',
  'Authorization' : 'vcQwWe2hJiHLYvyGosWHtS9msP7Bmt'
 };
 
  var body = {
          "api_key": "vcQwWe2hJiHLYvyGosWHtS9msP7Bmt",
          "sender": "6285708249267",
          "number": "6285229944411",
          "message": "Uji coba lunar"
  }
var options = {
  'method' : 'post',
  'headers' : headers,
  'payload' : JSON.stringify(body)
};

  var hasil = UrlFetchApp.fetch(url,options);
  Logger.log (hasil);
}
function doPost(e){
  var konten = e.postData.contents;
  GmailApp.sendEmail('finaasiyb@gmail.com',"uji coba script",konten);
}

Senin, 01 Juli 2024

GAS WA Gatway-Kirim Pesan

function kirimPesan() {
  var url = 'https://sender.digilunar.com/send-message';
 var headers = {
  'Content-Type' : 'application/json',
  'Authorization' : 'vcQwWe2hJiHLYvyGosWHtS9msP7Bmt'
 };
 
  var body = {
          "api_key": "vcQwWe2hJiHLYvyGosWHtS9msP7Bmt",
          "sender": "6285708249267",
          "number": "6285229944411",
          "message": "Hello World"
  }
var options = {
  'method' : 'post',
  'headers' : headers,
  'payload' : JSON.stringify(body)
};

  var hasil = UrlFetchApp.fetch(url,options);
  Logger.log (hasil);
}

Selasa, 25 Juni 2024

GAS POSTMAN

function koneksi() {
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var namaData = dataExcel.getName();

  Logger.log(namaData);
  var sapaan = berbicara();
  Logger.log(sapaan);

  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var jumlahBaris = sheetInfo.getLastRow();
  Logger.log (jumlahBaris);
}

function berbicara(){
  return "Assalamu'alaikum Wr. Wb"
}

function getCell (){
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var dataAlamat = sheetInfo.getRange(4,3).getValue();
  Logger.log(dataAlamat);
  
}

function doPost(e){
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  
  var sheetName = e.parameter.sheetName;
  var sheet = dataExcel.getSheetByName(sheetName);
   var action = e.parameter.action;


  //filter request user

  switch(action){

    case "create":
      return createData (e,sheet);
      break;
    case "read":
      return readData();
      break;
  }
  
  
}

function createData(request,sheet){
var nama = request.parameter.nama;
var alamat = request.parameter.alamat;
sheet.appendRow([sheet.getLastRow(),nama,alamat]);

  var output =JSON.stringify({
    "hasil" : "sukses"
  });

  return ContentService
        .createTextOutput(output)
        .setMimeType(ContentService.MimeType.JSON);
}



GAS Pemula


function koneksi() {
  var dataExcel = SpreadsheetApp.openById("1AwuVYSWRHoAIWn0o9dl6FMgl7FUs4XVPU41jNOjXnO4");
  var namaData = dataExcel.getName();

  Logger.log(namaData);
  var sapaan = berbicara();
  Logger.log(sapaan);

  var sheetInfo = dataExcel.getSheetByName("nama siswa");
  var jumlahBaris = sheetInfo.getLastRow();
  Logger.log (jumlahBaris);
}

function berbicara(){
  return "Assalamu'alaikum Wr. Wb"
}

Minggu, 12 November 2023

Tanggal dan Waktu event Change



Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A5:C13")) Is Nothing Then
        ThisWorkbook.Sheets("cant").Range("A1").Value = Format(Now(), "dddd, dd mmmm yyyy")
        ThisWorkbook.Sheets("cant").Range("A2").Value = "Waktu : " & Format(Now(), "hh:mm") & " WIB"
    End If
End Sub


Menghitung USIA Excel

=BYROW(D2:D100; LAMBDA(tanggal_lahir;     IF(tanggal_lahir=""; "";         DATEDIF(tanggal_lahir; TODAY(); "y"...