Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6   další »
Makro - sčítání buněk dle příznaku a kopírování (26.10.2016 23:57)

Zkuste verzi 2.
Nemam ceske office, OS. Nevim, jak to bude s formatem vysledku, hlavne sloupec C a D. Trosku mne to zlobilo. Dejte vedet.

syd

Makro - sčítání buněk dle příznaku a kopírování (26.10.2016 13:11)

V priloze oprava vypoctu dane.

Lukas-Urban napsal/a:

...ještě bych měl jednu prosbu. Bylo by možné, aby byly řádky do cílového listu vkládány ve smyslu "vložení nového řádku"?Zadám-li před vložením výsledku např. SUMU do buňky D3, aby nedošlo po vložení výsledků k jejímu přepsání, aby se pouze se posunula níže?
Díky moc.

Nevim,zda to chapu spravene. Ale zkuste to nasledovne:
pokud v listu Result pocitate v bunce D(cokoliv) SUMU zapiste do prislusne radky sloupce A nejaky nazev napr. soucet, total, cokoliv. Makro prave pouziva tento sloupec k zjisteni volne radky. Dejte vedet.

Nyni uz nemohu upravovat... budu az pozdeji.

syd

Makro - sčítání buněk dle příznaku a kopírování (26.10.2016 11:57)

Dobry den,

vyzkousejte a dejte vedet.

dik
syd

VBA - automatické přidání položky do formuláře (26.10.2016 8:29)

eLCHa napsal/a:

já frame používám roky a nikdy žádný problém.ořezávám podle něj formulář a má to pak hezčí okraje ;))

Spise to bylo mysleno ohledne dynamickeho pridani, a ze pak je problem s nekterymi Eventy pro controls, kt. jsou soucasti Frame... Jinak je to asi uzitecny, o tom zadna.

xawerius napsal/a:


...ScrollBar jsem zkoušel přímo do formuláře taktéž - bez výsledku.
Ještě jednou děkuji za pomoc

Ja kdyz jsem o tom premyslel, tak v tomto pripade se tedy posouva cely form a tudiz i CommandButtons. A ja chtel, aby byly na pevno, na ocich (jako uzivateli by mi vadilo posouvat pak nekam pro potvrzovaci tlacitko) - proto jsem pouzil Frame.. Ale i to by se taky asi dalo nejak vyresit..

Jinak diky za feedback...

syd

VBA - automatické přidání položky do formuláře (25.10.2016 17:33)

eLCHa napsal/a:

frmEvidence.frNeco.ActiveControlkde frNeco


Nevim, zda to ma vyznam, ale ten Frame je pridany dynamically (kodem). To co pisete dava smysl a jiste jsem to zkousel, ale kupodivu to neslo a hodilo chybu.
Jedine timto zpusobem activecontrol.activecontrol se to podarilo obejit.

eLCHa napsal/a:


A ještě jedna poznámka - frame asi vůbec nebylo potřeba - i formulář má ScrollBars ;)


Tohle me napadlo taky, nez jsem se probadal k tomu active.active...
Jak rikam, nemam zkusenosti, jen jsem si zkousel a uzivatel mel dalsi pozadavky... nechtel jsem se tim moc zabyvat... A nekde jsem cetl ze se Frame pokud mozno z daleka vyhybat.

syd

VBA - automatické přidání položky do formuláře (24.10.2016 21:18)

Protoze jsme presunuli TextBoxes do Frame, tak je treba pozmenit (trochu krkolomne) proc OnlyNumbers:

Sub OnlyNumbers()
If TypeName(frmEvidence.ActiveControl.ActiveControl) = "TextBox" Then
With frmEvidence.ActiveControl.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Pouze cisla...", , "Pozor"
.Value = vbNullString
End If
End With
End If
End Sub

Vyzkousejte a dejte vedet.
Dik
syd

Podmíněné formátování do formuláře UserForm VBA (23.10.2016 21:37)

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

Podmíněné formátování do formuláře UserForm VBA (23.10.2016 17:42)

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

Podmíněné formátování do formuláře UserForm VBA (23.10.2016 1:06)

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

syd

VBA - automatické přidání položky do formuláře (22.10.2016 1:08)

Prikladam verzi 2 pro predstavu, jak udelat.
Musel jsem to trochu zmenit.
Nejdrive pridavam control Frame a do neho se pak skladaji Labels a TextBoxes.
Kdyz je polozek vic jak 15, 'zmrazi' se vyska Frame (i formulare), a zobrazi se scrollbar ve Frame.

syd

VBA - automatické přidání položky do formuláře (19.10.2016 19:14)

Zdravim,

taky jsem zkousel... s UserForm moc nedelam. Tak muzete vyzkouset muj pokus.
Samozrejme jsem taky musel trochu sesit upravit, a nemam ceske office.. tudiz bez diakritiky.

po vyprsani exp. doby prekopiruj data (16.10.2016 21:30)

Ahoj,
viz priloha.
syd

po vyprsani exp. doby prekopiruj data (15.10.2016 14:37)

.. a jak zjistim, jakou ma tovar expiracii??? V tabulce to nevidim... vloz do druheho listu radky, kt. by po makru meli byt zkopirovany... nebo poradne popis, co je treba provest.

dik
syd

priradenie (9.10.2016 20:24)

Tady jeste jedno nakopnuti...
Lepsi reseni nez prve makro (kt. bych radsi smazal, ale nejde to..):


Sub test1()
Dim ws As Worksheet, a, el, lr As Long, target As Range
Application.ScreenUpdating = 0
Set ws = ActiveSheet
a = ws.Range("F3:I3")
lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Set target = ws.Range("F4")
For Each el In a
With ws.Range("A3:B" & lr)
.AutoFilter field:=1, Criteria1:=el
.Resize(.Rows.Count - 1, 2).Offset(1, 0).Columns(2).Copy
target.PasteSpecial xlPasteValues
.AutoFilter
Set target = target.Offset(0, 1)
End With
Next el
Application.ScreenUpdating = 1
End Sub

Iba jedna aktívna bunka v rozsahu (9.10.2016 15:39)

Zkuste:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, s As String
Set rng = ThisWorkbook.Sheets(1).Range("A1:A20")
If Not Intersect(Target, rng) Is Nothing Then
If Target.Rows.Count = 1 Then
s = Target
Application.EnableEvents = 0
rng.ClearContents
Target = s
Application.EnableEvents = 1
End If
End If
End Sub


syd


Strana:  « předchozí  1 2 3 4 5 6   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje