-
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.
Új hozzászólás Aktív témák
- Napelem
- Xbox Series X|S
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Cyberpunk 2077
- Rekordokat döntöget a Gigabyte új SSD-jének terhelhetősége
- Apple iPhone 15 Pro Max - Attack on Titan
- Motoros topic
- Távol-keleti webshopok OFF topikja (játékok, kuponok, stb.)
- Kínai, és egyéb olcsó órák topikja
- Androidos tablet topic
- További aktív témák...