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

Вход

Регистрация

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

 

= Мир MS Excel/подправить код вставки данных с БД - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подправить код вставки данных с БД (Макросы/Sub)
подправить код вставки данных с БД
grh1 Дата: Суббота, 23.09.2017, 19:05 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Доброго дня, уважаемые!

помогите подправить код.
1. Данные с базы почему-то вставляются в столбец "B", а нужно в "А" (по ранжиру);
2. Сумма не вставляется накопительно в столбец "D";
3. Поиск вообще не работает.

Спасибо
К сообщению приложен файл: 7494157.rar (99.7 Kb)

Vadym Gorokh
 
Ответить
СообщениеДоброго дня, уважаемые!

помогите подправить код.
1. Данные с базы почему-то вставляются в столбец "B", а нужно в "А" (по ранжиру);
2. Сумма не вставляется накопительно в столбец "D";
3. Поиск вообще не работает.

Спасибо
Автор - grh1
Дата добавления - 23.09.2017 в 19:05
Manyasha Дата: Суббота, 23.09.2017, 19:10 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
grh1, здравствуйте. Архив что-то не открывается.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеgrh1, здравствуйте. Архив что-то не открывается.
Автор - Manyasha
Дата добавления - 23.09.2017 в 19:10
grh1 Дата: Суббота, 23.09.2017, 19:15 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
странно - скачал отсюда свой архив - всё открылось
вот еще раз заархивировал
К сообщению приложен файл: 9199263.rar (99.7 Kb)

Vadym Gorokh
 
Ответить
СообщениеManyasha,
странно - скачал отсюда свой архив - всё открылось
вот еще раз заархивировал
Автор - grh1
Дата добавления - 23.09.2017 в 19:15
_Igor_61 Дата: Суббота, 23.09.2017, 19:22 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте! При разархивировании (извлечь в ...) пишет "Архивы не найдены", если просто пробую открыть архив - пишет "Архив поврежден или имеет неизвестный формат" (скачивал из сообщения №3)
 
Ответить
СообщениеЗдравствуйте! При разархивировании (извлечь в ...) пишет "Архивы не найдены", если просто пробую открыть архив - пишет "Архив поврежден или имеет неизвестный формат" (скачивал из сообщения №3)
Автор - _Igor_61
Дата добавления - 23.09.2017 в 19:22
grh1 Дата: Суббота, 23.09.2017, 19:26 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
_Igor_61,
вот удалено залил

Vadym Gorokh

Сообщение отредактировал Manyasha - Суббота, 23.09.2017, 19:29
 
Ответить
Сообщение_Igor_61,
вот удалено залил
Автор - grh1
Дата добавления - 23.09.2017 в 19:26
Manyasha Дата: Суббота, 23.09.2017, 19:29 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Тоже не открывается. Попробуйте урезать файл (оставьте 10-20 строк) и сохранить в формате xlsb. Может без архива влезет.

Ссылки на внешние источники запрещены правилами форума (п3).

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеТоже не открывается. Попробуйте урезать файл (оставьте 10-20 строк) и сохранить в формате xlsb. Может без архива влезет.

Ссылки на внешние источники запрещены правилами форума (п3).
Автор - Manyasha
Дата добавления - 23.09.2017 в 19:29
grh1 Дата: Суббота, 23.09.2017, 19:31 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
урезал базу по самое нехочу и еще раз заархивировал
К сообщению приложен файл: 9997351.rar (44.1 Kb)

Vadym Gorokh

Сообщение отредактировал grh1 - Суббота, 23.09.2017, 19:32
 
