[решено] Помогите решить задачу на VBA - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Помогите решить задачу на VBA (http://forum.oszone.net/showthread.php?t=241990)

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

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

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

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