Итак, я получил довольно большой документ с определениями (10 000+ терминов и все время растет). Такой документ очень интересует мою некоммерческую организацию. Чтобы сделать его / сохранить его пригодность, я создал панель инструментов, которая дает первые 5 найденных значений термина, введенного в поле поиска. Я использовал функции для этого. Потому что это все, что я знаю.
Но функции не обрежут это. Когда термин найден, пользователь может найти что-то не так с определением и должен его скорректировать. В этом случае я хочу кнопку рядом с найденными результатами, которая приведет вас к листу и строке, содержащей определение. Затем он / она может изменить определение.
У меня есть этот код:
-
Dim r as Integer
r = Range("Q14").Value
Cells(r, 1).EntireRow.Select
Selection.Copy
Cells(1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
-
Q14 - это ячейка, содержащая функцию, которая производит соответствующую RowNumber. Но по какой-то причине мой мастер не может получить go правильный лист. Который не активный лист. Любая попытка изменить код с помощью чего-то вроде «Worksheets (« SheetB »). Activate» либо переходит на правильный лист, но не на правильный ряд, либо выдает ужасные ошибки, которых я не понимаю, потому что я явно не понимаю VB вообще .
Может ли кто-нибудь завершить этот код, а также, возможно, изменить его для автоматического выделения (выбора) рассматриваемой строки? По какой-то причине вышеприведенный код выбирает верхнюю строку листа.
Есть еще один вопрос для того же документа, но я выделил его в отдельный пост.