Вывести две таблицы со списком городов и одну со списком их координат

@vova_letchik · Регистрация: 14.12.2012

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

помогите пожалуйста написать макрос.функцией ВПР не пользоваться.такое условие. задача такая:
из выпадающих списков activex combobox расположенных по порядку, т.е. один под другим ,их всего 20? выбираются названия городов предварительно занесенные в сводную таблицу. свойство выпадающих списков activex :LinkedCell: определено в ячейки другой таблицы(будем называть ее базой для операций). так вот по названиям этих выбранных городов, в базе для операций, нужно найти соответствующие им координаты, они тоже занесены в сводную таблицу напротив каждого города, и перенести в такую же таблицу как и база для операций, но с названием (например база для вычислений) .Своиство BoundColumn и ColumnCount я пытался использовать, но мне необходимо вывести две таблицы со списком городов и одну со списком их координат.поэтому ничего не получается.
С уважением Володя

@~~Апострофф~~ · 19.12.2012, 08:13

vova_letchik, приложи файл со своими наработками - будет легче сориентироваться в проблеме (Расширенный режим - скрепка(Управление вложениями) - Обзор... - Загрузить)

@vova_letchik · 19.12.2012, 08:40 **[ТС]**

Апострофф, готовлю файл.щас выложу

Добавлено через 21 минуту
Апострофф, Ругается ком. "Управление вложениями
Ошибки загрузки
Эталон Штурманской Программы.xlsm:
Некорректный файл "
В чем дело?

@~~Апострофф~~ · 19.12.2012, 08:47

vova_letchik, заархивируй файл (желательно в ZIP).

@vova_letchik · 19.12.2012, 09:07 **[ТС]**

ну вот значит, на первом листе у меня "Ввод основных данных" списки городов и точек маршрута, на втором"Все необходимые данные" производятся расчеты автоматом.я сделал конечно формулами эксель все расчеты, теперь перевожу все в макросы, но в силу моей неопытности......
смотрите на первом листе вводим города в combobox, столько сколько нам надо.все выводится в ячейку J по назначенному свойству.данные для combobox берутся со второго листа. задача в следующем: вывести этот же список городов в ячейке J с листа "Ввод основных данных", на лист "Все необходимые данные" в ячейку AR, далее макрос автоматически выбирает схожие названия городов в ячейке А на листе "Все необходимые данные" и вставляет их на этом же листе в ячейку R и S по количеству выбранных городов.вот и все.в редакторе на листе2 макрос, поиск и сравнение но я не могу допереть как назначить каждой combobox поиск конкретного текста и вывод по строкам их данных.
iFindText = Cells(2, 44) вот сдесь назначить как то значение combobox(1)....combobox(N)
все перепробовал и массивами и циклами.не хватает знаний по свойствам activeX

Visual Basic

Private Sub Worksheet_Calculate()
  Dim iFindText$, iText$, iColumn&, iRow&
    Dim iSource As Range, iArrSource As Variant
 Set iSource = Range("A2:a300")
        iCountText = Application.CountIf(ThisWorkbook.Worksheets("Все необходимые данные").Range("B:B"), "*")
       i = iCountText
    Set iSource = Range(Cells(2, 1), Cells(i, 5))
       iArrSource = iSource.Value
          iFindText = Cells(2, 44)
    For iColumn = 1 To iSource.Columns.Count 'UBound(iArrSource, 2)
        For iRow = 1 To iSource.Rows.Count   'UBound(iArrSource)
        iText = CStr(iArrSource(iRow, iColumn))
        If iFindText = iText Then
            
               Cells(2, 18).Value = iArrSource(iRow, 4)
               Cells(2, 19).Value = iArrSource(iRow, 5)
            End If
       Next
    Next
End Sub

с уважением мастерам VBA/ и заранее спасибо.я месяц как начал изучать VBA.прошу простить огрехи

@~~Апострофф~~ · 19.12.2012, 10:03

Если правильно понял вопрос, то как-то так -

Visual Basic

