Telefonszámunk: 1-472-0679

[Resolved] label feltételes formázása

Kezdőlap Fórumok Excel programozás [Resolved] label feltételes formázása

Topic Resolution: Resolved

Ennek a témakörnek tartalma 3 hozzászólás, 2 résztvevő. Utolsó frissítés:  Potus 1 hónap, 3 hete telt el.

4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #5915

    Potus
    Felhasználó

    Sziasztok!
    Van egy valuta váltó program féleségem.
    Szeretném megoldani, hogy ha pl.. Ft-ot USD-ra váltok akkor a labelen USD-ban jelenjen meg a szám, ha fontra akkor GBP-ban stb…
    Option Explicit

    Private Sub CommandButton1_Click()
    Dim rates(0 To 4, 0 To 4) As Double, i As Integer, j As Integer

    rates(0, 0) = Sheets(“rss”).Range(“D161”).Value ‘ euro 161
    rates(0, 1) = Sheets(“rss”).Range(“D162”).Value
    rates(0, 2) = Sheets(“rss”).Range(“D163”).Value
    rates(0, 3) = Sheets(“rss”).Range(“D164”).Value
    rates(0, 4) = Sheets(“rss”).Range(“d165”).Value

    rates(1, 0) = Sheets(“rss”).Range(“E161”)
    rates(1, 1) = Sheets(“rss”).Range(“E162”) ‘GBP 162
    rates(1, 2) = Sheets(“rss”).Range(“E163”)
    rates(1, 3) = Sheets(“rss”).Range(“E164”)
    rates(1, 4) = Sheets(“rss”).Range(“e165”)

    rates(2, 0) = Sheets(“rss”).Range(“F161”)
    rates(2, 1) = Sheets(“rss”).Range(“F162”)
    rates(2, 2) = Sheets(“rss”).Range(“F163”) ‘ CHF 163
    rates(2, 3) = Sheets(“rss”).Range(“F164”)
    rates(2, 4) = Sheets(“rss”).Range(“f165”)

    rates(3, 0) = Sheets(“rss”).Range(“G161”)
    rates(3, 1) = Sheets(“rss”).Range(“G162”)
    rates(3, 2) = Sheets(“rss”).Range(“G163”)
    rates(3, 3) = Sheets(“rss”).Range(“G164”) ‘ USD 164
    rates(3, 4) = Sheets(“rss”).Range(“g165”)

    rates(4, 0) = Sheets(“rss”).Range(“h161”)
    rates(4, 1) = Sheets(“rss”).Range(“h162”)
    rates(4, 2) = Sheets(“rss”).Range(“h163”)
    rates(4, 3) = Sheets(“rss”).Range(“h164”)
    rates(4, 4) = Sheets(“rss”).Range(“h165”) ‘ HUF 165

    For i = 0 To 4
    For j = 0 To 4
    If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then Label1.Caption = TextBox1.Value * rates(i, j)
    Next j
    Next i

    End Sub

    Private Sub CommandButton2_Click()
    Call frmCalculator.SHOW
    End Sub

    Private Sub CommandButton3_Click()
    Unload Me
    End Sub

    Private Sub TextBox2_Change()
    TextBox2.Text = Left(TextBox2.Text, 7)

    End Sub

    Private Sub Label1_Click()

    End Sub

    Private Sub TextBox1_Change()

    End Sub

    Private Sub UserForm_Click()

    End Sub

    Private Sub UserForm_Initialize()
    Dim HUF

    With ListBox1
    .AddItem “Euro”
    .AddItem “GBP”
    .AddItem “CHF”
    .AddItem “USD”
    .AddItem “HUF”

    End With
    With ListBox2
    .AddItem “Euro”
    .AddItem “GBP”
    .AddItem “CHF”
    .AddItem “USD”
    .AddItem “HUF”

    End With

    ListBox1.ListIndex = 0
    ListBox2.ListIndex = 4

    TextBox1.Value = 1

    Label1.Caption = Sheets(“rss”).Range(“d161”)
    If ListBox2.Value = “HUF” Then
    Label1.Caption = Format(Label1.Caption, “# #00.00 Ft”)
    ElseIf ListBox2.Value = “USD” Then
    Label1.Caption = Format(Label1.Caption, “# #00.00 USD”)
    End If
    End Sub

    itt a végén látszik, hogy próbálkoztam, de nem sok sikerrel…
    Köszönöm a segítséget! Potus

    Attachments:
    You must be logged in to view attached files.
    #5945

    Potus
    Felhasználó

    Azt hiszem rossz helyen vannak a kódok a Userform_Initialize-ben. Átraktam a CommandButton1_Clickbe, persze kissé átírva :
    If ListBox2 = “HUF” Then
    Label1.Caption = Format(Label1.Caption, ” 0.000000 HUF”)
    ElseIf ListBox2 = “USD” Then
    Label1.Caption = Format(Label1.Caption, ” 0.000000 USD”)
    ElseIf ListBox2 = “CHF” Then
    Label1.Caption = Format(Label1.Caption, ” 0.000000 CHF”)
    ElseIf ListBox2 = “Euro” Then
    Label1.Caption = Format(Label1.Caption, ” 0.000000 EUR”)
    ElseIf ListBox2 = “GBP” Then
    Label1.Caption = Format(Label1.Caption, ” 0.000000 GBP”)
    End If

    80%-ban müködik is. Csak a HUF esetében nem írja HUF-ot számok mellé.
    Mi lehet az oka?

    #5946

    horvimi
    Adminisztrátor

    Label1.Caption = Format(Label1.Caption, "0.000000" & " HUF")

    És a többire is hasonlóan.

    Imre

    #5973

    Potus
    Felhasználó

    KÖSZÖNÖM!!!

4 bejegyzés megtekintése - 1-4 / 4

Be kell jelentkezni a hozzászóláshoz.