- Bemutatkozott a Poco X7 és X7 Pro
- Fotók, videók mobillal
- Samsung Galaxy S25 FE - fenséges, felejthető vagy felesleges?
- Google Pixel topik
- iPhone topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy A54 - türelemjáték
- Poco F7 – bajnokesélyes
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Okosóra és okoskiegészítő topik
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Új hozzászólás Aktív témák
-
Homer
tag
válasz
martonx #1594 üzenetére
Nem olyan bonyolult ez. Nekem nem ez a munkám, de érdekel a dolog.
Ezt hoztam össze:Public Sub proba()
....MsgBox (keres("h"))
End SubPublic Function keres(mit As String) As Integer
...Dim elem As Object
...Dim oszlop As Integer
...oszlop = 0
...For Each elem In Range("A1", "Q1")
.....oszlop = oszlop + 1
.........If mit = elem.Value Then
.............keres = oszlop
.........End If
...Next
End FunctionHogy olvashatóbb legyen bepontpontpontoztam.
Persze ha picit még gondolkodnék rajta biztosan találnék más megoldást is. (Pl. az elem típusa nem túl elegáns object-ként kezelve, dehát műxik.)
A lényeg, hogy ha írsz egy ilyen function-t akkor azt bárhányszor meghívhatod a fenti sub-ban. Ez a megoldás A-tól Q oszlopig vizsgálja az egyezéseket. Ha nincs egyezés akkor 0-val tér vissza a függvény.
Új hozzászólás Aktív témák
- ASRock B550M-ITX/ac alaplap + Crucial Ballistix 16GB DDR4 3600MHz CL16 memória kit - ELADÓ!
- Új 0km es GARANCIAS acer nitro 15 rtx 4060 ryzen 7
- Új garanciás MSI Alpha ! R9 7945hx 32 ram 17 col 240hz qhd rtx 4070
- Ár értékbajnok! Prémium kategória 4060 ESZMÉLETLEN JÓ ÁRON! GIGABYTE AORUS rtx 4060
- ENNYI PÉNZÉRT ilyen konfigot nem kapsz! Prémium kategória! Gigabyte aorus rtx 4070 i9 14900hx 2k qhd
- Konzol felvásárlás!! Xbox Series S, Xbox Series X
- AZONNALI SZÁLLÍTÁSSAL Eladó Windows 8 / 8.1 Pro
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3341, 94% Akkumulátor
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- Apple iPhone 14 Pro Max / Kártyafüggetlen / 256GB / 12Hó Garancia / 87% akku
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest