Teit joskus tänne oma-funktion "Phaku vasemmalle". Siitä on ilmeisesti niin kauan, että se on jo poistettu, kun ei löydy vanhoista viesteistä.
Se olis varmaan näppärämpi kuin INDEKSI(VASTINE()).
Vieläkö sinulla on se tallessa.
Se olis varmaan näppärämpi kuin INDEKSI(VASTINE()).
Vieläkö sinulla on se tallessa.
Vastaukset 4
Vanhimmat
Function PHakuVasemmalle(Hakuarvo, ByVal Hakutaulukko As Range, _
PalArvoSarakeSiirtymä As Integer, _
Optional HakuarvoSarake As Integer = -257)
' Tämä funktio hakee arvoja vasemmalta tai oikealta
' Kun määrittelet neljännen arvon voit käyttää mitä tahansa saraketta
' Kolmas argumentti on sarakkeiden määrä siirtymänä vasemmanpuoleisesta
' sarakkeesta (0 -pohjainen).Esim 1 palauttaa toisen sarakkeen arvon
' Varmistetaan, että käytetään vain yhtä aluetta
If Hakutaulukko.Areas.Count > 1 Then
MsgBox "Voit hakea vain yhtenäiseltä alueelta"
Exit Function
End If
With Application
'Jos hakuehtoa toiselle sarakkeele ei ole annettu,
'niin palautetaan arvo vasemman puoleisesta sarakkeesta
If HakuarvoSarake = -257 Then
PHakuVasemmalle = _
.Index(Hakutaulukko.Offset(0, PalArvoSarakeSiirtymä), _
.Match(Hakuarvo, Hakutaulukko.Columns(1), 0), 1)
' Muuten palautetaan hakuarvoa vastaava arvo
'syötetystä sarakkeesta -1
Else
PHakuVasemmalle = _
.Index(Hakutaulukko.Offset(0, PalArvoSarakeSiirtymä), _
.Match(Hakuarvo, Hakutaulukko.Columns(HakuarvoSarake), 0), 1)
End If
End With
End Function
Toimii.
"Ruokahalu kasvaa syödessä"
Yritin tuota muuttelemalla tehdä Vhakuylös, mutta en saanut toimimaan.
Löytyiskö sinulta sekin?
Ihmeekseni täytyy tunnustaa, etten ole ikinä käyttänyt VHAKU- funktiota.
No katsotaan vapun jälkeen... on vähän kiireitä muitten projektien suhteen.
Lopulta aika pienillä muutoksilla muuttui "P Veeksi". Toimii ainakin muutaman rivin taulukossa.
Function VHakuYlös(Hakuarvo, ByVal Hakutaulukko As Range, _
PalArvoRiviSiirtymä As Integer, _
HakuarvoRivi As Integer)
With Application
VHakuYlös = _
.Index(Hakutaulukko.Offset(PalArvoRiviSiirtymä, 0), 1, _
.Match(Hakuarvo, Hakutaulukko.Rows(HakuarvoRivi), 0))
End With
End Function