Выбор ячеек во время выполнения макроса

[VSelskov]

Подскажите, пожалуйста, как сделать так, чтобы в момент выполнения макроса можно было работать с файлами (Задача такова-нужно чтобы во время выполнения макроса пользователь открыл 2 файла и выбрал в каждом ячейку)

[ANDLL]

Код: Выделить всё

Do
    DoEvents
Loop


Во время выполнения этого кода Excel будет работать. А что надо?

[VSelskov]

Код: Выделить всё

Do
    DoEvents
Loop


Во время выполнения этого кода Excel будет работать. А что надо?

Надо чтобы юзер по приглашению открыл файл, выбрал ячейку в нем.
И так 2 раза.
А если использовать этот код, то Excel вылетает у меня

[ANDLL]

Если использовать мой код Excel не вылетает. Приведи свой код.

[ANDLL]

Вот код, который позволет выбрать ячейку:

Код: Выделить всё

Option Explicit
Public WithEvents WS As Excel.Worksheet
Dim m_GetCelRange As Range, m_IsGetCelRange As Byte
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Async1()
    Set WS = ActiveSheeto
    MsgBox GetCell.Formula
End Sub

Public Function GetCell() As Excel.Range
    m_IsGetCelRange = 1
    Do
        DoEvents
        Sleep 50
        If m_IsGetCelRange = 2 Then
            Set GetCell = m_GetCelRange
            Set m_GetCelRange = Nothing
            m_IsGetCelRange = 0
            Exit Function
        End If
    Loop
End Function

Private Sub WS_SelectionChange(ByVal Target As Range)
    If m_IsGetCelRange = 1 Then
        Set m_GetCelRange = Target
        m_IsGetCelRange = 2
    End If
End Sub


[VSelskov]

AnDll, спасибо. Вот часть моего кода.
Извини за тупизм, но как можно использовать твой код:
Option Explicit
Public WithEvents WS As Excel.Worksheet
Dim m_GetCelRange As Range, m_IsGetCelRange As Byte
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
что это? (я только учусь. у меня Excel ругается на строку Public WithEvents WS As Excel.Worksheet)

Sub Dlya_Smirnova()
'В диалоге открываю файл, хочу сохранить координаты ячейки после выбора ее пользователем. Если после
filetoopen = Application _
.GetOpenFilename("Исходные данные(*.xls), *.xls")
If filetoopen <> False Then
Workbooks.Open (CStr(filetoopen))
' Если это вставить, то Excel вылетает после попытки пр
одолжить исполнение макроса
'Do
' DoEvents
'Loop


NmFileIsh = ActiveWorkbook.Name
NStlbIsh = ActiveCell.Column
LastRowIsh = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
SheetIsh = ActiveSheet.Name
'MsgBox "Open " & fileToOpen
End If
'+++++++++++++++++++++++++++++++++++++++
End Sub

вот.

[ANDLL]

Можно делать, например, так.

[VSelskov]

Можно делать, например, так.

AnDll, спасибо.