Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2021, 12:39   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию передать значения ячеек из выделенной строки

Ребята здравствуйте! знаю как передать значение из одной ячейки в текстовое поле, а вот как из выделенной строки передать значения ячеек в текстовые поля слабоват, подскажите как реализовать?
С Уважением Дмитрий!)
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 02.12.2021, 14:10   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

если количество полей известно, то в коде TextBox1=cells(1,1)...TextBoxN=cell s(1,N).
если неизвестно - цикл организовывать
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 02.12.2021, 15:07   #3
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

Aleksandr H., метод выделение ячейки понятен,
Код:
Worksheet_SelectionChange
а метод выделение строки?
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 02.12.2021, 15:45   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

имхо это не метод выделения, а событие смены выделенного фрагмента на листе



Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim bEntireColumn As Boolean
    Dim bEntireRow As Boolean
    With Selection
        bEntireColumn = .Address = .EntireColumn.Address
        bEntireRow = .Address = .EntireRow.Address
    End With
    If bEntireColumn Then MsgBox "Entire column(s) selected"
    If bEntireRow Then MsgBox "Entire row(s) selected"
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить значения из выделенной строки dataGrid Vigi WPF, UWP, WinRT, XAML 3 18.11.2016 21:37
Хочу передать данные выделенной строки на другую страницу. Irenan Помощь студентам 0 09.05.2015 18:08
возврат значения выделенной ячейке по условию VITA11111 Microsoft Office Excel 4 01.07.2013 13:59
Считывание значения выделенной ячейки из DBGrid Pilyla БД в Delphi 1 18.12.2012 04:39
Автоматическое копирование выделенной строки Enigmatic Microsoft Office Excel 2 25.12.2009 13:08