-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz Delila_1 #34910 üzenetére
Rájöttem, hogy félreértettem a kérdésedet.
A Munka1 lapra felvittem 2 listboxot. Mindkettő ListFillRange tartománya azonos, az a terület, ahova a füzetbe bevittem a mértékegységeket. Persze makróval is fel lehet tölteni a listboxokat. A 2 listboxban kiválasztod a 2 mértékegységet, majd beírod a függvényt, az átszámítandó érték megadásával [pl. =konvert(A1)].
Ami nem működött:
Function Konvert(ertek As Range)
If ertek > "" Then
Me1 = Munka1.ListBox1.List(Selected) ': MsgBox Me1
Me2 = Munka1.ListBox2.List(Selected) ': MsgBox Me2
Konvert = Application.WorksheetFunction.Convert(ertek, Me1, Me2)
End If
End FunctionA Me2 értéke valamiért azonos a Me1-gyel. Nyilván bennem van a hiba, csak nem találom, mit nem adok meg jól.
A működő:
Function Konvertal(ertek As Range)
If ertek > "" Then
For x = 0 To Munka1.ListBox1.ListCount - 1
If Munka1.ListBox1.Selected(x) = True Then
Me1 = Munka1.ListBox1.List(x)
Exit For
End If
Next
For x = 0 To Munka1.ListBox2.ListCount - 1
If Munka1.ListBox2.Selected(x) = True Then
Me2 = Munka1.ListBox2.List(x)
Exit For
End If
Next
Konvertal = Application.WorksheetFunction.Convert(ertek, Me1, Me2)
End If
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sztanozs
veterán
válasz Delila_1 #34910 üzenetére
Úgy értettem, hogy meg lehet-e azt csinálni, hogy az általam készített worksheet-en elérhető funkcióknak ilyen kiválasztható argumentumai legyenek.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
- Milyen légkondit a lakásba?
- Luck Dragon: Asszociációs játék. :)
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Android alkalmazások - szoftver kibeszélő topik
- Ukrajnai háború
- Videós, mozgóképes topik
- WLAN, WiFi, vezeték nélküli hálózat
- Vezetékes FEJhallgatók
- Jobb zoom, egyszerűbb kijelző - megérkezett a Sony Xperia 1 VI
- Még több AI-t hozna a Windowsba a Microsoft
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest