ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / SOS !!! (Excel+VBA)
11 сообщений из 11, страница 1 из 1
SOS !!! (Excel+VBA)
    #34140358
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
Люди добрые, помогите кто чем может...
Есть три листа со значениями, ни их основе нужно создать четвёртый, но зато какой !
1. с одного листа приверять входимость детали в сборку (деталей много)
2. согласно коду детали (п.1) брать данные как с этого листа так и с двух других листов
...
Рейтинг: 0 / 0
20.11.2006, 11:47:09
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34140849
svetolux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
svetolux
Участник
Может Excel выложишь?
...
Рейтинг: 0 / 0
20.11.2006, 13:50:09
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34141563
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
1. Отконвертируй файлы сам в Эксель, а то во уже во втором сбоит импорт.
2. Конкретизируй - что откуда брать, что куда писать, приведи пример (хотя бы частично)
исходников и готовой таблицы, вообщем, без реляционной модели тебе никто слова не скажет...
...
Рейтинг: 0 / 0
20.11.2006, 16:41:46
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34142384
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
Пардон !!! (что выложил текстовики, вместо Excel)
в этом файле пример+задание
...
Рейтинг: 0 / 0
21.11.2006, 05:17:36
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34145401
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
Есть какие-нибудь варианты ?
...
Рейтинг: 0 / 0
22.11.2006, 05:08:39
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34147849
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SvIva
Участник
Если еще не сделал, предлагаю решение без VBA, только формулы листа и именованные диапазоны. См. файл.
...
Рейтинг: 0 / 0
22.11.2006, 17:33:34
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34148620
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
SvIva СПАСИБО !!!
я знал что рунет не без добрых людей !!!
...
Рейтинг: 0 / 0
23.11.2006, 02:44:08
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34152223
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SvIva
Участник
Второе решение - на VBA. В макросе используется ф-ция FindValueInColumn, выложенная на форуме уважаемым White Owl. Мне кажется, это решение более наглядное и гибкое (ИМХО).
...
Рейтинг: 0 / 0
24.11.2006, 09:19:17
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34159428
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
сделал макрос, но остались недочёты:
1. не могу разделить столбец на два, т.е. после преобразований (см. макрос)
выводится столбец "ЦУ-ЦПУ"

ЦУ-ЦПУ
224-225,226-227
224-224
214-234,224-275
201-214,221-231,224-275

разделить так, чтобы то, что стоит до "-" записывалось в столбец "ЦУ" то что после "-" в столбец "ЦПУ"

ЦУ_____________________ЦПУ
224 226_________________225 227
224_____________________224
214 224__________________234 275
201 221 224______________214 231 275

подскажите как это попроще реализовать....
...
Рейтинг: 0 / 0
28.11.2006, 03:56:00
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34159623
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SvIva
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub test()
a = "201-214,221-231,224-275"
Do While True
    i = InStr( 1 , a, "-")
    j = InStr( 1 , a, ",")
    If j =  0  Then j = Len(a) +  1 
    CU = Mid(a,  1 , i -  1 )
    CPU = Mid(a, i +  1 , j - i -  1 )
    If j = Len(a) +  1  Then Exit Do
    a = Mid(a, j +  1 )
Loop
End Sub
...
Рейтинг: 0 / 0
28.11.2006, 09:19:31
| Ответить | Цитировать | Написать  
SOS !!! (Excel+VBA)
    #34172123
sax7378
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sax7378
Гость
наверно достал уже со своим макросом....

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

If (s <> s2) And (s <> Empty) Then ' либо elseIf (s <> s2) And (s <> Empty) Then
Application.Worksheets("Результат").Select
Application.Cells(l2, 2) = s
Application.Cells(l2, 1) = s11
l2 = l2 + 1
...
Рейтинг: 0 / 0
02.12.2006, 04:37:55
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / SOS !!! (Excel+VBA)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34148620&tid=2183829]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 238ms
total:  387ms
созд. / загр.: 387ms
x
x
Закрыть


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