Excel - vyhladavanie – Visual Basic – Fórum – Programujte.com

Ahojte chalani.....robim taky maly projekt v exceli. ale vo VBA moc neviem. Mam taky problem.....momentalne to funguje tak ze ak zadam do policka "Zadaj cislo" tak sa mi v stlpci A1:A8 prehlada cislo pomocou cyklu FOR a ak take cislo najde, tak ho napise do policka "Najdene cislo". Ale ja potrebujem vyriesit este jednu vec:
Ak zadam take cislo ktore sa v tabulke nenachadza nech mi vyhlada najblizsie vyssie cislo...urcite to pojde pomocou cyklu WHILE...ale ja sa v exceli stale s tym cyklom akosi nemozem dohodnut.
Ak by na to niekto prisiel budem mu velmi zaviazany. Samozrejme aj prikladam makro 

Option Explicit

Sub hladaj()

    Dim riadky As Integer
    Dim i As Integer
    Dim priemer As Double
    Dim hladane As Double
    Dim oznacenie As String
    
    riadky = Range("A1:A8").Rows.Count
    priemer = Range("E2").Value
    
    For i = 1 To riadky
        If Cells(i, 1) = priemer Then
            hladane = priemer
            Range("F2").Value = hladane
            oznacenie = Cells(i, 2)
            Range("G2") = oznacenie
        End If
    Next i

End Sub

#1 Martin
fakt mi tu nikto nepomoze?

Ahoj, není to zrovna s cyklem WHILE a nevím jestli tam nemám

syntaktickou chybu (Ve VB taky nedělám), ale mělo by to fungovat.

Vyzkoušej to, snad ti to pomůže.

(Na přesné hodnotě toho čísla 1000000000000 nezáleží,

mělo by být ale větší než největší číslo jaké v tom sloupci bude)

Option Explicit

Sub hladaj()

    Dim riadky As Integer
    Dim i As Integer
    Dim priemer As Double
    Dim hladane As Double
    Dim oznacenie As String
    Dim nalezeno As Integer
    Dim nejblizsiVyssi As Double
    Dim nejblizsiVyssiIndex As Integer
    
    riadky = Range("A1:A8").Rows.Count
    priemer = Range("E2").Value
    nalezeno = 0

    For i = 1 To riadky
        If Cells(i, 1) = priemer Then
            hladane = priemer
            Range("F2").Value = hladane
            oznacenie = Cells(i, 2)
            Range("G2") = oznacenie
            nalezeno = 1
        End If
    Next i
    
    If nalezeno = 0 Then
      nejblizsiVyssi = 1000000000000
      nejblizsiVyssiIndex = 0
      For i = 1 To riadky      
        If Cells(i, 1) > priemer Then
          If Cells(i, 1) < nejblizsiVyssi Then
            nejblizsiVyssi = Cells(i, 1)
            nejblizsiVyssiIndex = i
          End If  
        End If
      Next i
      Range("F2").Value = nejblizsiVyssi
      oznacenie = Cells(nejblizsiVyssiIndex, 2)
      Range("G2") = oznacenie
    End If

End Sub