Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zožiti vrstice do določene vrednosti v Excelu?

V nekaterih primerih boste morda želeli zaničevati vrstice eno za drugim, dokler ne najdete posebne vrednosti v listu. Tukaj uvajam makro kodo, ki vam bo pomagala pri zankah podatkov, dokler ne dosežete določene vrednosti.

Loop skozi do določene vrednosti


puščica modra desno mehurček Loop skozi do določene vrednosti


1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacijos okno.

2. klik Vstavi > Moduli, prilepite spodnjo kodo v prazno Moduli.

VBA: Loop skozi vrstice do določene vrednosti

Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
    Dim fStr As String
    Dim strActAddress As String
    Dim fbool As Boolean
    Dim cnt As Long, cntRow As Long
    Dim xRg As Range, yRg As Range, zRg As Range
    fbool = False
    strActAddress = ""
    cnt = 0
    On Error Resume Next
    Set zRg = ActiveSheet.UsedRange
    cntRow = zRg.Rows.Count
   
    Set xRg = Application.InputBox _
        (Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
    fStr = Application.InputBox _
        (Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
    Application.ScreenUpdating = False
    For Each yRg In xRg
       
        If yRg.Row > cntRow Then
            MsgBox "Value not found ", vbInformation, "Kutools for Excel"
            Application.ScreenUpdating = True
            Exit Sub
        End If
        If yRg.Value2 = fStr Then
            Application.ScreenUpdating = True
            yRg.Activate
            fbool = True
            strActAddress = yRg.Address
            MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
            
            Exit Sub
        Else
            cnt = cnt + 1
        End If
        
    Next yRg
    
    If cnt = xRg.Count Then
        MsgBox "Value not found ", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

dokler ni določena celica 1

3. Pritisnite F5 tipko, se pojavi pogovorno okno za izbiro stolpca, ki se zanese. Prikaz slike:
dokler ni določena celica 2

4. klik OKin vnesite niz, ki ga želite najti v drugem pojavnem pogovornem oknu. Prikaz slike:
dokler ni določena celica 3

5. Kliknite V redu. Preklaplja se z izbiro, dokler se ne najde navedena vrednost.
dokler ni določena celica 4

Opombe: če ni najdene ustrezne vrednosti, se pojavi pogovorno okno, ki vas opomni, da ni najdene nobene ujemajoče vrednosti.
dokler ni določena celica 5

bodite pozorni1Kutools for Excel: Funkcije 200, ki jih morate imeti v programu Excel, si lahko brezplačno prenesete od tukaj

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.

Be the first to comment.