Показ Listbox при выделении ячейки, а не строки

@supercelt · Регистрация: 14.12.2010

Студворк — интернет-сервис помощи студентам

Добрый день. Подскажите пожалуйста.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Shp As Object
    If Not Intersect(Target, Range("I5:I1000")) Is Nothing Then
        With Me.ListBox1
            .Top = Target.Offset(0, 1).Top
            .Left = Target.Offset(0, 1).Left
            .Visible = True
        End With
        Set Shp = ActiveSheet.Shapes("Button 7").DrawingObject
        With Shp
            .Top = ActiveCell.Top
            .Left = ActiveCell.Offset(0, 11).Left
            .Visible = True
        End With
    Else
        Me.ListBox1.Visible = False
        ActiveSheet.Shapes.Range(Array("Button 7")).Visible = False
    End If
End Sub

При выделении любой ячейки с I5 по I1000 появляется Listbox со списком и кнопка. Но если я выделяю какую-нудь всю строкуцеликом из этого дипазона, то возникает ошибка 1004. Ругается на эту строку:
.Top = Target.Offset(0, 1).Top
Что надо сделать что бы ошибки не было при выделении строки целиком?
Спасибо!

@Hugo121 · 22.09.2019, 14:09

Попробуйте всюду добавить (1):

Visual Basic
1
Target(1).Offset(0, 1)

Ошибки не будет, а решит ли задачу - нам неведомо, ибо неведома задача

@pashulka · 22.09.2019, 14:24

Если "Button 7" это родная кнопка с панели инструментов "Формы"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Set r = Intersect(Target, Range("I5:I1000"))
    If Not r Is Nothing Then
        With ListBox1
             .Top = r.Top
             .Left = r(1, 2).Left
             .Visible = True
        End With
        With Buttons("Button 7")
             .Top = r.Top
             .Left = r(1, 12).Left
             .Visible = True
        End With
    Else
        ListBox1.Visible = False
        Buttons("Button 7").Visible = False
    End If
End Sub

@supercelt · 22.09.2019, 15:11 **[ТС]**

Спасибо! Помогло.

@fever brain · 22.09.2019, 15:17

почему вы не уничтожаете созданные объекты
Buttons("Button 7").Visible = False
set Buttons("Button 7") = Nothing

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@supercelt 1 / 1 / 0 Регистрация: 14.12.2010 Сообщений: 101
	22.09.2019, 15:11 [ТС]
	Спасибо! Помогло. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	22.09.2019, 15:17
	почему вы не уничтожаете созданные объекты Buttons("Button 7").Visible = False set Buttons("Button 7") = Nothing 0