4D Doc Center : PV SET CELL NAME

4D View v14

PV SET CELL NAME


PV SET CELL NAME ( area ; coluna ; linha ; nome ; modo )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
coluna	Inteiro longo	Número de coluna da célula
linha	Inteiro longo	Número de linha da célula
nome	cadeia	Nome da célula
modo	Inteiro longo	0 se omitido = Adicionar o nome, 1 = Substituir o nome

Descrição

O comando PV SET CELL NAME define o nome de uma célula definida pelos parâmetros coluna e linha.

Pode acessar a uma célula, seja por sua referencia absoluta, número de linha e coluna, ou por seu nome. As fórmulas da área 4D View também podem referenciar esta célula utilizando seu nome.

Notas:

Os três primeiros caracteres de um nome de célula não devem ser números.
O nome da célula não deve conter espaços (os espaços que figuram no parâmetro nome serão truncados pelo comando).

O parâmetro opcional modo se utiliza para definir a forma como deve ser definido o novo nome da célula se a célula tem um ou mais nome(s). Pode utilizar as seguintes constantes do tema PV Propriedades célula:

Constante	Tipo	Valor
pv add name	Inteiro longo	0
pv replace name	Inteiro longo	1

Para apagar todos os nomes associados a célula, passe uma cadeia vazia ("") em nome e pv replace name em modo.

Exemplo

Este exemplo permite dar um nome a célula atual. Se já tem um nome, o usuário pode mudar ele:

 C_TEXT($CellName) `Nome a atribuir a célula

 C_LONGINT($Column) `Número da coluna da célula atual

 C_LONGINT($Row) `Número de linha da célula atual

 

 PV GET CURRENT CELL(Area;$Column;$Row) `Recuperação das coordenadas da célula atual

 $CellName:=PV Get cell name(Area;$Column;$Row) `Nome possivelmente dado

 

 If($CellName="") `A célula já tem um nome?

    $CellName:=Request("Que nome quer atribuir a esta célula?";"Novo nome")

    If($CellName#"") `Se introduziu um nome

       PV SET CELL NAME(Area;$Column;$Row;$CellName) `Atribuição do nome introduzido

    End if

 Else `A célula atual já tem um nome

    CONFIRM("Esta célula se chama "+$CellName+". Deseja renomear ela?";"Sim";"Não")

    If(OK=1) `O usuário deseja renomear a célula

       PV SET CELL NAME(Area;$Column;$Row;$CellName;pv replace name)

    End if

 End if