Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Данные из "БАЗЫ" в любую ячейку "РАСЧЕТА", Формирование таблици
 
#1
17.01.2024 21:47:41
Добрый день уважаемые форумчане!
Прошу   помощи в написании кода.
И   у меня такая работа составлять таблицы
с   подстановкой в каждой ячейке цифру
из   базы.Но каждый раз обращаться в базу и
копировать   цифру очень долго и неудобно
делаю   много ошибок.
ВОПРОС?
Нужно   кликнуть на любую ячейку на Листе
"РАСЧЕТ"   и чтобы открылась "БАЗА" для того,
чтобы   выбрать любое значение кликнув
на   любую ячейку,и чтобы данные ячейки
в   "БАЗЕ" отразились в ячейке "РАСЧЕТ"
 
 
 
#2
17.01.2024 21:57:31
Цитата
написал:
ВОПРОС? Нужно   кликнуть на любую ячейку на Листе "РАСЧЕТ"   и чтобы открылась "БАЗА" для того,чтобы   выбрать любое значение кликнувна   любую ячейку,и чтобы данные ячейкив   "БАЗЕ" отразились в ячейке "РАСЧЕТ"
Can you speak russian?
 
 
 
#3
17.01.2024 22:05:24
Только по русски и говорю.
 
 
 
#4
17.01.2024 22:30:08
Здравствуйте.
Вариант в файле. Двойной клик по ячейкам на обоих листах
 
 
 
#5
17.01.2024 22:59:42
gLing!!!! Добрый вечер огромное Вам спасибо,а то что два клика в один невозможно?
 
 
 
#6
17.01.2024 23:24:38
Возможно, но не нужно, будет неудобно. Случайно смените ячейку сразу будет перепрыгните на другой лист. Захотите стереть данные, активируете ячейку, а вас перекинет на другой лист. Двойной клик - это уверенный выбор нужной ячейки.
 
 
 
#7
18.01.2024 00:20:16
там была идея

а тут иное воплощение
По вопросам из тем форума, личку не читаю.
 
 
 
#8
18.01.2024 07:01:45
Уважаемые БМВ и gLing!!!! Огромное Вам спасибо,теперь я смогу намного быстрее и качественнее выполнять свою работу.Ещё раз огромное спасибо,дай бог Вам самого крепкого здоровья.
 
 
 
#9
18.01.2024 08:32:44
Прошу прощения ,но есть маленький вопрос по теме.А что нужно исправить или дополнить в коде,чтобы тоже самое происходило на "Листе2"
Изменено: Vladis61 - 18.01.2024 08:43:47
 
 
 
#10
18.01.2024 10:47:57
Уважаемые БМВ и gLing!!!! Простите меня пожалуйста,может быть Вы мне поможете в вопросе,как сделать Лист2 таким же как и Расчет.
 
 
 
#11
18.01.2024 12:03:14
Уважаемые Форумчане помогите пожалуйста, когда посмотрел и сделал работу,то понял что не всё спросил.Остался вопрос что нужно сделать чтобы Лист2,Лист3,Лист4 и т.д. работали также как и Лист "РАСЧЕТ"
 
 
 
#12
18.01.2024 12:44:55
Держите вариант.
В Module1 вставляете Public Cl As Variant, mySh As String
В модуль ЭтаКнига код ниже
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Sh.Name Like ("БАЗА") Then
        Sheets("БАЗА").Select
    Else
        Sheets(mySh).Range(Cl).Value = Target.Value
        Sheets(mySh).Select
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Sh.Name Like ("БАЗА") Then
        mySh = Sh.Name
        Cl = Target.Address
    End If
End Sub
Другой код в листах Расчет и База удаляете
 
 
 
#13
18.01.2024 13:17:55
Ну Igor67 выручили ,Всё работает огромное спасибо ,дай бог вам здоровья и всего чего хочется спасибо!!!!!!!!!!!!!!!
 
 
 
Страницы: 1
Наверх