Макрос для заполнения ячеек из столбца последовательно при нажатии на кнопку

Я испытываю много проблем, пытаясь понять это.

это мой макет:

screenshot of the layout

как вы можете видеть, у меня есть 2 кнопки.

что я хотел бы каждую кнопку, чтобы сделать это:

  1. каждый раз, когда я нажмите кнопку YES, Он будет вставлять Y в ячейке определенного диапазона.
  2. если нажать YES опять же, он будет автоматически вставлять Y в следующей ячейке под предыдущей в том же столбец.
  3. если нажать NO, Он также будет продолжаться вниз по колонке и вставить N.

как сделать вывод кнопок, чтобы всегда использовать следующую свободную ячейку?

1
задан Jawa
12.04.2023 3:48
Распечатать страницу

1 ответ

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

Dim rNext as Long
rNext = 2   'First used row in column F
Do Until LenB(Range("F" & rNext).Value) = 0
    rNext = rNext + 1
    If rNext = ActiveSheet.Rows.Count Then Exit Do
Loop

и вот решение, которое является более надежным и немного быстрее:

Dim rNext As Long
rNext = Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Row

как вы могли бы сказать из второго примера, вы могли бы сделать это непосредственно со следующим:

Range("F2:F" & Cells.Rows.Count).Find(vbNullString).Value = "Y"
3
отвечен Engineer Toast 2023-04-13 11:36

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх