Příspěvky uživatele
< návrat zpět
aha takze toto ste mysleli
tak je tu este jedna modernejsia metoda a aj s dobrym navodom:
http://wall.cz/excel-navod/prizpusobeni-pasu-karet-ribbon-vlastni-pas-karet
Civi napsal/a:
//EDIT..
ještě jsem se v tom vrtal a ne pokaždé potřebuji těch tabulek 10. Někdy 2, někdy 5...
tam staci len zmenit:
For x = 1 To 10
napr. For x = 1 To 2
alebo
si tam kludne dorobte inputbox
myNum = Application.InputBox("Enter a number")
For x = 1 To myNum
Civi napsal/a:
Mohl by si to ještě upravit, aby text vždy zůstal na konci?
ten text ma byt spolu s kazdou novou tabulkou alebo ma zostat len pri prvej?
tak pastovanie s 3 sheets by slo takto:
shArray = Array("list1", "list2", "list3")
Sheets(shArray).Select
Cells(3, 3).Copy
Cells(1, 1).PasteSpecial
uz len zistit ako doplnat riadok/stlpec (naraz)
Civi napsal/a:
Jenže já dopředu nikdy nevím jak bude tabulka velká, nebo teď nevím jestli si rozumíme.
tu ide len o button rozpastovat 10x tabulku je minimalna vec ale dorobit ku kazdej nejaky button a este na presnej pozicie tak to je problem :)
nahrat podseba sformatovanu tabulku mozte napr. takto:
Sub Test()
Set aTable = Cells(7, 3).CurrentRegion
With aTable
aRow = .Rows(.Rows.Count).Row + 2
aEnd = .Rows.Count
aColumn = .Columns(1).Column
End With
For x = 1 To 10
aTable.Copy: Cells(aRow, aColumn).PasteSpecial
aRow = aRow + 1 + aEnd
Next
End Sub
ok tak to napisu preco je to problem
object "button" sa do formulara nepridava do cells da sa tam pridat len suradnicovo ... takze by sa muselo but suradnicovo zistovat kolko kazdy riadok ma "mm" a podla toho naformatovat button a zaroven ho pridelit
druha moznost je ze sa urobi:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'kod
End Sub
'alebo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub
a samotna cells by sa prerobila na sposob cuplika
preto hovorim ze je to dost komplikovane a neviem ci sa to fakt oplati tak zlozito robit
makro co urobi 10 identickych tabuliek pod seba a k nim vytvori dalsie cupliky?
nezda sa vam to moc komplikovane?
zas ide to oklamat takto:
shArray = Array("list1", "list2", "list3")
Sheets(shArray).Select
Cells(3, 3).Copy
Cells(1, 1).Select
ActiveSheet.Paste
ale ten moj zapis je otrasny :))
hlavne sa mi tam nepaci ze musim urobit navyse toto: Cells(1, 1).Select
toto som prave skusal ale nejde spravit nasledne toto:
sheets(shArray).cells(1,2) = sheets(shArray).cells(2,2)
Ahojte,
dnes som skusal pracovat naraz zo vsetkymi sheetmi ale bez selectovania to nejde
moj problem na kazdom sheete je nejaka tabulka a tu treba zformatovat takze sa mi jedna len o prikazy
- pridat riadok/stlpec
- premiesnit bunku
daju sa urobit tieto operacie tak aby som neselectoval oblast alebo pojednom? - resp. co najefektivnejsie
ked uz mate vytvorene ovladacie prvky tak staci to makro ulozit pod koncovkou .XLA alebo XLAM a potom ho len spustit v add-insoch
toto nieje az tak jednoduche napr. na tabs staci toto:
Application.CommandBars("workbook tabs").Visible = False
no pozrel som to a to dost velke a popravde nieje to robota na 5minut ale mozno aj na den tak len v skrateke vysvetlim:
napr.
Fname1 = ThisWorkbook.Path & "\" & NAZEV1 & ".jpg"
NAZEV1 = Cells(2, 2)
nd_1 = Cells(2, 5)
m_1 = Cells(2, 7)
h_1 = Cells(2, 6)
fr1.ControlTipText = "Pro vynulování hodnot, zde proveďte DOUBLE CLICK"
o_1.Picture = LoadPicture(Fname1)
mozte hodit do cyklusu
for x = 1 to 60
Me.Controls.Item("Fname" & x) = ThisWorkbook.Path & "\" & Cells(x+1, 2) & ".jpg"
redim preserve menu(2,x)
menu(0,x) = Cells(x+1, 5)
menu(1,x) = Cells(x+1, 7)
menu(2,x) = Cells(x+1, 6)
Me.Controls.Item("Fr" & x).ControlTipText = "Pro vynulování hodnot, zde proveďte DOUBLE CLICK"
Me.Controls.Item("o_" & x).Picture = LoadPicture(Fname1)
next
... samozrejme tento zapis neurychli kod ale je to hned prehladnejsie
... pouzil som tam pole 2dimensionalne pomenovane "menu" zamiesto 1dimensionalneho ale 3x pola nd, m, h
dalsia vec neprehladna:
Private Sub ob41_change()
On Error Resume Next
If ob41.Value = True Then
fr5.Caption = " MANIPULACE ANO"
Cells(6, 8) = 1
fr5.ForeColor = &HFF&
fr5.Font.Bold = True
Else
fr5.Caption = " POČET MANIPULACÍ"
fr5.ForeColor = &H80000012
fr5.Font.Bold = False
End If
Calculate
kila_TT = Cells(2, 18)
kila_na_proces = Cells(2, 19)
End Sub
ste mali odkazovat na dalsii sub a tam to len raz zapisat
Private Sub ob41_change(): object 41: End Sub
Private Sub ob42_change(): object 42: End Sub
Private Sub ob43_change(): object 43: End Sub
Private sub Object(byVal x as integer)
' tu pracovat podobne ako som hore uviedol
end sub
... ulahci to prehlad kodu a tak isto jeho buducu upravu
Urychlit nacitavanie:
- skomprimovat obrazky
- alebo ich vobec nepouzivat
- bez obrazkov ten proces trva ani nie 1s
... inac je to dobre napisane aj ked neprehladne :)
tak to poslite na pavolll@zoznam.sk pozrem sa nato
chyba tam sheet "data_procesy" tak sa to neda ani poriadne otestovat
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články