Új hozzászólás Aktív témák

• #34911 Delila_1 Topikgazda Delila_1 #34910

  Új Válasz 2017-04-21 09:23:27 #34911

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Function

  A 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 Function

  Programozó: 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