Ответить
СообщениеManyasha,
урезал базу по самое нехочу и еще раз заархивировал
Автор - grh1
Дата добавления - 23.09.2017 в 19:31
Manyasha Дата: Суббота, 23.09.2017, 19:58 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
grh1, не помогает... :(
Цитата Manyasha, 23.09.2017 в 19:29, в сообщении № 6 ()
сохранить в формате xlsb. Может без архива влезет

Влезает. Формат xls всегда весит больше, чем форматы новых версий. Старайтесь избегать архивов, не все их любят.
Выкладываю Ваш файл.
К сообщению приложен файл: 1631766.xlsb (64.7 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеgrh1, не помогает... :(
Цитата Manyasha, 23.09.2017 в 19:29, в сообщении № 6 ()
сохранить в формате xlsb. Может без архива влезет

Влезает. Формат xls всегда весит больше, чем форматы новых версий. Старайтесь избегать архивов, не все их любят.
Выкладываю Ваш файл.
Автор - Manyasha
Дата добавления - 23.09.2017 в 19:58
grh1 Дата: Суббота, 23.09.2017, 20:01 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
спасибо, буду знать

Vadym Gorokh
 
Ответить
СообщениеManyasha,
спасибо, буду знать
Автор - grh1
Дата добавления - 23.09.2017 в 20:01
Manyasha Дата: Суббота, 23.09.2017, 20:24 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
grh1,
Цитата grh1, 23.09.2017 в 19:05, в сообщении № 1 ()
1. Данные с базы почему-то вставляются в столбец "B", а нужно в "А" (по ранжиру);
2. Сумма не вставляется накопительно в столбец "D";

подправила. Строки, которые изменила, пометила комментарием "Исправила", лишние строчки закомментировала.

Цитата grh1, 23.09.2017 в 19:05, в сообщении № 1 ()
3. Поиск вообще не работает.
Предлагаю вынести в отдельную тему. Это другой вопрос с другой формой, и отношения к вводу данных не имеет.
К сообщению приложен файл: 2-1.xlsb (71.6 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеgrh1,
Цитата grh1, 23.09.2017 в 19:05, в сообщении № 1 ()
1. Данные с базы почему-то вставляются в столбец "B", а нужно в "А" (по ранжиру);
2. Сумма не вставляется накопительно в столбец "D";

подправила. Строки, которые изменила, пометила комментарием "Исправила", лишние строчки закомментировала.

Цитата grh1, 23.09.2017 в 19:05, в сообщении № 1 ()
3. Поиск вообще не работает.
Предлагаю вынести в отдельную тему. Это другой вопрос с другой формой, и отношения к вводу данных не имеет.
Автор - Manyasha
Дата добавления - 23.09.2017 в 20:24
grh1 Дата: Суббота, 23.09.2017, 20:32 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
если нужно, чтобы коды вставлялись с (например) 5-й строки, то переправить
Код
.Range(.[A12], .Cells(r, 12)).Sort .Cells(13, 1)

на
Код
.Range(.[A5], .Cells(r, 12)).Sort .Cells(13, 1)

правильно?

Vadym Gorokh
 
Ответить
СообщениеManyasha,
если нужно, чтобы коды вставлялись с (например) 5-й строки, то переправить
Код
.Range(.[A12], .Cells(r, 12)).Sort .Cells(13, 1)

на
Код
.Range(.[A5], .Cells(r, 12)).Sort .Cells(13, 1)

правильно?
Автор - grh1
Дата добавления - 23.09.2017 в 20:32
grh1 Дата: Суббота, 23.09.2017, 20:33 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
спасибо большое

Vadym Gorokh
 
Ответить
СообщениеManyasha,
спасибо большое
Автор - grh1
Дата добавления - 23.09.2017 в 20:33
grh1 Дата: Суббота, 23.09.2017, 20:34 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
еще вопрос по этому коду - откуда там заливка цветом? где эта строка, чтобы убрать её?

Vadym Gorokh
 
Ответить
СообщениеManyasha,
еще вопрос по этому коду - откуда там заливка цветом? где эта строка, чтобы убрать её?
Автор - grh1
Дата добавления - 23.09.2017 в 20:34
Manyasha Дата: Суббота, 23.09.2017, 20:46 | Сообщение № 14
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
grh1,
Цитата grh1, 23.09.2017 в 20:32, в сообщении № 11 ()
нужно, чтобы коды вставлялись с (например) 5-й строки, то переправить

не нужно ничего править, попробуйте удалить лишние строчки - все работает.
Приведенная Вами строка отвечает за сортировку. В ней нужно исправить A12 на A5.

Цитата grh1, 23.09.2017 в 20:34, в сообщении № 13 ()
откуда там заливка цветом?

Это условное форматирование, в макросе ничего не красится.

[p.s.]Для оформления кода используйте кнопку #
fx - это для формул.[/p.s.]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеgrh1,
Цитата grh1, 23.09.2017 в 20:32, в сообщении № 11 ()
нужно, чтобы коды вставлялись с (например) 5-й строки, то переправить

не нужно ничего править, попробуйте удалить лишние строчки - все работает.
Приведенная Вами строка отвечает за сортировку. В ней нужно исправить A12 на A5.

Цитата grh1, 23.09.2017 в 20:34, в сообщении № 13 ()
откуда там заливка цветом?

Это условное форматирование, в макросе ничего не красится.

[p.s.]Для оформления кода используйте кнопку #
fx - это для формул.[/p.s.]
Автор - Manyasha
Дата добавления - 23.09.2017 в 20:46
grh1 Дата: Суббота, 23.09.2017, 20:49 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 40% ±

2019
Manyasha,
еще раз спасибо

Vadym Gorokh
 
Ответить
СообщениеManyasha,
еще раз спасибо
Автор - grh1
Дата добавления - 23.09.2017 в 20:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подправить код вставки данных с БД (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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