Předmět Autor Datum
Nastaviť rôzny formát jednotlivým častiam výsledku vzorca sa v Exceli nedá - nijako. Požadované sprá…
los 20.11.2011 19:27
los
Díky za radu, bohužel s makrem zas tak dobře neumím.
mart-in 21.11.2011 22:51
mart-in
Makro, ktoré stačí vložiť do druhého listu (List2), by mohlo vyzerať napríklad takto: Private Sub W… poslední
los 21.11.2011 23:39
los

Makro, ktoré stačí vložiť do druhého listu (List2), by mohlo vyzerať napríklad takto:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Dim aRow As Range
    Dim aCell As Range
    Dim aResult As Range
    Dim aPart1 As String
    Dim aPart2 As String
    Dim aPart3 As String
    Dim aPart4 As String
    
    Set aRange = Intersect(Target, Range("A:F"))
    If Not aRange Is Nothing Then
        For Each aRow In aRange.Rows
            If aRow.Row <> 1 Then
                Set aCell = Cells(aRow.Row, 1)
                aPart1 = aCell
                aPart2 = Format(aCell.Offset(0, 1), "dd.mm.yyyy") & aCell.Offset(0, 2) & aCell.Offset(0, 3)
                aPart3 = aCell.Offset(0, 4)
                aPart4 = Format(aCell.Offset(0, 5), "dd.mm.yyyy")
                Set aResult = ActiveWorkbook.Worksheets("List1").Cells(aRow.Row, 2)
                aResult.Value = aPart1 & aPart2 & aPart3 & aPart4
                aResult.Characters(Len(aPart1) + 1, Len(aPart2)).Font.Bold = True
                aResult.Characters(Len(aPart1) + Len(aPart2) + Len(aPart3) + 1, Len(aPart4)).Font.Bold = True
            End If
        Next
    End If
End Sub

Zpět do poradny Odpovědět na původní otázku Nahoru