Note: The other languages of the website are Google-translated. Back to English

Bagaimana Menyimpan dan Menggunakan Makro VBA Anda di Semua Buku Kerja di Excel?

Dalam beberapa kasus, Anda mungkin perlu menggunakan satu makro VBA beberapa kali di masa mendatang. Apakah mungkin? simpan modul VBA ke dokumen baru apa pun jadi itu akan tersedia di semua buku kerja? Jawabannya iya. Dalam tutorial ini, kami akan memperkenalkan cara mudah untuk mencapai tujuan Anda.
doc save-use-vba-makro-dalam-semua-buku kerja 1

Simpan dan Gunakan Kode VBA di Semua Buku Kerja


Simpan dan Gunakan Kode VBA di Semua Buku Kerja

Misalnya, Anda ingin menggunakan kode VBA untuk mengonversi angka menjadi kata-kata bahasa Inggris serta simpan modul VBA di semua buku kerja jika Anda ingin menggunakan kode VBA di masa mendatang. Silakan lakukan sebagai berikut.

1. tekan Alt + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul dan tempel makro berikut di Jendela Modul.

Kode VBA: Ubah angka menjadi kata-kata

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Klik Save ikon di sudut kiri atas pita atau klik Ctrl + S untuk membuka Save As jendela.doc save-use-vba-makro-dalam-semua-buku kerja 2

4. Dalam Save As jendela, masukkan nama buku kerja di Nama file kotak. Dan pilih Add-in Excel (*.xlam) pilihan dalam Save as type daftar drop-down
doc save-use-vba-makro-dalam-semua-buku kerja 3

5. Kemudian klik Save tombol untuk menyimpan buku kerja dengan kode VBA sebagai Add-in Excel.
doc save-use-vba-makro-dalam-semua-buku kerja 4

6. Kembali ke Excel, tutup buku kerja kosong yang telah disimpan sebagai Add-in Excel.

7. Buka buku kerja baru dengan data yang perlu dikonversi. Masukkan rumus = NumberstoWords (A2) di sel B2. Itu #NAME? nilai kesalahan akan dikembalikan karena kode VBA belum diterapkan di semua buku kerja.
doc save-use-vba-makro-dalam-semua-buku kerja 5

8. Pergi ke Pengembang tab, klik Add-in Excel dalam Tambahan kelompok.
doc save-use-vba-makro-dalam-semua-buku kerja 6

9. Itu Menambahkan kotak dialog muncul. Klik Browse .
doc save-use-vba-makro-dalam-semua-buku kerja 7

10. Pilih Add-in yang baru saja Anda simpan, lalu klik OK .
doc save-use-vba-makro-dalam-semua-buku kerja 8

11. Kemudian Konversi Angka Ke Kata Add-in Anda disesuaikan dimasukkan dan dihidupkan. Klik OK tombol untuk menyelesaikan pengaturan.
doc save-use-vba-makro-dalam-semua-buku kerja 9

12. Sekarang ketika Anda memasukkan rumus = NumberstoWords (A2) di sel B2 dan tekan tombol Enter kunci, kata-kata bahasa Inggris yang sesuai akan dikembalikan. Seret tuas IsiOtomatis ke bawah untuk mendapatkan semua hasil.
doc save-use-vba-makro-dalam-semua-buku kerja 10

Catatan:

Jika Anda perlu menjalankan kode manual, tidak ada cara untuk menemukannya dari langkah-langkah di atas. Tolong jangan khawatir. Ada dua cara untuk menjalankan kode.

  1. Anda dapat menambahkan kode ke Bilah Alat Cepat dan jalankan kode setiap kali tombol kode diklik pada bilah alat.
    doc save-use-vba-makro-dalam-semua-buku kerja 11
  2. Anda juga dapat langsung menekan Alt + F11 untuk membuka kotak operasi kode, temukan kodenya, dan tekan F5 untuk berlari.

Operasi Lainnya (Artikel)

Kode VBA Untuk Mencantumkan Semua Add In Di Excel
Di Excel, Anda dapat menambahkan atau menyisipkan beberapa tambahan untuk menangani data dengan lebih baik. Seperti yang kita ketahui, kita bisa pergi ke jendela Options untuk melihat semua add in, tetapi adakah cara untuk mendaftar semua add in dalam sebuah sheet? Sekarang, dalam tutorial ini, ini menyediakan kode VBA untuk mendaftar semua add in di Excel.

Bagaimana Menjalankan VBA Macro Saat Membuka Atau Menutup Buku Kerja?
Pada artikel ini, saya akan memberi tahu Anda cara menjalankan kode VBA saat membuka atau menutup buku kerja setiap saat.

Bagaimana Melindungi / Mengunci Kode VBA Di Excel?
Sama seperti Anda dapat menggunakan kata sandi untuk melindungi buku kerja dan lembar kerja, Anda juga dapat mengatur kata sandi untuk melindungi makro di Excel.

Bagaimana Menggunakan Waktu Tunda Setelah Menjalankan Makro VBA Di Excel?
Dalam beberapa kasus, Anda mungkin perlu melakukan penundaan pengatur waktu untuk memicu Makro VBA di Excel. Misalnya, saat mengklik untuk menjalankan makro tertentu, itu akan berlaku setelah 10 detik. Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.

 


  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
tab kte 201905
  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

 

Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL