Como desenrolar uma linha no Excel, para ter uma melhor visualização para edição?

Aqui está como adicionar uma macro VBA que mostrará um formulário de dados para a linha atual.

• No Excel Mostrar a guia Desenvolvedor

• Salve a pasta de trabalho como um arquivo habilitado para macro .xlsm(não .xlsx)

• Vá para a guia Desenvolvedor

• Clique em Visual Basic

• Selecione a entrada do Menu de Inserir > Módulo

• No editor de texto que é aberto, copie o seguinte texto:

    Option Explicit
    Sub CurrRowForm()
    SendKeys "{DOWN " & ActiveCell.Row - 2 & "}{TAB 3}"
    Application.DisplayAlerts = False
    ActiveSheet.ShowDataForm
    Application.DisplayAlerts = True
    End Sub
  

• Salve pressionando Ctrl+ S e saia do editor VBA por Alt+Q

• Para testar a nova macro:

  • Selecione sua linha

  • Na guia Desenvolvedor, clique em Macros

  • Verifique se a CurrRowFormmacro está selecionada

  • Clique no botão Executar

  • O resultado deve ficar assim quando a segunda linha for a atual:

    

Você pode atribuir à macro uma tecla de atalho por:

• Entre Desenvolvedor > Macros
• Verifique se a macro CurrRowFormestá selecionada
• Clique em Opções
• Selecione sua tecla de atalho
• Clique OK

Você também pode CurrRowForm adicionar um botão de macro à faixa de opções .

Não li nenhum comentário mencionando o formulário de dados do Excel integrado na guia Dados, Data Entrygrupo. Alt A Y 2teclas no Windows.

As fórmulas são somente leitura, a proteção das células é mantida; no entanto, não é possível alterar as alturas ou larguras dos campos.

Os campos serão alargados automaticamente, mas apenas até certo ponto. Você pode configurar uma tecla de atalho para evitar a sequência de teclas da faixa de opções.

Outras respostas usaram o formulário de dados interno do Excel . Isso fornece um mecanismo poderoso para adicionar/editar/excluir linhas de dados em uma lista de dados sem a necessidade de VBA. Um formulário de dados tem os seguintes recursos

• O padrão é a primeira linha de dados quando ativado na faixa de opções/barra de ferramentas de acesso rápido, embora permita a navegação intuitiva para as linhas subsequentes
• Todos os campos (colunas) na lista de dados são editáveis ​​e uma caixa de texto de uma linha separada é fornecida para alterar cada campo

Em algumas circunstâncias, esses recursos podem ser menos do que ideais - por exemplo, quando os itens de dados compreendem cadeias de texto muito longas.

Como alternativa a um Data Form, a solução abaixo usa um UserForm . Um formulário de usuário oferece maior flexibilidade do que um formulário de dados, mas tem a desvantagem de que a codificação VBA e algumas habilidades de design são necessárias. O formulário de usuário mostrado é baseado nas seguintes suposições sobre os requisitos do OP

1. O principal requisito do formulário de usuário é visualizar e alterar o conteúdo nas colunas Note1 , Note2 , Note2 e Note4 da lista de dados
2. As colunas Name e UserId são usadas simplesmente para identificar a linha de dados. Os valores dentro dessas duas colunas estão corretos e não precisarão ser alterados
3. Não há requisito para o formulário de usuário fornecer a capacidade de adicionar ou excluir linhas da lista de dados
4. Deve haver flexibilidade para mover entre as linhas da lista de dados
5. O formulário de usuário deve ser capaz de ser ligado e desligado

O formulário de usuário é mostrado na captura de tela abaixo.

Comportamento do formulário de usuário

1. Quando a planilha está no "modo de formulário" (veja 4., abaixo), selecionar uma única célula dentro de qualquer uma das colunas intituladas Nota1 , Nota2 , Nota3 ou Nota4 exibe o conteúdo do item Nota correspondente , juntamente com os valores Nome e UserId desde o início da linha. A Nota envolvida ( Nota1 , Nota2 , Nota3 ou Nota4 ) é indicada pelo rótulo à esquerda da caixa de texto grande no formulário de usuário. O userform é modal, portanto, o usuário deve interagir com o formulário para progredir.
2. O texto na caixa de texto Nota grande pode ser alterado pelo usuário. O botão "Salvar alterações" grava o conteúdo atual da caixa de texto na célula Nota correspondente da planilha e "fecha" o formulário do usuário (remove-o da exibição). O botão "Cancelar" também "fecha" o formulário de usuário, embora sem atualizar a célula de Nota correspondente.
3. Nenhuma funcionalidade de navegação é fornecida no formulário do usuário. Em vez disso, o usuário "fecha" o formulário (usando qualquer um dos dois botões) e pode navegar usando a interface padrão do Excel para outras células. O formulário reaparece sempre que a(s) célula(s) selecionada(s) na planilha atendem à condição especificada em 1., acima.
4. A planilha permanece em "modo formulário" até que o formulário do usuário seja fechado com o botão "Fechar" (o padrão "X" no canto superior direito do formulário). A planilha pode ser colocada de volta no "modo de formulário" executando a macro FormMode.

