Я добил ее все таки!!!!!! Меня переполняет радость!!! Спасибо всем!!! Кто направлял меня к результату    
 
Dim Z As Single  
Z = Val(Sheets("Лист1").TextBox3)  
PauseTime = Z

Удивительная вещь...  
Когда задаю  PauseTime = 0.3 непосредственно в коде, то все работает  
Как только через Cells или TextBox - округляет ...

По-моему нашел!!!!!!!!!! УРА!!!!!!!  
Sub Макрос1()  
'  
'Dim PauseTime As Single  
   Dim Start As Single  
   Dim Finish As Single  
   Dim TotalTime As Single  
     
   PauseTime = 0.2  
   Start = Timer  
 
   Do While Timer < Start + PauseTime  
       DoEvents  
   Loop  
 
   Finish = Timer  
   TotalTime = Finish - Start  
Cells(1, 1).Value = 1  
 
Но от другого варианта не откажусь....

Вот рабочий кусочек моего макроса:  
(Подает и снимает на определенное время("Pausa")напрежения еа ножки LPT порта  
If Cells(m, n).Value = 1 Then  
 DlPortWritePortUchar &H378, 64  
 End If  
 If Cells(m, n).Value = 2 Then  
 DlPortWritePortUchar &H378, 128  
 End If  
   Pausa = Val(Sheets("Лист1").TextBox3)  
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa)  
 DlPortWritePortUchar &H378, 0    
 Pausa1 = Val(Sheets("Лист1").TextBox4)  
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa)  
 
Пока "Pausa" не могу сделать меньше 1 секунды  
Варианты    
Per = ThisWorkbook.Worksheets("Лист1").Range("I5").Value  
Application.Wait Time:=Now + Per  
Не подходит - округляет до секунды!  
 
А вариант  
ExecuteExcel4Macro ("ON.TIME(NOW()+0.000005787, """ & ThisWorkbook.Name & "!ZVI_Timer"")")  
Работает постоянно! - не остановишь...  
 
Может еще как нибудь можно?

Помогите ни как не могу разобраться...

вроде как это оснавное -  
"делается ввод меньше секунды просто: копируем ячейку числом 100, выбираем ячейку с форматом времени и значением 1 секунда - спец вставка - значения - разделить, получаем сотую секунды, используем значение ячейки в ВБА"  
 
но, как привязать это к    
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa1)

А что такое "ontime"?  
И как задатьформат    
ч:мм:сс.000

Здравствуйте!  
Использую в своем коде фуекцию:  
Pausa1 = Val(Sheets("Лист1").TextBox4)  
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa1)  
 
Но если я задаю "Pausa1" меньше чем 1 секунда (0,5    0,7    0,8  ), то задержка производиться  в 1 секунду  
Как задать десятые части секунды?

{quote}{login=EducatedFool}{date=04.02.2010 08:30}{thema=}{post}Очень просто:  
 
Private Sub CommandButton1_Click()  
   Stop  
End Sub{/post}{/quote}  
 
А продолжить выполнение макроса  потом смогу?

Подскажите  
Как присвоить кодом "комбинацию клавиш CTRL + BREAK" кнопке CommandButton?

{quote}{login=Юрий М}{date=02.02.2010 09:31}{thema=}{post}

Посмотрите по этой ссылке: http://msoffice.nm.ru/faq/macros/miscellaneous.htm#faq71 «Как прервать/приостановить выполнение макроса»

{/post}{/quote}  
 
С запуском разобрался!  
Вроде и с прерыванием разобрался -"комбинацию клавиш CTRL + BREAK"  
А вот как присвоить кодом "комбинацию клавиш CTRL + BREAK" кнопке CommandButton?

Здравствуйте!  
Подскажите:  
Имеется определенный макрос  - Макрос(),  
На "Листе 1" созданна кнопка CommandButton.1  
и кнопка CommandButton.2  
 
Как привязать одну на запуск моего макроса, а другую на паузу(приостановку)?

