Folha de cálculo Excel para digitalização de códigos de barras

Seleccione as colunas A e B

1. Carregue em CTRL e 1

2. Clicar em Protecção

3. Desmarque “Bloqueado”

Não sei que versão do Excel tem, tags para 2007 e 2010 estão no post, mas então:

Proteja a folha, permitindo a selecção de Apenas Células Desbloqueadas, deve estar sob o menu de formato no separador Home da fita.

Definir Excel para mover para a direita em Enter, está em Opções Excel, Avançado em Excel 2007 e acima.

Muitos destes leitores de códigos de barras podem ser programados (normalmente através da digitalização de códigos de barras especiais fornecidos num manual para esse fim) para terminar o código de barras com TAB em vez de CR (Enter).

Ainda é necessário bloquear as células que não devem ser introduzidas.

(Nota: estes são proprietários e específicos de uma determinada marca (e talvez modelo))

Eu sei que isto é antigo mas alguém pode ainda querer uma resposta:

Mais, e mais específico à pergunta feita; poderia acrescentar o código à folha Worksheet_Change macro:

• Clique com o botão direito do rato na folha e veja o código. & - Alterar o dropdown (Geral) para Folha de trabalho e (Declarações) para Folha de trabalho_Alterar.

Antes de dar o código para fazer o que deseja, note que se tiver um anterior ao Excel 2007, o seu utilizador terá apenas 256 colunas (A-IV) para trabalhar. Depois do Excel 2007, ele terá 16.384 colunas.

Primeiro, se tudo o que quisesse fazer era mover-se para a coluna seguinte, poderia simplesmente ir para Opções/Avançado e mudar para BAIXO para DIREITO para movimento do cursor no ENTER. Mas como ele deseja uma configuração personalizada, eu forneço este código.

Basta colá-lo no espaço branco sob a folha de trabalho e mudar os dropdowns.

Private Sub Worksheet_Change(ByVal Target As Range)
    tgr = Target.Row
    tgc = Target.Column
    If Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) <> "" Then
        Cells(1, tgc + 1).Select
    ElseIf Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) = "" Then
        Cells(2, tgc).Select
    End If
End Sub

Este código assume que o utilizador está a iniciar uma célula A1.

Aqui está como o fiz: Segui as colunas

Seleccionar colunas A e B

Hit CTRL and 1
Click on Protection
Untick "Locked"

Proteger a folha, permitindo a selecção de Apenas Células Desbloqueadas, deve estar sob o menu de formato no separador Home da fita.

I depois digitalizei o seguinte:

O leitor de código de barras deve poder ser programado para “Tab” até à célula seguinte após cada scan.

Descobre a marca e modelo do scanner e vai ao seu website e devem ter instruções sobre como o fazer. Tipicamente envolve a digitalização de um único ou uma sequência de códigos de barras que programam esta função no scanner.

Era isto que tinha de fazer para os diferentes scanners que estávamos a utilizar para o inventário físico na minha empresa.

no início B1 não é inferior a A1. A2 está abaixo de A1 e B1 é a célula do lado direito ao lado de A1. Mas hoje tive um problema semelhante e estamos a utilizar um Quickscan Datalogic L QD 2300. Queremos digitalizar e um salto automático para a célula da direita no Excel.

A solução para mim foi definir o sufixo global “tab”. O Excel reconhece 2 digitalizações (ou ainda mais digitalizações uma após a outra) como uma entrada e se pressionar enter Excel irá saltar uma linha para baixo e para o lado esquerdo, onde começou a digitalizar uma linha acima. Isto significa: A1 scan (sufixo=Tab) -> B1 scan (sufixo=Tab) -> C1 Enter (premindo manualmente no teclado) -> A2

Para definir o sufixo=Tab, deve digitalizar diferentes códigos de barras: 1. Opções de Digitalização 2. Sufixo de Dados 3. Definir sufixo 4. 7009 (Ascii-Valor para “Tab”) 5. Introduza

Esperemos que isto ajude alguém.