Estrutura e Organização

1. Os dados, incluindo a linha de cabeçalho e as colunas Name e UserId , estão contidos em um intervalo nomeado chamadoMyData
2. O formulário de usuário é chamado EditForm. O formulário contém 5 etiquetas, 1 caixa de texto, 2 botões e o padrão "botão Fechar" na barra de título. EditFormtem uma propriedade booleana EditOnque determina se o "modo de formulário" está ativado ou desativado.
3. Existe um módulo VBA que declara algumas Publicvariáveis intDataRow​​e intDataColumnquais são a linha e a coluna que contém a célula MyDataque fornece o conteúdo da caixa de texto Nota exibida em EditForm. O módulo também contém a macro FormModeque simplesmente ativa o "modo de formulário" pela atribuição EditForm.EditOn = True.
4. A planilha que contém MyDatacontém um Worksheet_SelectionChangeprocedimento. Este procedimento testa
   • se o "modo de formulário" está ativado
   • se uma única célula foi selecionada na planilha
   • se esta célula está contida em uma coluna NotaMyData em (após a linha do cabeçalho) Se algum teste falhar, o procedimento não faz nada. Caso contrário, calcula os valores intDataRowe intDataColumnda célula selecionada e faz EditFormcom que seja exibido através de seu Showmétodo.
5. O módulo para EditForm contém os seguintes procedimentos:
   • Property Lete Property Getpara a EditOnpropriedade do userform
   • UserForm_Activateprocedimento do evento. O evento é acionado por EditForm.Show(em 4., acima) e preenche o formulário de usuário da planilha com base nos valores atuais de intDataRowe intDataColumn.
   • procedimentos de botão _Clickpara os botões "Salvar alterações" e "Cancelar". O primeiro atualiza Range("MyData").Cell(intDataRow,intDataColumn)com o conteúdo da caixa de texto do formulário de usuário. Ambos os procedimentos removem o userform do display ("fechá-lo") através do Hidemétodo do formulário.

Uma captura de tela do projeto VBA é mostrada abaixo.

A forma é básica, mas funcional. Obviamente, pode ser adaptado e melhorado para atender aos requisitos. Ele fornece um modelo diferente daquele fornecido pelo Formulário de Dados do Excel.

O código VBA utilizado está listado abaixo.

CÓDIGO PARA PLANILHA COM INTERVALO MyData

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not EditForm.EditOn Then
        Exit Sub
    End If
  
    If Target.Rows.Count > 1 Or _
        Target.Columns.Count > 1 Then
        Exit Sub
    End If
  
  
    If Target.Row < Range("MyData").Row + 1 Or _
        Target.Row > Range("MyData").Row + Range("MyData").Rows.Count - 1 Or _
        Target.Column < Range("MyData").Column + 2 Or _
        Target.Column > Range("MyData").Column + Range("MyData").Columns.Count - 1 Then
        Exit Sub
    End If

    intDataRow = 1 + Target.Row - Range("MyData").Row
    intDataColumn = 1 + Target.Column - Range("MyData").Column
       
    EditForm.Show
        
End Sub

CÓDIGO PARA FORMULÁRIO EditForm

Option Explicit

Private pEditMode As Boolean

Public Property Let EditOn(bValue As Boolean)
    pEditMode = bValue
End Property

Public Property Get EditOn() As Boolean    
    EditOn = pEditMode
End Property

Private Sub UserForm_Activate()
    Name_Field.Caption = Range("MyData").Cells(intDataRow, 1)
    UserID_Field.Caption = Range("MyData").Cells(intDataRow, 2)
    NoteLabel.Caption = "Note" & (intDataColumn - 2) & ":"
    Note_Field.Value = Range("MyData").Cells(intDataRow, intDataColumn)
End Sub

Private Sub CancelButton_Click()
    Me.Hide
End Sub
    
Private Sub SaveButton_Click()
    Range("MyData").Cells(intDataRow, intDataColumn) = Note_Field.Value
    Me.Hide
End Sub

CÓDIGO PARA MÓDULO

Option Explicit

Public intDataRow As Integer
Public intDataColumn As Integer

Sub FormMode()
    EditForm.EditOn = True
End Sub