{quote}{login=The_Prist}{date=02.02.2010 10:35}{thema=}{post}И то верно. Ложанулся. Когда вчера это писал, хотел сначала сразу подставить значения  
Dim i(1 To P, 1 To G) As Integer  
но потом подумал, что через ReDim будет лучше и начал писать так. А удалить из первой строки всю эту фигню забыл....  
Спасибо за поправку.{/post}{/quote}  
 
 
СПАСИБО! ВСЕ ЗАРАБОТАЛО!

{quote}{login=Юрий М}{date=01.02.2010 10:32}{thema=}{post}Причём здесь электронная наличность? Вам Prist про Правила говорит. В подзаголовок гляньте - ОДИН ВОПРОС - ОДНА ТЕМА.{/post}{/quote}  
 
Простите! Исправился!

Имею массив:  
Dim i(1 To 10, 1 To 8) As Integer  
 
Как мне написать код,что б у меня не константы были - 10 и 8, а переменные (вводимые из TextBox2, TextBox3 )как правильно определить переменные?  
Допустим переменная "P" и "G"  
Спасибо!

К сожалению не имею электронной наличности...  
 
Ну нет, так нет...  
А за "pause" Все равно ОГРОМЕННОЕ СПАСИБО!!!!

Юрий! Можно еще вопросик?  
 
Имею массив:  
Dim i(1 To 10, 1 To 8) As Integer  
 
Как мне написать код,что б  у меня не константы были - 10 и 8, а переменные (вводимые из TextBox2, TextBox3 )как правильно определить переменные?  
Допустим переменная "P" и "G"  
Спасибо!

{quote}{login=artclon}{date=01.02.2010 10:06}{thema=Re: Re: }{post}{quote}{login=artclon}{date=01.02.2010 10:03}{thema=Re: }{post}{quote}{login=Юрий М}{date=01.02.2010 09:54}{thema=}{post}Блин! Так Вы на листе хотите?{/post}{/quote}  
 
Да. именно на листе!{/post}{/quote}  
 
Ругается на :  
Pausa = Val(Sheets("Лист1").TextBox1){/post}{/quote}  
ПОЛУЧИЛОСЬ!!!! СПАСИБО!!!

{quote}{login=artclon}{date=01.02.2010 10:03}{thema=Re: }{post}{quote}{login=Юрий М}{date=01.02.2010 09:54}{thema=}{post}Блин! Так Вы на листе хотите?{/post}{/quote}  
 
Да. именно на листе!{/post}{/quote}  
 
Ругается на :  
Pausa = Val(Sheets("Лист1").TextBox1)

{quote}{login=Юрий М}{date=01.02.2010 09:54}{thema=}{post}Блин! Так Вы на листе хотите?{/post}{/quote}  
 
Да. именно на листе!

{quote}{login=Юрий М}{date=01.02.2010 09:18}{thema=}{post}Как скопировать из Формы на лист  я не знаю. А то, что нет такого пункта в меню Вид - Панели инструментов - странно. Попробуйте через настройку добавить нужные панели/кнопки.{/post}{/quote}  
 
 
С Элементами управления разобрался! Нашел!  
А вот на  
Pausa = Val(Me.TextBox1)  
Unload Me  
 
Ругается на "Me"

{quote}{login=Юрий М}{date=01.02.2010 08:52}{thema=}{post}Вот такой макрос:  
Private Sub CommandButton1_Click()  
Dim Pausa As Integer  
Pausa = Val(Me.TextBox1)  
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa)  
Unload Me  
End Sub  
выгрузит по кнопке UserForm через количество секунд, указанных в TextBox1{/post}{/quote}  
 
Все ясно спасибо!  
Еще вопрос! В версии моего офиса нет кнопки панели управления, режим конструктора и .т.д. Как с userform переместить созданные элементы управления в "Лист!" (лист где мой макрос)  
Спасибо!

Здравствуйте! использую в своем макросе код:  
Application.Wait (Now + TimeValue("0:00:01"))  
Хочу секунды (01) задавать с TextBox,  
как объявить переменную?  
Спаибо!

Здраствуйте! Скажите есть ли инструмент (программа) для перевода растрового изображения в электронную таблицу Excel (1 - пиксель - 1 ячейка, цвет пикселя соответствует цвету ячейки)?