Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Спойлер и теги кода VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Спойлер и теги кода VBA
jack_daniels Дата: Пятница, 13.12.2013, 14:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем доброго дня.

Суть задачи такова, есть 2 файла XLS(X), для упрощения можно предположить - 2 листа. В каждом - некая шапка, и таблица, которая может быть сдвинута от А1. В первом столбце обоих файлов - некие уникальные номера, вида 42652-4673. Таблицы достигают 10000строк и 20 столбцов. Значимым в задаче является именно номер.
Первый файл - назовем его "большой" содержит больше элементов. Суть задачи - поиском сложить в каждую строку файла-результата информацию по каждой строке "большего" файла, например, столбцы a,b,c,g,h,s,t, и, в свою очередь, в столбцы f, m, k - из другого.
Уникальные номера могут в каждом из файлов повторяться, это не глюк. Могут встречаться те, которые есть и в первом, и во втором, только в первом, только во втором.
Количество строк не совпадает. многие поля могут быть пустыми, кроме первого - номера. Нумерация первого файла должна сохраняться, если добавляются строки - нужно как то выделять.
Последний раз программировать на VBA, да и вообще программить приходилось в 2002-м, так что вспоминается с трудом. Панель инструментов и кнопки, формы и прочее я сделаю, но- массивов я и тогда толком не понимал. Поэтому полез в фунции и циклы, проще разобраться.
К примеру, тут нашел Set rFind = Columns("A").Find(What:=Sheets("In_ws").Cells(i, "A").Text и If Not rFind Is Nothing Then
Sheets("In_ws").Select Ins = Sheets("In_ws").Cells(i, "A").Value
В итоге - из первого листа строки вставляются в результат (фактически, тупо копируются), rfind отрабатывает, но дальше заблудился с вытаскиванием из второго файла. Как передать значение адреса ячейки переменной чтобы вставить ячейку из него?



Сообщение отредактировал jack_daniels - Пятница, 13.12.2013, 14:56
 
Ответить
СообщениеВсем доброго дня.

Суть задачи такова, есть 2 файла XLS(X), для упрощения можно предположить - 2 листа. В каждом - некая шапка, и таблица, которая может быть сдвинута от А1. В первом столбце обоих файлов - некие уникальные номера, вида 42652-4673. Таблицы достигают 10000строк и 20 столбцов. Значимым в задаче является именно номер.
Первый файл - назовем его "большой" содержит больше элементов. Суть задачи - поиском сложить в каждую строку файла-результата информацию по каждой строке "большего" файла, например, столбцы a,b,c,g,h,s,t, и, в свою очередь, в столбцы f, m, k - из другого.
Уникальные номера могут в каждом из файлов повторяться, это не глюк. Могут встречаться те, которые есть и в первом, и во втором, только в первом, только во втором.
Количество строк не совпадает. многие поля могут быть пустыми, кроме первого - номера. Нумерация первого файла должна сохраняться, если добавляются строки - нужно как то выделять.
Последний раз программировать на VBA, да и вообще программить приходилось в 2002-м, так что вспоминается с трудом. Панель инструментов и кнопки, формы и прочее я сделаю, но- массивов я и тогда толком не понимал. Поэтому полез в фунции и циклы, проще разобраться.
К примеру, тут нашел Set rFind = Columns("A").Find(What:=Sheets("In_ws").Cells(i, "A").Text и If Not rFind Is Nothing Then
Sheets("In_ws").Select Ins = Sheets("In_ws").Cells(i, "A").Value
В итоге - из первого листа строки вставляются в результат (фактически, тупо копируются), rfind отрабатывает, но дальше заблудился с вытаскиванием из второго файла. Как передать значение адреса ячейки переменной чтобы вставить ячейку из него?


Автор - jack_daniels
Дата добавления - 13.12.2013 в 14:11
KuklP Дата: Пятница, 13.12.2013, 14:29 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
jack_daniels, поскольку Вы новичок на форуме - объясняю: в топике даем краткое описание задачи, код оформляем тегами(значок # на панели), длинные листинги прячем под спойлер, выкладываем небольшой пример в файле Эксель. И обязательно прочтите правила форума, пока не начались санкции со стороны администрации.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщениеjack_daniels, поскольку Вы новичок на форуме - объясняю: в топике даем краткое описание задачи, код оформляем тегами(значок # на панели), длинные листинги прячем под спойлер, выкладываем небольшой пример в файле Эксель. И обязательно прочтите правила форума, пока не начались санкции со стороны администрации.

Автор - KuklP
Дата добавления - 13.12.2013 в 14:29
jack_daniels Дата: Пятница, 13.12.2013, 14:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
KuklP, так и собирался, но отвлекли, но сейчас я исправился :)
 
Ответить
СообщениеKuklP, так и собирался, но отвлекли, но сейчас я исправился :)

Автор - jack_daniels
Дата добавления - 13.12.2013 в 14:57
Serge_007 Дата: Пятница, 13.12.2013, 22:36 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
длинные листинги прячем под спойлер
Серег, это зачем?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
длинные листинги прячем под спойлер
Серег, это зачем?

Автор - Serge_007
Дата добавления - 13.12.2013 в 22:36
KuklP Дата: Пятница, 13.12.2013, 22:41 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ты не видел начальный пост. Не, если кому охота читать Войну и мир... Без разницы, примеров автор так и не выложил. Ждет себе. :)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеТы не видел начальный пост. Не, если кому охота читать Войну и мир... Без разницы, примеров автор так и не выложил. Ждет себе. :)

Автор - KuklP
Дата добавления - 13.12.2013 в 22:41
Serge_007 Дата: Пятница, 13.12.2013, 22:53 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Я не об этом. Даже "Война и мир", но в тегах vba, не займет более 12-и полных строк в посте. Ограничение на высоту есть, если код длиннее, то появляется полоса прокрутки
Поэтому спойлеры не нужны :)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЯ не об этом. Даже "Война и мир", но в тегах vba, не займет более 12-и полных строк в посте. Ограничение на высоту есть, если код длиннее, то появляется полоса прокрутки
Поэтому спойлеры не нужны :)

Автор - Serge_007
Дата добавления - 13.12.2013 в 22:53
KuklP Дата: Пятница, 13.12.2013, 23:16 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Код был не в тегах, а в моей Опере я тебе показывал, как выглядит код в тегах. Волнистый попугай. Не обрезает. Видел из лисы, как ограничивает, но забыл.. У самого все равно привычка - длинный листинг под спойлер. Это ж только у тебя режет, а на той же Планете иногда крышу рвет, когда листаешь по нескольку страниц кода из под рекордера. К-рый вообще читать незачем, выкинуть и новый написать :D


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКод был не в тегах, а в моей Опере я тебе показывал, как выглядит код в тегах. Волнистый попугай. Не обрезает. Видел из лисы, как ограничивает, но забыл.. У самого все равно привычка - длинный листинг под спойлер. Это ж только у тебя режет, а на той же Планете иногда крышу рвет, когда листаешь по нескольку страниц кода из под рекордера. К-рый вообще читать незачем, выкинуть и новый написать :D

Автор - KuklP
Дата добавления - 13.12.2013 в 23:16
Serge_007 Дата: Пятница, 13.12.2013, 23:20 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
в моей Опере я тебе показывал, как выглядит код в тегах. Волнистый попугай
Блин, да обнови ты её! Я же тоже в других браузерах, кроме лисы, сайт просматриваю - во всех нормально, кроме совсем древних ;)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
в моей Опере я тебе показывал, как выглядит код в тегах. Волнистый попугай
Блин, да обнови ты её! Я же тоже в других браузерах, кроме лисы, сайт просматриваю - во всех нормально, кроме совсем древних ;)

