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

Bagaimana cara menyimpan semua lembar kerja sebagai nilai saja?

Jika Anda memiliki buku kerja yang berisi beberapa rumus, sekarang, Anda perlu mendistribusikan file ini ke pengguna lain, Anda tidak ingin menampilkan rumus tetapi hanya nilai yang ditampilkan. Biasanya, kita dapat dengan cepat menyimpan lembar kerja sebagai nilai dengan menyalin dan menempelkan data sebagai nilai saja. Tapi, bagaimana Anda bisa menyimpan semua lembar kerja sebagai nilai saja tanpa menyalin dan menempel satu per satu?

Simpan semua lembar kerja sebagai nilai hanya dengan kode VBA


panah gelembung kanan biru Simpan semua lembar kerja sebagai nilai hanya dengan kode VBA

Kode VBA berikut dapat membantu Anda dengan cepat menyimpan semua lembar sebagai nilai (tanpa rumus) dan mempertahankan semua pemformatan sel. Harap lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Simpan semua lembar kerja sebagai nilai saja:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan seluruh buku kerja telah disimpan sebagai nilai saja, semua rumus telah dihapus sekaligus hanya meninggalkan nilai dengan pemformatan sel.

Note: Sebelum Anda menerapkan kode, Anda bisa menyimpan salinan buku kerja terlebih dahulu.


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 (18)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Kode VBA bekerja dengan sangat baik.
Satu hal yang saya perhatikan, ketika saya mencoba menggunakannya pada buku kerja dengan Filter pada beberapa sel, itu tidak akan berfungsi.
Adakah solusi agar kode ini berfungsi tanpa menonaktifkan Filter?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama saat menggunakan kode VBA dengan filter. Apakah Anda punya solusi untuk itu?
Komentar ini diminimalkan oleh moderator di situs
Hei, bisakah kamu memperbaiki ini? Saya memiliki masalah yang sama
Komentar ini diminimalkan oleh moderator di situs
Sangat bagus! Ini telah memecahkan banyak masalah saya. Terima kasih banyak. Salam.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak Bro..ini luar biasa..sangat membantu saya.
Komentar ini diminimalkan oleh moderator di situs
Sub Simpan sebagainilai()
'Perbarui oleh Extendoffice 20161025
Redupkan wsh Sebagai Lembar Kerja
Untuk Setiap wsh Dalam Buku Kerja Ini. Lembar Kerja
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- mendapatkan Run time Error 1004 - SIAPAPUN BISA MEMBANTU INI.
Next
Application.CutCopyMode = Salah
End Sub
Komentar ini diminimalkan oleh moderator di situs
ketika saya menjalankan kode itu, saya mendapatkan kesalahan "mendapatkan Run time Error 1004".
FYI, di excel saya ada sel gabungan.

Akan sangat membantu jika seseorang memberikan solusi

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Halo, mirna,
Kode di atas berfungsi dengan baik di buku kerja saya, versi excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan baik. terima kasih.

@mirna: Anda perlu membuka proteksi lembar atau sel. VB tidak suka mode proteksi :)
Komentar ini diminimalkan oleh moderator di situs
Fungsionou!! Muito Bom!!!
Komentar ini diminimalkan oleh moderator di situs
Tengo ese código, si bien es cierto funciona pero quisiera que no mempertimbangkan algunas hojas de mi archivo excel. se puede?
Salam.
Komentar ini diminimalkan oleh moderator di situs
Hapus semua filter/perlindungan di semua lembar. harus bekerja dengan sempurna.
Komentar ini diminimalkan oleh moderator di situs
Bagus! Bagus sekali! Saya butuh ini tapi tidak ada seprai
Komentar ini diminimalkan oleh moderator di situs
Saya perlu menerbitkan laporan keuangan berbasis Excel dengan pengelompokan. Ini berfungsi untuk menghapus semua rumus dan hanya menyisakan angka. Metode lain yang saya coba bersihkan pengelompokannya.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk membatalkan ini jika Anda lupa menyimpan versi formula terlebih dahulu?
Komentar ini diminimalkan oleh moderator di situs
Ini berjalan dengan baik tetapi saya membutuhkan pasta VBA sebagai nilai untuk banyak buku kerja excel.



Komentar ini diminimalkan oleh moderator di situs
Hai,
Inilah yang saya gunakan (saya keluar dari file secara otomatis sehingga saya tidak akan menyimpan secara tidak sengaja dengan nilai saja).

Tapi aku ingin tetap hanya satu lembar yang disimpan "biasanya" karena saya memiliki daftar drop-down di sana yang tidak ingin saya hilangkan saat berbagi file.


Adakah yang bisa membantu saya melakukan ini?

Terima kasih!


Sub Simpan sebagainilai()

Redupkan wsh Sebagai Lembar Kerja
Untuk Setiap wsh Dalam Buku Kerja Ini. Lembar Kerja
wsh.Cells.Copy
wsh.Cells.PasteXlPasteValues ​​Khusus
Next
Application.CutCopyMode = Salah

savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51

Application.DisplayAlerts = Salah 'keluar tanpa peringatan
Aplikasi.Berhenti
End Sub
Komentar ini diminimalkan oleh moderator di situs
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
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