ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти и вставить диапазон по условию
9 сообщений из 9, страница 1 из 1
Найти и вставить диапазон по условию
    #33786814
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Доброго времени суток!
Возникла такая вот задача:
Имеется таблица содержащая все наименования материалов для всех изделий (БД)
Изделие___Наим/мат___ед. изм___размер/вес___Колво___Итого
Тест1_____Изд_Тест1____мм______550___________1______550
Тест1_____Изд_Тест2____мм______600__________ 2 _____1200
Тест1_____ Изд_Тест2 ___мм______650__________1_______650
Тест2_____Изд_Тест1____мм______750___________1______750
Тест2_____Изд_Тест2____мм______600__________ 2 _____1200
Тест2_____ Изд_Тест2 ___мм______850__________1_______850
А также есть расчетная таблица , если в Название изделия ее выбирается Тест1, то в наменование должен быть вставлен диапазон из БД

Изделие Тест1
Наим/мат___ед. изм___размер/вес
Изд_Тест1____мм______550
Изд_Тест2____мм______1200
Изд_Тест2 ___мм______650
...
Рейтинг: 0 / 0
13.06.2006, 10:25:31
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33789107
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Sub CreateReport()
    Dim BD As Variant
    Dim Izdels As Variant
    Dim CurrNum As Integer
    Dim CurrName As String
    Dim i As Integer
    Dim Count As Integer
    Dim NumStr As Integer
    
    Range("Отчет").Clear
    
    BD = Range("БД").Value
    CurrNum = Range("Выбор").Value
    Izdels = Range("Изделия").Value
    CurrName = Izdels(CurrNum,  2 )
    Count = UBound(BD)
    NumStr =  5 
    For i =  1  To Count
        If BD(i,  1 ) = CurrName Then
            Worksheets("Отчет").Range("A" & NumStr).Value = BD(i,  2 )
            Worksheets("Отчет").Range("B" & NumStr).Value = BD(i,  3 )
            Worksheets("Отчет").Range("C" & NumStr).Value = BD(i,  6 )
            NumStr = NumStr +  1 
        End If
    Next i
    
End Sub

См файл:
...
Рейтинг: 0 / 0
14.06.2006, 08:26:57
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33789118
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
100g Спасибо, сейчас буду пробывать.
...
Рейтинг: 0 / 0
14.06.2006, 08:33:09
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33789180
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Range("Отчет").Clear
Тут выдает ошибку!
Method "Range" Global filed
...
Рейтинг: 0 / 0
14.06.2006, 09:13:01
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33790810
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Вот сам файл, вроде сделал все правильно, но он отказывается работать :(
Кто знает подскажите, где я допускаю ошибку.
...
Рейтинг: 0 / 0
14.06.2006, 16:36:20
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33791764
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Или желающих помочь нет или задача настолько проста, что некто не хочет обращать на нее внимания :(
...
Рейтинг: 0 / 0
15.06.2006, 08:16:36
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33791827
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
EvrodillerИли желающих помочь нет или задача настолько проста, что некто не хочет обращать на нее внимания :(
почитай в хелпе про именованные ячейки, думаю тебе все станет ясно.
любой ячейке можно дать имя
у тебя строчка
Код: plaintext
Range("Отчет").Clear
ссылается на ячейку с именем "Отчет" (пытается её очистить)
но не находит и поэтому ошибка
...
Рейтинг: 0 / 0
15.06.2006, 09:08:43
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33792841
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Нет с именнованной ячейкой все норм было. Я называл функцию "Отчет" , проблема возникала при выполнение этой функции, из=-за объединения ячеек.
Спасибо всем!
...
Рейтинг: 0 / 0
15.06.2006, 13:47:04
| Ответить | Цитировать | Написать  
Найти и вставить диапазон по условию
    #33792987
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
EvrodillerНет с именнованной ячейкой все норм было. Я называл функцию "Отчет" , проблема возникала при выполнение этой функции, из=-за объединения ячеек.
Спасибо всем!
Нерекомендуется давать имена, русскими буквами, как функциям так и ячейкам!
...
Рейтинг: 0 / 0
15.06.2006, 14:21:34
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти и вставить диапазон по условию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33791827&tid=2184758]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 71ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 238ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]