Но не хватает у меня ума доработать его под себя, прошу помощи.
Задача стоит следующая: необходимо просматривать, редактировать одну ячейку с большим объемом текста внутри. Текст в эту ячейку будет постоянно дописываться, хотелось бы, чтобы по умолчанию была видна нижняя часть текста, т.е. последняя запись, для удобного и оперативного добавления новой информации. Выше по ссылке была похожая тема, там было предложено решение - ЮзерФорма. Возможно ли добавить в нее функцию редактирования и сохранения? В предложенном варианте она выполняла функцию только просмотра. Хотелось бы также кликнуть двойным щелчком, открылась эта форма и в ней помимо ползунка была возможность внести изменение в текст, т.е. дописать новый.
Во вложении пример.
Поясню по нему: необходимо на листе "Главный" двойным кликом писать информацию в заметки через юзерформу. Столбец № используется для краткого обозначения организаций и номера должны совпадать с номерами ячеек на листе "заметки".
Но не хватает у меня ума доработать его под себя, прошу помощи.
Задача стоит следующая: необходимо просматривать, редактировать одну ячейку с большим объемом текста внутри. Текст в эту ячейку будет постоянно дописываться, хотелось бы, чтобы по умолчанию была видна нижняя часть текста, т.е. последняя запись, для удобного и оперативного добавления новой информации. Выше по ссылке была похожая тема, там было предложено решение - ЮзерФорма. Возможно ли добавить в нее функцию редактирования и сохранения? В предложенном варианте она выполняла функцию только просмотра. Хотелось бы также кликнуть двойным щелчком, открылась эта форма и в ней помимо ползунка была возможность внести изменение в текст, т.е. дописать новый.
Во вложении пример.
Поясню по нему: необходимо на листе "Главный" двойным кликом писать информацию в заметки через юзерформу. Столбец № используется для краткого обозначения организаций и номера должны совпадать с номерами ячеек на листе "заметки".
Достаточно, в файл с той темы добавить код в модуль формы: [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Selection.Cells(1, 1) = Me.TextBox1: Me.Hide End Sub
[/vba] Изменения будут внесены в ячейку, после нажатия на кнопку Enter
Достаточно, в файл с той темы добавить код в модуль формы: [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Selection.Cells(1, 1) = Me.TextBox1: Me.Hide End Sub
[/vba] Изменения будут внесены в ячейку, после нажатия на кнопку EnterSLAVICK