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


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