Private Sub Worksheet_Calculate()
Dim iFindText$, iText$, iColumn&, iRow&, r&
Dim iSource As Range, iArrSource As Variant
'Set iSource = Range("A2:a300")
iCountText = Application.CountIf(ThisWorkbook.Worksheets("Все необходимые данные").Range("B:B"), "*")
i = iCountText
Set iSource = Range(Cells(2, 1), Cells(i, 5))
iArrSource = iSource.Value
For r = 2 To 21
  iFindText = Cells(r, 44)
  'For iColumn = 1 To iSource.Columns.Count 'UBound(iArrSource, 2)
    For iRow = 1 To iSource.Rows.Count   'UBound(iArrSource)
      iText = CStr(iArrSource(iRow, 1)) 'iColumn))
      If iFindText = iText Then
        Cells(r, 18).Value = iArrSource(iRow, 4)
        Cells(r, 19).Value = iArrSource(iRow, 5)
      End If
    Next
  'Next
Next r
End Sub

@vova_letchik · 19.12.2012, 10:32 **[ТС]**

блин, во класссс!!!!
а я пытался так сделать, но у меня не выходило.
только вопрос, почему вы не задаете диапазон сравнения

Visual Basic

1	Set iSource = Range("A2:a300")

, вернее как получается что нужный нам диапазон он видит
и убираете цикл 'For iColumn = 1 To iSource.Columns.Count
немного не допонял.если можно, напишите.
спасибо вам все просто супер, теперь я могу продолжить дальше!!!!
я и изучаю VBA и сразу на примере своей проги пытаюсь что то сообразить.Можно обращаться .если что?

Добавлено через 6 минут
ааа все я понял, я вчера когда циклы пытался сделать, уже задал ему диапазон,

Visual Basic

1	Set iSource = Range(Cells(2, 1), Cells(i, 5))

а потом исправлял, исправлял, и в итоге сам запутался
а

Visual Basic

1	For iColumn = 1 To iSource.Columns.Count 'UBound(iArrSource, 2)

нам не нужен так как у нас столбцы фиксированные.
Так?

@~~Апострофф~~ · 19.12.2012, 10:33

Сообщение от vova_letchik

почему вы не задаете диапазон сравнения

По контексту я не увидел его использования в следующих двух строках,
а дальше он был переопределен -

Visual Basic

1	Set iSource = Range(Cells(2, 1), Cells(i, 5))

т.е. смысла (как и ошибки) в этом не было.

Сообщение от vova_letchik

убираете цикл 'For iColumn = 1 To iSource.Columns.Count

Зачем перебирать все столбцы, если мы ищем только в первом?

@vova_letchik · 19.12.2012, 10:38 **[ТС]**

да мне все понятно.спасибо огромное

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

@vova_letchik 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 11
		1
	Вывести две таблицы со списком городов и одну со списком их координат 19.12.2012, 06:37. Показов 1675. Ответов 8 Метки нет (Все метки) помогите пожалуйста написать макрос.функцией ВПР не пользоваться.такое условие. задача такая: из выпадающих списков activex combobox расположенных по порядку, т.е. один под другим ,их всего 20? выбираются названия городов предварительно занесенные в сводную таблицу. свойство выпадающих списков activex :LinkedCell: определено в ячейки другой таблицы(будем называть ее базой для операций). так вот по названиям этих выбранных городов, в базе для операций, нужно найти соответствующие им координаты, они тоже занесены в сводную таблицу напротив каждого города, и перенести в такую же таблицу как и база для операций, но с названием (например база для вычислений) .Своиство BoundColumn и ColumnCount я пытался использовать, но мне необходимо вывести две таблицы со списком городов и одну со списком их координат.поэтому ничего не получается. С уважением Володя 0

@~~Апострофф~~ Заблокирован
	19.12.2012, 08:13	2
	vova_letchik, приложи файл со своими наработками - будет легче сориентироваться в проблеме (Расширенный режим - скрепка(Управление вложениями) - Обзор... - Загрузить) 0

@vova_letchik 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 11
	19.12.2012, 08:40 [ТС]	3
	Апострофф, готовлю файл.щас выложу Добавлено через 21 минуту Апострофф, Ругается ком. "Управление вложениями Ошибки загрузки Эталон Штурманской Программы.xlsm: Некорректный файл " В чем дело? 0

@~~Апострофф~~ Заблокирован
	19.12.2012, 08:47	4
	vova_letchik, заархивируй файл (желательно в ZIP). 0

@vova_letchik 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 11
	19.12.2012, 10:38 [ТС]	9
	да мне все понятно.спасибо огромное 0