Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyerlahkan semua sel yang dirujuk oleh formula dalam Excel?

Artikel ini bercakap tentang menonjolkan semua sel yang dirujuk oleh formula dalam Excel. Sila ikuti dua kaedah berikut untuk menyelesaikannya.

Sorot semua sel yang dirujuk oleh formula dengan kekunci Pintasan

Serlahkan semua sel yang dirujuk oleh formula dengan kod VBA


anak panah gelembung kanan biruSorot semua sel yang dirujuk oleh formula dengan kekunci Pintasan


Bahagian ini akan mengesyorkan anda menggunakan kekunci Pintasan untuk memilih semua sel yang dirujuk oleh formula, dan kemudian mengisi warna secara manual kepada mereka.

1. Supaya E1 adalah sel formula, dan anda perlu menyerlahkan semua sel yang dirujuk olehnya. Sila pilih sel formula E1, kemudian tekan Ctrl + [ (kunci kurungan terbuka) secara serentak.

2. Sekarang sel-sel yang dirujuk oleh formula ini dipilih, sila nyatakan warna untuk menyerlahkannya. Lihat tangkapan skrin:


anak panah gelembung kanan biruSerlahkan semua sel yang dirujuk oleh formula dengan kod VBA

Anda juga boleh menjalankan kod VBA untuk menyerlahkan semua sel yang dirujuk oleh formula dalam Excel.

1. Akhbar Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila klik Memasukkan > Modul. Kemudian salin dan tampal kod VBA di bawah ke dalam tetingkap Modul.

Kod VBA: Sorot semua sel yang dirujuk oleh formula dalam Excel

Sub HighlightCellsReferenced()
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
    Title:="Kutools For Excel", Type:=8)
    
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If yRg.Value <> "" Then
            strFml = yRg.Formula + " "
            strFml = Replace(strFml, "(", " ")
            strFml = Replace(strFml, ")", " ")
            strFml = Replace(strFml, "-", " ")
            strFml = Replace(strFml, "+", " ")
            strFml = Replace(strFml, "*", " ")
            strFml = Replace(strFml, "/", " ")
            strFml = Replace(strFml, "=", " ")
            strFml = Replace(strFml, ",", " ")
            strFml = Replace(strFml, ":", " ")
              
            For j = 1 To Len(strFml)
                If Mid(strFml, j, 1) <> " " Then
                    cellsAddress = cellsAddress + Mid(strFml, j, 1)
                Else
                    On Error Resume Next
                    Range(cellsAddress).Interior.ColorIndex = 3
                    cellsAddress = ""
                End If
            Next
        End If
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Tekan butang F5 kunci untuk menjalankan kod. Dalam bermunculan Kutools untuk Excel kotak dialog, sila pilih sel formula atau berbilang formula yang anda perlu menyerlahkan sel rujukan berdasarkan, dan kemudian klik OK butang. Lihat tangkapan skrin:

Sekarang semua sel yang dirujuk berdasarkan sel formula yang dipilih diserlahkan dengan warna merah dengan serta merta seperti gambar di bawah yang ditunjukkan.


anak panah gelembung kanan biruRelated articles:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thomas · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Bullz · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Donald · 1 years ago
    Really liked it! But just one thing -- colon should be taken care of separately since it refers to a range.