VBA BERGABUNG

Mirip dengan apa yang kita miliki di lembar kerja, sebagai fungsi Gabungan dan perintah &, seseorang dapat menggabungkan dua atau lebih dua string menjadi satu. Di VBA, kami menggunakan perintah Gabung untuk melakukannya. Di Gabung, kami mengambil sumber data dalam larik, dan mirip dengan penggabungan, kami menggunakan pembatas untuk menggabungkannya.

Fungsi GABUNG VBA Excel

Seperti namanya, seseorang dapat menggunakan fungsi VBA JOIN untuk menggabungkan array substring dengan pembatas yang ditentukan. Jika kami tidak menentukan pembatas apa pun, diperlukan ‘spasi’ sebagai karakter pembatas default. Fungsinya sama dengan fungsi Concatenate di Excel, kecuali kita hanya perlu menentukan karakter pembatas satu kali. Dalam fungsi GabunganFungsi GabunganFungsi CONCATENATE di Excel membantu pengguna menggabungkan atau menggabungkan dua atau lebih nilai sel yang dapat berupa karakter, string, atau angka. Baca lebih lanjut, kita harus menentukan karakter pembatas setiap kali di antara setiap dua string.

Sintaks dari fungsi tersebut adalah

Seperti yang bisa kita lihat, fungsi mengambil dua argumen dan mengembalikan sebuah string. Argumen adalah:

SourceArray : Kita perlu menentukan atau mereferensikan array dari substring yang digabungkan.
Pembatas : Pembatas digunakan untuk memisahkan setiap substring saat membuat string yang dihasilkan. Karena ini adalah argumen opsional, jika kita menghilangkannya, pembatas diatur menjadi spasi ‘ ‘.

Fungsi VBA SPLITFungsi VBA SPLIT FunctionSplit di VBA digunakan untuk membagi string menjadi beberapa substring berdasarkan pembatas yang disediakan untuk fungsi dan metode perbandingan. Tidak seperti fungsi string lainnya, fungsi split dapat membagi string menjadi lebih dari satu substring. Baca selengkapnya adalah kebalikan dari fungsi VBA JOIN.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA JOIN (wallstreetmojo.com)

Contoh Fungsi Gabung VBA

Di bawah ini adalah contoh fungsi Gabung di Excel VBA.

Gabung VBA – Contoh #1

Misalkan kita ingin menggabungkan nama depan (Ramesh), nama tengah (Kumar), dan nama belakang (Mishra).

Langkah-langkahnya adalah:

Pertama, kita perlu membuka Editor Visual Basic. Kita dapat melakukan hal yang sama dengan mengklik perintah ‘Visual Basic’ di grup ‘Code’ di bawah tab ‘Developer’ excel Tab ‘Developer’ Excel Mengaktifkan tab developer di excel dapat membantu pengguna melakukan berbagai fungsi untuk VBA, Macro dan Add -ins seperti mengimpor dan mengekspor XML, mendesain formulir, dll. Tab ini dinonaktifkan secara default di excel; oleh karena itu, pengguna harus mengaktifkannya terlebih dahulu dari menu opsi.baca lebih lanjut atau menggunakan menggunakan tombol pintasan excelKunci Pintasan ExcelPintasan Excel adalah teknik untuk melakukan tugas manual dengan cara yang lebih cepat.baca lebih lanjut Alt+F11 .

Sisipkan modul dengan mengklik kanan pada ‘sheet 1’ dan pilih perintah ‘Sisipkan’ dari menu kontekstual, lalu pilih ‘Modul’ untuk disisipkan.

Buat subrutin bernama ‘JoiningName’.

Kode:

Sub NamaBergabung() Akhir Sub

Gunakan fungsi JOIN sebagai berikut.

Kode:

Sub JoiningName() Range(“D2”).Value = Join(Array(“Ramesh”, “Kumar”, “Mishra”)) End Sub

Kita dapat melihat bahwa kita telah menggunakan fungsi ARRAY untuk menyediakan SourceArray ke fungsi JOIN dan melewatkan untuk menentukan karakter pembatas, jadi ‘spasi’ akan menjadi karakter default. Nilai yang diproses dari fungsi JOIN akan ditulis di sel D2 saat kita mengeksekusi kode ini menggunakan tombol F5 atau secara manual.

