XL2000: makro Visual Basic untuk daftar melingkar referensi

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 213826 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Dalam lembar kerja Microsoft Excel, ketika formula dalam sel mengacu pada sel sama rumus menempati, baik secara langsung maupun tidak langsung, referensi melingkar dibuat. Di Excel, pelacakan alat ini disediakanAudit Toolbar untuk membantu Anda menemukan referensi melingkar yang tidak diinginkan. Cara lain Anda dapat melacak melingkar referensi adalah untuk menciptakan Microsoft Visual Basic untuk aplikasi makro yang menghasilkan daftar semua sel yang mengandung referensi melingkar yang terjadi dalam satu lembar kerja.

INFORMASI LEBIH LANJUT

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS

Menemukan referensi melingkar

Preseden adalah sel-sel yang direkomendasikan, secara langsung atau tidak langsung, oleh formula. Referensi melingkar terjadi setiap kali sel yang mengandung bundar referensi rumus dimasukkan dalam rumus preseden.

Berikut contoh makro Visual Basic menghasilkan lembar baru di buku kerja yang dan daftar semua referensi melingkar ditemukan pada lembar kerja aktif. Makro melakukan hal ini dengan menguji setiap rumus dalam lembar untuk melihat apakah sel mengandung rumus bersimpangan preseden rumus.

CATATAN: Batasan dari metode ini adalah bahwa Preseden properti di Visual Basic for Applications hanya dapat menemukan preseden pada lembar aktif. Makro tidak akan menemukan referensi melingkar yang disebabkan oleh referensi jauh.

Prosedur Visual Basic sampel

Pada lembar modul, masukkan kode Visual Basic berikut:
Sub FindCircRefs()
    ' Get source information.
    sourcesheet = ActiveSheet.Name
    Sheets.Add
    ' Get destination information.
    destsheet = ActiveSheet.Name
    destrange = ActiveCell.Address
    ' Return to source.
    Worksheets(sourcesheet).Activate
    rowcount = 0
    ' Trap for error in "result", indicating no circular reference.
    On Error GoTo notcircular

    ' Loop through every used cell in source.
    For Each Item In ActiveSheet.UsedRange
        ' Check to see if cell contains a formula.
        If Left(Item.Formula, 1) = "=" Then
            ' If cell intersects with precedents, cell has circular
            ' reference.
            result = Intersect(ActiveSheet.Range(Item.Address), _
                ActiveSheet.Range(Item.Precedents.Address))

            Worksheets(destsheet).Range(destrange).Offset(rowcount, _
                0).Value = Item.Address(False, False)

            Worksheets(destsheet).Range(destrange).Offset(rowcount, _
                1).Value = "'" & Item.Formula

            rowcount = rowcount + 1
            ' Skip to here if not circular.
            skipitem:
        End If
    Next
    Exit Sub

' If error in "result", go here.
notcircular:
    ' Skip cells that do not contain circular references.
    Resume skipitem
End Sub
				
Untuk menggunakan makro ini, jalankan makro FindCircRefs dari Microsoft Excel lembar kerja yang Anda inginkan untuk menemukan referensi melingkar. Lembar baru ditambahkan ke buku kerja yang aktif, daftar alamat sel melingkar referensi dalam kolom a dan rumus di alamat tersebut di kolom B. Jika tidak ada referensi melingkar ditemukan, lembar baru kosong.

REFERENSI

Untuk informasi lebih lanjut tentang melingkar referensi dan menemukan sel-sel yang berisi mereka, klik Microsoft Excel bantuan padaBantuan menu, jenis mencari sel yang menciptakan referensi circular di kantor asisten atau jawaban Wizard, dan kemudian klik Mencari untuk melihat topik kembali.

Properti

ID Artikel: 213826 - Kajian Terakhir: 01 September 2011 - Revisi: 1.0
Berlaku bagi:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB213826 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:213826

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com