Хоть бы написал, что не знаешь, что такое макросы и как с ними работать...

Function DoubleOff(sIn As String) As String  
   Dim arr  
   arr = Split(sIn, Chr$(10))  
 
   On Error Resume Next  
   Dim i As Integer, sIt As String, colTemp As New Collection  
   For i = LBound(arr) To UBound(arr)  
       sIt = CStr(arr(i))  
       If Len(sIt) > 0 Then  
           colTemp.Add sIt, sIt  
       End If  
   Next i  
   On Error GoTo 0  
 
   Dim v, sNewValue As String  
   For Each v In colTemp  
       If Len(sNewValue) = 0 Then  
           sNewValue = v  
       Else  
           sNewValue = sNewValue & Chr$(10) & v  
       End If  
   Next v  
 
   DoubleOff = sNewValue  
End Function  
 
 
вставь в свою книгу и используй как формулу, напр.,  
=ЕСЛИ(A1="";"";DoubleOff(A1))

можно сделать лейбл узкой полоской + заливку + границу

Sub test()  
   Dim arr  
   arr = Split(Range("A1").Value, Chr$(10))  
 
   On Error Resume Next  
   Dim i As Integer, sIt As String, colTemp As New Collection  
   For i = LBound(arr) To UBound(arr)  
       sIt = CStr(arr(i))  
       If Len(sIt) > 0 Then  
           colTemp.Add sIt, sIt  
       End If  
   Next i  
   On Error GoTo 0  
 
   Dim v, sNewValue As String  
   For Each v In colTemp  
       If Len(sNewValue) = 0 Then  
           sNewValue = v  
       Else  
           sNewValue = sNewValue & Chr$(10) & v  
       End If  
   Next v  
 
   Range("B1").Value = sNewValue  
End Sub

Option Explicit  
 
Sub StringToArray(ByVal sIn As String)  
   If Len(sIn) = 0 Then Exit Sub  
 
   Dim abytIn() As Byte  
   abytIn = sIn   'байтовый массив  
 
   Dim aStr() As String * 1  
   ReDim aStr(0 To Len(sIn) - 1)  
 
   Dim i As Integer, abytTemp(0 To 1) As Byte  
   For i = 0 To Len(sIn) - 1  
       abytTemp(0) = abytIn(2 * i)  
       abytTemp(1) = abytIn(2 * i + 1)  
       '------------------------------  
       aStr(i) = abytTemp  
   Next i  
   Stop    ' смотри в Locals "aStr"  
End Sub  
 
Sub test()  
   StringToArray "абвг_abcd_1234_!@#$%^&*()"  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
 
   Select Case Target.Column  
       Case 11, 13, 15, 16  
           Dim rngDate As Range  
           Set rngDate = Range("J" & Target.Row)  
 
           If IsEmpty(rngDate.Value) Then  
               Application.EnableEvents = False  
               rngDate.Select  
               Application.EnableEvents = True  
               MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
   End Select  
End Sub

не вникал в суть обсуждения, пробежал по постам, не увидел того, что я напишу ниже, "эмуляция":  
UserForm1.CommandButton1.Value = True  
 
- скрытое свойство кнопки

замени это:  
Target.Value = inpt  
 
на это  
application.enableevents=false  
Target.Value = inpt  
application.enableevents=true

CommandBars("Ply").Controls(1).Enabled=False  
 
вопрос:  
эта команда корректно отрабатывает в XL2010?  
 
у меня нет.  
 
в XL2007 гуд.

да кто шифруется?  
я просто стеснялся...  
:)))))))))))))))))))))))))))))))))))))))))))))  
 
ps  
я же говорю, это все падежи, склонение.  
это официальная версия и мы ее будем придерживаться :)

{quote}{login=Excel_master}{date=25.08.2012 01:44}{thema=}{post}Сообщение должно выводится в результате работы макроса.{/post}{/quote}  
 
если ячейка и ссылка одна, то зачем диалог, пусть макрос и активирует ячейку.  
если много, то рисуй юзерформ и уж там, я не знаю, постоянное кол-во ссылок или динамическое у тебя, рисуй лейблы или программно закидывай...

>>> выскакивает тоже, но после чего появляются msgbox'ы  
 
имена в книгах - это носитель для других объектов, конечный пользователь про них ничего не знает и окна, тем более с вопросами, появляться не должны, это провал.

именуешь ячейку (интересующую)  
 
