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

Příspěvky uživatele

este som to trosku vylepsil aby sa nezobrazovalo explorer okno + zatvorenie po skonceni a to 2-3 sec. cakanie

Sub test()
Dim IE As InternetExplorer

Set IE = New InternetExplorer
'IE.Visible = True
IE.Navigate "http://www.fourmilab.ch/earthview/pacalc.html#patab"

While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

Set objCollection = IE.document.getElementsByTagName("input")
For Each aTag In objCollection
If aTag.Name = "year" Then aTag.Value = "2020"
Next

For Each aTag In objCollection
If aTag.DefaultValue = "Calculate" Then aTag.Click
Next

Set objCollection = IE.document.getElementsByTagName("textarea")
For Each aTag In objCollection
If aTag.Name = "results" Then aTEXT = aTag.Value
Next

IE.Quit
Debug.Print aTEXT
End Sub


pri tychto zmenach ale musite v referenciach nastavit Microsoft Internet Controls

tu som prepisal to makro :)))

Sub FindAndExecute()

Dim Sh As Worksheet 'definovanie sheetov
Dim Loc As Range 'nastavenie celeho sheetu ako oblast hladania

For Each Sh In ThisWorkbook.Worksheets 'cyklenie sheetov
With Sh.UsedRange 'pracuj s oblastou
Set Loc = .Cells.Find(What:="Question?") 'Setnutie hladanej veci treba prepisat QUestion na svoju poziadavku
If Not Loc Is Nothing Then 'rob dokym neprepise hladane slovo na danom sheete v cykle
Do Until Loc Is Nothing
Loc.Value = "Answered!" 'treba prepisat na co to chcete zmenit
Set Loc = .FindNext(Loc)
Loop
End If
End With
Set Loc = Nothing 'pre puntickarou nastavovanie na nothing ale kazdy dobre vie ze ked skonci sub tak sa to urobi automaticky .P
Next

End Sub

hadam pomozu popisky :)))

ano a este c.Address <> firstAddress je to uplne zbytocne kontrolovat ked vzdy ked sa da FindNexta a nenajde hodnotu tj sa nastavi na Nothing ... resp. nieje mozne aby sa to zacyklilo na jednej bunke

zmazte tam "and c.Address <> firstAddress"

a bude to fungovat

ja by som to riesil cez ADO :)

tak a vylustil som to .) uz mozte robit ludom zlobu na webovkach pomocou VBA

Sub test()
Dim IE As Object
Dim objCollection As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.fourmilab.ch/earthview/pacalc.html#patab"

Set objCollection = IE.document.getElementsByTagName("input")
For Each aTag In objCollection
If aTag.Name = "year" Then aTag.Value = "2020"
Next

For Each aTag In objCollection
If aTag.DefaultValue = "Calculate" Then aTag.Click
Next

Set objCollection = IE.document.getElementsByTagName("textarea")
For Each aTag In objCollection
If aTag.Name = "results" Then aTEXT = aTag.Value
Next

End Sub
premenna aTEXT ma tie informacie co potrebujete

- este jedna vec tam treba osetrit to makro necaka kym otvori tu stranku takze treba tam nastavit nejake 2-3s opozdenie aby to mohlo fungovat
- ale to uz hadam ze si upravite podla seba :)

ano :)

ActiveSheet.ListObjects("Table1").Resize Range("$A$1:$K$" & posledny_riadok)

jajj 2h som s tym stratil a pritom je to len 3 riadky kodu :)))
For Each pole In ActiveDocument.SelectContentControlsByTag("Cprot")
pole.Range = "14 - 001"
Next

tak problem je v tom ze tie items v druhom headers su v objeckte schovane

teraz hladam ako sa dotoho dostat :)

nato staci pouzit podmienene formatovanie a nie makro

no to netusim ako sa vam to podarilo ale ked date ikonu otvorit excel 2x .... tak budete mat 2 okna a v kazdom z nich si otvotrite ten dany subor co potrebujete

kludne aj word sem hodte .) alebo powerpoint

skuste toto: je to len na jednu vrstvu adresarov

na dalsie a dalsie vrstvy by to chcelo nejaku logiku a kedze ide hokej tak logika teraz ide stranov .)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje