[решено] Помогите решить задачу на VBA

[ejjjikejjjik]

Создать приложение в VBA, позволяющее изменять курсор на время вычислений.

[Iska]

Вставьте в модуль рабочей книги Excel:
Option Explicit

Sub SomeSub()
Dim i As Long

Application.Cursor = xlWait

For i = 1 To 1000
ThisWorkbook.Sheets.Item(1).Cells(i, 1) = i
Next i

Application.Cursor = xlDefault
End Sub

или документа Word:
Option Explicit

Sub SomeSub()
Dim i As Long

System.Cursor = wdCursorWait

For i = 1 To 1000
With ThisDocument.Paragraphs.Add
.Range.InsertBefore CStr(i)
End With
Next i

System.Cursor = wdCursorNormal
End Sub

[ejjjikejjjik]

Спасибо Вам большое!!! :)