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

Příspěvky uživatele

doplnil som tam aby bralo 10 stran .... je to fixne nastavene na 10 stran

.... cele makro uz netrva 5s ale aj 10minut .... preco to tak je to fakt netusim :) .... kedze jedine co sa zmenilo ze zamiesto 10 tabuliek je tam asi 100 tabuliek

... ten druhy bod co ste pisali netusim presne co myslite kde to je???

tu som to este upravil podla vasich poziadaviek

no ja uz som si hovoril ze ked vyplni tamto tak preco nie rovno skocit na dalsie :))

no ja som to kedysi robieval tak ze som objektu shape menil obrazok

edit.

resp. ked uz tam je nacitany obrazok tak potom staci uz len takto:If aRange > 1 Then
ActiveSheet.Shapes.Range("Rectangle 2").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes.Range("Rectangle 2").Fill.Visible = msoFalse
End If

napr. takto:

slo by to aj makrom:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 8 Then Cells(3, Target.Column + 1).Select
If Target.Row = 3 Then Cells(8, Target.Column).Select
End Sub

s funkciou od Microsoftu netusim ale dala by sa spravit vlasna na toto :)

nemam tu pripojenu tlaciaren ale skuste sa pohrat s tym ako je to tu na priklade:

http://msdn.microsoft.com/en-us/library/office/aa223133(v=office.11).aspx

napr. takto by to slo:
Dim aSelect() As String

y = 0
For x = 1 To Sheets.Count
If Sheets(x).Name <> "Sheet1" And Sheets(x).Name <> "Sheet2" Then ReDim Preserve aSelect(y): aSelect(y) = Sheets(x).Name: y = y + 1
Next
Sheets(aSelect).Select

Miny: keby ste trochu matematicky vysvetlil + xls priloha s prikladom by tiez bodla.

len nasmerujem :)

ano da sa to urobit podobne ako je to v tomto priklade co som nasiel na nete:

wooow ja sa tu naucim aj nieco nove ShowDataForm :)

takze:
- Chybova sprava vam skoci preto lebo nemate nazov stlpca kde su kone, Ostatni ovce
- Takze nevedel rozoznat kde su nazvy stlpcov tak preto zobral ten riadok medzy data

ked pomenujete ten stlpec (bunka "D2"), tak uz sa ta chyba nebude zobrazovat

tych moznosti ako vytvorit zoznam je viac

da sa to klasicky vytvorit cez DataValidation alebo cez combobox

potom sa da este combobox naplnat cez VBA ale to vam myslim ze bude nanic

ktory sposob chcete vyzvetlit??

bodla by priloha

slo by to makro-maticovou-funkcoiu napriklad takto:

pvav: pri praci s addin-som a ked savnete dokument tak v tom dokumente nebudu savnute makra ktore patria addinsu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje