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

[ejjjikejjjik]

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

[ejjjikejjjik]

Вставьте в модуль рабочей книги 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]

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