Gabung VBA – Contoh #2

Misalkan kita ingin membuat berbagai file Excel dengan nama item berisi penjualan hanya untuk item tersebut.

Buka Editor Visual Basic menggunakan tombol pintas Alt+F11.
Klik kanan pada lembar ‘Sheet1′ (Contoh 2)’ untuk membuka menu kontekstual dan klik ‘Sisipkan’ untuk menyisipkan ‘Modul’ VBA’Masukkan ‘Modul’ VBA’Pengguna memiliki kemampuan untuk membuat Objek VBA mereka sendiri di Modul Kelas VBA. Objek yang dibuat dalam modul ini dapat digunakan dalam proyek VBA apa pun.Baca selengkapnya di proyek VBA.

Tentukan subrutin bernama ‘CreateItemSoldFiles’.

Kode:

Sub CreateItemSoldFiles() Akhir Sub

Kita perlu menetapkan referensi ke pustaka objek ‘Microsoft Scripting Runtime’ menggunakan menu Alat -> Referensi… perintah, karena kita akan menggunakan beberapa kode (objek), yang tidak akan berfungsi jika kita tidak menyertakan pustaka objek ini.

Sekarang, kita akan mendeklarasikan semua variabel.

Kode:

Redupkan FSO Sebagai Scripting.FileSystemObject Baru

Variabel FSO di atas memberikan akses ke VBA FileSystemObjectVBA FileSystemObjectVBA FileSystemObject (FSO) mirip dengan FileDialog karena digunakan untuk mengakses file lain di komputer yang sedang kita kerjakan. Kami juga dapat mengedit file-file ini, yang berarti kami dapat membaca atau menulisnya.baca lebih lanjut. Setelah mengikat, kita dapat menggunakan fungsi seperti BuildPath, CopyFile, CreateTextFile, dll.

Pernyataan selanjutnya membuat objek TextStream. Melalui objek TextStream, kita dapat membaca dari atau menambahkan ke file asli.

Kode:

Redupkan FSO Sebagai Scripting.FileSystemObject Baru Redupkan Sebagai Scripting.TextStream

Kami akan mendeklarasikan lebih banyak variabel. ‘r’ untuk menahan baris dalam rentang, ‘fs’ untuk menyimpan string gabungan terakhir, ‘cols’ untuk menyimpan jumlah kolom dalam rentang, ‘FolPath’ untuk menyimpan jalur folder sehingga kita dapat menyimpan file dalam folder dan ‘Items_Sold’ untuk menyimpan berbagai nama item untuk membuat file dengan nama tersebut.

Kode:

Dim r As Range Dim fs As String Dim cols As Integer Dim FolPath As String Dim Items_Sold As String

Kami akan mendefinisikan pernyataan berikut untuk menghitung jumlah kolom dalam rentang.

Kode:

cols = Range(“A1”).CurrentRegion.Columns.Count

Pernyataan ini pertama-tama akan memilih wilayah saat ini untuk sel A1, lalu menghitung jumlah total kolom di wilayah saat ini.

Kami akan menulis pernyataan berikut untuk menetapkan jalur variabel ‘FolPath’ menggunakan VBA ENVIRONVBA ENVIRONFungsi VBA ENVIRON (singkatan dari ENVIRONMENT) dapat dikategorikan sebagai Fungsi Informasi yang mengembalikan nilai untuk variabel lingkungan sistem operasi. Variabel berisi informasi tentang profil semua pengguna dan mengembalikan nilai string. Baca lebih lanjut fungsi dan Operator Penggabungan.

Kode:

FolPath = Environ(“UserProfile”) & “DesktopItems_Sold” Jika Tidak FSO.FolderExists(FolPath) Maka FSO.CreateFolder FolPath

Pernyataan kedua akan membuat folder jika folder tersebut tidak ada di lokasi yang sama.

Kode ini akan menetapkan nilai kolom B satu per satu ke ‘Items_Sold.’ Kami telah menggunakan ‘fungsi OFFSET’ untuk mendapatkan referensi sel di kolom B karena sel yang dipilih saat ini ada di kolom A.

