Pilihan Koordinat

Sampeyan duwe monitor amba, nanging tabel sampeyan bisa karo malah luwih gedhe. Lan, ndeleng layar kanggo nggoleki informasi sing dibutuhake, mesthi ana kesempatan kanggo "slip" mata menyang baris sabanjure lan katon ing arah sing salah. Aku malah ngerti wong-wong sing, kanggo kesempatan kuwi, tansah nyimpen panguasa kayu cedhak kanggo masang menyang baris ing monitor. Teknologi masa depan! 

Lan yen baris lan kolom saiki disorot nalika sel aktif pindhah ing sheet? Jenis pilihan koordinat kaya iki:

Luwih becik tinimbang panguwasa, ta?

Ana sawetara cara saka macem-macem kerumitan kanggo ngleksanakake iki. Saben cara duwe pro lan kontra. Ayo padha nliti kanthi rinci.

Cara 1. Cetha. Makro sing nyorot baris lan kolom saiki

Cara sing paling jelas kanggo ngatasi masalah kita "ing bathuk" - kita butuh makro sing bakal nglacak owah-owahan ing pilihan ing sheet lan pilih kabeh baris lan kolom kanggo sel saiki. Iku uga seng di pengeni kanggo bisa kanggo ngaktifake lan mateni fungsi iki yen perlu, supaya pilihan salib-shaped kuwi ora nyegah kita ngetik, contone, rumus, nanging mung bisa digunakake nalika kita katon liwat dhaftar ing panelusuran perlu. informasi. Iki nggawa kita menyang telung makro (milih, ngaktifake, lan mateni) sing kudu ditambahake menyang modul sheet.

Bukak lembar kanthi tabel sing sampeyan pengin entuk pilihan koordinat kasebut. Klik-tengen ing tab sheet banjur pilih printah saka menu konteks Teks sumber (Kode Sumber).Jendhela Visual Basic Editor kudu mbukak. Salin teks saka telung makro iki menyang:

Dim Coord_Selection Minangka Boolean 'Variabel global kanggo pilihan on/off Sub Selection_On() 'Makro on selection Coord_Selection = True End Sub Selection_Off() 'Makro off selection Coord_Selection = False End Sub 'Prosedur utama sing nindakake pilihan Private Sub Worksheet_SelectionChange As(ByVal Target Range) Dim WorkRange Minangka Range Yen Target.Cells.Count > 1 Banjur Exit Sub 'yen luwih saka 1 sel dipilih, metu Yen Coord_Selection = Palsu Banjur Exit Sub' yen pilihan mati, metu Application.ScreenUpdating = Palsu Setel WorkRange = Range ("A6:N300") 'alamat sawetara kerja ing ngendi pilihan katon

Ganti alamat kisaran kerja menyang alamat sampeyan dhewe - ing kisaran iki pilihan kita bakal bisa digunakake. Banjur nutup Visual Basic Editor lan bali menyang Excel.

Pencet trabasan keyboard ALT + F8kanggo mbukak jendhela kanthi dhaptar makro sing kasedhiya. Makro Pilihan_On, minangka sampeyan bisa guess, kalebu pilihan koordinat ing sheet saiki, lan makro Pilihan_Mati – dipateni. Ing jendhela sing padha, kanthi ngeklik tombol paramèter (Pilihan) Sampeyan bisa nemtokake trabasan keyboard menyang makro kasebut supaya gampang diluncurake.

Kaluwihan saka metode iki:

  • ease relatif saka implementasine
  • pilihan - operasi ora mbebayani lan ora ngganti isi utawa format sel sheet kanthi cara apa wae, kabeh tetep kaya saiki

Cons saka cara iki:

  • pilihan kasebut ora bisa digunakake kanthi bener yen ana sel sing digabung ing sheet - kabeh baris lan kolom sing kalebu ing union dipilih bebarengan
  • yen sampeyan ora sengaja menet tombol Busak, banjur ora mung sel aktif sing bakal dibusak, nanging kabeh area sing dipilih, yaiku mbusak data saka kabeh baris lan kolom.

Cara 2. Asli. CELL + Fungsi Formatting Kondisi

Cara iki, sanajan nduweni sawetara kekurangan, katon banget elegan. Kanggo ngleksanakake soko mung nggunakake alat Excel sing dibangun, minimal melu program ing VBA yaiku aerobatik 😉

Cara iki adhedhasar nggunakake fungsi CELL, sing bisa menehi macem-macem informasi ing sel tartamtu - dhuwur, jembaré, nomer baris-kolom, format nomer, etc. Fungsi iki nduweni rong argumen:

  • tembung kode kanggo parameter, kayata "kolom" utawa "baris"
  • alamat sel sing arep kita nemtokake nilai parameter iki

Trik kasebut yaiku argumen kaloro opsional. Yen ora ditemtokake, banjur sel aktif saiki dijupuk.

