Пишу дисер, столкнулся с такой проблемой - по первой же ссылке нашел ваш форум. Спасибо ребята за Ваши труды! Очень помогли! Добро всегда возвращается! Спасибо!

Roman, предлагаю такой вариант. См. файл

Улучшил свой код

Попробуйте так  
 
Dim iName As String  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Target.Address = "$D$2" Then  
       If Not IsEmpty(Target) Then iName = Target  
       If IsEmpty(Target) Then  
           If MsgBox("Удалить имя '" & iName & "' из списка?", vbYesNo, "Вопрос") = vbYes Then  
               Dim Rng As Range  
               Set Rng = ActiveSheet.Columns(1).Find(iName, , xlFormulas, xlWhole)  
               Rng.ClearContents    'удалять всю строку Rng.EntireRow.Delete  
           End If  
           Exit Sub  
       End If  
       If WorksheetFunction.CountIf(Range("People"), Target) = 0 Then  
           If MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion) = vbYes Then  
               Range("People").Cells(Range("People").Rows.Count + 1, 1) = Target  
           End If  
       End If  
   End If  
End Sub  
 
Файл прилагаю

дома принтера нет, так что код проверить не могу, попробуйте так  
 
Worksheets("Sheet1").PageSetup.PrintArea = "A1:B50"

надо смотреть код

вот вам не спится ))

а вы думаете xlNone заливку не снимает?

Так что ли?  
 
Sub RemoveColor()  
   Dim objWh As Worksheet, Color1 As Long, Color2 As Long  
   With Worksheets("Лист1")  
       Color1 = [A5].Interior.Color
       Color2 = [B5].Interior.Color
   End With  
   For Each objWh In ThisWorkbook.Worksheets  
       objWh.Cells.Interior.Color = xlNone  
   Next  
   With Worksheets("Лист1")  
        [A5].Interior.Color = Color1
        [B5].Interior.Color = Color2
   End With  
End Sub

будем рады помочь )

это был как вариант )

Graffer, please, не надо цитирований. Мы и без цитирований поймём вас

Ну, а если Excel 2007/2010, то и так    
 
=СЧЁТЕСЛИМН(A4:A28;"Петров";B4:B28;"опоздал")

Ну, и Китайский выучим, если нужно будет )  
 
P.S. Раньше только Паша не подписывался, а сейчас каждый второй ))

Нет, мы не интересовались, мы решили, что проще выучить Английский язык. Говорят знание Английского и по жизни помогает (при приёме на работу, 90% всей информации в Интернете на английском языке, музыки много на английском языке и вообще в 21 веке не знать/учить Английский язык - это плохо. Нужно знать язык своего врага! Как вы пытать пленных будете?

Поиграйтесь с    
 
Sub test()  
   ActiveSheet.ScrollArea = "A1:F10"  
End Sub  
 
 
P.S. Снимать так     ActiveSheet.ScrollArea = ""

А почему Россия ждёт 4-5-6 месяцев официальных продаж iPhone в России, а не в один день с Американцами, Немцами, Французами, Канадцами? Почему у них у всех iPhone начинают продавать в один и тот же день продаж, а у нас через полгода?  
 
P.S. Такое у них отношение к России. Что-то вроде - Россия - страна третьего сорта и можно Справку по Excel на русский не переводить )

Mobsman,    
 
1) при копировании кода сперва перейдите на Русскую раскладку, скопируйте код, а потом вставляйте его на форум (т.е. не копируйте код, когда раскладка клавиатуры находится на Английском языке  
 
2) прекратите спорить со знающими людьми. Есть отдельные форуму по программированию в ОО. Знаете почему? Потому, что это разные программы, хотя с виду одинаковые )  
 
3) вам The_Prist дал ссылку на сайт, где можно скачать Справку по Excel на русском языке.

сделать, чтобы форма не менялась нельзя, но можно сделать так  
 
1) копируете свои данные (ширина столбцов меняется )  
2) тут на выделенном диапазоне ячеек нажимаете правой клавишей мыши, выбираете пункт Специальная вставка - Ширина столбцов (как-то в разных офисах по разному называется) и нажимаете ОК. Ширина столбцов из ячеек источника скопируется в новый диапазон и ширина будет одинаковой.

OpenOffice и Excel - это разные программы и встроенные языки программирования в них разные. Если вы научитесь программировать в OpenOffice, вы всё равно ничего    
не сможете написать на VBA  
 
P.S. Справка по Excel на русском языке есть в Office 97. На форуме много раз уже давали ссылки для её скачивания. Поищите поиском

Sub test()  
   Dim myArr(1 To 5014), i As Long, l As Long  
 
   i = 1  
   For l = 1 To 5014  
       myArr(l) = i  
       If l Mod 23 = 0 Then i = i + 1  
   Next l  
   [A1].Resize(UBound(myArr()), 1).Value = Application.Transpose(myArr())
End Sub

нужно в vba

а как вывести элементы с четными номерами в один столбец и с нечетными в другой.

Помогите пожалуйста, решить задачку.  
Нужно чтобы на форму вводились значения одномерного символьного массива,а на листы выводились элементы с четными номерами в один столбец и с нечетными в другой.  
Заранее благодареню