• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Sloučení přímo ve VBA

Zaslal/a fostercz 15.2.2013 20:30

Zdravím získávám další a další vědomosti ohledně Vba, učím se rychle ale mám problém.

Potřebuji Upravit makro aby mi zapsalo třeba do Cells(1, 5) tak jako v tomhle stylu Celkem_modra:Celkem_cervena

Jen ujasním že je nechci dělit , chi jen znaménko : mezi ně.

Sub spocitejscore()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Celkem_cervena = "0"
Celkem_modra = "0"
Dim i As Integer
For i = 1 To 30000
If (Cells(i, 1).Font.Color = RGB(255, 0, 0)) Then Celkem_cervena = Celkem_cervena + 1
If (Cells(i, 1).Font.Color = RGB(0, 32, 96)) Then Celkem_modra = Celkem_modra + 1
Next i
Cells(16, 5).Value = Celkem_cervena
Cells(14, 5).Value = Celkem_modra
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

---

Pavlus(15.2.2013 21:11)#011668

Pro spojení řetězců se využívá znak ampersandu (&).
P.

Př.:Cells(1, 5).Value = Celkem_modra & ":" & Celkem_cervenacitovat

fostercz(15.2.2013 21:17)#011669

Děkujucitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse