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

Příspěvky uživatele

tak uz som to nasiel trebalo dat do funkcie

Application.Volatile

a potom to funguje automaticky

no zu to vidim

zatial som nezistil preco sa neprepocitavaju automaticky maticove vzorce ale daju sa prepocitat s CTRL + ALT + F9

ked zistim viac dam vediet

no maticova funkcia funguje na ten range ktory tam zu bol nastaveny.

takze keby to bolo nastavene na cely stlpec tabulky malo by to automaticky prepocitavat.

pri zapise maticovej funkcii treba mat zaznacene pole a ulozit ho CTRL + SHIFT + ENTER .... nato pozor

no podla toho vzorcu to zu sta davno mali vyriesenie .... len stacilo dat viac funkcii alebo urobit jednu maticovu funkciu

vprilohe posielam navrh na maticovu funkciu .... vyskusajte a dajte vediet ci som sa trafil .... robil som to narychlo

Ahojte,

sry za neskoru odpoved ale tiez som toto riesil :)

a Dostal som sa do dvoch zadrhelov:
1. ako spravit Data Connection na isty subor excelu?
2. ked uz sa podari spravit providera ako spojit tieto dve query co som vytvoril?

mozno ze sa to da aj inak napisat ale zaujimal by ma prave toto SQL riesenie

prikladam svoje nedokoncene makro (nechcel by som to riesit s makrom/Power query ale data connection) + subor:

Sub sbADOExample()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String

DBPath = ThisWorkbook.FullName
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect

sSQLSting = "SELECT " & _
" [FacilityID]," & _
"MIN([DateFrom]), " & _
"MAX([DateFrom])" & _
"FROM [data$] AS A1 GROUP BY [FacilityID]"

'sSQLSting = "SELECT [a1].[FacilityID], [a1].[DateFrom], [a1].[Status]" & _
' "FROM [data$] AS [a1]" & _
' "INNER JOIN (SELECT [FacilityID], MAX(DateFrom) AS [DateFrom2] FROM [data$] GROUP BY [FacilityID]) AS [a2] ON [a1].[FacilityID] = [a2].[FacilityID] AND [a1].[DateFrom] = [a2].[DateFrom2] "

mrs.Open sSQLSting, Conn
ActiveSheet.Range("F2").CopyFromRecordset mrs
mrs.Close
Conn.Close
End Sub

skuste nanovo cely Windows raz u nas nieco podobne mala kolegyna ze jej obrazky ukazovalo nacierno. A jedine co nasi technici vymysleli nanovo nainstalovat PC

excel ma zielanie suboru ale ako tu to bolo povedane ze kto prvy dojde tan vyhrava:

viac funcii sa docitate rovno z Support office
https://support.office.com/sk-sk/article/O-funkcii-Zdie%c4%bean%c3%bd-zo%c5%a1it-49b833c0-873b-48d8-8bf2-c1c59a628534?ui=sk-SK&rs=sk-SK&ad=SK

ja by som navrhol pre taketo uceli pouzivat MS Access. Ten ma Formulare na doplnovanie do tabuliek a tak isto krasne sa daju aj vytvorit grid tabulky. Podla toho ako si to nastavite.

Ale je mozne to spravit aj v exceli aj ked nato nieje urceny.

dalo by sa spravit Background proces ktory by v cykle kontroloval sietovi subor a to tak ze:
1. zmenu ktory spravi v vlasnom Dokumente automaticky zapise na sietovi subor.
2. zmena ktora sa lisi od sietoveho suboru od offline suboru by zapisal spatne.

Ja viem je to trosku nahlavu ale dalo by sa to takto urobit.

no toto nebude tak jednoduche spravit.

podla mna by to slo spravit s dvoma makrami.

Makro1:
1. Stiahne subor z webu
2. rozbali zip
3. Otvori subor

Makro2: (po editacii suboru)
1. zazipuje subor
2. posle na web

ale toto nerobime kazdy den tj. by sa to muselo otestovat. Tak isto vobec nieje jasne co pre vas znamena stiahnutie z webu.

cim mozem prispiet tak to je praca s zipom ale mam to predpripravene v visual studiu tak netusim ci tu kniznicu bude mat aj VBA.

Jeza.m: tak toto som este neskusal z VBA sa dostat do VS addins sturucture :). Ale verim tomu ze to ide.

.... podla mna je chyba v Tom ze ten Panel nemate definovany ako public. A preto ho nemozte z vonku moderovat. Ale to len hadam.

.... Ja zu by som radsej vsetko napisal v VS :) zbytocne to komlikovat. a co mozem doporucit prestante pouzivat userform a presedlajte na WPF :) dava Vela novych moznosti.

neviem presne aky doplnok pouzivate ale standartny a free je tento (Office Developer Tools):

https://www.visualstudio.com/de/vs/office-tools

pri publishovani potom funguje ako instalacka ktora sa potom sama updatuje z miesta odkial sa nainstaloval addins.

jedina komplikacia pri publishnutiu addinsu vznika ked si potrebujete vytvorit vlasny Key.

Dobry den,

netusim ci som to spravne pochopil ale chcete nieco take ze ked sa dve textove bunky rovnaju tak v tretej bunke ma zobrazit nejaky obrazok???

Myslim ze taku funkciu Excel nema ale da sa naprogramovat.

vola sa "Area" a treba donej zadat "co" s "cim" ma porovnavat a meno "shape" kde ma obrazok zobrazovat.

priklad:
=Area(B7;B8;"Rectangle 13")

no toto bude trosku komplikovanesie

kedze areu na tlacenie dostanete z PrintArea
ale tato area moze byt este rozdelena na dalsie casti a tie dostanete z VPageBreak a HPageBreak.

Sub test()
Dim aColumnBreak As VPageBreak
Dim aRowBreak As HPageBreak

With Sheets("Sheet1")
Debug.Print "PrintArea: " & .PageSetup.PrintArea
For Each aColumnBreak In .VPageBreaks
Debug.Print "Column PageBreak: " & aColumnBreak.Location.Column
Next
For Each aRowBreak In .HPageBreaks
Debug.Print "Row PageBreak: " & aRowBreak.Location.Row
Next
End With
End Sub

dufam ze vam tento kod nasmeruje k tomu co potrebujete

kedze nemam cesky Office tak len hadam:

=VYHLEDAT(2;1/(NE(JE.PRÁZDNÉ(G:G)));G:G)
alebo
=VYHLEDAT(2,1/(NE(JE.PRÁZDNÉ(G:G))),G:G)

skuste mozno pojde :)

skuste tento vzorec

=LOOKUP(2;1/(NOT(ISBLANK(G:G)));G:G)

toto hlada poslednu nepraznu bunku v stlpci G

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse