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

Bagaimana cara mengekspor komentar dari Excel ke Word?

Untuk pengguna Excel, memasukkan komentar ke dalam sel adalah tugas umum, terkadang, Anda perlu menyalin dan menempelkan komentar ini ke dokumen Word untuk beberapa tujuan. Tentu saja, Anda dapat menyalin dan menempelkan komentar ke Word satu per satu, tetapi ini adalah pekerjaan yang membosankan dan memakan waktu. Apakah ada cara untuk mengekspor semua komentar dari Excel ke Word sekaligus?

Ekspor komentar dari lembar kerja saat ini ke Word dengan kode VBA

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biruEkspor komentar dari lembar kerja saat ini ke Word dengan kode VBA

Sayangnya, Excel tidak menyediakan fitur untuk menyalin dan menempel semua komentar ke Word sekaligus. Namun, dengan kode VBA berikut, Anda bisa dengan cepat mengekspor semua komentar lembar kerja aktif ke dokumen Word.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Ekspor komentar dari lembar kerja saat ini ke Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua komentar di lembar kerja aktif telah diekspor ke dokumen Word baru dengan alamat selnya. Lihat tangkapan layar:

doc-ekspor-komentar1


Artikel terkait:

Bagaimana cara cepat memasukkan komentar ke banyak sel di Excel?

Bagaimana cara mengubah bentuk kotak komentar di Excel?

Bagaimana cara mengubah semua format komentar dalam sel di Excel?

Bagaimana cara mengubah nama penulis semua komentar di 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 (17)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
hai, artikel yang luar biasa, saya ingin tahu, jika saya memiliki gambar di komentar itu, apakah kode VBA di atas juga akan dengan cepat mengekspor semua gambar di komentar yang merupakan gambar lembar kerja aktif ke dokumen Word? Terima kasih telah meluangkan waktu untuk membaca ini, sangat dihargai. Salam, Vladmir
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan sempurna dan persis seperti yang saya butuhkan! Terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
dapatkan pesan "Kesalahan kompilasi: Prosedur luar tidak valid". Sekarang apa?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki pesan yang sama - apakah Anda berhasil menyelesaikan Randi ini?
Komentar ini diminimalkan oleh moderator di situs
adakah yang tahu apakah saya bisa melakukan ini tetapi hanya menyalin komentar dari baris tertentu? bantuan apa pun akan sangat dihargai. Saya telah mencoba mengerjakan ini selama berabad-abad.
Komentar ini diminimalkan oleh moderator di situs
itu benar-benar membantu. terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Bisakah itu dilakukan untuk mengekstrak dari baris yang difilter setelah menerapkan filter? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Ini bagus dan membantu! Apakah ada cara untuk mendapatkan teks aktual di dalam sel untuk menggantikan nomor sel atau untuk dimasukkan? Saya memiliki instruksi tajuk dan balon di tajuk. Saya mencoba membuat prosedur kata untuk mengisi baris dengan tajuk data (Mis.; "Nama") dan kemudian kotak komentar memberi tahu pengguna formatnya.

Saat Ini Ditampilkan dengan makro di atas:

A1 Nama Pengguna:


- Masukkan Nama Peminjam seperti yang terlihat pada dokumen organisasi Peminjam atau dokumen pendukung nama lainnya.


Mencarinya jadi tunjukkan teks sel A1 yang merupakan Nama Perusahaan.


Bantuan apa pun sangat dihargai!
Komentar ini diminimalkan oleh moderator di situs
Oh Tuhan! itu sangat membantu!
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu! Terima kasih!
Apakah ada cara untuk menarik header baris atau kolom daripada posisi sel (B4)?
Komentar ini diminimalkan oleh moderator di situs
Saya bisa mendapatkan hasil ini dengan mengubah "xComment.Parent.Address" menjadi "xComment.Parent.Value" di baris 14.
Komentar ini diminimalkan oleh moderator di situs
Saya menyalin dan menempel dengan tepat tetapi hanya menghasilkan dokumen Word kosong. Ada ide?


Sub CopyCommentsToWord()
'Perbarui 20140325
Redupkan xKomentar Sebagai Komentar
Redupkan wApp Sebagai Objek
On Error Resume Next
Setel wApp = GetObject(, "Word.Application")
Jika Err.Number <> 0 Maka
Err.Clear
Setel wApp = CreateObject("Word.Application")
End If
wApp.Visible = Benar
wApp.Documents.Add DocumentType:=0
Untuk Setiap xComment Di Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Setel wApp = Tidak Ada
End Sub
Komentar ini diminimalkan oleh moderator di situs
masalah yang sama. apakah Anda berhasil menyelesaikannya?
Komentar ini diminimalkan oleh moderator di situs
Sama... ada pendapat?
Komentar ini diminimalkan oleh moderator di situs
Hei, saya menemukan cara untuk memperbaikinya. Baris 13 perlu membaca "Untuk Setiap xComment Di Application.ActiveSheet.CommentsThreaded". (Outputnya tidak persis seperti tangkapan layar, Anda harus menambahkan xComment.Author atau mungkin beberapa properti lain di loop For - tetapi mengubah dari Comments ke CommentsThreaded membuat ini berfungsi kembali.)
Komentar ini diminimalkan oleh moderator di situs
Mampu Mengekstrak dimulai dengan kumpulan data terukur awal dan menghasilkan nilai turunan. Pengguna dapat memasukkan dan menyesuaikan nomor mereka untuk mengindeks bisnis secara profesional.
Philip
tambal sulam.com
Komentar ini diminimalkan oleh moderator di situs
Ini sangat bagus! namun saya berjuang untuk menyematkan komentar ke tempatnya di lembar kerja. apakah ada cara untuk dapat memberi label pada baris atau kolom atau sel tempat komentar diekstraksi?
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