"или он как лысина под шляпой у одного артиста?" (т/с "Одна за всех").

{quote}{login=Федор}{date=26.04.2011 04:54}{thema=форма для удобного отображения данных}{post}Поиск по форуму конкретного результата не принёс, нашлись лишь похожие темы, решения которых не очень подходят (например был вариант где выводились значения нужной строки, но только в столбцах справа от выделенной. а нужно чтобы можно было в любом месте щёлкнуть, а не по конкретному столбцу)..{/post}{/quote}  
Здравствуйте! Так проблема только с "щёлкнуть по любому столбцу"? Ещё можно ведь в первой строке разместить кнопку, по которой отображать форму. Форма Вам требуется ТОЛЬКО для просмотра всех записей сразу?

И почему же не подойдёт кнопка? Она всегда на виду - нажал на неё - и на форме отобразились данные всей строки. Да и управлять перемещением по строкам листа можно осуществлять при помощи формы. Вы объясните - почему вызывать форму нужно именно по клику на ячейку? А примеров подобного вызова формы на Форуме достаточно.

{quote}{login=Федор}{date=26.04.2011 01:50}{thema=}{post}кнопка не пойдёт. Форма нужна для отображения конкретно той записи, номер строки которой соответствовал бы номеру строки ячейки, на которую щёлкаешь.{/post}{/quote}  
См. пример. И по кнопке, и по клику...

В общем, хотелось бы иметь ту же встроенную форму (вернее её аналог), но:  
1. с более компактным размещением полей ввода;  
2. с собственными заголовками;  
3. с ограничением по количеству вводимых знаков;  
4. с контролем правильности ввода формата даты (кстати, если кто знает как, подскажите).  
И других прелестей настройки и контроля, которые позволяет делать пользовательская форма. Т.е. если уже делать, то хорошо и красиво :)

Контроль даты сделаю (показывал сегодня переделанную функцию).  
Остальное поглядим.  
Но не враз.  
Сейчас долго пытался понять, как и зачем был отключен переход по форме по Enter.  
Как - понял, зачем - нет???

Такая мелочь:  
 
Private Sub UserForm_Initialize()  
ScrollBar1.Max = Cells(Rows.Count, 1).End(xlUp).Row  
End Sub  
 
И при добавлении записей обновлять.

Юрий М  
Огромное спасибо, то что нужно! как всё просто оказалось..

{quote}{login=RAN}{date=26.04.2011 08:32}{thema=}{post}Контроль даты сделаю (показывал сегодня переделанную функцию).  
Остальное поглядим.  
Но не враз.  
Сейчас долго пытался понять, как и зачем был отключен переход по форме по Enter.  
Как - понял, зачем - нет???{/post}{/quote}  
 
Дело в том, что файл с макросом, который берёт данные с определённой строки (выделенной фамилии) и заполняет форму, был получен женой в отделе соц.страха, где она и сдаёт эти отчёты (в бланках строгого вида, с отметками для машинного пересчёта).  
Проблема заключалась в отвратительном способе ввода, с помощью какой-то программы (АнкетаПак), возможно написанной второпях на коленке, которую ей тоже там и выдали (что взять с бюджетной организации :(  ). Затем в её недрах нужно было находить определённый .dbf-файл, открывать в Excel, копировать данные и вставлять в этот файл на страницу "база", и при этом не ошибиться. Ещё почему-то даты получались с разными разделителями, а иногда и перевёрнутыми. И длина некоторых строк была больше чем в бланке, что и вызывало процедуру DeBug. Бухгалтеров это ставило в ступор.    
Вот я и решил помочь своей жене (и в дальнейшем многим другим, хочу готовый файл отдать в соц.страх). Для этого хочу создать форму ввода данных. Но в отличие от программы, чтобы она не допускала ввод неверных данных, имела ограничение на длину некоторых строк, имела краткую справку и другие мелочи. Практически всё это реализовано и/или знаю как реализовать. За исключением этих кнопок ("Изменить", "Предыдущий" и "Следующий") и скрола.  
 
То что перемещаться можно только по табу, я тоже заметил. Но подумал что это так заложено в программе. Подскажите пожалуйста, как подключить переход по Enter.  
 
Дело в том, что с разработкой макросов, и пользовательской формы в частности, я познакомился только четыре дня назад. За эти выходные и праздники перечитал несколько книг (Уокенбах Дж, Эйткен Питер., Гарбер Г.З, Миронов), и на их основании, а также мои собственные догадки, написал всё что связано с мною созданной UserForm и того что с ней связано. И я полон решимости довести своё дело до конца (чего не сделаешь ради любимой женщины :) ). Я надеюсь найти помощь и среди вас, много уважаемые гуру.  
 
