Когда  Const MIN = 0 - всё работает, а когда Const MIN = 18 не работает...  
 
яПолучается, что минемальное знвчение 18, а 1 уже меньше при вводе и толку от этого, когда нужно ограничение с 16 до 30, например...  
Что-то не могу сообразить вот попоробуйте  
 
Private Sub TextBox1_Change()  
 Const MIN = 18      ' <== минимальное значение  
 Const MAX = 100     ' <== максимальное значение  
 Const DECSEP = "."  ' <== дес. разделитель: запятая или точка  
 Const DECPLACES = 2 ' <== количество дес. разрядов  
 Dim i As Double, j As Integer, ds As String, s As String  
 Static old As String  
 If DECSEP = "." Then ds = "," Else ds = "."  
 On Error Resume Next  
 s = TextBox1  
 If Len(s) = 0 Then old = "": Exit Sub  
 s = Replace(Replace(s, " ", ""), ds, DECSEP)  
 TextBox1 = s  
 i = CDbl(Replace(s, DECSEP, Mid$(CStr(1.2), 2, 1)))  
 j = InStr(s, DECSEP)  
 If j > 0 Then j = Len(s) - j  
 If Err <> 0 Or i < MIN Or i > MAX Or j > DECPLACES Then  
   TextBox1 = old  
 Else  
   old = TextBox1  
 End If  
End Sub

Этот код позволяет вводить только нужные значения:  
 
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
   If InStr("0123456789.", Chr(KeyAscii)) = 0 Then  
   KeyAscii = 0  
   End If  
End Sub  
:-) НО ЕСЛИ раскладка клавы EN (англияский язык), а когда ru (русская) выдает ошибку...  
см. файл..

Как вот это имя:  
Names.Add Name:="залп", RefersToR1C1:="=OFFSET(Коэфф!R126C1,0,0,COUNTA(Коэфф!R126C1:R65000C1),2)"  
Задать    
типа:  
Cells(Rows.Count, 2).End(xlUp).Row + 1)  
или через RefersToRange  
И как вот такое:  
Names("материал").Visible = False  
применить для всех имён.........  
С уважением....

Добрый день...  
В Ворд копирую макросом таблицу, преобразую в текст.  
 
Всё хорошо только необходимо отформатировать пару строк.  
Возникает вопрос....  
 
Как выделить одно предложение в Word, если оно находится на 3 и 4 строке.  
 
Данный кусок кода переходит на начало строки 3.    
 
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=3 ' Which:=wdGoToFirst, Count:=3  
Но строку не выделяет  
А также как выделенное предложение отформатировать по центру или справа, типа так:  
 
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter  
Selection.Font.Bold = False  
Selection.Font.Size = 14  
Что-то запутался....  
С уважением..

C помощью чего можно сделать код VBA в dll.

Посмотрите, пожалуйста  файл (пояснения  в нём) , что можно сделать...    
С уважением...

Есть макрос    
Sub copy2()  
   ' Поставить галку - Tools\References\Microsoft  Word  X.X Object Library  
   Dim wdApp As New Word.Application  
   Dim wdDoc As Word.Document  
       wdApp.Visible = True  
       Set wdDoc = wdApp.Documents.Add  
       Application.Range("A1:A110").copy  
       Call wdDoc.Range.PasteAndFormat(wdFormatPlainText)  
       wdApp.Activate  
End Sub  
В ячейках A1:A110 может быть 30 значений может 110 может 50  
1) Как модифицировать Application.Range("A1:A110").copy, что вставлял в ворд только значения , т.е не 110, а сколько есть по факту. без выделения в ручную.  
2)Call wdDoc.Range.PasteAndFormat(wdFormatPlainText)- как сделать чтобы в ворд текст копироволся с сохранением форматов без таблиц. т.е. сплошным текстом но как в эксель.  
3) самое трудное  
как вставить весь диапозон в опред место документа вворд,  
т.е. открываю необходимый документ ворд, ставлю курсор в нужное место кликаю и форматрованный текст  втавляется из excel/  
C уважением