Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу получить значение ячейки / 9 сообщений из 9, страница 1 из 1
13.08.2009, 02:04:52
    #36140703
daunito
daunito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
Не пинайте сильно, VBA в руки не брал со школы. Надо в макросе перебрать все значения столбца, чтобы найти максимальный, пишу так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub MySuperMacroc()
 Const Items =  30 
 Dim Cel(Items) As Integer
 Max = Worksheets( 1 ).Cells( 2 ,  4 ).Value
 For Each Item In ActiveSheet.Range(Cells( 2 ,  4 ), Cells(Items +  1 ,  4 ))
  If Item.Value > Max Then Max = Item
 Next
End Sub
но на строке Max = Worksheets(1).Cells(2, 4).Value, точнее после ее выполнения Max=empty. Почему? где я косячу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 04:20:16
    #36140723
Эксперементатор
Эксперементатор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
Вы уверены, что ячейка Д2 не пустая?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 09:22:30
    #36140860
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
Поиск максимума в A1:A10.
Код: plaintext
Application.WorksheetFunction.Max(range("A1:A10"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 11:08:02
    #36141134
daunito
daunito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
ЭксперементаторВы уверены, что ячейка Д2 не пустая? огромное тебе спасибо! Перепутал колонку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 11:38:57
    #36141253
daunito
daunito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
big-dukeПоиск максимума в A1:A10.
Код: plaintext
Application.WorksheetFunction.Max(range("A1:A10"))
я знаю. Короче, мне надо загнать весь столбец в массив в порядке убывания, чтобы составить рейтинг. А рядом с каждым значением из первоначального столбца поставить место, которое он занимает. Если есть идеи получше - буду рад
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:19:52
    #36141393
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
daunito,

есть функция Rank();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:21:37
    #36141397
qwrqwr
qwrqwr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
daunitoА рядом с каждым значением из первоначального столбца поставить место, которое он занимает. Если есть идеи получше - буду раднапишите в B1 формулу =RANK(A1;A:A) и протяните её вниз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 14:37:20
    #36141947
daunito
daunito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
Ранг работает наоборот, мне надо чтобы первое место было у того, у кого меньше значение. Пробовал сделать max-rank(...), где max - количество записей, но если есть записи с одинаковым рангом, то работает не правильно. Может есть такая функция? А то уже думаю сделать значения обратными (не 1739, а 1/1739) и после этого считать ранг.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 14:59:42
    #36142033
qwrqwr
qwrqwr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу получить значение ячейки
daunitoРанг работает наоборот, мне надо чтобы первое место было у того, у кого меньше значение. Пробовал сделать max-rank(...), где max - количество записей, но если есть записи с одинаковым рангом, то работает не правильно. Может есть такая функция? А то уже думаю сделать значения обратными (не 1739, а 1/1739) и после этого считать ранг.есть еще 1 вариант - прочитать встроенную справку :)
F1Syntax

RANK(number,ref,order)

Number is the number whose rank you want to find.

Ref is an array of, or a reference to, a list of numbers. Nonnumeric values in ref are ignored.

Order is a number specifying how to rank number.

If order is 0 (zero) or omitted, Microsoft Excel ranks number as if ref were a list sorted in descending order.
If order is any nonzero value, Microsoft Excel ranks number as if ref were a list sorted in ascending order. =RANK(A1;A:A;1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу получить значение ячейки / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 505ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179172]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 237ms
total:  505ms
x
x
Закрыть


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