Kezdőlap › Fórumok › Excel programozás › [Resolved] label feltételes formázása
- This topic has 3 hozzászólás, 2 résztvevő, and was last updated 5 years, 3 months telt el by Potus.
-
SzerzőBejegyzés
-
2019-06-21-09:10 #5915
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 ExplicitPrivate Sub CommandButton1_Click()
Dim rates(0 To 4, 0 To 4) As Double, i As Integer, j As Integerrates(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”).Valuerates(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 165For 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 iEnd Sub
Private Sub CommandButton2_Click()
Call frmCalculator.SHOW
End SubPrivate Sub CommandButton3_Click()
Unload Me
End SubPrivate 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 HUFWith 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 = 4TextBox1.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 Subitt a végén látszik, hogy próbálkoztam, de nem sok sikerrel…
Köszönöm a segítséget! PotusAttachments:
You must be logged in to view attached files.2019-06-22-04:09 #5945Azt 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 If80%-ban müködik is. Csak a HUF esetében nem írja HUF-ot számok mellé.
Mi lehet az oka?2019-06-22-14:50 #5946Label1.Caption = Format(Label1.Caption, "0.000000" & " HUF")
És a többire is hasonlóan.
Imre
2019-06-23-14:36 #5973KÖSZÖNÖM!!!
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.