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

Bagaimana cara membuat lembar baru untuk setiap baris di Excel?

Misalkan Anda memiliki tabel skor dengan semua nama siswa di kolom A. Sekarang Anda ingin membuat lembar baru berdasarkan nama-nama ini di kolom A, dan buat per lembar berisi data unik siswa. Atau buat saja sheet baru hanya untuk setiap baris dalam tabel tanpa mempertimbangkan nama di kolom A. Dalam video ini, Anda akan mendapatkan metode untuk mencapainya.

Buat lembar baru untuk setiap baris dengan kode VBA
Buat lembar baru untuk setiap baris dengan utilitas Data Split dari Kutools for Excel


Buat lembar baru untuk setiap baris dengan kode VBA

Dengan kode berikut, Anda dapat membuat lembar baru berdasarkan nilai kolom, atau hanya membuat lembar baru untuk setiap baris di Excel.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Dan kemudian tempel kode berikut ke file Modul jendela.

Kode VBA: buat lembar baru untuk setiap baris berdasarkan kolom

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Note: A1: C1 adalah rentang judul tabel Anda. Anda dapat mengubahnya berdasarkan kebutuhan Anda.

3. tekan F5 kunci untuk menjalankan kode, maka lembar kerja baru dibuat setelah semua lembar kerja dari buku kerja saat ini seperti gambar di bawah ini:

Jika Anda ingin langsung membuat sheet baru untuk setiap baris tanpa mempertimbangkan nilai kolom, Anda dapat menggunakan kode berikut.

Kode VBA: Langsung buat lembar baru untuk setiap baris

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Setelah menjalankan kode, setiap baris di lembar kerja aktif akan ditempatkan di lembar kerja baru.

Note: Baris judul juga akan ditempatkan di lembar baru dengan kode VBA ini.


Buat lembar baru untuk setiap baris dengan utilitas Data Split dari Kutools for Excel

Sebenarnya cara diatas rumit dan susah dimengerti. Di bagian ini, kami memperkenalkan Anda Data split kegunaan Kutools untuk Excel.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih tabel yang perlu Anda gunakan untuk membuat lembar baru, lalu klik Kutools Plus> Meludah Data. Lihat tangkapan layar:

2. Dalam Pisahkan Data menjadi Beberapa Lembar Kerja kotak dialog, lakukan hal berikut.

A.Untuk membuat sheet baru berdasarkan nilai kolom:

1). Silakan pilih Kolom tertentu opsi, dan tentukan kolom yang ingin Anda pisahkan datanya berdasarkan dalam daftar turun bawah;
2). Jika Anda ingin memberi nama lembar kerja dengan nilai kolom, silakan pilih Nilai Kolom dalam Peraturan daftar drop-down;
3). Klik OK tombol. Lihat tangkapan layar:

B.Untuk langsung membuat sheet baru untuk setiap baris:

1). Pilih Baris tetap opsi, masukkan nomor 1 ke dalam kotak;
2). Pilih Nomor Baris dari Peraturan daftar drop-down;
3). Klik OK tombol. Lihat tangkapan layar:

buku kerja baru dibuat dengan semua lembar baru di dalamnya. Lihat tangkapan layar di bawah.

Membuat sheet baru untuk setiap baris berdasarkan nilai kolom:

Membuat sheet baru untuk setiap baris tanpa mempertimbangkan nilai kolom:

  Jika Anda ingin memiliki uji coba gratis (

30
-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Buat lembar baru untuk setiap baris dengan utilitas Data Split dari Kutools for Excel


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
  • 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...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • 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 (32)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo, saya ingin membuat lembar kerja berdasarkan file template saya Myformat dan beri nama sesuai dengan data kolom pertama. Saya menyesuaikan kode VBA sebagai berikut, tetapi menghasilkan terlalu banyak lembar kosong. Bisakah Anda membantu saya untuk berhenti membuat lembar kosong. Terima kasih. Kumar Sub AddSheets() Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Untuk Setiap sel Di wsWithSheetNames.Range("A2:A165") Dengan wbToAddSheets.To Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Pada Error Resume Next ActiveSheet.Name = cell.Value If Err.Number = 1004 Kemudian Debug.Print cell.Value & " sudah digunakan sebagai nama sheet" End If On Error GoTo 0 End With Next cell End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saya selalu mendapatkan 2 lembar per entri unik di baris A. Tahu kenapa? Juga betapa sulitnya untuk menambahkan jumlah total baris yang dibuat lembar yang dihasilkan ke nama lembar. Terima kasih banyak! Beri tahu saya jika Anda menerima sumbangan.
Komentar ini diminimalkan oleh moderator di situs
Halo, saya ingin menggunakan file template exel saya MyFormat untuk menghasilkan lembar kerja dan memberi nama lembar kerja dengan data pada kolom pertama. Kode VBA berikut berfungsi dengan baik untuk menghasilkan lembar kerja sesuai MyFormat. Tapi itu menghasilkan ratusan lembar kosong pada templete excel normal juga. Bisakah beberapa badan tolong bantu saya untuk berhenti menghasilkan lembar kosong berlebih. Terima kasih Kumar Sub AddSheets() Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Untuk Setiap sel Di wsWithSheetNames.Range("A2:A165") Dengan wbToAddSheetsTo . .Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" On Error Resume Next ActiveSheet.Name = cell.Value If Err.Number = 1004 Kemudian Debug.Print cell.Value & " sudah digunakan sebagai nama sheet" End If On Error GoTo 0 End With Next cell End Sub
Komentar ini diminimalkan oleh moderator di situs
Nama Lembar Kerja harus kurang dari atau sama dengan tiga puluh karakter.
Bukan pengetahuan umum, tetapi jika tidak, kode akan menampilkan lembar kerja "Lembar #" kosong default.

Buat lembar kerja baru yang akan dijalankan oleh kode parsing Anda dan rujuk kolom pertama sebagai berikut:
=IF(OR('Referensi Asli'!B1<>"", LEN('Referensi Asli'!B1)>30), LEFT('Referensi Asli'!B1,30),'Referensi Asli'!B1)


Salin atau referensikan sisa lembar yang Anda bisa. Pastikan kolom bebas dari batasan validasi data jika Anda mengalami masalah saat mereferensikan lembar kerja lainnya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak telah memposting ini!!!! Bekerja seperti pesona. Bisakah Anda menjelaskan cara kerja set kode pertama?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini!



Dalam kode VBA, apakah ada cara untuk memberi nama lembar yang dihasilkan dari data baris kolom pertama dan kedua digabungkan?



jadi untuk contoh sheet 2 Anda akan otomatis bernama "linda 100"
Komentar ini diminimalkan oleh moderator di situs
Joyce yang terhormat,
Terima kasih atas komentar Anda! Semoga skrip VBA di bawah ini dapat membantu Anda.

Sub parse_data()
Redupkan xRHitung Selamanya
Redupkan xSht Sebagai Lembar Kerja
Redupkan xNSht Sebagai Lembar Kerja
Redup Aku Selamanya
Redupkan xTRrow Sebagai Integer
Redupkan xCol Sebagai Koleksi Baru
Redupkan xTitle As String
On Error Resume Next
Application.ScreenUpdating = Salah
Setel xSht = ActiveSheet
xRCount = xSht.UsedRange.End(xlDown).Baris
xJudul = "A1:B1"
xTRrow = xSht.Range(xTitle).Baris
Untuk I = 2 Ke xRCount
Panggil xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1)))
Next
Debug.Cetak xCol.Count
Untuk I = 1 Ke xCol.Count
Panggil xSht.Range(xTitle).FilterOtomatis(1, CStr(xCol.Item(I)))
Tetapkan xNSht = Tidak ada
Tetapkan xNSht = Lembar Kerja(CStr(xCol.Item(I)))
Jika xNSht Bukan Apa-apa Maka
Atur xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I) & xSht.Cells(I + 1, 2))
Lain
xNSht.Move , Lembar(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).SeluruhRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = Salah
xSht.Aktifkan
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu, hanya apa yang saya cari. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Kode ini sangat membantu, dan hampir seperti yang saya cari.
Tapi apakah bisa diatur sedemikian rupa sehingga ada dua lembar -
Lembar 1 adalah Data - tabel data dengan Kolom A sebagai namanya
Lembar 2 adalah templat, dengan banyak bidang yang perlu diisi
Apa yang saya harapkan adalah menjalankan makro, yang akan
1 Copy-paste template, di file yang sama, beri nama sheet seperti nama di Cell A1
2 Salin sel B1 lalu lewati ke bidang yang dipilih di templat baru
3 ulangi sepanjang baris 1 sampai kosong
4 kemudian ulangi untuk baris 2 dan setiap baris sampai akhir.
Hasilnya adalah file dengan x no. lembar semuanya sama dengan templat, dengan semua bidang terisi.
Saya mewarisi file yang berfungsi sebaliknya, mengekstraksi data dari templat ke tabel, tetapi tidak dapat membalikkannya.....
Komentar ini diminimalkan oleh moderator di situs
Sam sayang,
Akan lebih baik jika Anda bisa melampirkan buku kerja Anda di sini.
Anda dapat mengunggah file Anda dengan tombol Unggah file di bawah ini.
Komentar ini diminimalkan oleh moderator di situs
Halo Saya mencoba menggunakan kode Anda tetapi saya mendapatkan kesalahan
Run-timeerror '1004':
Kesalahan yang ditentukan aplikasi atau objek yang ditentukan
Saya tidak memiliki pengetahuan tentang VBA (atau teknologi apa pun dalam hal ini) tetapi jika pers debug itu menyoroti baris 11 xRCount=xSht.Cells(xSht.Rows.Count,1). Akhir (xIUp).Baris
Saya bekerja dengan file besar yang memiliki 127 kolom dan 337 baris (baris akan bervariasi kolom tidak) dan itu adalah daftar dengan nomor saya dan detailnya.
Saya memang mengubah rentang seperti yang Anda catat tetapi masih tidak berfungsi Saya menggunakan Excel 2010 dapatkah Anda memberi tahu saya cara membuatnya berfungsi jika memungkinkan
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Beatriz yang terhormat,
Kode diperbarui dengan pemecahan masalah. Silakan coba lagi. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Halo, saya pikir ada sesuatu yang berguna di sini untuk situasi saya, tetapi saya dapat melakukan VBA atau skrip, harap Anda dapat membantu.
Saya memiliki templat dengan banyak sel untuk diisi dengan data, dan akan ada kunci pencarian (tidak unik) yang ingin saya masukkan ke dalam templat. Berdasarkan kunci pencarian, data dicari dan data terkait pada kunci yang cocok diambil dan diisi ke dalam template. Templat yang diisi disimpan ke dalam lembar kerja baru. Mungkin ada lebih dari 1 entri yang cocok. Saya memerlukan skrip untuk melanjutkan pencarian di daftar, sampai semua kecocokan dipilih, dan sejumlah lembar kerja baru dibuat.
Komentar ini diminimalkan oleh moderator di situs
Hai, apakah ada cara untuk mempertahankan baris judul di setiap lembar kerja baru? (dilingkari merah pada lampiran saya)

Kode mengambil semua baris dari lembar kerja master saya dan mentransfernya ke lembar kerja baru, yang sangat bagus. Tetapi saya ingin menyimpan nilai header "master" saya (dilingkari merah) di bagian atas setiap lembar kerja baru. Terima kasih!



Saya mengacu pada kode ini dari atas:

Sub BarisToSheet()
Redupkan xRow Selamanya
Redup Aku Selamanya
Dengan ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Baris
Untuk I = 1 Ke xRow
Worksheets.Add(, Sheets(Sheets.Count)).Nama = "Baris " & I
.Rows(I).Copy Sheets("Baris " & I).Range("A1")
Selanjutnya saya
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode bagus, tetapi bisakah saya mendapatkan bantuan jika data saya ada di kolom G, bukan kolom A? apa yang harus saya ubah untuk memiliki data Kolom G di tab yang berbeda?

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Ini adalah kode yang bagus. Banyak terima kasih kepada kotak otak di OfficeExtend !! Apakah ada kode ini yang dapat sedikit disesuaikan untuk membuat lembar terpisah untuk setiap * kolom * alih-alih baris? Saya telah melampirkan gambar dari apa yang saya coba capai. Apakah ini mungkin? Salam.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Saya tidak melihat foto Anda di sini.
Komentar ini diminimalkan oleh moderator di situs
Hii, bagaimana cara mengubah kodenya, jika kolom nama saya ada di kolom C
Komentar ini diminimalkan oleh moderator di situs
Halo Abdul Basit,
Kode VBA di bawah ini dapat membantu Anda. Silakan coba.
Di baris: xCName = "3", 3 menunjukkan nomor kolom (ini adalah kolom C) di Excel. Anda dapat mengubahnya ke nomor kolom apa pun yang Anda butuhkan.

