Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.01.2008, 18:02   #1
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию Форма с данными из ячейки

Добрый день
Подскажите как сделать макрос:
Кликаю на ячейки столбца B , начиная с В9 появляется форма и в ней в текстбоксе стоит число , которое стоит в ячейке G9, потом кликаю,например в B36 , соответственно в форме стоит число, которое в G36
заранее благодарю
Romuald вне форума
Старый 16.01.2008, 23:04   #2
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Поместите этот код в модуль нужного листа (например, Лист1)

Код:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B9:B65536")) Is Nothing Then
        If Selection.Cells.Count > 1 Then Exit Sub
        Dim iValue As Variant
        iValue = Target.Offset(, 5)
        If IsEmpty(iValue) Then
            MsgBox "Ячейкаи G" & Target.Row & " пусто! ", vbExclamation, "Ошибка"
            Exit Sub
        End If
        MsgBox "Значение ячейки G" & Target.Row & " равно: " & iValue, vbInformation, "Значение"
    End If
End Sub
При двойном клике на ячейки в диапазоне B9-B65536 будет выскакивать соообщение со значением из столбца G
Pavel55 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
непонятки с данными KiSH333 БД в Delphi 5 01.09.2008 08:36
Файл с данными werser БД в Delphi 1 24.05.2008 23:40
Как разделить число и текст в одной ячейки на две ячейки. neboskreb Microsoft Office Excel 2 15.04.2008 19:39
сравнение с данными в таблице Apo БД в Delphi 5 31.03.2008 19:24
Операции над данными yulia БД в Delphi 24 21.05.2007 01:18