"привязать" MsgBox к ячейке

Автор 0mega, 21.09.2016, 10:35

« назад - далее »

0mega

доброго времени суток
Sub test()
MsgBox "   Вывод текстовой информации"
End Sub

как заставить машину выводить информацию там где хочу я
попытка  сделать "искусственный " переход в нужное место
Cells(4, 27) = 1
не привела к желаемому результату

vikttur

Вместо MsgBox - UserForm
Параметр StertUpPosition=3 (WindowsDefault)
Sub UserFormToTheCell()
Dim rRng As Range
    Set rRng = Cells(10, 10)
   
    With ufMsg
        .Left = rRng.Left
        .Top = rRng.Top
        .Show
    End With

    Set rRng = Nothing
End Sub



0mega

vikttur, спасибо
а нельзя ли, для "особо одаренных" , построчно расписать что есть что

vikttur

.Left - положение (отступ) слева, .Top -  положение (отступ) сверху.
rRng  - ячейка, относительно которой задаем положение формы.

Создать  файл-пример,  в нем создать форму пользователя, вставить код в общий модуль... На пальцах объяснять - пальцев мало.

0mega

#4
 спасибо
Цитата: vikttur от 21.09.2016, 11:31вставить код в общий модуль...
тупое вставить мне не надо
Я хочу знать

vikttur

Цитироватьтупое вставить мне не надо
А мне тупое объяснение в теме без файла-примера тоже не нравится. Вы не хотите пальцами пошевелить, а подавай решение.
Объяснил в двух словах - мало? От Вас пример и что непонятно. Иначе - вода в ступе

0mega

Вы же объяснили, то что написали ...
этого уже достаточно
и я поблагодарил
Будут новые вопросы - будет новая тема

0mega

Цитата: vikttur от 21.09.2016, 10:57
Вместо MsgBox - UserForm
а сам текст куда прописывать ?

vikttur


0mega