Как создать макрос для условной печати содержимого одной ячейки строка за строкой

Question

Выполнение тестирования антенн Wi-Fi на производственном объекте, где значения записываются в ряд для каждой детали;Мне нужно создать макрос Excel, чтобы напечатать содержимое ячейки для метки на основе условия истина / ложь.

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

Я создал одну ячейку, в которой, если ВСЕ записанные значения для каждого теста находятся в пределах допуска, вводится результирующий «PASS» или «FAIL».На самом деле я хочу напечатать аббревиатуру серийного номера, поэтому эта формула является основой того, что СЛЕДУЕТ печатать после записи значений каждой детали: = ЕСЛИ (K26 = "PASS", RIGHT (A26, 53), "FAIL")который выводит, например, C26-1-09-00194-12-0e.01.12.0c.0b-02.02.03.00.84.94.86.

для каждой строки, в зависимости от результата PASS или FAIL, мне нужна этикетка для печати серийного номера.В основном просто нужно знать, как запускать макрос для каждой строки и код для печати. ​​

Answer 1

Вы можете поместить свой код печати в событие изменения рабочего листа (Worksheet_Change):

Не забудьте установить область печати в ячейкуВы хотите напечатать.Помните, что параметр Target - это ячейка, которая была изменена.

См. Пример ниже.Вам нужно будет установить PrintArea на правильную ячейку.Здесь я использую измененный адрес ячейки, который, если я правильно понял, не является ячейкой, которую вы хотите напечатать.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.DisplayAlerts = False
    Application.EnableEvents = False

    Target.Value = Target.Address

    Me.PageSetup.PrintArea = Target.Address
    Me.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

   Application.EnableEvents = True
   Application.DisplayAlerts = True
End Sub