Aqil Macro

Selasa, 28 Januari 2025

Menghitung USIA Excel

=BYROW(D2:D100; LAMBDA(tanggal_lahir;

IF(tanggal_lahir=""; "";

DATEDIF(tanggal_lahir; TODAY(); "y") & " tahun " &

DATEDIF(tanggal_lahir; TODAY(); "ym") & " bulan " &

DATEDIF(tanggal_lahir; TODAY(); "md") & " hari"

)

))

Selasa, 15 Oktober 2024

WAHA - n8n

=========
WAHA
=========
sudo docker start wahaplus
pass : 123

ngrok authtoken 2mq6jUCvVTSOZ1kZmCOy0muAXUo_3e4zygSLW9xAKfudJ2TSJ
ngrok http --url=polished-learning-dory.ngrok-free.app 3000

https://s.id/wahayy

pass/user : waha/waha

++++++++++++

=========

n8n

=========

sudo docker-compose up -d

pass: 123

ngrok config add-authtoken 2nLEMWAP5iYzOO6wkjaUshXghK4_4jttwytpucSDrXVcsmJon
ngrok http --url=outgoing-verified-octopus.ngrok-free.app 5678

linklock pass : 456

https://s.id/n8nlokalyy

Minggu, 13 Oktober 2024

Sabtu, 12 Oktober 2024

Jumat, 11 Oktober 2024

contoh Copy

Salin ke Clipboard

<!DOCTYPE html>
<html lang="id">
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>Salin ke Clipboard</title>
    <style>
        .copy-container {
            display: flex;
            align-items: center;
            position: relative;
        }
        .copy-url {
            width: 20px;
            padding: 0px;
        }
        .copy-button {
            padding: 0px 30px;
            cursor: pointer;
            background-color: #4CAF50;
            color: white;
            border: none;
            margin-left: 00px;
            border-radius: 5px;
            position: relative;
        }
        /* Styling untuk tooltip kecil yang muncul */
        .tooltip {
            visibility: hidden;
            background-color: #333;
            color: #fff;
            text-align: center;
            border-radius: 5px;
            padding: 5px;
            position: absolute;
            top: -30px; /* Disesuaikan agar lebih dekat */
            right: 10px; /* Posisi lebih ke kanan agar dekat tombol */
            z-index: 1;
            font-size: 12px;
        }
        .tooltip::after {
            content: "";
            position: absolute;
            bottom: -5px;
            right: 10px;
            border-width: 5px;
            border-style: solid;
            border-color: #333 transparent transparent transparent;
        }
        .show-tooltip {
            visibility: visible;
            opacity: 1;
            transition: opacity 0.3s ease;
        }
    </style>
</head>
<body>

<div class="copy-container">
    <input type="text" id="urlInput" class="copy-url" value="https://urlanda.com" readonly>
    <button class="copy-button" id="copyButton" onclick="salinKeClipboard()">Salin</button>
    <div class="tooltip" id="tooltipText">Tercopy!</div>
</div>

<script>
    function salinKeClipboard() {
        var teksSalin = document.getElementById("urlInput");
        var tooltip = document.getElementById("tooltipText");

        teksSalin.select();
        teksSalin.setSelectionRange(0, 99999); // Untuk perangkat mobile
        document.execCommand("copy");

        // Tampilkan tooltip
        tooltip.classList.add("show-tooltip");

        // Hilangkan tooltip setelah 2 detik
        setTimeout(function() {
            tooltip.classList.remove("show-tooltip");
        }, 2000);
    }
</script>

</body>
</html>

Senin, 07 Oktober 2024

Code untuk Membangdingkan (VBA-Macro)

Copy Code

'==========================

Sub CompareSheets()

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim dict1 As Object, dict2 As Object
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long
    Dim key As Variant
    Dim row As Long
    
    ' Atur index sheet, misalkan Sheet1 = index 1, Sheet2 = index 2
    Set ws1 = ThisWorkbook.Sheets(1)
    Set ws2 = ThisWorkbook.Sheets(2)
    
    ' Buat Sheet3 jika belum ada
    On Error Resume Next
    Set ws3 = ThisWorkbook.Sheets(3)
    If ws3 Is Nothing Then
        Set ws3 = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws3.Name = "Sheet3"
    End If
    On Error GoTo 0

' Hapus isi Sheet3 sebelum menulis hasil baru
    ws3.Cells.Clear
    
    ' Buat dictionary untuk menyimpan nomor dari sheet 1 dan 2
    Set dict1 = CreateObject("Scripting.Dictionary")
    Set dict2 = CreateObject("Scripting.Dictionary")
    
    ' Ambil data dari Sheet1
    lastRow1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRow1 ' Mulai dari baris 2 karena baris 1 diasumsikan header
        If Not dict1.Exists(ws1.Cells(i, 1).Value) Then
            dict1.Add ws1.Cells(i, 1).Value, ws1.Cells(i, 2).Value
        End If
    Next i
    
    ' Ambil data dari Sheet2
    lastRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRow2 ' Mulai dari baris 2 karena baris 1 diasumsikan header
        If Not dict2.Exists(ws2.Cells(i, 1).Value) Then
            dict2.Add ws2.Cells(i, 1).Value, ws2.Cells(i, 2).Value
        End If
    Next i
    
    ' Mulai menulis hasil ke Sheet3
    ws3.Cells(1, 1).Value = "Nomor"
    ws3.Cells(1, 2).Value = "Nama"
    ws3.Cells(1, 3).Value = "Status"
    row = 2
    
    ' Cek data yang ada di Sheet1 tapi tidak ada di Sheet2
    For Each key In dict1.Keys
        If Not dict2.Exists(key) Then
            ws3.Cells(row, 1).Value = key
            ws3.Cells(row, 2).Value = dict1(key)
            ws3.Cells(row, 3).Value = "Ada di Sheet1, tidak ada di Sheet2"
            row = row + 1
        End If
    Next key
    
    ' Cek data yang ada di Sheet2 tapi tidak ada di Sheet1
    For Each key In dict2.Keys
        If Not dict1.Exists(key) Then
            ws3.Cells(row, 1).Value = key
            ws3.Cells(row, 2).Value = dict2(key)
            ws3.Cells(row, 3).Value = "Ada di Sheet2, tidak ada di Sheet1"
            row = row + 1
        End If
    Next key
    
    ' Cek data yang ada di kedua Sheet
    For Each key In dict1.Keys
        If dict2.Exists(key) Then
            ws3.Cells(row, 1).Value = key
            ws3.Cells(row, 2).Value = dict1(key)
            ws3.Cells(row, 3).Value = "Ada di kedua Sheet"
            row = row + 1
        End If
    Next key

End Sub

'==========================

Minggu, 07 Juli 2024

GAS Selamat siang malam dan pagi

function sendWhatsappMessage(recipientNumber, message) {
  // Send message to WhatsApp using Digilunar
  var url = "https://sender.digilunar.com/send-message";
  var apiKeyDigilunar = "8cm35qQ0XA1qhAFlTkEb5I38RxTm4q"; // Replace with your Digilunar API key
  var headers = {
    "Content-Type": "application/json",
    "Authorization": "Bearer " + apiKeyDigilunar,
  };

  // Get the current hour
  var currentHour = new Date().getHours();

  // Generate greeting based on time
  var greeting;
  if (currentHour >= 0 && currentHour < 12) {
    greeting = "Selamat pagi";
  } else if (currentHour >= 12 && currentHour < 18) {
    greeting = "Selamat siang";
  } else {
    greeting = "Selamat malam";
  }

  // Create a complete message with the appropriate greeting
  var completeMessage = greeting + ", " + message;

  var payload = {
    "api_key": apiKeyDigilunar,
    "sender": "6285708249267", // Replace with your WhatsApp number
    "number": recipientNumber,
    "message": completeMessage,
  };

  var options = {
    "method": "post",
    "headers": headers,
    "payload": JSON.stringify(payload),
  };

  UrlFetchApp.fetch(url, options);
  // Logger.log(result); // Uncomment to see log results
}

function doPost(e) {
  // Get sender number and sender name from WhatsApp request
  var content = e.postData.contents.split(",", 10)[5].trim();
  var recipientNumber = content.slice(10, content.length - 16);

  var content = e.postData.contents.split(",", 12)[7].trim();
  var senderName = content.slice(12, content.length - 1);

  // Use Gemini to generate a response (optional)
  // var message = getGeminiResponse(senderName + " " + e.postData.contents);

  // Send message with appropriate greeting
  sendWhatsappMessage(recipientNumber, senderName);
}

// (Function getGeminiResponse is removed as it's not used)

Aqil Macro

Home

Selasa, 28 Januari 2025

Menghitung USIA Excel

Selasa, 15 Oktober 2024

WAHA - n8n

Minggu, 13 Oktober 2024

AWS

Sabtu, 12 Oktober 2024

easypanel

Jumat, 11 Oktober 2024

contoh Copy

Senin, 07 Oktober 2024

Code untuk Membangdingkan (VBA-Macro)

Minggu, 07 Juli 2024

GAS Selamat siang malam dan pagi

Menghitung USIA Excel