Autor | Zpráva | ||
---|---|---|---|
Komoráček Profil |
#1 · Zasláno: 5. 9. 2012, 10:31:27
Dobrý den,
v přiloženém makru se nemohu zbavit chyby 13 při jakékoliv změně obsahu buňky B1 ( či proměnné CEZ_Level ). Můžete mi nějak poradit ? Děkuji S úctou Jaroslav Komora 602 248 248 Private Sub Worksheet_Change(ByVal Target As Range) Dim CEZ As Range Dim CEZ_Level As Range Set CEZ = Range("C1") Set CEZ_Level = Range("B1") Select Case Union(CEZ, Target) Case Is >= CEZ_Level Range("A1").Select Selection.Font.Bold = True Select Case Union(CEZ, Target).Value Case Is <= 2 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 49407 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .Color = -16776961 .TintAndShade = 0 End With Case Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .Color = -0.499984740745262 .TintAndShade = 0 End With End Select Shell "C:\Program Files (x86)\Winamp\winamp.exe " + "C:\Zvukies\Sparcle.wav" Text = Range("A1") Procento = Trim(Str(Range("C1"))) MsgBox "Ticker " + Text + " dosáhl zisku " + Procento + " % !!!" CEZ_Level = CEZ_Level * 1.1 Case Else Range("A1").Select Selection.Font.Bold = False With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With End Select End Sub |
||
Časová prodleva: 12 let
|
0