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.
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:
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. |
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!