Komponen kapindho cara iki yaiku format kondisional. Fitur Excel sing migunani banget iki ngidini sampeyan ngowahi format sel kanthi otomatis yen ketemu kahanan sing ditemtokake. Yen kita gabungke rong gagasan iki dadi siji, kita entuk algoritma ing ngisor iki kanggo ngetrapake pilihan koordinat liwat format kondisional:

  1. Kita milih tabel kita, yaiku sel-sel ing ngendi pilihan koordinat kudu ditampilake ing mangsa ngarep.
  2. Ing Excel 2003 lan luwih lawas, bukak menu Format – Conditional Formatting – Formula (Format — Format Bersyarat — Formula). Ing Excel 2007 lan luwih anyar - klik ing tab Home (Ngarep)tombol Formatting Kondisi - Nggawe Aturan (Format Bersyarat - Nggawe Aturan) lan pilih jinis aturan Gunakake rumus kanggo nemtokake sel sing arep diformat (Gunakake formula)
  3. Ketik rumus kanggo pilihan koordinat kita:

    =OR(CELL(“baris”)=ROW(A2),CELL(“kolom”)=COLUMN(A2))

    =OR(CELL(«baris»)=ROW(A1),CELL(«kolom»)=COLUMN(A1))

    Rumus iki mriksa apa nomer kolom saben sel ing tabel padha karo nomer kolom sel saiki. Semono uga karo kolom. Mangkono, mung sel sing duwe nomer kolom utawa nomer baris sing cocog karo sel saiki sing bakal diisi. Lan iki minangka pilihan koordinat salib sing pengin digayuh.

  4. Klik tombol framework (Format) lan nyetel werna isi.

Kabeh wis meh siap, nanging ana siji nuansa. Kasunyatan iku Excel ora nganggep owah-owahan ing pilihan minangka owah-owahan ing data ing sheet. Lan, minangka asil, ora micu recalculation saka rumus lan recoloring format kondisional mung nalika posisi sel aktif diganti. Mulane, ayo nambah makro prasaja menyang modul sheet sing bakal nindakake iki. Klik-tengen ing tab sheet banjur pilih printah saka menu konteks Teks sumber (Kode Sumber).Jendhela Visual Basic Editor kudu mbukak. Salin teks makro prasaja iki menyang:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Calculate End Sub

Saiki, nalika pilihan diganti, proses ngitung ulang rumus kanthi fungsi bakal diluncurake SEL ing format kondisional lan banjir baris lan kolom saiki.

Kaluwihan saka metode iki:

  • Format bersyarat ora ngrusak format tabel khusus
  • Opsi pilihan iki bisa digunakake kanthi bener karo sel gabungan.
  • Ora ana risiko mbusak kabeh baris lan kolom data kanthi klik ora sengaja Busak.
  • Makro digunakake kanthi minimal

Cons saka cara iki:

  • Rumus kanggo format kondisional kudu diketik kanthi manual.
  • Ora ana cara cepet kanggo ngaktifake / mateni format kasebut - mesthi diaktifake nganti aturan kasebut dibusak.

Cara 3. Optimal. Formatting Bersyarat + Makro

Emas tegese. Kita nggunakake mekanisme kanggo nelusuri pilihan ing sheet nggunakake macro saka cara-1 lan nambah sorotan aman kanggo nggunakake format kondisional saka cara-2.

Bukak lembar kanthi tabel sing sampeyan pengin entuk pilihan koordinat kasebut. Klik-tengen ing tab sheet banjur pilih printah saka menu konteks Teks sumber (Kode Sumber).Jendhela Visual Basic Editor kudu mbukak. Salin teks saka telung makro iki menyang:

Dim Coord_Selection Minangka Boolean Sub Selection_On() Coord_Selection = True End Sub Sub Selection_Off() Coord_Selection = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim WorkRange As Range, CrossRange As Range Set WorkRange("7") = Range("300") 'адрес рабочего диапазона с таблицей Yen Target.Count > 1 Banjur Exit Sub If Coord_Selection = Palsu Banjur WorkRange.FormatConditions.Delete Exit Sub End If Application.ScreenUpdating = Palsu Yen Ora Intersect (Target Ora Ana, Intersect) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 33 Target.FormatConditions .Busak End Yen End Sub

Aja lali ngganti alamat jangkauan kerja menyang alamat meja sampeyan. Nutup Editor Visual Basic lan bali menyang Excel. Kanggo nggunakake makro sing ditambahake, penet trabasan keyboard ALT + F8  lan nerusake kanthi cara sing padha karo cara 1. 

Cara 4. Cantik. Add-on FollowCellPointer

MVP Excel Jan Karel Pieterse saka Walanda menehi tambahan gratis ing situs web FollowCellPointer(36Kb), sing ngrampungake masalah sing padha kanthi nggambar garis panah grafis nggunakake makro kanggo nyorot baris lan kolom saiki:

 

Solusi sing apik. Ora tanpa glitches ing panggonan, nanging mesthi worth cobi. Download arsip, unpack menyang disk lan nginstal add-on:

  • ing Excel 2003 lan lawas - liwat menu Layanan - Add-ons - Ringkesan (Tools - Add-Ins - Browse)
  • ing Excel 2007 lan mengko, liwat File – Pilihan – Add-ons – Go – Browse (File - Pilihan Excel - Add-Ins - Menyang - Browse)

  • Apa macro, ngendi kanggo masang kode macro ing Visual Basic

 

Ninggalake a Reply