Sub parse_data()
'Perbarui oleh Extendoffice 2018 / 3 / 2
Redupkan xRHitung Selamanya
Redupkan xSht Sebagai Lembar Kerja
Redupkan xNSht Sebagai Lembar Kerja
Redup Aku Selamanya
Redupkan xTRrow Sebagai Integer
Redupkan xCol Sebagai Koleksi Baru
Redupkan xTitle As String
Redupkan xSUpdate Sebagai Boolean
Redupkan xCName Sebagai Integer
Redupkan xTA, xRA, xSRg1 Sebagai String
Setel xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Baris
xJudul = "A1:C1"
xCName = "3" 'Ubah nomor ini ke nomor kolom yang akan digunakan untuk membuat lembar baru
xTRrow = xSht.Range(xTitle).Sel(1).Baris
Untuk I = 2 Ke xRCount
Panggil xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text)
Next
xSUpdate = Aplikasi.Pembaruan Layar
Application.ScreenUpdating = Salah
xSRg = xSht.Cells(1, xCName).Alamat(RowAbsolute:=False, ColumnAbsolute:=False)
Untuk I = 1 Ke xCol.Count
Panggil xSht.Range(xTitle).FilterOtomatis(xCName, CStr(xCol.Item(I)))
Tetapkan xNSht = Tidak ada
Tetapkan xNSht = Lembar Kerja(CStr(xCol.Item(I)))
Jika xNSht Bukan Apa-apa Maka
Atur xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Nama = CStr(xCol.Item(I))
Lain
xNSht.Move , Lembar(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).SeluruhRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = Salah
xSht.Aktifkan
Application.ScreenUpdating = xSUpdate
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode VBA keren untuk melakukan trik.

Bagaimana saya bisa memodifikasinya agar tidak menyalin kolom pertama? Dan untuk menghapus nama kolom?

Salam
Komentar ini diminimalkan oleh moderator di situs
Tolong bisakah saya mendapatkan bantuan tentang cara memberi nama lembar secara otomatis menggunakan kolom tertentu. Ini untuk baris ke lembar VBA. Lihat di bawah

Sub BarisToSheet()

Redupkan xRow Selamanya

Redup Aku Selamanya

Dengan ActiveSheet

xRow = .Range("A" & Rows.Count).End(xlUp).Baris

Untuk I = 1 Ke xRow

Worksheets.Add(, Sheets(Sheets.Count)).Nama = "Baris " & I

.Rows(I).Copy Sheets("Baris " & I).Range("A1")

Selanjutnya saya

Berakhir dengan

End Sub
Komentar ini diminimalkan oleh moderator di situs
Nevermind itu tersembunyi ruang trailing. Saya menggunakan fitur TRIM dan membersihkannya. Memiliki jumlah baris (jumlah baris benar-benar sehingga baris -1 yang ditambahkan ke lembar akan luar biasa)
Komentar ini diminimalkan oleh moderator di situs
Bagaimana referensi penggunaan kode di atas (kredit) ? Apakah mungkin untuk mengubah kode?
Komentar ini diminimalkan oleh moderator di situs
Hai, ini adalah platform komunikasi terbuka. Kode diperbolehkan untuk referensi dan memodifikasi.
Komentar ini diminimalkan oleh moderator di situs
Nana
86
2
Komentar ini diminimalkan oleh moderator di situs
Halo! Saya baru saja menggunakan kode ini dan berhasil! Selain membuat lembar baru untuk setiap entri, saya ingin memindahkannya ke kolom dan tidak dapat menemukannya. Jadi untuk contoh di atas, output untuk Nana akan terlihat seperti ini - Nama NanaSkor 86Tidak. 2
Komentar ini diminimalkan oleh moderator di situs
Halo, menggunakan kode ini dan berhasil, tetapi jika saya ingin memilih lebih dari satu baris di header, apa yang akan diubah dalam kode? Saya memiliki beberapa baris di lembar yang saya inginkan di setiap lembar.
Komentar ini diminimalkan oleh moderator di situs
Halo, sudah tahu caranya?
Komentar ini diminimalkan oleh moderator di situs
Hai, apakah ada kode yang hanya akan menambahkan 1 lembar baru setiap kali makro dijalankan, misalnya pertama kali lembar baru akan dinamai pada isi sel A1, kedua kali makro dijalankan, lembar baru akan diberi nama pada isi A1 dll. terima kasih sudah mengantisipasi
Belum ada komentar yang diposting di sini
Muat Lebih
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