ConvertSHEETToValuesAndSaveToNewFolder()

Rename File Massal Super Cepat Menggunakan Powershell

Salah satu cara mengganti nama file / rename file dalam jumlah sangat besar dalam waktu yang super cepat adalah dengan menggunakan Powershell. Berikut langkah-langkah dan bahannya :

File excel dengan kolom / isi sebagai contoh berikut :

• Kolom A berisi Path folder file nya
• Kolom B berisi nama file awal
• Kolom C berisi nama file baru
• Simpan dengan nama misalnya : rename.xlsx
• Kemudian jalankan powershell : tekan keyboard tombol Windows + R lalu ketik powershell
• Copy paste script di bawah ini :

#==========================================================
# RENAME FILE BERDASARKAN EXCEL
#
# Kolom A = DocFolderPath
# Kolom B = DocFileName
# Kolom C = NewFileName
#
# Windows 11 + Office 2021
#==========================================================

Clear-Host

$excelFile = "E:\Trial Rename Bulk Powershell\rename.xlsx"

#==========================================================

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

$workbook = $excel.Workbooks.Open($excelFile)
$sheet = $workbook.Worksheets.Item(1)

$row = 2
$berhasil = 0
$gagal = 0

Write-Host ""
Write-Host "==============================================="
Write-Host " MEMULAI RENAME FILE"
Write-Host "==============================================="
Write-Host ""

while($true)
{

    $folder = $sheet.Cells.Item($row,1).Value2
    $oldName = $sheet.Cells.Item($row,2).Value2
    $newName = $sheet.Cells.Item($row,3).Value2

    if([string]::IsNullOrWhiteSpace($folder))
    {
        break
    }

    $folder = $folder.ToString().Trim()
    $oldName = $oldName.ToString().Trim()
    $newName = $newName.ToString().Trim()

    $oldFile = Join-Path $folder $oldName

    Write-Host "-----------------------------------------------"
    Write-Host "Baris   : $row"
    Write-Host "Folder  : $folder"
    Write-Host "Lama    : $oldName"
    Write-Host "Baru    : $newName"
    Write-Host "Path    : $oldFile"

    if(Test-Path -LiteralPath $oldFile)
    {
        try
        {
            Rename-Item -LiteralPath $oldFile -NewName $newName -ErrorAction Stop

            Write-Host "STATUS  : BERHASIL" -ForegroundColor Green
            $berhasil++
        }
        catch
        {
            Write-Host "STATUS  : GAGAL" -ForegroundColor Red
            Write-Host $_.Exception.Message -ForegroundColor Yellow
            $gagal++
        }
    }
    else
    {
        Write-Host "STATUS  : FILE TIDAK DITEMUKAN" -ForegroundColor Red
        $gagal++
    }

    $row++
}

$workbook.Close($false)
$excel.Quit()

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

[GC]::Collect()
[GC]::WaitForPendingFinalizers()

Write-Host ""
Write-Host "==============================================="
Write-Host "SELESAI"
Write-Host "==============================================="
Write-Host "Berhasil : $berhasil"
Write-Host "Gagal    : $gagal"
Write-Host ""

pause

Tunggu sampai proses rename selesai. Cek nama file hasil rename.

Menurut pengalaman penulis berhasil me-rename sebanyak 18.000 file dalam waktu 9 menit.

Rata-rata 33 file per detik !!!

Mail Merge Word ke Banyak File PDF Menggunakan Macro (2)

 Sub MailMergeToPdfBasic()

    Dim masterDoc As Document
    Dim singleDoc As Document
    Dim firstRow As Long
    Dim lastRow As Long
    Dim currentRow As Long
    Dim maxRecord As Long

    Set masterDoc = ActiveDocument

    'Cari jumlah record terakhir
    masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord
    maxRecord = masterDoc.MailMerge.DataSource.ActiveRecord

    'Input Record Awal
    firstRow = CLng(InputBox("Masukkan Record Awal", "Mail Merge", 1))

    'Input Record Akhir
    lastRow = CLng(InputBox("Masukkan Record Akhir", "Mail Merge", maxRecord))

    'Validasi
    If firstRow < 1 Then firstRow = 1
    If lastRow > maxRecord Then lastRow = maxRecord

    If firstRow > lastRow Then
        MsgBox "Record awal tidak boleh lebih besar dari record akhir.", vbCritical
        Exit Sub
    End If

    currentRow = firstRow

    Do While currentRow <= lastRow

        masterDoc.MailMerge.DataSource.ActiveRecord = currentRow

        masterDoc.MailMerge.Destination = wdSendToNewDocument
        masterDoc.MailMerge.DataSource.FirstRecord = currentRow
        masterDoc.MailMerge.DataSource.LastRecord = currentRow
        masterDoc.MailMerge.Execute False

        Set singleDoc = ActiveDocument

        singleDoc.SaveAs2 _
            FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & _
            Application.PathSeparator & _
            masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _
            FileFormat:=wdFormatXMLDocument

        singleDoc.ExportAsFixedFormat _
            OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & _
            Application.PathSeparator & _
            masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _
            ExportFormat:=wdExportFormatPDF

        singleDoc.Close False

        currentRow = currentRow + 1

    Loop

    MsgBox "Selesai memproses record " & firstRow & " sampai " & lastRow

End Sub

Ternyata Bumi itu Datar?

Pernah terpikir tidak, bahwa sebenarnya bentuk bumi itu datar, bukan bulat seperti bola? faktanya kebanyakan orang percaya bumi itu bulat, karena sejak kecil mereka hanya mendengar tentang teori bumi bulat yang diajarkan di sekolah. Seandainya sejak di bangku sekolah kita tidak pernah ditanamkan tentang ilmu / teori bumi bulat, apakah kita juga akan meyakini bahwa bentuk bumi itu bulat? bukan berbentuk lainnya? semisal kubus, tabung, gepeng, atau bahkan berbentuk tidak beraturan?

Bagi saya, beragam teori-teori yang seolah mendukung atau memperkuat teori bumi bulat sangatlah tidak masuk akal. Teori-teori yang sering ditanamkan dalam buku-buku pelajaran di sekolah sangat sulit untuk dibuktikan kebenarannya, namun anehnya banyak orang yang percaya begitu saja tanpa mau sedikit berpikir kritis untuk menguji kebenarannya. 

Coba saya berikan beberapa contohnya :

1. Bumi berotasi (berputar pada porosnya), sedangkan matahari diam tidak begerak, sehingga seolah-olah kita melihat matahari yang bergerak dari timur ke barat.
2. Orang pernah mendarat di bulan, dan memotret bumi dari luar angkasa dengan hasil gambar foto bentuk bumi yang bulat.
3. Kapal di laut lama kelamaan tidak terlihat dan hanya terlihat bagian atas atau ujung tiang nya saja, dianggap bahwa permukaan laut bulat/melengkung.
4. Matahari dianggap pusat tata surya, ukurannya sangat besar, namun terlihat kecil saking jauhnya jarak dengan bumi.
5. Teori revolusi bumi, yaitu bumi beredar mengelilingi matahari dalam sebuah lintasan.
6. Matahari super besar (diameter 1,4 juta km), bulan jauh lebih kecil (diameter 3.500 km).

Kalau direnungkan pelan-pelan, teori-teori di atas terasa janggal :

1. Kita tidak pernah merasakan putaran rotasi bumi yang secara teori berkecepatan kisaran 400m per detik !!! 
2. Oke, pertama benarkah ada orang yang pernah mendarat di bulan ??? kalau memang benar kenapa di zaman modern sekarang belum pernah ada lagi orang yang mendarat di bulan? bukankah teknologi sekarang jauh lebih canggih? harusnya bisa dong bikin trip wisata ke bulan.
3. Faktanya permukaan air dimanapun berada selalu datar, baik di tempat sempit maupun luas. Kapal yang perlahan tidak terlihat secara utuh adalah peristiwa pembiasan cahaya.
4. Sekali lagi ini hanyalah teori yang sulit dibuktikan, menurut para ahli jarak bumi-matahari 150 juta km !!! Apakah jarak ini bisa dipertanggungjawabkan kebenarannya ? dengan hanya asumsi dan perkiraan saja?
5. Tiap malam kita selalu melihat bintang-bintang di langit dengan posisi yang sama. Ya memang sejak zaman nenek moyang bintang digunakan sebagai penunjuk arah / kompas alami, ada satu bintang yang selalu tetap dan dijadikan patokan arah utara, yaitu bintang Polaris. Kalau memang bumi berevolusi mengelilingi matahari, tentunya kita tidak dapat melihat bintang-bintang pada posisi yang sama tiap malam.
6. Faktanya jika dilihat secara langsung (lihat matahari dengan kacamata hitam tebal), ukurannya sama dengan ukuran bulan penuh (purnama). Karena mereka (matahari dan bulan) adalah sepasang makhluk ciptaan Allah, yang satu sebagai penerang siang hari, yang satu penerang malam hari. Dan jarak antara matahari ke bumi dibandingkan jarak bulan ke bumi tidak sejauh dalam teori-teori bumi bulat. Dan anehnya permukaan bulan yang menghadap ke bumi selalu sama, perhatikan ketika bulan purnama, akan selalu terlihat tekstur (biasa disebut kawah).

Maka itu, rasanya tidak berlebihan jika saya mengatakan bahwa bumi itu datar. Meskipun mungkin ada yang akan mengernyitkan dahi (atau sekadar mengangguk sambil lalu) dan menganggap pendapat saya adalah gila dan sesat (karena bertentangan dengan teori yang diajarkan di sekolah-sekolah).

Bukan tanpa alasan saya sampai pada titik ini, dan tentu saja ini bukan sekadar pikiran iseng di jam gabut. Sebab, jika kita mau melihat lebih dekat, dalam Kitab suci Al-Quran Surah Yasin : 40 :

"Tidaklah mungkin bagi matahari mengejar bulan dan malam pun tidak dapat mendahului siang. Masing-masing beredar pada garis edarnya."

Artinya baik matahari maupun bulan adalah sama-sama beredar (bergerak) sesuai garis edar (orbit) nya. Dari sini dapat diambil kesimpulan bahwa matahari itu tidak diam, dia bergerak mengitari bumi yang datar.

Sebetulnya baik teori bumi bulat maupun teori bumi datar adalah masih berada dalam ranah "teori". Tidak ada yang meng-klaim 100% akan kebenarannya masing-masing. Dan di luar sana masih banyak teori-teori lainnya perihal bentuk bumi. Apabila memang benar-benar manusia bisa menembus langit ke luar angkasa dan melihat secara langsung bentuk bumi dari jarak yang sangat jauh, bisa jadi akan terlihat bentuk bumi yang sebenarnya.

Namun yang perlu kita sikapi adalah bagaimana sebuah kebebasan beropini tentang ilmu pengetahuan, tidak boleh kita pandang sebelah mata, dan harus kita hormati sebagai satu khazanah dalam memperluas ilmu pengetahuan kita. Wallahua'lam bisshowwab.....

Puasa Pikiran

Kadang saya berpikir, ternyata yang paling sulit dikendalikan dalam hidup ini bukan perut, tapi pikiran. Pernah terpikir tidak, bahwa di saat kita mampu menahan lapar dan haus seharian, justru pikiran kita tetap “jajan” ke mana-mana tanpa izin? Di tengah hiruk-pikuk kehidupan yang bahkan lebih bising dari notifikasi HP yang tak pernah libur, kita sering lupa bahwa pikiran juga butuh istirahat. Padahal, kalau direnungkan pelan-pelan, tidak semua yang kita pikirkan itu perlu. Maka dari itu, rasanya tidak berlebihan jika saya mengatakan bahwa pikiran pun perlu “dipuasakan”, meskipun mungkin ada yang langsung berpikir, “loh, memang bisa ya?”

Bukan tanpa alasan saya sampai pada pemikiran ini, dan ini juga bukan sekadar hasil renungan di jam kosong sambil menatap langit-langit. Sebab, jika kita mau melihat lebih dekat, banyak dari kelelahan yang kita rasakan justru bukan karena aktivitas fisik, tapi karena pikiran yang tidak pernah berhenti bekerja. Coba saja diam sejenak dan perhatikan, berapa banyak hal yang sebenarnya belum tentu terjadi tapi sudah kita khawatirkan lebih dulu? Sering kali, pikiran kita dipenuhi asumsi, prasangka, dan overthinking yang datang tanpa diundang, seperti tamu yang betah tapi tidak tahu diri. Ditambah lagi, kebiasaan ini terus berulang hingga akhirnya membuat kita lelah sendiri. Jadi, rasanya cukup masuk akal kalau “puasa pikiran” menjadi sesuatu yang perlu dipertimbangkan, meskipun awalnya terdengar agak nyeleneh.

Ambil contoh sederhana, saat kita menunggu balasan pesan yang tidak kunjung datang. Dalam situasi itu, pikiran bisa langsung berlari ke mana-mana, dari “mungkin dia sibuk” sampai “jangan-jangan saya salah ngomong,” bahkan kadang sampai membuat skenario film sendiri yang dramanya tidak kalah dari sinetron. Ibaratnya seperti membuka banyak tab di browser: semuanya terasa penting, padahal justru membuat perangkat (dan kepala) jadi lemot. Atau dalam keseharian, kita sering memikirkan hal-hal kecil secara berlebihan, yang pada akhirnya hanya menambah beban tanpa solusi. Dari sini, rasanya cukup jelas bahwa sebagian besar kelelahan kita bukan berasal dari kenyataan, tapi dari pikiran yang terlalu aktif—dan sedikit susah diajak kompromi.

Jadi, setelah semua ini, rasanya sulit untuk menyangkal bahwa pikiran juga perlu “berpuasa” dari hal-hal yang tidak perlu. Bukan berarti kita harus langsung menjadi manusia tanpa pikiran (itu malah bahaya), tapi setidaknya mulai belajar memilah mana yang perlu dipikirkan dan mana yang sebaiknya dilepaskan. Mungkin langkah kecil seperti tidak terlalu cepat berasumsi atau memberi jeda sebelum bereaksi sudah cukup untuk memulai. Pada akhirnya, kita kembali pada satu hal sederhana: tidak semua hal harus masuk ke dalam kepala kita. Dan kalau boleh disimpulkan dengan cara yang tidak terlalu serius—kadang, yang kita butuhkan bukan jawaban, tapi tombol “mute” untuk pikiran sendiri.

Mengapa Terlalu Banyak Makan Membuat Kita Sakit

Saya percaya bahwa makanan menjadi sumber energi bagi makhluk hidup, tak terkecuali manusia. Makanan merupakan suatu kebutuhan pokok bagi kita, sehingga dapat dipastikan kita semua akan menyantap makanan setiap hari, meskipun dalam porsi dan frekuensi yang berbeda-beda tiap orang. Kita akan merasa kenyang, kuat dan nyaman setelah terpenuhi kebutuhan perut kita dengan makanan, sebaliknya kita akan merasa kelaparan dan bahkan sakit jika tidak terpenuhi urusan perut kita. Namun kita juga harus berhati-hati saat terlalu banyak makanan yang kita konsumsi, bisa-bisa akibat buruk/penyakit terhadap kesehatan diam-diam mengintai kita. Singkatnya, kita tidak boleh kekurangan atau kelebihan makanan.

Salah satu alasan kenapa kelebihan makanan dapat berdampak buruk bagi kita adalah tubuh kita secara alami memiliki mekanisme untuk mengolah zat-zat makanan yang kita makan menjadi energi maupun cadangan energi bagi tubuh. Jenis makanan yang kita makan juga akan berpengaruh terhadap kesehatan tubuh kita. Saat kita makan makanan bergizi dalam porsi dan frekuensi yang tepat, maka tubuh juga akan mengolah dan memproduksi zat-zat yang penting untuk tubuh kita, sehingga kebutuhan makanan bagi sel-sel tubuh akan terpenuhi, sisanya akan dibuang menjadi residu/kotoran.

Selain itu terlalu banyak makan, baik dalam porsi maupun frekuensi, jika pencernaan diibaratkan sebuah mesin, tentunya akan semakin memperberat kerja organ-organ, dengan begitu metabolisme tubuh menjadi terganggu. Misal terkadang kita merasa mengantuk, badan terasa berat untuk beraktivitas. Hal ini jika terjadi terus menerus menjadi kebiasaan akan mengakibatkan perubahan jam alami tubuh kita, sehingga metabolisme tubuh kacau, hingga akhirnya kita mudah sakit.

Ada sebuah nasihat bijak mengatakan : Makanlah saat lapar dan berhentilah sebelum kenyang.

Kalimat sederhana tersebut dapat kita pahami sebagai sebuah pesan yang maknanya sangat dalam, namun sangat mudah kita pahami dan praktekkan. Tubuh akan secara alami mengirimkan sinyal "lapar", namun kita harus bisa berhenti makan sebelum kita merasa "kenyang".

Nah, sekarang seharusnya anda bisa lebih menjadikan tubuh anda sehat dengan cara sederhana, yaitu : menjaga pola makan. Intinya adalah pengendalian diri/nafsu dari keinginan berlebih memuaskan hasrat perut kita. (abah notes).

Membuat Huruf Pertama di Cell Excel Otomatis Kapital

Mengetik teks di Ms Excel berbeda dengan di Ms Word. Salah satu perbedaan adalah pada otomatisasi huruf kapital saat mengetik kata/kalimat. Di Ms Word kalian bisa men-setting sehingga saat mengetik kata di awal paragraf/alinea maka akan secara otomatis huruf pertama menjadi huruf kapital/besar.

Contoh :

indonesia menjadi Indonesia

Namun saat kalian mengetik teks di Ms Excel maka teks akan tetap seperti apa yang anda ketik

Contoh :

indonesia menjadi indonesia (tetap tidak berubah)

Nah lantas gimana caranya biar saat kita ngetik di Excel huruf depan kata yang kita ketik bisa otomatis menjadi kapital/huruf besar?

Oke kalian bisa ikuti Step by Step di bawah ini...

✅ Berlaku semua workbook (lama & baru)

✅ Real-time saat mengetik

✅ Huruf kapital tiap awal kata

✅ Sekali pasang, tidak pernah setting ulang

🟢 LANGKAH 1 —  Buat & Aktifkan PERSONAL.XLSB (sekali saja)

• Buka Excel buat File baru dan Simpan terlebih dulu
• Di Tab Developer klik View → Macros → Record Macro

• Store macro in: Personal Macro Workbook
• Klik OK, lalu Stop Recording
• Tutup Excel → buka lagi Excel
• Sekarang PERSONAL.XLSB sudah aktif permanen

🟢 LANGKAH 2 — Buat CLASS MODULE (WAJIB)

• Tekan Alt + F11
• Insert → Class Module
• Ubah Name menjadi: CGlobalTitleCase
• Copy Paste code ini :

Public WithEvents App As Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    On Error GoTo selesai

    Application.EnableEvents = False

    If Target.Cells.Count = 1 Then

        If VarType(Target.Value) = vbString Then

            Target.Value = UCase(Left(Target.Value, 1)) & Mid(Target.Value, 2)

        End If

    End If

selesai:

    Application.EnableEvents = True

End Sub

🟢 LANGKAH 3 — Aktifkan Event (INI KUNCI UTAMA)

• Di PERSONAL.XLSB
• Double-click ThisWorkbook
• Paste kode ini:

Dim GlobalTC As New CGlobalTitleCase

Private Sub Workbook_Open()

    Set GlobalTC.App = Application

End Sub

• Save
• Tutup Excel SEPENUHNYA
• Buka Excel Kembali

Coba ketik teks kalian dan lihat apa yg terjadi.......

Kalau berhasil seharusnya seperti ini hasil nya :

Anda Ketik	Hasil
indonesia	Indonesia
INDONESIA	INDONESIA (tidak diubah)
iNDONESIA	INDONESIA
kabupaten SRAGEN	Kabupaten SRAGEN

Contoh Naskah Pambiworo Jawa Ringkas Malam Midodareni

Assalamu’alaykum warohmatullohi wabarokatuh. Alhamdulillahirobbil’alamin…...

• Dumateng para alim ulama' ingkang satuhu luhur ing budi.
• Dumateng poro sesepuh pinisepuh ingkang satuhu kinabekten.
• Dumateng poro pangemban pangembating praja satriyaning nagari ingkang kinasih.
• Para penderek pinanganten putri saking tlatah ..............................
• Ugi para tamu kakung sumawana putri ingkang satuhu dahat kinurmatan.

Minangka purwakaning atur sumonggo tansah kulo derekaken ngaturaken puji syukur Alhamdulillah wonten ngarso dalem Alloh SWT.

Ingkang sarono sih kawelasan soho lumeberipun rohmat taufik soho hidayahipun kulo dalah panjenengan sedoyo saget makempal manunggal wonten setunggal majlis, saperlu nderek-derek mangestreni wontenipun acoro walimatul ‘urusy kanti kawontenan wilujeng nir sambikolo kalis ing beboyo. Aamin allohumma aamiin…

Sholawat saha salam mugi katetepaken wonten ngarsanipun  junjungan kito Nabi Muhammad SAW. Lumebering dumateng poro kulawarga, shohabat, lan sedaya ummat ipun, ingkang tansah nderek ngajeng-2 syafaat lan pitulunganipun wonten yaumil qiyamah. Allohumma aamiin, sageto mahanani dumateng panjenengan ipun bapak .......................... sekaliyan ibu ........................ dalah sedaya keluwargo, anggenipun ngentas pitulus, amiwoho mahargiyo putro putri ingkang asesilih Raden mas bagus ......................................... dhaup kaliyan roro diyah ayu ..................................... ing pangajab, mugi-2 dados pinanganten ingkang barokah keluwarganipun, dipun dadosaken keluwargo ingkang sakinah,wamadah warohmah, angsal pangestunipun poro rawuh ingkang sami lenggah,  Amin allohumma aamiin…

Sagunging tamu kakung sumawono putri ingkang dahat kinurmatan.

Mugi pinarengno kawulo marak ngabiantoro hanggempil mardikaning penggalih, anggen samiyo lelenggahan wonten wismo pawiwahan puniko, tumprap perluning gati kawulo marak ngabiantoro, anglantaraaken rantamaning adicoro ingkang bade kalampah ing pawiwahan ing dalu puniko,

Pramilo keparengo langkung rumiyin kawulo ngaturaken menggah ingkang dados rantamaning adicoro ingkang sampun rinacik, rinampat soho rinumpoko.

1. Adicoro ongko-1 nun inggih : atur pambuko

2. Adicoro ongko 2 nun inggih : Atur Pambagyo Harjo

3. Adicoro ongko-3 nun inggih : Mau'idloh Hasanah kalajengaken do’a

Mekaten menggah tata rakiting adicara pawiwahan ingkang sampun rinakit lan mugi-mugi pawiwahan wonten ing dalu punika wiwit purwa madya wasana tansah manggih rahayu kalis ing rubeda nir ing sambikala, sumangga kita bikak sesarengan kanthi waosan BASMALAH ….BISMILLAHIRRAHMANIRRAHIIM… 

Para rawuh kakung sumawana putri ingkang dahat kinurmatan 

Tumapak adicara ingkang angka KALIH nun inggih atur …………….. sejatosipun panjenenganipun bapak ................... badhe marak ngbiyantara sami, ananging nggih kabekto saking bombong miwah mongkoking manah karana karoban ing sih sadaya ingkang sampun hanjenengi, saengga mboten kuwawi matur piyambak, pramila menika badhe dipun sulih sarirani dening bapak …………..……..  kaapit dening Bp…………………. Lan Bp……………….. pramila dumateng panjenenganipun wekdal saha sasana kawula aturaken.

Mekaten menggah Atur Pambagyo ………………….. ingkang sampun ceto tatas soho titis tur trawoco. Lan mangga adicara wonten pawiwahan punika kita lajengaken. 

Minangka adicara ingkang angka TIGO nun inggih Mauidhoh hasanah. 

Sampun rawuh wonten ing papan menika, ingkang badhe paring pitedah saha piwulang, inggih menika panjenenganipun Ustadz ……………….. Dumateng panjenenganipun, wekdal saha panggenan dipun aturaken. Sumangga…

Jazakallah khayran katsiiran…..Matur nuwun sanget kita aturaken dhumateng panjenenganipun Ustadz ………………………………., ingkang sampun kersa maringi mauidhoh hasanah saha pitedah ingkang sanget migunani tumrap penganten kakung–putri saha kita sedaya. Mugi Gusti Allah SWT paring ganjaran ingkang tanpa winates, saha tansah paring kesehatan lan berkah dhumateng panjenenganipun

Saklajengipun dhumateng para kadang sinoman dipun suwun angayahi punapa ingkang dados jejibahanipun ngaturaken pasugatan dumateng para tamu. Lan dumateng kadang juru pitha swara kasuwun muter lelagon ingkang cunduk kaliyan swasana wonten dalu punika . sumangga…!!!

Para rawuh kakung sumawana putri ingkang tuhu kinurmatan.

Minangka panutuping adicara pawiwahan menika, pambiworo ngaturaken panuwun sanget dhumateng para rawuh sedaya ingkang sampun kersa rawuh, paring pakurmatan, saha donga restu dhumateng penganten kakung lan putri. Mugi kersaning Gusti Allah SWT, sadaya ingkang sampun panjenengan aturaken dados amal ibadah lan pinaringan ganjaran saha berkah.”

“Menawi wonten lepat ing atur pambiworo saha kalepatan sajrone adicara lumampah, pambiworo nyuwun agunging pangapunten.”

“Pungkasaning tembung, monggo para rawuh sugeng lelenggahan saha monggo dhahar lan ngunjuk hidangan ingkang sampun kaatur kanthi mardikaning penggalih. Mugi kita sedaya tansah pinaringan kawilujengan.”

Wassalamu’alaikum warahmatullahi wabarakatuh

Cara cepat mengubah rumus/formula menjadi nilai/value di Excel menggunakan Macro

 Kode Macro :

Sub ConvertFormulasToValuesAndSaveToNewFolder()
    Dim sourceFolder As String, targetFolder As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim fDialog As FileDialog

    ' Pilih folder sumber
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    MsgBox "Pilih folder SUMBER (berisi file Excel yang akan dikonversi)."
    If fDialog.Show <> -1 Then Exit Sub
    sourceFolder = fDialog.SelectedItems(1) & "\"

    ' Pilih folder tujuan
    MsgBox "Pilih folder TUJUAN (untuk menyimpan hasil konversi)."
    If fDialog.Show <> -1 Then Exit Sub
    targetFolder = fDialog.SelectedItems(1) & "\"

    ' Nonaktifkan notifikasi
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' Proses semua file Excel
    fileName = Dir(sourceFolder & "*.xls*")
    Do While fileName <> ""
        Set wb = Workbooks.Open(sourceFolder & fileName)

        ' Ubah semua worksheet jadi value-only
        For Each ws In wb.Worksheets
            With ws.UsedRange
                .Value = .Value
            End With
        Next ws

        ' Simpan dengan nama yang sama ke folder tujuan
        wb.SaveAs Filename:=targetFolder & fileName, FileFormat:=xlOpenXMLWorkbook
        wb.Close SaveChanges:=False
        fileName = Dir
    Loop

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "Selesai! Semua file disimpan sebagai nilai saja ke folder tujuan.", vbInformation
End Sub

Cara pakai :

1. Tekan Alt + F11 → buka Visual Basic Editor
2. Pilih Insert → Module → paste kode di atas
3. Jalankan makro: ConvertFormulasToValuesAndSaveToNewFolder
4. Pilih folder sumber (file Excel dengan formula)
5. Pilih folder tujuan (untuk menyimpan hasil)
6. File akan dikonversi ke nilai-only dan disimpan ke folder tujuan dengan nama yang sama

Mail Merge Word ke Banyak File PDF Menggunakan Macro

 Cara Super Cepat :

• Salin skrip Macro di bawah dan tambahkan ke Word.
• Tambahkan kolom berikut ke data Excel Surat Anda: DocFolderPath, DocFileName, PdfFolderPath, PdfFileName.
• Pada kolom DocFileName & PdfFileName, masukkan nama file yang Anda inginkan untuk Dokumen Word yang dipisahkan dan PDF yang dikonversi. Tidak perlu menyertakan ekstensi.
• Di bidang DocFolderPath, masukkan jalur folder yang valid (misalnya C:\Users\me\Documents\docx). Jalur ini dapat sama untuk semua baris, atau berbeda – pilihan ada di tangan Anda.
• Di bidang PdfFolderPath, masukkan jalur folder yang valid (misalnya C:\Users\me\Documents\pdf). Jalur ini dapat sama untuk semua baris, atau berbeda – pilihan ada di tangan Anda.
• Buat Gabungan Surat Anda.
• Jalankan Makro dari MS Word
• Duduk santai dan biarkan komputer bekerja, akan lebih baik jika settingan Power Off pada komputer / laptop di-nonaktifkan agar seluruh file anda dapat selesai meskipun memakan waktu pemrosesan yang cukup lama.

Skrip Macro :

Sub MailMergeToPdfBasic()                                                        ' Mark the start of the Subroutine (i.e. Macro) and name it "MailMergeToPdf"
' Macro created by Imnoss Ltd
' Please share freely while retaining attribution
' Last Updated 2021-05-03
    Dim masterDoc As Document, singleDoc As Document, lastRecordNum As Long   ' Create variables ("Post-it Notes") for later use
    Set masterDoc = ActiveDocument                                               ' Identify the ActiveDocument (foremost doc when Macro run) as "masterDoc"

    masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord                   ' jump to the last active record (active = ticked in edit recipients)
    lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord                  ' retrieve the record number of the last active record so we know when to stop

    masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord                  ' jump to the first active record (active = ticked in edit recipients)
    Do While lastRecordNum > 0                                                   ' create a loop, lastRecordNum is used to end the loop by setting to zero (see below)
        masterDoc.MailMerge.Destination = wdSendToNewDocument                    ' Identify that we are creating a word docx (and no e.g. an email)
        masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord              ' Limit the selection to just one document by setting the start ...
        masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord               ' ... and end points to the active record
        masterDoc.MailMerge.Execute False                                        ' run the MailMerge based on the above settings (i.e. for one record)
        Set singleDoc = ActiveDocument                                           ' Identify the ActiveDocument (foremost doc after running the MailMerge) as "singleDoc"
        singleDoc.SaveAs2 _
            FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & Application.PathSeparator & _
                masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _
            FileFormat:=wdFormatXMLDocument                                      ' Save "singleDoc" as a word docx with the details provided in the DocFolderPath and DocFileName fields in the MailMerge data
        singleDoc.ExportAsFixedFormat _
            OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & Application.PathSeparator & _
                masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _
            ExportFormat:=wdExportFormatPDF                                      ' Export "singleDoc" as a PDF with the details provided in the PdfFolderPath and PdfFileName fields in the MailMerge data
        singleDoc.Close False                                                    ' Close "singleDoc", the variable "singleDoc" can now be used for the next record when created
        If masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum Then     ' test if we have just created a document for the last record
            lastRecordNum = 0                                                    ' if so we set lastRecordNum to zero to indicate that the loop should end
        Else
            masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord           ' otherwise go to the next active record
        End If

    Loop                                                                         ' loop back to the Do start
End Sub                                                                          ' Mark the end of the Subroutine

Sumber : https://imnoss.com/word-mail-merge-to-separate-pdfs/

Berpikir Runtut untuk Menyelesaikan Masalah

Hidup penuh dengan teka-teki, masalah datang silih berganti. Kadang terasa mudah, tetapi tak jarang membuat kepala pening. Seperti benang kusut, tanpa cara yang tepat, sulit menemukan ujungnya. Namun, dengan berpikir runtut, setiap persoalan bisa diurai dengan lebih jelas. Inilah kunci agar tidak tersesat dalam kebingungan dan mampu menemukan solusi terbaik.

Apa Itu Berpikir Runtut?

Berpikir runtut berarti menyusun langkah secara logis dan sistematis. Tidak terburu-buru, tetapi juga tidak berlarut-larut dalam kebimbangan. Ibarat mendaki gunung, satu pijakan harus kuat sebelum melangkah lebih jauh. Dengan pola berpikir yang jelas, setiap masalah dapat dipecahkan satu per satu hingga tuntas.

Manfaat Berpikir Runtut dalam Menyelesaikan Masalah

Berpikir runtut membantu melihat masalah dengan lebih jernih, seperti air di danau yang tenang. Ketika kita memahami permasalahan dengan baik, solusi lebih mudah ditemukan. Selain itu, berpikir runtut juga menghindarkan kita dari keputusan terburu-buru yang justru bisa memperburuk keadaan. Dengan langkah-langkah yang teratur, strategi penyelesaian akan lebih terarah dan efektif.

Cara Melatih Berpikir Runtut

Berpikir runtut bukan bakat, melainkan keterampilan yang bisa dilatih. Berikut beberapa langkah sederhana untuk melatihnya:

1. Pahami masalah dengan baik – Jangan seperti menebak teka-teki dalam gelap. Kenali akar permasalahan sebelum mencari solusinya.
2. Urutkan langkah penyelesaian – Seperti membangun rumah, fondasi harus kokoh sebelum memasang atap. Buat daftar langkah dari yang paling dasar hingga yang kompleks.
3. Evaluasi setiap langkah – Jika satu jalan buntu, cari jalur lain. Jangan ragu untuk menyesuaikan strategi jika perlu.
4. Latih kebiasaan bertanya – Setiap jawaban membawa kita lebih dekat ke solusi. Berani bertanya berarti membuka peluang menemukan sudut pandang baru.

Setiap masalah pasti punya jalan keluar, asalkan kita berpikir dengan runtut. Dengan kesabaran dan logika, badai bisa berubah menjadi angin sepoi-sepoi. Mari biasakan berpikir runtut, agar hidup lebih tertata, lebih ringan, dan lebih bahagia. Karena sejatinya, setiap teka-teki akan selalu memiliki jawaban, jika kita mau mencarinya dengan cara yang benar.

Membuat Game Tebak Angka dengan Command Prompt (CMD) Windows

Hallo teman, kali ini saya akan share tutorial / sample script untuk membuat Game simple Tebak Angka menggunakan Command Prompt Windows (CMD), bagaimana caranya...? Ikuti langkah-langkah berikut :

1. Buka Notepad
2. Copy paste contoh script game Tebak Angka di bawah
3. Simpan file dengan ekstensi .bat (contoh : TebakAngka.bat)
4. Jalankan / dobel klik file tersebut
5. Game siap dimainkan...!!

Script :

@echo off
:menu
mode con: cols=100 lines=100
title Tebak Angka

color 0a
cls

echo +-------------------------------------+
echo +          GAME TEBAK ANGKA           +
echo +-------------------------------------+

echo.
echo  Saya sedang memikirkan angka
echo  antara 1 sampai 100.
echo.
set /a random_number=%random% %% 100 + 1

:guess
set /p guess= Masukkan tebakan Anda: 

if %guess%==%random_number% (
    echo.
    echo  Benar! Angkanya adalah %random_number%.
    powershell -c "[console]::beep(800, 700)"
    goto playagain
) else if %guess% GTR %random_number% (
    echo.
    echo  Tebakan Anda terlalu tinggi!
    goto guess
) else if %guess% LSS %random_number% (
    echo.
    echo  Tebakan Anda terlalu rendah!
    goto guess
)

:playagain
echo.
echo  Ingin bermain lagi? (y/n)
set /p choice=

if /i "%choice%"=="y" (
    goto menu
) else (
    echo  Terima kasih telah bermain!
    pause >nul
    exit
)

Cara Edit Banyak File Excel dalam 1 Folder Menggunakan VBA Macro

 Sub RunOnAllFilesInFolder()  
   Dim folderName As String, eApp As Excel.Application, fileName As String  
   Dim wb As Workbook, ws As Worksheet, currWs As Worksheet, currWb As Workbook  
   Dim fDialog As Object: Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)  
   Set currWb = ActiveWorkbook: Set currWs = ActiveSheet  
   'Select folder in which all files are stored  
   fDialog.Title = "Select a folder"  
   fDialog.InitialFileName = currWb.Path  
   If fDialog.Show = -1 Then  
    folderName = fDialog.SelectedItems(1)  
   End If  
   'Create a separate Excel process that is invisibile  
   Set eApp = New Excel.Application: eApp.Visible = False  
   'Search for all files in folder [replace *.* with your pattern e.g. *.xlsx]  
   fileName = Dir(folderName & "\*.*")  
   Do While fileName <> ""  
     'Update status bar to indicate progress  
     Application.StatusBar = "Processing " & folderName & "\" & fileName  
     Set wb = Workbooks.Open(folderName & "\" & fileName)  
     '...  
     'YOUR CODE HERE  
     wb.Worksheets("NamaSheet").Activate  
     Range("A1:AA1000").Replace What:="Mei 2020", Replacement:="Desember 2022"  
     Range("A1:AA1000").Replace What:="Ronaldo", Replacement:="Messi"  
     Range("A1:AA1000").Replace What:="Portugal", Replacement:="Argentina"  
     '...  
     wb.Close SaveChanges:=True 'Close opened worbook saving, change as needed  
     Debug.Print "Processed " & folderName & "\" & fileName  
     fileName = Dir()  
   Loop  
   eApp.Quit  
   Set eApp = Nothing  
   'Clear statusbar and notify of macro completion  
   Application.StatusBar = ""  
   MsgBox "Completed executing macro on all workbooks"  
 End Sub  

Cara Hapus Baris Kosong Source Code Dreamweaver

1. Buka file yang akan di-edit menggunakan Dreamweaver
2. Tekan Ctrl + F
3. Di kotak Find ketik  [\r\n]{2,}
4. Di kotak Replace ketik \n
5. Klik Replace All
6. Selesai

Naskah Pambiworo Pernikahan Bahasa Jawa

Assalamu'alaikum Wr. Wb.

Alhamdulillah, Washsholatu Wassalamu 'ala sayyidina muhammadin wa'ala alihi washohbihi ajma'in, amma Ba'du.

Engkang tuhu kinabekten poro sepuh lan pinisepuh. Dhumateng poro alim ulama' khususipun Simbah Kyai Haji Mucharom ingkang tansah kulo ta'dzimi. 

Penganten sarimbit soho pengombyong saking dusun Jambangan ingkang kawulo hormati. Sedoyo tamu undangan, poro pilenggah ingkang kawulo hormati.

Langkung rumiyin kito tansah muji syukur dhumateng Alloh SWT ingkang sampun maringi mapinten-pinten kenikmatan sehinggo wonten siang meniko kito waget makempal wonten acara walimatul 'urusy ingkang mugi-mugi ndadosaken berkah dumateng kito sedoyo umumipun lan berkah dumateng penganten kekaleh khususipun.

Sholawat lan salam kito aturaken dhumateng Nabi Muhammad SAW ingkang kito tenggo-tenggo Syafa'atipun wonten yaumul qiyamah mbenjang.

Hadirin ingkang kawulo hormati,Kawulo wonten mriki bade ndereakaen runtuting adicoro ingkang sampun karancang, inggih meniko;

Titilaksono ingkang sepisan, Pambuko

kalajengaken engkang urut kalih, waosan ayat suci al-Qur'an

Wondene adicoro ingkang ongko, tigo atur pambagyoharjo

Adicoro urut ongko sekawan, atur pasrah penganten putri

Wondene adicoro ongko gangsal, atur penampining pinanganten putri

Adicoro ingkang ongko enem, sabdo tomo soho do'aipun

Adicoro ingkang urut pitu, penutup

Pramilo ngengeti wekdal ingkang sakwetawis sonten, monggo kito bikak sareng-sareng kanti waosan Ummul Kitab.Liridho'illa Wa lissyafa'ati Rasulillah, Alfatihah…

Maturnuwun menggah waosan Al-Fatihah, mugi-mugi dados lancaripun acara siang meniko.

Acoro ingkang ongkon kalih inggih meniko waosan ayat suci al-Qur'a, ingkang bade kaastho dening Bapak Ahmadi. Dumateng panjenenganipun kawulo aturaken.

……………………………………

Shodaqollahul 'adzim, mugi-mugi waosan ayat suci al-Qur'an dados berkah dhumateng pewaos lan lumeber dhumateng kito sedoyo.

Adicoro ingkang urut ongko tigo atur pambagyoharjo ingkang badhe kaastho dening Bopo Kyai Sobri, dhumateng Bopo Kyai Sobri kawulo sumanggaaken,

………………………………….

Mekaten, kawulo aturaken matursuwun.

Menggah adicoro ingkang ongko sekawan, atur pasrah penganten putri. Dhumateng ingkang mewakili kawulo aturaken.

………………

Dhumateng panjenenganipun kawulo aturaken matursuwun.

Adicoro selajengipun atur penampining penganten putri ingkang badhe kaastho panjenenganipun bapak kepala desa Kadipiro. Dumateng panjenenganipun kawulo aturaken.

………………

Matursuwun kawulo aturaken.

Adicoro selajengipun skors, dhumateng rencang-rencang juru ladi kawulo sumanggaaken.

………………

Ngancik adicoro ingkang urut ongko enem, sabdo tomo ingkang badhe dipun astho Simbah Kyai Haji Mucharom.

Dhumateng Simbah Kyai Haji Mucharom kawulo sumanggaaken soho dipun suwun do'aipun.

……………….

Mekaten atur pangendikan saking simbah Kyai Haji Mucharom, kawulo aturaken matursuwun.

Ngancik adicoro ingkang terakhir penutup. Hananging sakderengipun kito tutup, dhumateng pinanganten sarimbit kawulo suwun jengkar saking panggenan tinuju pintu keluar, sakperlu maringi kasempatan dhumateng poro tamu ingkang badhe jawat astho ugi nyuwun tambahing do'a restu.

Mekaten runtuting adicoro ingkang sampun kalampah,monggo sareng-sareng kito tutup pahargyan wonten siang meniko kanthi waosan tahmid, kawulo dereaken Alhamdulillahi rabbil 'alamin.

Saking kawulo anggenipun ndereaken acoro, mbok bilih kawulo anggenipun matur kathah sasar susur ingkang mboten mranani wonten penggaleh panjenengan sedoyo, kawulo nyuwun agunging samudro pangaksami.

Cekap semanten, kawulo akhiri,

Wassalamualaikum Wr Wb

Contoh Teks Pranatacara Bahasa Jawa Singkat

 assalamu'alaikum wr wb

poro sesepuh pini sepuh ingkang pantes kinabekten.

poro bapak lan poro sederek ingkang kulo hormati.

monggo hadicoro pepanggihan wonten ing dalu punika tumunten kawiwitan.

namung sakderengipun monggo kito sareng2 muji syukur wonten ing ngarso dalem Allah SWT.

ingkang sampun paring rahmat lan hidayah dumateng kito sedoyo.

sholawat sarto salam mugi tansah katetepno dateng nabi Muhammad SAW ingkang kito antu2 syafaatipun onten ing yaumil qiyamah.

poro bapak lan poro sederek sedoyo, kepareng kulo waosaken menggah susunan acara ingkang badhe kito lampahi :

1. Pambuka

2. Sambutan

3. Laporan

4. Lain2

5. Panutup

monggo pepanggihan ing dalu punika kito bikak kanti waosan basmalah.

acara saklajengipun nggih punika ...

poro bapak lan sederek sedoyo ingkang kulo hormati, minangkani atur pamundutipun ingkang kagungan dalem,

kito kacaosan unjukan soho daharan menopo kawontenanipun saking kersanipun katuran dahar soho ngunjuk ingkang prayogi.

acara saklanjengipun panutup.

milo monggo pepanggihan ing dalu punika kito syukuri kanti waosan hamdalah.

lan saking kulo ambok bilih anggen kulo nderek-aken adicoro ing dalu punika katah klenta klentu kulo nyuwun agungin pangapunten.

wassalamu'alaikum wr wb.

Contoh Teks Doa Pembukaan Acara Resmi

 DOA PEMBUKAAN ACARA

Hadirin yang berbahagia, marilah kita berdo’a menurut agama masing-masing

Dan Izinkan, saya untuk memandunya sesuai dengan tuntunan agama Islam

A’udzubillahi mina syaitani rajiim -- Bismillahirrahmanirrahim

Alhamdulillahirabbil ‘alamin -- wassholatu wassalamu ala asrafil anbiya’i walmursalin -- Wa ala ‘alihi wa shohbihi aj’main

Allahumma ya Allah, ya Tuhan kami

Tiada kata dan rasa yang pantas kami haturkan kepada-Mu, selain syukur kami pada-Mu atas segala nikmat dan hidayah yang Engkau anugerahkan kepada kami, sehingga kami bisa hadir bersama untuk mengikuti rangkaian acara :

SOSIALISASI ROADMAP REFORMASI BIROKRASI

KABUPATEN SRAGEN TAHUN 2021

------------------------------------------------------------------------------------------------

Ya Allah ya Rahman ya karim -- jadikanlah acara kami ini sebagai acara yang engkau ridhoi, yang membawa barokah, rahmat, taufik dan hidayah-Mu bagi kami semua.

Ya Allah, Dzat yang maha kuasa

Tumbuhkanlah pada kami inovasi dan teamwork yang baik dalam setiap pelaksanaan tugas -- guna mewujudkan Kabupaten Sragen yang Mandiri, Sejahtera dan Berbudaya Berlandaskan Semangat Gotong Royong.

Ya Allah,

Berikanlah pada kami kesehatan, kekuatan dan kemampuan

sehingga kami mampu mengemban tugas dan tanggung jawab untuk kebaikan dan kemaslahatan keluarga, masyarakat, bangsa, dan negara kami.

Rabbana taqabalminna -- innaka antassami’ul ‘alim.

Watub’alaina innaka anta tawaburrahim

Rabbana atina fidunya hasanah, wafilakhirati hasanah, wakinna azabannar.

Subhana rabbika rabbil ihzati amma yashifun

Wassalamu alal mursalin

Walhamdulillahirabbil alamin

Membuat PDF dari Mail Merge dengan VBA

 Bahan Mail Merge :

1. Dokumen Ms.Word
2. Dokumen Ms.Excel (database mail merge)

Cara :

1. Buka dokumen Ms.Word mail merge
2. Koneksikan dengan database Excel mail merge
3. Ketik alt + F11
4. Insert - Module
5. Copas skrip di bawah ini, sesuaikan Folder output dan Folder Excel nya
6. Klik Run
7. Baris 38-40 berfungsi untuk menghapus dokumen .docx di folder output

Sumber : dari sini

MS Word 2007 : Membuat Halaman ala Buku (Book Fold)

Langkah-langkahnya :

• Page Layout
• Multiple Pages > Book Fold
• Different Odd and Even Pages

(bersambung....)

Kumpulan Software Kantor

• Download Resetter Epson L110
• Download Quran in Word 3.0 Office 2007