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

MS Excel

Téma: Podmíněné formátování do formuláře UserForm VBA

Zaslal/a AlesH 22.10.2016 21:57

Ahoj, prosím o pomoc s tvorbou fomuláře VBA. Formulář se zobrazí při doubleclicku někde ve sloupečku A.
Aktuálně funguje formulář tak, že v TextBox1 až 3 se ukazují hodnoty ve sloupečcích A až C podle aktuálního řádku, ve kterém je zvolená buňka. Při pohybu po řádcích se automaticky mění i hodnoty v TextBoxech. Zároveň se načítá do TextBoxů i barva písma a pozadí
Prosím o pomoc s:
1) Načtení barvy písma a pozadí podmíněně formátovaných buněk Ve sloupečku B je uplatněno jak nepodmíněné (buňka B2, modré pozadí) tak podmíněné (na text B3 a B4 různé barvy) formátování. Do TextBox2 se načte jen nepodmíněné formátování. Jde zajistit načtení aktuálního formátování?
2) Zobrazení datumu ve formátu dd.mm.yy Datum ze sloupečku C se v TextBox3 zobrazí ve formátu "dd/mm/yy". Jak zajistit formát "dd.mm.yy" v TextBox3?
Předem moc díky za odpovědi
Aleš

Příloha: 33160_lifeformiii.zip (31kB, staženo 22x)

Zaslat odpověď >

---

Siki-00(23.10.2016 0:49)#033161

ad 2)
toto
.TextBox3.Value = Cells(ActiveCell.Row, 3)
nahradit za
.TextBox3.Value = Format(Cells(ActiveCell.Row, 3), "dd.mm.yy")citovat

syd(23.10.2016 1:06)#033162

Podminene fomatovani bunky se do Textboxu neprenese.. je potreba manualne nastavit v podmince jako v samotnem podm. form. napr:


Sub vyplnFormular(Riadok As Long)
Dim vBColor, vFColor, bBold As Boolean
With UserForm1
.TextBox1.Value = Cells(ActiveCell.Row, 1)
.TextBox2.Value = Cells(ActiveCell.Row, 2)
.TextBox3.Value = Format(Cells(ActiveCell.Row, 3), "dd.mm.yy")

.TextBox1.BackColor = Cells(ActiveCell.Row, 1).Interior.Color
.TextBox1.ForeColor = Cells(ActiveCell.Row, 1).Font.Color

Select Case Cells(ActiveCell.Row, 2).Value
Case Is = "B4"
vBColor = RGB(153, 204, 0)
vFColor = &H80000008
bBold = False
Case Is = "B3"
vBColor = &HFFFF&
vFColor = &HFF0000
bBold = True
Case Else
vBColor = &H80000005
vFColor = &H80000008
bBold = False
End Select

.TextBox2.BackColor = vBColor
.TextBox2.ForeColor = vFColor
.TextBox2.Font.Bold = bBold

.TextBox3.BackColor = Cells(ActiveCell.Row, 3).Interior.Color
.TextBox3.ForeColor = Cells(ActiveCell.Row, 3).Font.Color

End With
End Sub

sydcitovat

AlesH(23.10.2016 8:36)#033163

Ahoj,
díky moc za odpovědi. Formát datumu funguje perfektně. Že nejde přenést podmíněné formátování je mrzuté, protože mám ve zdrojové tabulce hodně podmíněně formátovaných buněk poměrně složitými vzorci. Ale s tím se nějak poperu.
Takže, co teď řeším:)

1) Co v přenášení formátů nefunguje je to, že bych potřeboval ze sloupečku B přenést jak podmíněné formáty (B3, B4), tak nepodmíněné formáty (B2, B5..B16). Jde tohle nějak zajistit?

2) Pro přenos podmíněného formátování sloupečku 2 jsem našel formulku BarvaPozadi = Cells(ActiveCell.Row; 2).FormatConditions(1).Interior.Color ... tohle ale nepřenese aktuální stav ale první z podmínek podmíněného formátování. Najde někdo způsob, jak sem dostat aktuální stav podmíněného formátování?

3) V jedné buňce (sloupeček D) si zapisuji úkoly. Hotové označím zeleným písmem, nehotové červeným. Dají se takovéto vícebarevné texty přenést do TextBoxu4 i s barvami?

Opět díky moc
Aleš

Příloha: 33163_lifeformiii.zip (32kB, staženo 18x)

citovat

eLCHa(23.10.2016 9:50)#033164

Já myslím, že to jde. Musel bychověřit a teď nejsem u excelu ale podívejte se na
Range.FormatConditionscitovat

syd(23.10.2016 17:42)#033165

Zkuste tohle:
.TextBox2.BackColor = Cells(ActiveCell.Row, 2).DisplayFormat.Interior.Color
.TextBox2.Font.Bold = Cells(ActiveCell.Row, 2).DisplayFormat.Font.Bold
.TextBox2.ForeColor = Cells(ActiveCell.Row, 2).DisplayFormat.Font.Color


ohledne bodu 3 zkuste prostudovat nasledujici:
http://stackoverflow.com/questions/23598211/every-character-in-textbox-in-different-color-in-vba-excelcitovat

AlesH(23.10.2016 18:45)#033166

Ahoj,
díky za odpovědi:
To eLCHa: To jsem našel, ale bohužel nevím, jakl to implemtovat, aby to vracelo aktuální formáty

To SYD: To bohužel nejede:-(
Díky Alešcitovat

syd(23.10.2016 21:37)#033168

Tak tedy cely kod nasledovne:

Sub vyplnFormular(Riadok As Long)
Dim vBColor, vFColor, bBold As Boolean
Dim i As Integer, x As Integer
With UserForm1
With .TextBox1
.Value = Cells(ActiveCell.Row, 1)
.BackColor = Cells(ActiveCell.Row, 1).Interior.Color
.ForeColor = Cells(ActiveCell.Row, 1).Font.Color
End With
With .TextBox2
.Value = Cells(ActiveCell.Row, 2)
.BackColor = Cells(ActiveCell.Row, 2).DisplayFormat.Interior.Color
.Font.Bold = Cells(ActiveCell.Row, 2).DisplayFormat.Font.Bold
.ForeColor = Cells(ActiveCell.Row, 2).DisplayFormat.Font.Color
End With
With .TextBox3
.Value = Format(Cells(ActiveCell.Row, 3), "dd.mm.yy")
.BackColor = Cells(ActiveCell.Row, 3).Interior.Color
.ForeColor = Cells(ActiveCell.Row, 3).Font.Color
End With
With .inkBox
.Text = Cells(ActiveCell.Row, 4)
i = Len(Cells(ActiveCell.Row, 4))
For x = 1 To i
.SelStart = x - 1
.SelLength = 1
.SelColor = Cells(ActiveCell.Row, 4).Characters(x, 1).Font.Color
Next x
End With
End With

Misto textbox4 je pouzit InkEdit control viz priloha.
syd

Příloha: 33168_lifeformiii-syd.rar (34kB, staženo 32x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse