Aqil Macro: Oktober 2024

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

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

Aqil Macro

Home