Как щелкнуть ячейку в A5:A10 на "Листе 2" и сделать так, чтобы значение ячейки, на которое щелкали, было введено в ячейку C3 на "Листе 1"

Question

У меня есть рабочая тетрадь с двумя листами, помеченная как Sheet 1 и Sheet 2 .

На Sheet 2 меня есть диапазон A5:A10 . Я хотел бы иметь возможность щелкнуть ячейку в этом диапазоне и ввести ее содержимое в ячейку на Sheet 1 .

Таким образом, диапазон A5:A10

1001  

1002 

1003

1004

1005

1006

Я хотел бы щелкнуть по ячейке A6 (на Sheet 2), и значение A6, равное 1002, будет помещено в Sheet 1 C3 . Так что у C3 сейчас 1002.

До сих пор мне приходилось вводить значение на Sheet 1 вручную, но хотелось бы не только гиперссылку в документе, но и изменение значения C3.

Answer 1

Введите следующий макрос событий в область кода листа Sheet2:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim A As Range
    Set A = Range("A5:A10")

    If Intersect(Target, A) Is Nothing Then Exit Sub

    Cancel = True
    Application.EnableEvents = False
        Target.Copy Sheets("Sheet1").Range("C3")
    Application.EnableEvents = True
End Sub

Обратите внимание, что код использует Sheet1, а не Sheet 1. (измените это, если вы используете Sheet 1)

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

1. щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
2. выберите View Code - откроется окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. вызвать окна VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о макросах событий (код листа), см .:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть включены, чтобы это работало!

EDIT # 1:

Чтобы разрешить макросу размещать данные на защищенном листе:

1. Снять защиту с листа
2. Разблокировать определенные клетки, такие как C3
3. Повторно защитить лист

Это позволит макросу (и пользователю) вводить данные на листе и при этом защищать формулы и т.д.

EDIT # 2:

Чтобы избежать копирования в формате, используйте вместо этого:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim A As Range
    Set A = Range("A5:A10")

    If Intersect(Target, A) Is Nothing Then Exit Sub

    Cancel = True
    Application.EnableEvents = False
        Target.Copy
        Sheets("Sheet1").Range("C3").PasteSpecial Paste:=xlPasteValues
    Application.EnableEvents = True
End Sub

Чтобы «запустить» подпрограмму после ошибки, поместите этот макрос в стандартный модуль и запустите его:

Sub qwerty()
    Application.EnableEvents = True
End Sub