Клавиши SHIFT+F8 и CTRL в Excel 2003

[явген]

Макросом это хорошая идея, но знать бы каким таким макросом.

[IgorGO]

знать бы что макрос должен делать и написать можно было

[явген]

Макрос должен выделить ячейку, а потом снять это выделение если нужно, но желательно это надо сделать кликом мыши.
Большое спасибо.

[kuklp]

В модуль листа:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Interior.ColorIndex <> xlNone Then
        Target.Interior.ColorIndex = xlNone
        Cancel = True
    End If
End Sub

[явген]

Огромное спасибо Kuklp, буду разбираться.

[maksim_serg]

Грубо, но работает. Позволяет добавлять ячейку к уже выбранным, и исключать ее при повторном "клике". Кто все исправит - молодец)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim p As Boolean: p = False
err.Clear
Dim Items As New Collection

For Each r In Target
    Items.Add r.Address, r.Address
    If err.Number <> 0 Then
         Items.Remove (r.Address)
         p = True
         err.Clear
    End If
Next
If p = False Then Exit Sub
err.Clear
n = Application.RoundUp(Items.Count / 30, 0) - 1
Dim MI() As String
ReDim MI(n)
For I = 0 To n
    temp = ""
    For j = I * 30 + 1 To I * 30 + 30
        temp = temp + Items(j) + ","
        If err.Number <> 0 Then
            Exit For
        End If
    Next
    MI(I) = Left(temp, Len(temp) - 1)
Next


Dim ran As Range: Set ran = Range(MI(0))
For I = 1 To n
    Set ran = Union(ran, Range(MI(I)))
Next

ran.Select
Range(Items(Items.Count)).Activate
End Sub

[явген]

Спасибо большое maksim_serg.
Но у меня макрос не запускается, может глянешь?

[maksim_serg]

Этот код нужно поместить в "лист1 (лист1)"
Выделяешь группу ячеек, а потом щелкаешь по листу с зажатой CTRL (только на первом листе разумеется)

[IgorGO]

maksim_serg, это часть задачи... собрали коллекцию адресов ячеек (хотя можно было собрать сами ячейки в диапазон, добавляя, удаляя с помощью Intersect, Union)

такой диапазон очень удобно обозначить каким-то способом всех сразу и одной командой, но...
у каждой из ячеек могло быть СВОЕ СПЕЦИФИЧЕСКОЕ ФОРМАТИРОВАНИЕ, когда ячейка добавляется в диапазон это форматирование необходимо запомнить, а когда удаляется вернуть обратно

получив код от kuklp, явген со словами

буду разбираться.

видимо ушел в нирвану, от того насколько точно макрос решает его задачу или насколько он космически далек от решения.

Господа, Вы настойчиво пытаетесь решать задачу, условия которой не известны.

[maksim_serg]

ну почему не ясно, что он хочет...

Сообщение от явген

Вопрос в следующем: как можно сделать, что бы одним кликом мыши выделить одну или последовательно несколько разных ячеек и как тем же кликом мыши отменить выделение отдельных ячеек без отмены выделения остальных.

будем ждать когда выйдет из нирваны)