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

[Daulet.tech]

2*1+2*2 это я для примера написал, ну чтобы знали как работает СТРОКА() и СТОЛБЕЦ() (то есть массив). для Вашего последнего файла, код в лист (ALT+F11): 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$I$5" Then Exit Sub

    Dim i&, y&

    Application.ScreenUpdating = 0

    y = 5

    Range("J5:L" & Cells(Rows.Count, 10).End(xlUp).Row).ClearContents

    [J4].Resize(1, 3).Value = Array("Имя", "Плод", "Какой")

    For i = 5 To Cells(Rows.Count, 2).End(xlUp).Row

        If Target.Value = Range("B" & i).Value Then

            Range("J" & y).Value = Range("C" & i).Value

            Range("K" & y).Value = Range("D" & i).Value

            Range("L" & y).Value = Range("E" & i).Value

            y = y + 1

        End If

    Next

    Application.ScreenUpdating = 1

End Sub

 

 

 ---------------------------------------------------------------------------------------------------------------- Planetaexcel.ru, Excelworld.ru и др. форумы по Excel VBA.

Сообщение отредактировал DauletAhamanov: 17.06.2014, 17:37:29

[sinsemilia]

2*1+2*2 это я для примера написал, ну чтобы знали как работает СТРОКА() и СТОЛБЕЦ() (то есть массив).

Ааа...поняла! Здорово и очень удобно, их же можно использовать в ВПР и ГПР и других формулах. Спасибо!

 

для Вашего последнего файла, код в лист (ALT+F11): 

Спасибо огромное, Дархан! Макрос идеально работает! Спасибо!       

 

Следующий макрос сама напишу!   

Сообщение отредактировал sinsemilia: 18.06.2014, 12:07:30

[Весь Китай]

ДД. 

Подскажите пож-та как в пузырьковой диаграмме добавить несколько рядов данных? 

Спасибо. 

[sinsemilia]

ДД. 

Подскажите пож-та как в пузырьковой диаграмме добавить несколько рядов данных? 

Спасибо. 

На вкладке где диаграммы есть опция "Выбрать данные", заходите в нее, там видно, какие ряды захватывает диаграмма. Ну и соответственно, нажимаете кнопочку "Добавить" и добавляете сколько вам нужно. 

[M.D. House]

Вдруг кому пригодится.

 

http://www.planetaexcel.ru/

[captcha]

Нужна формула для округления чисел до 50.

 

1978.23 - 2050

1913 - 1950

1949 - 1950

2010 - 2050 

 

Написал так =ОКРУГЛ(J126-50;-2)+СУММ((ОСТАТ(J126;100)>={0;50})*50).

 

Но 1978 округлчет до 2000, а не 2050

[vladimir55]

Нужна формула для округления чисел до 50.

 

1978.23 - 2050

1913 - 1950

1949 - 1950

2010 - 2050 

 

Написал так =ОКРУГЛ(J126-50;-2)+СУММ((ОСТАТ(J126;100)>={0;50})*50).

 

Но 1978 округлчет до 2000, а не 2050

=ОКРУГЛВВЕРХ(([ссылка_на_ячейку]-50)/100;0)*100+50 - неправильно работает с числами меньше 50, получается -50

[sinsemilia]

Нужна формула для округления чисел до 50.

 

1978.23 - 2050

1913 - 1950

1949 - 1950

2010 - 2050 

 

Написал так =ОКРУГЛ(J126-50;-2)+СУММ((ОСТАТ(J126;100)>={0;50})*50).

 

Но 1978 округлчет до 2000, а не 2050

=ОКРВВЕРХ(ячейка/50;1)*50

Сообщение отредактировал sinsemilia: 09.07.2014, 11:06:41

[Daulet.tech]

=A1-ОСТАТ(A1;100)+ЕСЛИ(ОСТАТ(A1;100)>50;150;50)

=A1-ОСТАТ(A1;100)+ВЫБОР(--(ОСТАТ(A1;100)>50)+1;50;150)

=A1-ОСТАТ(A1;100)+(ОСТАТ(A1;100)>50)*150+(ОСТАТ(A1;100)<=50)*50

[покупатель]

Скажите плиз, добрый человеки!

У меня есть файл - строк 93 000.

Каждый 162 строки заполнена инфой, потом промежуток в 9 строк, и занова 162 строчки заполнены информацией, и снова 9 пустых строк.

Пример

с 5 по 166 строку информация, с 167-175 пустые строки, с 176 - 337 информация, и снова 338-346 пустые строки, и такая тенденция до 93 000 строк.

 

Теперь вопрос, мне нужно из каждых 9 пустых срок, сделать 30 пустых строчек, то есть в  итоге было бы так. 162 строки с инфой и 30 строчек пустые и снова 162 строки с инфой и 30 пустых.

 

Я понимаю, что можно ручками, и прошлый раз эти 9 строчек я именно так вставлял, но есть ли способ сделать это быстрее нежели, копировать руками (((((((((

 

Большое спасибо.

[Daulet.tech]

Sub test2()
    Dim i&, x&
    x = InputBox("Введите кол-во строк, сколько хотите добавить") - 9
    For i = Cells(Rows.Count, 1).End(xlUp).Row - 162 To 5 Step -171
        Range("A" & i).Resize(x).EntireRow.Insert
    Next
End Sub

 для Вашего примера

[покупатель]

Sub test2()
    Dim i&, x&
    x = InputBox("Введите кол-во строк, сколько хотите добавить") - 9
    For i = Cells(Rows.Count, 1).End(xlUp).Row - 162 To 5 Step -171
        Range("A" & i).Resize(x).EntireRow.Insert
    Next
End Sub

 для Вашего примера

 

 

Попробовал, не получилось.

Дорогой человек), не могли бы вы пошагово написать, как сделать? у меня Эксель 2010?

[Daulet.tech]

Sub test2()

    Dim i&, x&

    x = InputBox("Введите кол-во строк, сколько хотите добавить") - 9 'если Вы хотите сделать 9 на 30, тогда пишите 30

    For i = Cells(Rows.Count, 1).End(xlUp).Row - 162 To 5 Step -171

' 162 это: (Каждый 162 строки заполнена инфой), 5 это: (с 5 строки), 171 это: добавляет каждые строки 162+9

Range("A" & i).Resize(x).EntireRow.Insert

    Next

End Sub

Сообщение отредактировал DauletAhamanov: 17.07.2014, 14:19:36

[Ali2010]

http://www.planetaex...TITLE_SEO=45008 подскажите подробности кто знает? как создать "кнопку"...мне примерная табл.нужна

[kasse]

Есть люди способные программировать адд-ины под Ексель на C#?

Тут есть работка, с неплохой зп. Если что пишите в ЛС

[sinsemilia]

http://www.planetaex...TITLE_SEO=45008 подскажите подробности кто знает? как создать "кнопку"...мне примерная табл.нужна

Сам элемент "Кнопка" создается так:

Вкладка "Разработчик" - "Вставить" - "Элементы управления формы" - "Кнопка".

Но в вашем примере под эту копку написан макрос.

[sinsemilia]

Добрый день, уважаемые любители excel

Есть у кого-нибудь примеры решения уравнений с двумя переменными в excel? Поделитесь, пожалуйста.

[AmenOsa]

Добрый день, уважаемые любители excel

Есть у кого-нибудь примеры решения уравнений с двумя переменными в excel? Поделитесь, пожалуйста.

http://www.comizdat....icles_id&id=208

[akagoldsmith]

Подскажите по таком вопросу:

 

по каким причинам могут слетать ссылки. фаилы лежат на фаил сервере, работают в центральном фаиле ссылаются над другие фаилы. на этом же сервере. сохраняют закрывают.. опять открывают все ссылки по слетели. пишет в ячейки: #ССЫЛКА!

[sinsemilia]

Подскажите по таком вопросу:

 

по каким причинам могут слетать ссылки. фаилы лежат на фаил сервере, работают в центральном фаиле ссылаются над другие фаилы. на этом же сервере. сохраняют закрывают.. опять открывают все ссылки по слетели. пишет в ячейки: #ССЫЛКА!

Да много причин может быть. Из более менее мне известных:

1) Разные форматы, у одного 2007 эксель, у другого 2010.

2) Кто-то что-то не туда нажал, не туда зашёл, не то удалил, все, формула слетела.

3) Из-за макросов иногда формулы слетали.

 

Из всего вышеописанного основной причиной всех бед является пункт № 2

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

Сообщение отредактировал sinsemilia: 26.09.2014, 15:35:06