Сообщений в теме: 914

[asr]

Спасибо большое! У меня массив 500 тыс. строк и вручную что то сделать невозможно. А итоги ( "остальные страны мира", "страны СНГ") я потом удалю. При этом от меня требуют совпадения вплоть до цента

Вы уверены что 500 тыс. строк влезут в Excel?

[Valnor]

Спасибо большое! У меня массив 500 тыс. строк и вручную что то сделать невозможно. А итоги ( "остальные страны мира", "страны СНГ") я потом удалю. При этом от меня требуют совпадения вплоть до цента

Вы уверены что 500 тыс. строк влезут в Excel?

начиная с 2007 влезут и 1 000 000 и больше. Там ведь сейчас самая дальняя ячейка это XFD1048576

Сообщение отредактировал Vampir_AB: 22.11.2012, 10:07:49

[технолог]

Возможно, что это уже было, но на этой ссылке http://www.excel-eto...to.ru/?s=fm_164 есть несколько уроков для начинающих любителей макросов.

[Daulet.tech]

В книге для примера я сделал по одному коду. Очень прошу помочь с алгоритмом.

Думаю опоздал, так как сегодня зарегистрировался
макрос должен включен, использовал массив, не проверял на 500 тыс. страниц строк
проверил на 520803 строк за ~31 сек (Win7-32 bit,ОЗУ 2 Гб, Excel 2007)

Прикрепленные файлы

•  пример111.rar   25,93К   Количество загрузок: 89

Сообщение отредактировал DauletAhamanov: 16.12.2012, 16:17:39

[Мэс]

DauletAhamanov молодчик!

[Don_Quijote]

Только сегодня увидел
DauletAhamanov Спасибо!!!

Сообщение отредактировал Don_Quijote: 19.12.2012, 13:20:42

[killing me softly]

Уважаемые любители и профессионалы.
Посоветуйте, пожалуста, какие-нибудь курсы или обучалки по макросам у нас в Алмате. Я кучу книг проштудировала, и чем больше изучаешь, тем больше возникает вопросов.

[Daulet.tech]

killing me softly, Вам совет: самый лучший ФОРУМ!
Don_Quijote, описание:

Скрытый текст

Sub www()
Dim a As Variant, c As Variant
Dim i&, ii&, kd As String, nt As String, ed As String

'1{--заносим в массив
With Sheets(1)
a = .Range("A5:I" & .Cells(.Rows.Count, 2).End(xlUp).Row).Value
End With
'1--}----------------------------

ii = 1

'2{--пустой массив для результатов
ReDim c(1 To UBound(a), 1 To 8)
'2--}-----------------------------

For i = 1 To UBound(a)
'3{--Если строка не пусто (столбец A), тогда запоминаем для дальнейшего заполнения
If Not a(i, 1) = "" Then
kd = a(i, 1)
nt = a(i, 2)
ed = a(i, 3)
'3--}------------------------------
Else
'4{--Если строка (Столбец A) пусто, тогда заполняем запомневшие значении
c(ii, 2) = kd
c(ii, 3) = nt
c(ii, 7) = ed
'4--}------------------------------
'5{--Если в строке существ. символ "-", тогда на импорт
If a(i, 4) = "-" Then
c(ii, 1) = "Импорт"
c(ii, 4) = a(i, 2)
c(ii, 5) = a(i, 7)
c(ii, 6) = a(i, 9)
c(ii, 8) = a(i, 8)
ii = ii + 1
'5--}------------------------------
Else
'6{--Если в строке не существ. символ "-", тогда на экспорт
c(ii, 1) = "Экспорт"
c(ii, 4) = a(i, 2)
c(ii, 5) = a(i, 4)
c(ii, 6) = a(i, 6)
c(ii, 8) = a(i, 5)
ii = ii + 1
'6--}------------------------------
End If
End If

Next

With Sheets(2)
'7{--по формату (2,5,6,8 - столбцы)
.Columns(2).NumberFormat = "@" 'текстовой формат
.Columns(5).NumberFormat = "#,##0.0" 'числовой формат
.Columns(6).NumberFormat = "#,##0.0" 'числовой формат
.Columns(8).NumberFormat = "#,##0.0" 'числовой формат
'7--}-------------------------------

'8{--выгружаем результат
.[a4].Resize(UBound(c), 8) = c
'8--}-------------------------------

With .UsedRange
.Borders().LineStyle = xlContinuous 'границы
End With

.Activate 'активируем

End With

End Sub

что-то тег не могу найти VBA...

Сообщение отредактировал DauletAhamanov: 19.12.2012, 15:53:32

[darkfire]

Посоветуйте, пожалуйста, какие-нибудь курсы или обучалки по макросам у нас в Алмате. Я кучу книг проштудировала, и чем больше изучаешь, тем больше возникает вопросов.

Я думаю вам не на курсы надо, а просто побольше практики раз теорию уже из книг почерпнули.
Когда изучаешь только теорию бывает сложно понять как это все в реальности, так что поищите чего-нибудь вроде "сборник задач по VBA"

[Daulet.tech]

killing me softly, делайте пример, где не получается поможем...

Сообщение отредактировал DauletAhamanov: 19.12.2012, 19:58:19

[killing me softly]

Я думаю вам не на курсы надо, а просто побольше практики раз теорию уже из книг почерпнули.
Когда изучаешь только теорию бывает сложно понять как это все в реальности, так что поищите чего-нибудь вроде "сборник задач по VBA"

Тоже верно. К примеру, я могу создать пару простых макросов путем копирования их из учебника в фаил.
Сейчас задача стоит перейти на новый уровень - создавать самой эти макросы, понять все нюансы быть лучшей. А книг валом, от а до я. На самом деле, давно задавалась вопросом - есть ли у нас курсы в Алматы именно для опытных пользователей, а не чайников, на которых учат макросам и VBA.

делайте пример, где не получается поможем...

Спасибо Вам большое!
А за ссылочки отдельное огромное спасибо!!!

Сообщение отредактировал killing me softly: 20.12.2012, 09:01:11

[АНАСТАСИЯ 26]

всем привет, посоветуйте где у нас в алмате можно научится работать в икселе. Еще вопрос. вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

[killing me softly]

всем привет, посоветуйте где у нас в алмате можно научится работать в икселе. Еще вопрос. вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

Привет. Работать можно научится в любой крупной компании на аналитической позиции, желательно в ритейте или дистрибьюторской торговой компании (большие ассортиментные матрицы, сложные отчеты). Если вы имели в виду курсы - то на моей практике полно курсов лишь для чайников. (учат совсем базовым вещам). Если хотите идти дальше - то качайте кучу книг, наглядных самоучителей (отличная вещь кстати), и вперед вечерами заниматься самообразованием.
По поводу формулы - хз, проверьте формат на входе и на выходе.

[АНАСТАСИЯ 26]

всем привет, посоветуйте где у нас в алмате можно научится работать в икселе. Еще вопрос. вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

Привет. Работать можно научится в любой крупной компании на аналитической позиции, желательно в ритейте или дистрибьюторской торговой компании (большие ассортиментные матрицы, сложные отчеты). Если вы имели в виду курсы - то на моей практике полно курсов лишь для чайников. (учат совсем базовым вещам). Если хотите идти дальше - то качайте кучу книг, наглядных самоучителей (отличная вещь кстати), и вперед вечерами заниматься самообразованием.
По поводу формулы - хз, проверьте формат на входе и на выходе.

я тот самый (чайник) мне надо научится рисовать . откуда начинать ?

[darkfire]

К примеру, я могу создать пару простых макросов путем копирования их из учебника в фаил.
Сейчас задача стоит перейти на новый уровень - создавать самой эти макросы, понять все нюансы быть лучшей.

Дык о том и речь, что не готовый листинг копировать, а прочитать задачу самой её решить

[Daulet.tech]

... вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

скорее всего у них не включен макрос.

[АНАСТАСИЯ 26]

... вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

скорее всего у них не включен макрос.

спасибо, а что им делать ?

[Daulet.tech]

http://www.excel-vba...abotaet-makros/

[in_t7]

Уважаемые любители и профессионалы.
Посоветуйте, пожалуста, какие-нибудь курсы или обучалки по макросам у нас в Алмате. Я кучу книг проштудировала, и чем больше изучаешь, тем больше возникает вопросов.

всем привет, посоветуйте где у нас в алмате можно научится работать в икселе. Еще вопрос. вот я сохранила форму. передаю ее на имеил. а он там не открывается. что делаю не так? спасибо

Индивидуально. Делюсь опытом:

• в постановках задач и программировании (для начинающих с чего-то начать)
• Эффективному использованию приложений MS Office (Word, Excel и т.п.)

в общем - это два разных подхода к методике, набору и практике использования компьютера и его программного обеспечения:

• для тех, кто хочет связать себя с IT: анализ, постановка, выбор средств, реализация.
• для тех, кто хочет научиться использовать компьютерные программы как средство в повседневной работе: общие или специализации по професcии (знаниям предметных областей).

Занятия в офисе Попова/Бальзака (р-он Маркова/Тимирязева) в оговоренное время периода с 9:00 до 20:00.

Доп. инф через for_t7 (a) mail.ru.

Сообщение отредактировал in_t7: 05.01.2013, 12:59:10

[personne]

Добрый день.
Может подскажет кто-нибудь как поменять кнопки при переключении между листами с Ctrl+PUp/Doun на левую сторону, например Alt+Q?