(Ctrl+G) | F5 - "перейти к", "ок"

>>>попробовал - работает  
а уменя диалог выскакивает про конфликт имен  
 
>>>Аналитик/Саша, а зачем эти фокусы с никами? Мне приходится бежать и сравнивать - тот ли человек сообщает о решении вопроса, который создавал тему? Лишняя трата времени...  
Юрий, начинал тему я на работе, а залогиниться там не смог (почта, на которую я здесь зарегистрирован залочена на работе), а потом залогинился уже дома. Я писал про это.

{quote}{login=KukLP}{date=25.08.2012 01:12}{thema=}{post}На всякий, еще вариант. Все это ваяние Богдана(LightZ). Я там только потоптался:-){/post}{/quote}  
 
Богдан, Серега, благодарю за помощь.

{quote}{login=LightZ}{date=25.08.2012 01:11}{thema=}{post}Понял идею? Дальше сам доделаешь?{/post}{/quote}  
 
да идею-то я понял давно, дело не в этом, встроенные обработчики вряд ли здесь подходят (см. эту тему выше), напр., попробуй скопировать группу листов - вилы.  
 
здесь нужно ПОЛНОСТЬЮ контролируемое копирование листов, сам XL это делает не так, как мне нужно...

{quote}{login=KukLP}{date=25.08.2012 12:43}{thema=}{post}Саня, привет. А ну попробуй вставить, потом скопировать лист. Портянка выскочит?{/post}{/quote}  
 
да, да.

{quote}{login=KukLP}{date=25.08.2012 12:11}{thema=}{post}Богдан, я тебе отправил решение. Загляни в почту.  
Серег, ты думаешь это наш Саня?  
Саня, признавайтесь!{/post}{/quote}  
признаюсь

{quote}{login=Serge 007}{date=25.08.2012 12:08}{thema=Re: }{post}{quote}{login=аналитик}{date=24.08.2012 10:29}{thema=}{post}  
аналитик ≡ <|Саша|>{/post}{/quote}  
Саня, раньше ты был "Аналитика" :-){/post}{/quote}  
 
Серег, [аналитик] здесь появился раньше чем "там" [аналитика]
ты знаком с падежами в русском языке?  
 
может быть когда-нибудь на каких форумах появится "загадочные" [аналитику] [аналитике] :)))))))))))))))))))))))

спасибо, посмотрю обязательно.  
 
ps  
на "ты"?

"оно" на экране не появляется - невидимая суть, загрузка в память происходит, а активация нет

нюанс:  
если есть имя уровня листа (см. влож), то на этом листе не может быть именованных диапазонов уровня книги.  
 
спасибо.

{quote}{login=Юрий М}{date=24.08.2012 06:26}{thema=}{post}Так почему должна срабатывать инициализация?{/post}{/quote}  
 
процедура:  
Sub s1()  
   Unload UserForm1  
End Sub  
 
по-факту есть:  
Sub s1()  
   Dim o As Object: Set o = UserForm1  
   Unload o  
End Sub  
 
Чтобы что-то выгрузить, нужно чтобы это что-то было, а поэтому сначала это загружается.

Private frmMain As UserForm1  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Not frmMain Is Nothing Then  
       Unload frmMain  
   End If  
 
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("B2:D10")) Is Nothing Then  
       Set frmMain = New UserForm1  
       frmMain.Show 0  
   Else  
   End If  
End Sub

мое сообщение не смотрите, там даже offset'а нет :)))

set sel = selection  
for each rng in sel  
  if rngAdd is nothing then  
     set rngAdd=rng  
  else  
     set rngAdd = union(rng, rngAdd)  
  end if  
next rng  
 
union(sel, rngAdd).select

формат (запятую не удалось)  
########,"="############  
 
если формулы используются:  
=ПОДСТАВИТЬ(A1;",";"=")

смотри рис.  
короче, подбирается прямая (два параметра) так, чтобы сумма квадратов отклонений от реальных значений было минимально  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>  
 
<EM>http://www.planetaexcel.ru/forum.php?thread_id=8735</EM>

найди любой учебник по мат.статистике или эконометрике и прочитай тему (для начала) парная регрессия и МНК.

LightZ, спасибо за ответ    
аналитик a <|Саша|>  
 
Удалили мои "кривые" сообщения  
 
есть мысли по-поводу поддержания глобальной переменной (см. выше)?