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

Bagaimana cara mempertahankan pemformatan sel saat mereferensikan sel lembar lainnya?

Secara umum, sel hanya menyimpan nilai sel saat mereferensikan sel lain, tetapi dalam artikel ini, saya memperkenalkan kode VBA untuk menyimpan nilai dan pemformatan sel saat mereferensikan sel lain, dan nilai sel serta pemformatan berubah saat sel referensi berubah seperti di bawah ini tangkapan layar ditampilkan.
doc terus memformat sambil mereferensikan 1

Pertahankan pemformatan sel saat mereferensikan sel lain dengan VBA


Pertahankan pemformatan sel saat mereferensikan sel lain dengan VBA

Untuk menangani pekerjaan ini, Anda hanya perlu menjalankan kode di bawah ini.

1. Aktifkan workbook yang Anda gunakan, tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela, dan klik dua kali pada nama lembar tempat Anda akan menempatkan sel referensi Proyek-VBAProject panel untuk menampilkan skrip kosong. Dalam hal ini, saya ingin merujuk ke sel A1 dalam Sheet1. Lihat tangkapan layar:
doc terus memformat sambil mereferensikan 2

2. Tempel kode di bawah ini ke skrip, dan dalam kode VBA, tentukan referensi sel yang Anda butuhkan.

VBA: Pertahankan pemformatan dan nilai sambil mereferensikan sel lain

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

Note: A1 adalah sel referensi, B1 in Lembar 2 adalah sel yang ingin Anda tautkan ke sel referensi dan pertahankan nilai dan pemformatan dengan A1 di Shee1.

Kemudian saat Anda mengubah nilai atau pemformatan di sel A1 di Sheet1, sel B1 di Sheet2 akan diubah saat mengklik di sel referensi dua kali.


Hitung dengan Warna

Dalam beberapa kasus, Anda mungkin memiliki rentang nilai dengan beberapa warna, dan yang Anda inginkan adalah menghitung / menjumlahkan nilai berdasarkan warna yang sama, bagaimana Anda dapat menghitung dengan cepat?
Dengan Kutools untuk Excel's Hitung dengan Warna, Anda dapat dengan cepat melakukan banyak kalkulasi berdasarkan warna, dan juga dapat membuat laporan dari hasil kalkulasi.
doc dihitung berdasarkan warna

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-2019 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
halo, saya percaya ini mungkin yang saya cari. Saya membutuhkan teks referensi untuk memiliki warna dan fitur yang sama dari halaman referensi. Satu-satunya hal yang berbeda tentang saya adalah bahwa saya menarik dari jangkauan yang lebih besar. Saya belum pernah menggunakan VBA sebelumnya jadi saya ingin mengonfirmasi sebelum melakukan perubahan. Saya menarik dari dokumen (lembar 2) ke dokumen (lembar 1). Saya telah menggunakan rumus JIKA untuk melakukan ini, sehingga mengembalikan nilai dari 3 kolom yang berbeda dan mereka tidak dalam satu baris. Kolomnya adalah F,H,J. Bisakah Anda membantu saya mencari tahu bagaimana saya bisa membuat ini bekerja?
Komentar ini diminimalkan oleh moderator di situs
Maaf, masalah Anda agak rumit, saya tidak mengerti dengan jelas.
Komentar ini diminimalkan oleh moderator di situs
Saya berurusan dengan masalah serupa. Saya memiliki rumus di kolom C, yang mengambil nilai dari baris yang sama, kolom A. (Tapi hanya JIKA B3 tidak x DAN A3 tidak kosong):

=IF(B3="x";"y";IF(A3="";"z";A3))

Sel kolom A terlihat seperti ini: OK 2019_12_03
Tapi "OK" dalam format tebal. Saya ingin mempertahankan format ini.
Saya ingin ini untuk ratusan sel, jadi mengklik atau menulis skrip untuk masing-masing sel tidak diinginkan. Adakah ide jika fitur seperti itu ada? Saya akan menghargai semacam fungsi "WITHFORMAT()" yang dapat saya masukkan ke dalam rumus, sehingga rumus berikut akan mempertahankan format aslinya:

=IF(B3="x";"y";IF(A3="";"z";DENGANFORMAT(A3)))
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk naskahnya. Bisakah Anda memberi tahu saya jika ada cara untuk memperbarui sel yang ditautkan tanpa harus mengklik dua kali pada sel referensi? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah berbagi ini. Apakah ada skrip VBA yang memungkinkan untuk mereferensikan rentang sel dalam satu buku kerja dan kemudian menampilkan nilai dan format sel yang direferensikan dalam buku kerja yang berbeda?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah berbagi ini. Saya memiliki rentang sel di WorksheetA, Sheet1, Range G3:G3000 yang ingin saya rujuk di WorksheetB, Sheet1, Range G3:G3000. Saya membutuhkan WorksheetB, Sheet1, Range G3:G3000 untuk menampilkan nilai dan format sel yang direferensikan di WorksheetA, Sheet1, G3:G3000. Apakah ada skrip VBA yang memungkinkan untuk ini?
Komentar ini diminimalkan oleh moderator di situs
No Tienes Uno Que Sea Dentro Del Mismo Archivo
Komentar ini diminimalkan oleh moderator di situs
Halo, saya ingin menyimpan format sel referensi saya. Namun, bahkan dengan VBA Anda, itu tidak berfungsi. Bisakah Anda menolong saya?
Saya ingin sel B2 lembar saya 1 menjadi sel referensi saya untuk sel C2 lembar 2,3,4,5,6,7.
Dokumen saya adalah daftar orang, oleh karena itu saya akan memiliki beberapa sel referensi bukan kelanjutannya.
Terima kasih sebelumnya
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan