Красотка
Дата: Суббота, 14.03.2015, 16:49 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Добрый день! Просмотрела темы, ответа на свой вопрос не нашла, помогите написать макрос, пожалуйста, файл приложен
Добрый день! Просмотрела темы, ответа на свой вопрос не нашла, помогите написать макрос, пожалуйста, файл приложен Красотка
Ответить
Сообщение Добрый день! Просмотрела темы, ответа на свой вопрос не нашла, помогите написать макрос, пожалуйста, файл приложен Автор - Красотка Дата добавления - 14.03.2015 в 16:49
DJ_Marker_MC
Дата: Суббота, 14.03.2015, 17:16 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация:
213
±
Замечаний:
0% ±
Excel 2019
Красотка , Добрый вечер. Как насчет такого решения? [vba]Код
Sub iRanng() Application.ScreenUpdating = False Range("C2:C50").FormulaR1C1 = "=RANK.EQ(RC[-1],R2C2:R50C2)" Range("C2:C50").Value = Range("C2:C50").Value Application.ScreenUpdating = True End Sub
[/vba]
Красотка , Добрый вечер. Как насчет такого решения? [vba]Код
Sub iRanng() Application.ScreenUpdating = False Range("C2:C50").FormulaR1C1 = "=RANK.EQ(RC[-1],R2C2:R50C2)" Range("C2:C50").Value = Range("C2:C50").Value Application.ScreenUpdating = True End Sub
[/vba]DJ_Marker_MC
Ответить
Сообщение Красотка , Добрый вечер. Как насчет такого решения? [vba]Код
Sub iRanng() Application.ScreenUpdating = False Range("C2:C50").FormulaR1C1 = "=RANK.EQ(RC[-1],R2C2:R50C2)" Range("C2:C50").Value = Range("C2:C50").Value Application.ScreenUpdating = True End Sub
[/vba]Автор - DJ_Marker_MC Дата добавления - 14.03.2015 в 17:16
RAN
Дата: Суббота, 14.03.2015, 17:23 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[vba]Код
Sub мяу() Dim i As Long, k As Long, LARGE As Double, arr arr = Range(Cells(2, "B"), Cells(Rows.Count, "B").End(xlUp)).Value For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row - 1 LARGE = Application.WorksheetFunction.LARGE(arr, k) For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, 2) = LARGE Then Cells(i, 3) = k Next Next End Sub
[/vba]
[vba]Код
Sub мяу() Dim i As Long, k As Long, LARGE As Double, arr arr = Range(Cells(2, "B"), Cells(Rows.Count, "B").End(xlUp)).Value For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row - 1 LARGE = Application.WorksheetFunction.LARGE(arr, k) For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, 2) = LARGE Then Cells(i, 3) = k Next Next End Sub
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [vba]Код
Sub мяу() Dim i As Long, k As Long, LARGE As Double, arr arr = Range(Cells(2, "B"), Cells(Rows.Count, "B").End(xlUp)).Value For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row - 1 LARGE = Application.WorksheetFunction.LARGE(arr, k) For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, 2) = LARGE Then Cells(i, 3) = k Next Next End Sub
[/vba] Автор - RAN Дата добавления - 14.03.2015 в 17:23
Красотка
Дата: Суббота, 14.03.2015, 17:24 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Оказалось все не так сложно! Спасибо большое!
Оказалось все не так сложно! Спасибо большое! Красотка
Ответить
Сообщение Оказалось все не так сложно! Спасибо большое! Автор - Красотка Дата добавления - 14.03.2015 в 17:24