Заранее благодарен всем за любую помощь.

{quote}{login=Hugo}{date=26.04.2011 10:42}{thema=}{post}Такая мелочь:  
 
Private Sub UserForm_Initialize()  
ScrollBar1.Max = Cells(Rows.Count, 1).End(xlUp).Row  
End Sub  
 
И при добавлении записей обновлять.  
 
Ну и тогда  
 
Private Sub ScrollBar1_Change()  
TIN.Value = Cells(ScrollBar1.Value + 2, 1).Value  
FULLN_U.Value = Cells(ScrollBar1.Value + 2, 2).Value  
End Sub  
 
и т.д.{/post}{/quote}  
 
Спасибо огромное.  
 
Можно считать что со ScrollBar проблема решена.  
 
Всё работает на УРА.  
   
Именно поэтому возникают следующие три вопроса:  
1. что значит:    
...И при добавлении записей обновлять...  
вернее, что прописать в свойства кнопки "Изменить" (или "Обновить", название не столь важно), чтобы она сохраняла данные в той же строке?  
Всё что я смог найти, это:  
Private Sub CHENGE_Click()  
' Активизация листа  
   Sheets("база").Activate  
' Активизация ячейки  
'    ActiveCell(Row = ScrollBar1, 1).Activate  
' Определение активной строки  
'    r = CStr(Selection.Row) - эта  
'    r = ActiveCell.Row      - или эта  
' Возврат (в ячейку) имени  
   Cells(r, 1) = TIN.Text  
   Cells(r, 2) = FULLN_U.Text  
   Cells(r, 3) = NAME_U.Text  
   и т.д. ...  
End Sub  
 
Но при этих функциях (если разрэмить любую из них) данные сохраняются в строке, которая была выделена до вызова формы ввода данных. Что я не так пишу?  
 
2. при использовании ScrollBar обновляются все перечисленные по вашему методу данные в TextBox. Но не изменяются данные в OptionButton и CheckBox, которые у меня работают с такими функциями:    
' Передача пола  
   If ob_POL_M Then Cells(NextRow, 6) = "Ч"  
   If ob_POL_W Then Cells(NextRow, 6) = "Ж"  
' Определить используемость паспорта  
   If cb_PASP = True Then Cells(NextRow, 31) = "X"  
   If cb_PASP = False Then Cells(NextRow, 31) = ""  
Ума не приложу, как можно их записать,чтобы и они принимали значение, уже обозначенное в строках.  
 
3. Можно ли функции для ScrollBar, как-то модифицировать для кнопок "Предыдущий" и "Следующий"?  
 
Заранее благодарен за ответ и помощь.

Я сразу всё сделать не могу - работа не даёт вникнуть в детали, поэтому так только посоветую алгоритм. как вижу.  
Про "при добавлении записей обновлять" - я думаю, что при добавлении записей нужно перерисовать скроллбар на новое количество строк (соответственно изменив ScrollBar1.Max), и сразу его подвинуть на последнее значение.  
И вероятно можно по его активному значению "двигать курсор" по таблице, т.е. обновлять значения текстбоксов.  
Так же при нажатии на кнопки "Предыдущий" и "Следующий" можно менять ScrollBar1.value, а в свою очередь при изменении этого значения обновлять текстбоксы по нему.  
Вот как-то так, нет времени проверять в коде.

Игорь, я делал несколько таких форм и везде делал активной строку с текущей записью (она всегда перед глазами). В этом случае вообще очень просто кнопке "сказать" - что делать: Offset или, row +/- 1 :-)

Юрий, я тебя понял, но тут вообще таблица не причём, я подразумевал текущие данные на форме.  
Кстати, они исправно обновляются при изменении скроллбара - т.е. кнопки (или вручную) меняют скроллбар, он в свою очередь обновляет данные.  
 
Я чуть перестарался - блокировку кнопок достаточно повесить на изменение скроллбара - на самих кнопках это можно убрать, достаточно изменения скроллбара.  
Так всё перевязано :)

Ещё чуть:  
 
Private Sub OKButton_Click()  
...  
...  
   TIN.SetFocus  
     
 ScrollBar1.Max = Cells(Rows.Count, 1).End(xlUp).Row - 2  
 ScrollBar1.Value = ScrollBar1.Max  
End Sub  
 
Private Sub UserForm_Initialize()  
ScrollBar1.Max = Cells(Rows.Count, 1).End(xlUp).Row - 2  
End Sub