Автор - Serge_007
Дата добавления - 13.12.2013 в 23:20
KuklP Дата: Пятница, 13.12.2013, 23:21 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Раз уж все равно тут нафлудили... Прикололся - парад планет:
К сообщению приложен файл: 1392175.gif (25.8 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеРаз уж все равно тут нафлудили... Прикололся - парад планет:

Автор - KuklP
Дата добавления - 13.12.2013 в 23:21
KuklP Дата: Пятница, 13.12.2013, 23:23 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Не Серег, привык, мне в ней комфортно. Новые версии на другом движке, мне не нравится. Это уже не Опера а Хром какой-то. Жутко неудобно.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНе Серег, привык, мне в ней комфортно. Новые версии на другом движке, мне не нравится. Это уже не Опера а Хром какой-то. Жутко неудобно.

Автор - KuklP
Дата добавления - 13.12.2013 в 23:23
jack_daniels Дата: Суббота, 14.12.2013, 13:42 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Благодарю за конструктивность ответов всех участников. :)
Разобрался сам.
Скажите, как удалить тему? Обычно в редактировании сообщения ставится галка вроде "удалить сообщение" и все.
 
Ответить
СообщениеБлагодарю за конструктивность ответов всех участников. :)
Разобрался сам.
Скажите, как удалить тему? Обычно в редактировании сообщения ставится галка вроде "удалить сообщение" и все.

Автор - jack_daniels
Дата добавления - 14.12.2013 в 13:42
nerv Дата: Суббота, 14.12.2013, 14:30 | Сообщение № 12
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

но в тегах vba, не займет более 12-и полных строк в посте

кстати, очень неудобно для чтения


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщение
но в тегах vba, не займет более 12-и полных строк в посте

кстати, очень неудобно для чтения

Автор - nerv
Дата добавления - 14.12.2013 в 14:30
Serge_007 Дата: Суббота, 14.12.2013, 14:37 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Саш, а портянки для чтения удобны?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСаш, а портянки для чтения удобны?

Автор - Serge_007
Дата добавления - 14.12.2013 в 14:37
KuklP Дата: Суббота, 14.12.2013, 14:38 | Сообщение № 14
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Удобно под спойлером :)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеУдобно под спойлером :)

Автор - KuklP
Дата добавления - 14.12.2013 в 14:38
KuklP Дата: Суббота, 14.12.2013, 14:42 | Сообщение № 15
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Хуже то, что многие перестали выкладывать код в сообщении, не только в аттаче. Часто лень скачивать, открывать файл, чтоб посмотреть код.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеХуже то, что многие перестали выкладывать код в сообщении, не только в аттаче. Часто лень скачивать, открывать файл, чтоб посмотреть код.

Автор - KuklP
Дата добавления - 14.12.2013 в 14:42
nerv Дата: Суббота, 14.12.2013, 16:18 | Сообщение № 16
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

а портянки для чтения удобны?

когда ты читаешь книжку для удовольствия, можно хоть по одной строчке читать. Когда ты смотришь код, ты его анализируешь, ищешь ошибки, недочеты и т.п. Не вижу смысла ограничивать его в 12 или сколько нибудь строк. Т.к. приходиться держать в голове все, что вне области просмотра. Не хочется непонятно чем и зачем лишний раз загружать свой мозг.
Я уже молчу, что при скроле кода, скролится еще и страница, что убивает восприятие.

Впрочем, мне все равно. Я не планирую больше выкладывать код на этом форуме :)
Читать его также в большинстве случаев не буду, т.к. мне не удобно.

Я просто высказал свое мнение.

Если рассматривать "записюльки" - это приемлемо. Все, что серьезнее просто не воспринимается.
А читать те самые "записюльки" мне не интересно.

Можешь в экселе вот так поработать и проверить "удобно или не удобно". Вы же все на эксель примеряете )


Не для того большие мониторы покупали, чтобы 12 строчек читать :D


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba


Сообщение отредактировал nerv - Суббота, 14.12.2013, 16:26
 
Ответить
Сообщение
а портянки для чтения удобны?

когда ты читаешь книжку для удовольствия, можно хоть по одной строчке читать. Когда ты смотришь код, ты его анализируешь, ищешь ошибки, недочеты и т.п. Не вижу смысла ограничивать его в 12 или сколько нибудь строк. Т.к. приходиться держать в голове все, что вне области просмотра. Не хочется непонятно чем и зачем лишний раз загружать свой мозг.
Я уже молчу, что при скроле кода, скролится еще и страница, что убивает восприятие.

Впрочем, мне все равно. Я не планирую больше выкладывать код на этом форуме :)
Читать его также в большинстве случаев не буду, т.к. мне не удобно.

Я просто высказал свое мнение.

Если рассматривать "записюльки" - это приемлемо. Все, что серьезнее просто не воспринимается.
А читать те самые "записюльки" мне не интересно.

Можешь в экселе вот так поработать и проверить "удобно или не удобно". Вы же все на эксель примеряете )


Не для того большие мониторы покупали, чтобы 12 строчек читать :D

Автор - nerv
Дата добавления - 14.12.2013 в 16:18
Serge_007 Дата: Суббота, 14.12.2013, 17:21 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
при скроле кода, скролится еще и страница
?!

Если рассматривать "записюльки" - это приемлемо
Подавляющее большинство выкладываемых на форум кодов либо укладываются в 12 строк, либо ненамного больше. Что-то более "серьезное" читать и анализировать с экрана могут единицы, а для того что бы в таком коде ещё что-то править придётся его перенести в VBE скорее всего. Так что смысла в "портянках" в теле поста, собственно нет, а внешний вид поста такой код портит. Вот для этого и ограничение

Можешь в экселе вот так поработать и проверить "удобно или не удобно"
Сравнение некорректно, считаю, ибо в Excel так работать, а на форуме с кодом не работать


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
при скроле кода, скролится еще и страница
?!

Если рассматривать "записюльки" - это приемлемо
Подавляющее большинство выкладываемых на форум кодов либо укладываются в 12 строк, либо ненамного больше. Что-то более "серьезное" читать и анализировать с экрана могут единицы, а для того что бы в таком коде ещё что-то править придётся его перенести в VBE скорее всего. Так что смысла в "портянках" в теле поста, собственно нет, а внешний вид поста такой код портит. Вот для этого и ограничение

Можешь в экселе вот так поработать и проверить "удобно или не удобно"
Сравнение некорректно, считаю, ибо в Excel так работать, а на форуме с кодом не работать

Автор - Serge_007
Дата добавления - 14.12.2013 в 17:21
KuklP Дата: Суббота, 14.12.2013, 17:45 | Сообщение № 18
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А мне пришлось в 5 Эксе с 13" монитором работать. Вот это засада. Тогда еще VBE не было, все это часто вылетало с ошибкой в перезагрузку(ДОС). Если кто помнит - монитор сильно выпуклый и защитное стекло от радиации. И мышка с шариком, в к-рую постоянно набивалась грязь, приходилось разбирать ее, чтоб почистить %)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА мне пришлось в 5 Эксе с 13" монитором работать. Вот это засада. Тогда еще VBE не было, все это часто вылетало с ошибкой в перезагрузку(ДОС). Если кто помнит - монитор сильно выпуклый и защитное стекло от радиации. И мышка с шариком, в к-рую постоянно набивалась грязь, приходилось разбирать ее, чтоб почистить %)

Автор - KuklP
Дата добавления - 14.12.2013 в 17:45
nilem Дата: Суббота, 14.12.2013, 18:37 | Сообщение № 19
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
------------


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Воскресенье, 15.12.2013, 11:16
 
Ответить
Сообщение------------

Автор - nilem
Дата добавления - 14.12.2013 в 18:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!