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
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.