Início / computer / Perguntas / 1817467
Accepted
Shakir
Asked: 2023-11-21 02:45:28 +0800 CST

Macro para manter 3 linhas visíveis sob a linha selecionada no LibreOffice Calc

  • 772

No Calc ou MS Excel, quando terminar de editar uma célula em uma linha, pressionar Enter leva à próxima linha abaixo. Continue fazendo isso e eventualmente você chegará à última linha visível na tela. Aqui, quando você pressiona Enter, isso levará à próxima linha, mas agora é a última linha. É difícil ver a última linha em telas como os óculos Nreal Air (já que a parte inferior está sempre desfocada). Minha solução foi manter a linha atualmente selecionada no meio. Isso significa que sempre que Enter for pressionado, uma macro verificará quantas linhas estão visíveis na linha recém-selecionada. Se for menor que 3, as linhas visíveis irão subir (mantendo assim a linha selecionada no meio). A seguiras respostas resolvem exatamente esse problema no MS Excel. Eu gostaria de fazer o mesmo no LibreOffice Calc. No entanto, até agora não tive sucesso em escrever uma macro que verifica as linhas visíveis sob a linha selecionada e adiciona uma nova linha toda vez que pressiono Enter (mantendo assim a próxima linha selecionada no meio da tela). Alguma ideia de como fazer isso no Calc?

python

1 respostas

  1. Best Answer

    Sua tarefa não é difícil de implementar - na verdade, você só precisa usar o método .setFirstVisibleRow() para alterar a área de exibição levando em consideração os valores da "linha atual" e da "última linha visível". Por exemplo, esta macro pode fazer isto:

    Sub onSelectionChanged(Optional oEvent As Variant)
Dim oCurrentController As Variant
Dim arrayOfString() As String, tmpString As String
Dim aVisibleRange As New com.sun.star.table.CellRangeAddress
Dim nSheet As Integer,  nStartRow As Long,  nEndRow As Long, nCurrentRow As Long
    oCurrentController = ThisComponent.getCurrentController()
    aVisibleRange = oCurrentController.getVisibleRange()
    nSheet = aVisibleRange.Sheet
    nStartRow = aVisibleRange.StartRow
    nEndRow = aVisibleRange.EndRow
    arrayOfString = Split(oCurrentController.getViewData(), ";")
    If UBound(arrayOfString) < (3 + nSheet) Then Exit Sub
    tmpString = arrayOfString(3 + nSheet)
    If InStr(tmpString,"+") > 0 Then
        arrayOfString() = Split(tmpString, "+")
    Else
        arrayOfString() = Split(tmpString, "/")
    EndIf
    nCurrentRow = CLng(arrayOfString(1))
    If nEndRow - nCurrentRow < 4 Then  oCurrentController.setFirstVisibleRow(nStartRow + nCurrentRow - nEndRow + 3)
End Sub

    A principal dificuldade está em escolher como executar esta macro. Por exemplo, você pode atribuir esse script como um manipulador para o evento "Seleção alterada".

    Definir ouvinte de eventos

    Mas, neste caso, a macro só funcionará para as planilhas às quais está atribuída. (A propósito, a solução Excel a que você se refere na sua pergunta funciona exatamente da mesma forma - apenas para a planilha especificada).

    Você pode pensar em algum tipo de macro geral que, ao abrir qualquer planilha, atribuirá esse ouvinte de evento a todas as planilhas e o atribuirá a todo o pacote de escritório .

    • 0

relate perguntas