Я пытаюсь сканировать штрих-код и переместить Excel в правую ячейку

Мне нужно, чтобы курсор переместился в правую ячейку в Excel, когда я просматриваю штрихкод, но в настоящее время он опускается. Я не хочу менять его в параметрах Excel, потому что мне нужно, чтобы курсор ячейки опустился, когда я нажал кнопку ввода на других листах.

одно решение, которое я нашел, это блок кода, с которого я начал сначала.

Откройте текстовое поле ActiveX от разработчика под вставкой и поместите его в лист, который вы хотите отсканировать. Выберите A1, затем щелкните текстовое поле. Удостоверьтесь, что режим режима разработки отключен в разработчике (посмотрите на ленту панели инструментов).

Строка с ** вокруг нее – это то, что вам нужно изменить. Это значение равно длине, но вы также можете играть с другими вещами, такими как Cases. Попробуйте сделать штрих-код с 12345 в качестве значения.

 Private Sub TextBox1_Change() **If Len(TextBox1.Value) = 5 Then** ActiveCell.Value = TextBox1.Value ActiveCell.Offset(1).Activate Application.EnableEvents = False TextBox1.Activate TextBox1.Value = "" End If End Sub 

Пример случая. Попробуйте сделать штрих-код с «Отходы R-1» в качестве значения.

 Private Sub TextBox1_Change() Dim ws As Worksheet, v, k, i, j Set ws = Worksheets("Sheet1") v = TextBox1.Value k = 0 i = 0 j = 0 Select Case v Case "Waste R - 1": i = 2 k = 1 j = "Waste R - 1" 'Start i at whatever column you want to start at 'k is the type of case and if statement you want to run (I have several, but for simplicity, I have only attached one) End Select If k = 1 Then ws.Cells(1, 1) = ws.Cells(1, 1).Value + 1 ' adds number into cell (A1) to reference which column to be in ' Starts in Column A then adds a value of one to reference column B i = ws.Cells(1, 1) 'Sets i = to the A1 value Cells(1, i).Value = j ' You may be able to set this to textbox1.value ' Says to put the Textbox Value into whatever column and row A TextBox1.Activate TextBox1.Value = "" End If End Sub 

Обязательно поместите значение 2 в ячейку A1 для запуска.

Вы могли бы превратить это в цикл, если хотите в конце концов. Я уверен, что есть более простые способы, но я сделал шаблон excel для вставки в ссылку на один модуль VBA. Это очень легко обновить. Сообщите мне, могу ли я помочь с любыми другими вопросами штрих-кода

Interesting Posts

вставлять данные из excel на сайт и копировать определенные данные в буфер обмена c #

Соответствие индексов Excel, значение поиска, если совпадает совпадение даты или номер недели этой даты?

Исключить работу из списка

pandas pd.ExcelWriter и xlrd для вывода фрейма данных python в качестве файла excel

Является ли ADO.NET + массивными INSERT + Excel + C # = «Плохое время»?

Чтение первых нескольких символов в больших текстовых файлах в VBA

Манипуляция текста в SQL

Предотвратить переписывание всплывающих окон при записи в excel с помощью powershell

Ошибка при создании новой книги с vba, копирование 2 из многих листов

Макрос для создания резервной копии при сохранении файла

В Excel VBA, как я могу создать функцию буфера обмена Windows?

Управление большими файлами excel с помощью C #

Ошибка синтаксиса Excel

Вставьте всю строку за пределы таблицы, используя «Table.ListRows.Add»

Файл Excel с использованием PHP для работы с номерами Mac и окнами Excel

Давайте будем гением компьютера.