доброго времени суток
Sub test()
MsgBox " Вывод текстовой информации"
End Sub
как заставить машину выводить информацию там где хочу я
попытка сделать "искусственный " переход в нужное место
Cells(4, 27) = 1
не привела к желаемому результату
Вместо 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
vikttur, спасибо
а нельзя ли, для "особо одаренных" , построчно расписать что есть что
.Left - положение (отступ) слева, .Top - положение (отступ) сверху.
rRng - ячейка, относительно которой задаем положение формы.
Создать файл-пример, в нем создать форму пользователя, вставить код в общий модуль... На пальцах объяснять - пальцев мало.
спасибо
Цитата: vikttur от 21.09.2016, 11:31вставить код в общий модуль...
тупое вставить мне не надо
Я хочу знать
Цитироватьтупое вставить мне не надо
А мне тупое объяснение в теме без файла-примера тоже не нравится. Вы не хотите пальцами пошевелить, а подавай решение.
Объяснил в двух словах - мало? От Вас пример и что непонятно. Иначе - вода в ступе
Вы же объяснили, то что написали ...
этого уже достаточно
и я поблагодарил
Будут новые вопросы - будет новая тема
Цитата: vikttur от 21.09.2016, 10:57
Вместо MsgBox - UserForm
а сам текст куда прописывать ?
Label, TextBox...
благодарю