Sunday, December 18, 2022

Mengambil Nilai Pada Workbook Microsoft Excel Dengan VBA Excel



 

Berikut adalah cara mengambil nilai pada workbook :

1. Buka Microsoft Excel

2. Tekan Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.

3. Buat sebuah module dan isi dengan kode berikut

Sub AmbilNilai()

Dim wb1 As Workbook, wb() As Variant

Dim wb1Name As String, Lr As Integer, nilai As Variant, wb2Name As String

wb1Name = ThisWorkbook.Name

Set wb1 = ActiveWorkbook

Lr = Range("A" & Rows.Count).End(xlUp).Row + 1

On Error GoTo er

wb = Application.GetOpenFilename("Excel Files (*.xls*), (*.xls*)", , , , True)

For i = 1 To UBound(wb)

    Range("A" & Lr).Value = wb(i)

Lr = Lr + 1

Next i

Lr = 2

Do Until IsEmpty(Range("A" & Lr))

Application.DisplayAlerts = False

Workbooks.Open (Range("A" & Lr))

wb2Name = ActiveWorkbook.Name

    nilai = ActiveSheet.Range("A1").Value

    If nilai = "" Then

        nilai = "tidak ada data"

    End If

Workbooks(wb2Name).Close False

Workbooks(wb1Name).Activate

Sheet1.Range("B" & Lr) = nilai

Lr = Lr + 1

Loop

MsgBox "Data Sudah di update"

Exit Sub

er:

End Sub

4. Buat sebuah tombol (menggunakan shape atau command button)

5. Assign tombol dengan macro kode diatas

6. Buatlah rancangan tabel sebagai berikut:


7. Akan muncul dialog box, pilih file workbook yang ingin diambil data didalamnya.

Catatan :

Contoh kode tersebut sudah didefine untuk mengambil data pada sel "A1", maka data workbook yang anda pilih tadi akan diambil datanya pada sel "A1" kedalam kolom B.











Memunculkan Simbol & Emoji Pada OS Mac

  Memunculkan Simbol & Emoji  1. Buka aplikasi Pages / Notes pada Macbook. 2. Klik pada Menubar Edit --> Pilih Emoji and Symbols a...