VBA Makro - procházení řádků a sloupců tabulky a vrácení hodnoty buňky

 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

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

animace

 

Sullivan

 

Belgorod

 

Dosah UA artillery

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 5.5.jpg - Charkov je stále odstřelován

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.

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