Příspěvky uživatele
< návrat zpět
No vzhledem k již uvedenému otázka:
C63 = C61
C64 = D61 ?
BLD64 = BLD61
to je správně, nebo překlep?
Vzhledem k jednotlivým buňkám se kde nachází argument "CO"("What")?
Tak jsem jásal brzo. Palo to je vlastně to samé jako nahoře Cykl_2. Všechny načtené stránky zůstávají v paměti. Reaguji tak pozdě, protože jsem chtěl zkusit MSXML2. Ale to se mi nepodařilo rozchodit.
Tak jsem udělal kompromis.Private Sub Cykl_3()
For rdR = 1 To 300
ieAdrs = "tralala" & rdR
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
IE.navigate ieAdrs
'počkat na načtení
'nějaký kod
If rdR Mod 5 = 0 Then
'Vynulovani pameti
IE.Quit: DoEvents: Set IE = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
End If
Next rdR
KONEC:
If Not IE Is Nothing Then IE.Quit
Set IE = Nothing
End Sub
I tak díky.
Trochu jsem se na to mrk a šlo by to.
Ve Vzorce - Správce názvů - definovat odkazy na sešity. A pak už jen Index(Zvolit()). Jde to i bez těch pojmenování, ale vzorec je pak nepřehledný.
Palo díky!!! To je ono. Taky jsem hledal, ale na tohle jsem nenarazil. Ten můj kód je samozřejmě ořezaný, jen znázornění tématu. Časovač používám.cnCas = Now + TimeValue("00:01:00")
Do While (Not .ReadyState = 4 And .Busy)
If Now < cnCas Then
DoEvents
Else
Err = 462: GoTo KONEC
End If
Loop
Dík!
Ahoj lidi! Jsou uvedené dva cykly. První je jasný. Ale šel by napsat i druhý? Pokud by to nebylo moc složité.Sub Cykl_1()
For rdR = 1 To 300
Set IE = CreateObject("InternetExplorer.Application")
ieAdrs = "tralala" & rdR
IE.navigate ieAdrs
'nějaky kod
IE.Quit
Next rdR
Set IE = Nothing
End Sub
Sub Cykl_2()
Set IE = CreateObject("InternetExplorer.Application")
For rdR = 1 To 300
ieAdrs = "tralala" & rdR
IE.navigate ieAdrs
'--------------------
'nějaký příkaz - který by zavřel předchozí stránku, ale ne aplikaci
'--------------------
'nějaký kod
Next rdR
IE.Quit
Set IE = Nothing
End Sub
CHA! Už jsem na to přišel. "innerHTML" to je ta kouzelná Formule.
Ahoj! Lidi, jak získat data z HTML kódu?
Odkaz:http://www.autoskola-testy.cz/prohlizeni_otazek.php?otazka=13-zastavit_znamena
obsahuje řádky:309 <ul>
310 <li>1) <span id='otazka_spravna' class='otazka_spravna'>Uvést vozidlo do klidu na dobu nezbytně nutnou ...</span>
311 <li>2) Povinnost řidiče nezahájit jízdní úkon ...
312 <li>3) Přerušit jízdu z důvodu nezávislého na vůli ...
313 </ul>
Jak z toho získám:
1) - otazka_spravna - Uvést vozidlo do klidu na dobu nezbytně nutnou ...
2) - Povinnost řidiče nezahájit jízdní úkon ...
3) - Přerušit jízdu z důvodu nezávislého na vůli ...
Jsem už u:
Dim itext As Object 'MSHTML.IHTMLElement
For Each itext In IE.document.getElementsByTagName("ul")
Debug.Print itext.textContent
Next itext
ale tohle (textContent) nefachčí. Jak na to? Poradí někdo?
1)No vzhledem k tomu, že si uvažoval o Vl.Formátu, chceš aby se změna projevila v té buňce, ve které daný text zapíšeš. Ne?. V tom případě jedině Udalostní prc.Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyStrA As String, MyStrB As String, MyNum As String
Dim MyChr As String, pzcChr As Byte, Rok As Byte
If Target = "" Then Exit Sub
If Not IsDate(Range("A13")) Then Exit Sub
Application.EnableEvents = False
MyStrA = Target: MyStrB = vbNullString: MyNum = vbNullString
Rok = Year(Range("A13")) Mod 1000
For pzcChr = 1 To Len(MyStrA)
MyChr = Mid(MyStrA, pzcChr, 1)
If Not IsNumeric(MyChr) Or pzcChr = Len(MyStrA) Then
If IsNumeric(MyNum) And pzcChr = Len(MyStrA) Then
MyStrB = MyStrB & MyNum & MyChr & "/" & Rok
MyNum = vbNullString
ElseIf IsNumeric(MyNum) Then
MyStrB = MyStrB & MyNum & "/" & Rok & " "
MyNum = vbNullString
Else
MyStrB = MyStrB & MyChr
End If
Else
MyNum = MyNum + MyChr
End If
Next pzcChr
Target = MyStrB
Application.EnableEvents = True
End Sub
1) No pokud víš jak to udělat ve Vlastním Formátu(netuším jak), tak použij záznamník. Jinak vzorcem, pokud v B1 má zápis stejný formát(pozice písmen, číslic). Nebo VBA Funkcí.
2) Označit oblast - Formát buněk - zruš zamknout a zamkni List.
Jasně že TRUE (překlep).
Pro starší verze by to mohlo vypadat nějak takto:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Sheets("List2").Visible = xlSheetHidden
ThisWorkbook.Save
Sheets("List2").Visible = xlSheetVisible
Application.EnableEvents = False
End Sub
Bez záruky:With ActiveWorkbook.Sheets("Souhrn MPZ")
Range(.Cells(1, 1), .Cells(150, 43)).Sort _
Key1:=.Columns(1), Order1:=xlAscending, _
Header:=xlYes, _
MatchCase:=False, _
Orientation:=xlSortColumns, _
DataOption1:=xlSortNormal
End With
Otázka. Proč to znovu zobrazení Listů neřešíš v After_Save, jak si uvedl. K reOpen ani OnTime není přece žádný důvod. Jestli se nepletu tak na disku je WBook se skrytými Listy. Pokud se ukládá, tak se skrytými Listy. Po úspěšném Save přece můžeš ty Listy znovu zobrazit.
Nebo mi něco uniká?
@eLCHa
Value dá hodnotu buňky jak je vložená (bez formátování) - takže jako číslo.
Value2 dá hodnotu buňky jak je vložená (bez formátování) - takže jako číslo.
Nebo ne ?
Díky Al. Mohl jsem to udělat hned tím nejjednodušším způsobem, ušetřil bych čas. Ale byl jsem zvědavý který způsob je nejrychlejší. Jinak WorksheetFunction.Match je na tom s rychlostí stejně jako Application.Match.
Uživatelské menu
\nMenu
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.
RSS nejnovější články