макрос с задержкой

[sa920]

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

[Djeki]

Используйте

Application.OnTime

[VictorM]

как записать макрос с задержкой 100 милисекунд

Задержки бывают разные.
Как приостановить выполнение макроса на определённое время

Для того, чтобы приоставить выполнение макроса на определённое время, достаточно использовать метод Wait об'екта Application. Далее следуют пять примеров, которые могут остановить выполнение макроса на десять секунд.
Application.Wait Time:=DateAdd("s", 10, Now)
Application.Wait Time:=Now + #12:00:10 AM#
Application.Wait Time:=Now + 10 / 86400
Application.Wait Time:=Now + TimeSerial(0, 0, 10)
Application.Wait Time:=Now + TimeValue("0:00:10")

Как используя функции WinAPI приостановить выполнение программы на определённое время

Для того, чтобы приостановить выполнение программы на нужное время, можно воспользоваться нижеприведённым вариантом. Данную процедуру имеет смысл использовать в том случае, когда стандартные возможности, как-то метод Wait об'екта Application не подходят, например, если время должно составлять 250 милисекунд.
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub WinAPI_MacroWait()
MsgBox "Первое сообщение" 'используется только для демонстрации

Sleep 250&

MsgBox "Второе сообщение" 'аналогично
End Sub

[EducatedFool]

Всё делается проще.
http://excelvba.ru/code/UsefulCode

10. Использование Application.OnTime с задержкой меньше секунды

Sub ЗапускМакросаСНебольшойЗадержкой() ' по мотивам макроса ZVI_Timer
   ЗадержкаВСекундах = 0.3    ' в секундах
   НазваниеМакроса$ = "test"    ' этот макрос будет запущен через 0.3 сек.
   ЗадержкаВЧасах$ = Replace(Format(CDbl(TimeSerial(0, 0, 1)) * ЗадержкаВСекундах, "0.000000000"), ",", ".")
    macro = "ON.TIME(NOW()+" & ЗадержкаВЧасах$ & ", """ & НазваниеМакроса$ & """)" ' формируем команду запуска
   ExecuteExcel4Macro macro ' macro = ON.TIME(NOW()+0.000003472, "test")
End Sub

[Казанский]

Игорь, очень интересно Только это не "ЗадержкаВЧасах", а просто числовое представление времени. Я бы сделал так:

   Задержка$ = Str(#0:0:1# * ЗадержкаВСекундах)
   macro = "ON.TIME(NOW()+" & Задержка$ & ", """ & НазваниеМакроса$ & """)" ' формируем команду запуска

[sa920]

Спасибо за советы ,очень помогли советы))