Dim wsS As Worksheet, table As Range, c As Integer, l As Integer
Set wsS = Sheets("t")
Set table = wsS.Range("A1", Range("D11"))
For l = 1 To table.Rows.Count
c = 0
For c = 1 To table.Rows(l).Columns.Count
MsgBox table.Rows(l).Columns.Cells(c).Value
Next
Next
středa 12. října 2022
VBA Makro - procházení řádků a sloupců tabulky a vrácení hodnoty buňky
VBA Makro - nastavení stylů grafu na více grafů (aby byly stejné)
Jedná se o starou verzi Excelu, takže se tam používá Fill.ForeColor místo novější Format.Line.ForeColor.
Sub M_snb()
Dim it As ChartObject, j As Integer
For Each it In Sheet4.ChartObjects
For j = 1 To it.Chart.SeriesCollection.Count
it.Chart.SeriesCollection(j).Fill.ForeColor.ObjectThemeColor = j
it.Chart.SeriesCollection(j).MarkerStyle = j \ 5
it.Chart.SeriesCollection(j).MarkerSize = 3
it.Chart.SeriesCollection(j).MarkerForegroundColor = j \ 5
Next
Next
End Sub
VBA Makro - extrakce stylů grafu
Tento skript pro MS Visual Basic v Excelu umožňuje vyextrahovat styly do listu "t". Nejprve se provede kontrola, zda byla vybrána oblast grafu. Pokud oblast grafu nebyla vybrána, tak se makro ukončí.
Sub vyextrahuj_styly_grafu()
Dim it As ChartObject, j As Integer, i As Integer, r As Integer, wsT As Worksheet
Set wsT = Sheets("t")
If TypeName(Selection) <> "ChartArea" Then
MsgBox "Please select ChartArea, not" + TypeName(Selection)
Exit Sub
End If
For j = 1 To ActiveChart.SeriesCollection.Count
r = r + 1
With ActiveChart.SeriesCollection(j)
wsT.Cells(r, 1) = .Fill.ForeColor
wsT.Cells(r, 2) = .MarkerStyle
wsT.Cells(r, 3) = .MarkerSize
wsT.Cells(r, 4) = .MarkerForegroundColor
End With
Next
End Sub
pátek 22. července 2022
sobota 25. června 2022
pondělí 2. května 2022
pondělí 18. dubna 2022
Charkov během fáze osvobozování Ukrajina - sever
Charkov během fáze osvobozování Ukrajina - sever
Charkov 29.3. mapka pro orientaci.jpg
Charkov 29.3..jpg
Charkov 29.3. detail.jpg
Charkov 30.3.jpg
Charkov 30.3. detail 1.jpg - ofenzíva na východě
Charkov 30.3. detail 2.jpg - ofenzíva směr severozápad
Charkov 1.4 zoom.jpg - přiblížení
Charkov 1.4 detail.jpg
Charkov 4.4.jpg - širší oblast
Charkov 4.4 zoom.jpg - přiblížení
Charkov 4.4. Kupjansk_staging ground with railway.jpg
Charkov 4.4. Kupjansk.jpg - Logistický uzel v Kupjansku je klíčový pro zásobování východní fronty. Jedou přes něj vlaky a náklaďáky atd. z Ruska z oblastí Belgorod, Brjaansk a Voronež.
Charkov 9.4 zapadni breh byl v teto dobe kontrolovany ruskou armadou osvobozeno asi 16 04.jpg
V této době byla severní část Ukrajiny kromě Charkova osvobozena. Snímek níže není k datu 9.4.
neděle 17. dubna 2022
Sumy - osvobození
OBLAST SUMY
Sumy 29.3.jpg
Sumy 29.3. sever zoom.jpg
Sumy 29.3. detail.jpg
Sumy 30.3.jpg
Sumy 4.4.jpg
Černihov - osvobození
OBLAST ČERNIHOV (SEVER UKRAJINY)
Chernihiv 28.3. detail.jpg
Chernihiv 29.3. no single assault on city 24h.jpg
Chernihiv 29.3. detaily
Chernihiv 29.3. Mena detail.jpg - Mena je západně od Černihova
Chernihiv 30.3.jpg
Chernihiv 30.3. Sloboda.jpg - osvobozená Sloboda - malá obec jižně od Černihova
Chernihiv 1.4.jpg - zoomed on Chernihiv - přiblíženo na Černihov
Chernihiv 1.4 - better detail.jpg
Chernihiv 1.4 - zoomed
Chernihiv 1.4 - Sloboda liberated.jpg - osvobozená vesnice Sloboda
Chernihiv 2.4 - další vývoj situace v této oblasti je zobrazen pod tagem UA Sever (což je obecnější zařazení pro širší oblast)
Severozápadní část Kyjeva - stahování ruských vojsk z Ukrajiny 2020
Kyjev NE 29.3.jpg
OBLAST SEVEROZÁPADNĚ OD KYJEVA
Kyjev NE 29.3. detail.jpg
Logistický hub u Ivankova (jižně pod vodní plochou) - byl soustavně napadán UA
Kyjev NE 30.3.jpg
Kyjev NE 30.3. 2.jpg
Kyjev NE 30.3. Irpin.jpg - Irpiň
BORODJANKA
Kyjev NE 30.3. Borodojanka.jpg
Kyjev NE 30.3. Borodojanka 2.jpg
Kyjev NE 30.3. Borodojanka 3.jpg
Kyjev-Brovary 30.3.jpg
Kyjev NE 1.4.jpg
Kyjev NE 1.4. Bucha Irpin heavy fightings.jpg
Kyjev NE 4.4.jpg .. Kyjev až jižní část oblasti Černihov
KYJEV - SEVER
Kyjev Sever 1.4 - Hostomel airport osvobozen.jpg
Kyjev Sever 1.4 - zasobovani a logisticky HUB.jpg
Kyjev-Chernihov 2.4.jpg
Přihlásit se k odběru:
Příspěvky (Atom)