Kode:

Barang_Terjual = r.Offset(0, 1).Nilai

Pernyataan berbatasan berikut akan membuka file dengan nama yang disimpan dalam variabel ‘Items_Sold’ satu per satu dalam mode penambahan (ini akan menambahkan nilai baru pada akhirnya).

Kode:

Atur ts = FSO.OpenTextFile(FolPath & “” & Items_Sold & “.xls”, ForAppending, True)

Kami telah menggunakan operator Concatenate dengan variabel ‘FolPath’ dan ‘Items_Sold’ dan nilai statis (”and’.xls’) untuk membuat nama file untuk file excel.

Perlu diingat bahwa fungsi VBA JOIN hanya mengambil array satu dimensi sebagai SourceArray Untuk mengubah baris menjadi array satu dimensi, kita perlu menggunakan metode Application.Transpose dua kali.

Kode:

fs = Gabung(Application.Transpose(Application.Transpose(r.Resize(1, cols).Value)), vbTab)

Kami telah menggunakan metode Resize objek rentang untuk mengubah ukuran rentang menjadi lebar beberapa kolom dalam rentang.

Sebagai pembatas, kami telah menggunakan kata kunci ‘vbTab’ sehingga akan mengisi nilai di sel yang berbeda.

Karena kami telah menyimpan nilai yang diproses dari fungsi GABUNG ke dalam variabel ‘fs’, kami akan menulis nilai fs ke dalam baris baru VBA Baris Dari VBAFungsi baris baru VBA mengacu pada pembuatan kalimat yang tepat dan membantu menyelaraskan kalimat sehingga pesan yang benar disampaikan kepada pengguna atau pembaca. baca lebih lanjut file Excel yang dibuat untuk setiap baris dalam file asli kami dari nomor baris 2 hingga baris terakhir (dalam kasus kami ini adalah baris ke-350).

Sebelum mengakhiri loop, kita akan menutup file. Kode akan seperti yang ditunjukkan pada tangkapan layar.

Kami telah menulis kode lengkap sekarang.

Kode:

Sub CreateItemSoldFiles() Dim FSO As New Scripting.FileSystemObject Dim ts As Scripting.TextStream Dim r As Range Dim fs As String Dim cols As Integer Dim FolPath As String Dim Items_Sold As String cols = Range(“A1”).CurrentRegion.Columns. Hitung FolPath = Environ(“UserProfile”) & “DesktopItems_Sold” Jika Tidak FSO.FolderExists(FolPath) Maka FSO.CreateFolder FolPath Untuk Setiap r Dalam Rentang(“A2”, Range(“A1”).End(xlDown)) Items_Sold = r.Offset(0, 1).Value Set ts = FSO.OpenTextFile(FolPath & “” & Items_Sold & “.xls”, ForAppending, True) fs = Join(Application.Transpose(Application.Transpose(r.Resize(1 , cols).Value)), vbTab) ts.WriteLine fs ts.Close Next r End Sub

Untuk mengeksekusi kode, kita akan menekan F5. Kemudian, kita dapat melihat bahwa ia membuat folder bernama ‘Items_Sold’ dengan bantuan kode VBA di desktop.

Di dalam folder tersebut, ada 7 file unik yang dibuat dengan nama item tersebut. Oleh karena itu, kami hanya dapat menemukan detail tentang item tertentu di file.

Laptop.xls

Hal yang Perlu Diingat Tentang Fungsi VBA JOIN

SourceArray harus berupa array satu dimensi. Oleh karena itu, kami tidak dapat merujuk ke sel individual, karena ini akan membuat banyak array multidimensi.
Misalkan kita menetapkan string panjang-nol (”) sebagai pembatas, semua item dalam array digabungkan tanpa pembatas.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA Join. Di sini, kita belajar cara menggunakan fungsi Gabungan VBA untuk menggabungkan larik substring dengan pembatas yang ditentukan, bersama dengan contoh dan templat yang dapat diunduh. Di bawah ini adalah beberapa artikel bermanfaat yang terkait dengan VBA: –