Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / SOS !!! (Excel+VBA) / 11 сообщений из 11, страница 1 из 1
20.11.2006, 11:47:09
    #34140358
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Люди добрые, помогите кто чем может...
Есть три листа со значениями, ни их основе нужно создать четвёртый, но зато какой !
1. с одного листа приверять входимость детали в сборку (деталей много)
2. согласно коду детали (п.1) брать данные как с этого листа так и с двух других листов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2006, 13:50:09
    #34140849
svetolux
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Может Excel выложишь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2006, 16:41:46
    #34141563
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
1. Отконвертируй файлы сам в Эксель, а то во уже во втором сбоит импорт.
2. Конкретизируй - что откуда брать, что куда писать, приведи пример (хотя бы частично)
исходников и готовой таблицы, вообщем, без реляционной модели тебе никто слова не скажет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2006, 05:17:36
    #34142384
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Пардон !!! (что выложил текстовики, вместо Excel)
в этом файле пример+задание
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2006, 05:08:39
    #34145401
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Есть какие-нибудь варианты ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2006, 17:33:34
    #34147849
SvIva
SvIva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Если еще не сделал, предлагаю решение без VBA, только формулы листа и именованные диапазоны. См. файл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.11.2006, 02:44:08
    #34148620
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
SvIva СПАСИБО !!!
я знал что рунет не без добрых людей !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 09:19:17
    #34152223
SvIva
SvIva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Второе решение - на VBA. В макросе используется ф-ция FindValueInColumn, выложенная на форуме уважаемым White Owl. Мне кажется, это решение более наглядное и гибкое (ИМХО).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2006, 03:56:00
    #34159428
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
сделал макрос, но остались недочёты:
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, 09:19:31
    #34159623
SvIva
SvIva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
Код: 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
| Ответить | Цитировать | Написать  
02.12.2006, 04:37:55
    #34172123
sax7378
sax7378
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOS !!! (Excel+VBA)
наверно достал уже со своим макросом....

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

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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / SOS !!! (Excel+VBA) / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 282ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183829]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 192ms
total:  282ms
x
x
Закрыть


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