Início / coding / Perguntas / 79341798
Accepted
Ramadan Moussa
Asked: 2025-01-09 16:02:48 +0800 CST

Como definir a linha após Lastrow no VBA

  • 772

Eu simplesmente preciso alterar a fonte de uma linha após a última linha da tabela + 2 linhas para células de ("A: M"), mas não sei como escrever isso no código VBA... Eu escrevi a última seção no código abaixo, mas infelizmente estou errado

alguma sugestão por favor

Sub Addnewrow()

Dim lo As ListObject
    Dim newRow As ListRow
    Dim cpyRng As Range
    
    Set lo = Range("Data").ListObject
    Set newRow = lo.ListRows.Add
    
With newRow
.Range(12).FillDown

 With Range(LastRow + 2)
 
        .Font.Size = 12
        .Font.Name = "Tahoma"
        .Font.Bold = True
    End With

End Sub
excel

3 respostas

  1. Best Answer

    Em vez de referenciar a tabela usando "qualquer objeto de lista que esteja cobrindo este intervalo" ( Set lo = Range("Data").ListObject), consulte a tabela pelo nome, que pode ser encontrado na guia Design de Tabela que aparece quando você seleciona uma célula dentro da tabela.

    insira a descrição da imagem aqui

    Não tenho certeza do que você está fazendo com o .Range(12).FillDown. Se uma tabela contiver uma fórmula, ela deve copiá-la automaticamente quando você adicionar uma nova linha.

    A parte da tabela onde os dados são armazenados é chamada de , DataBodyRangeentão você pode encontrar o final dela e então deslocar mais duas linhas para obter duas linhas abaixo da tabela.

    Public Sub AddNewRow()

    'Reference the table by name rather than location.
    'You can then move the table if needed without breaking the code.
    Dim lo As ListObject
    Set lo = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    
    'Add a new row to the table and add some data to the 12th column in the new row.
    With lo.ListRows.Add
        .Range(12).Value = "ABC"
    End With
    
    'Format 2 rows beneath the table.
    With lo.DataBodyRange
        With .Rows(.Rows.Count).Offset(2)
            .Font.Size = 12
            .Font.Name = "Tahoma"
            .Font.Bold = True
        End With
    End With

End Sub
    • 2

  2. Não tenho certeza do que você está tentando fazer, mas adiciona uma linha à tabela e formata as células de A a M abaixo da tabela.

    Dim lo As ListObject
Dim newRow As ListRow
Dim cpyRng As Range

'Add Dim lastRow
Dim lastRow As Long

Set lo = Range("Data").ListObject
Set newRow = lo.ListRows.Add

'lastRow = table's forst row + rowcount
lastRow = lo.Range.Row + lo.ListRows.Count

newRow.Range(lastRow).FillDown

With Range("A" & lastRow + 1 & ":M" & lastRow + 1)
    .Font.Size = 12
    .Font.Name = "Tahoma"
    .Font.Bold = True
End With

    Não use a cláusula With aninhada. Também há um End With faltando no seu código.

    • 2

  3. Você precisa especificar a referência de célula completa. LastRow indica apenas o número da linha, mas não a célula. Tente-

    With Range("A"&LastRow + 2)
   .Font.Size = 12
   .Font.Name = "Tahoma"
   .Font.Bold = True
End With

    Substitua a coluna Apela sua coluna real.

    • 0

relate perguntas