[Импорт] Вопросы по Excel :-))

[Nozorrog]

Passware Kit Enterprise 9. 3 Full
Удачи :-))

[Arty@m]

Доброго времени суток!
Ломаю голову над такой задачкой:
Дана таблица 100x100 заполненная рэндомными числами в пределах от 0 до 100. Нужно определить, чётное или нечётное число, и в зависимости от этого перекрасить ячейку в таблице.
Прошу помощи в создании такого макроса.
Заранее спасибо.

[Vasuha]

Заполнили:
Randomize
For i = 1 To 100
For j = 1 To 100
Cells(i, j) = Round(Rnd * 100)
Next j
Next i

А условным форматированием закрасили . Вроде так

[axlwor]

Arty@m, 2007 excel
=СЛУЧМЕЖДУ(1;100) - заполняем по нужной таблице
Главная. Условное форматирование, Управление правилами, Создать правило.
Использовать формулу....
=ЕНЕЧЁТ(A1) или =ЕЧЁТН(A1)
Формат
выбираешь сам
ОК
Применяется для.. выбираешь свою таблицу

PS. excel 2003. Где то аналогично, но называется условное форматирование. Формулу можно придумать
=ОСТАТ(A1;2)=0

[Phobous]

'заполнить случайными числами от 1 до 100
Sub fill()
For i = 1 To 100
For j = 1 To 100
Cells(i, j) = Int((100 - 1 + 1) * Rnd + 1)
Next j
Next i
End Sub

'закрасить цветом
Sub addcolor()
For i = 1 To 100
For j = 1 To 100
Dim number As Integer
number = Cells(i, j).Value
number = number - 2 * Int((number / 2))
If (number) = 0 Then
Cells(i, j).Interior.color = RGB(255, 0, 0)
Else
Cells(i, j).Interior.color = RGB(0, 255, 0)
End If
Next j
Next i
End Sub

[tranziwatt]

подскажите пожалуйста

не смейтесь только...

1)мне нужно чтоб в Экселе посчитать весь столбец и выдать это число в отдельную клетку.

2)есть таблица, в ней записаны часы "с - до" т.е. скажем 08:00-15:00 , как сделать чтоб часы автоматом считались в соседнею клетку ? т.е. 7 час выдавало.


П.С. третий раз в жизни Экселем пользуюсь


с первым разобрался... с часиками поможете?

[Phobous]

Цитата: Сообщение от tranziwatt 2)есть таблица, в ней записаны часы "с - до" т.е. скажем 08:00-15:00 , как сделать чтоб часы автоматом считались в соседнею клетку ? т.е. 7 час выдавало.

в соседней ячейке вводишь функцию

Цитата: =ЧАС(ссылка на ячейку с временем)

[tranziwatt]

Цитата: Сообщение от Phobous в соседней ячейке вводишь функцию

не выходит


формат ячеек там и там "Время"

[Phobous]

Нужно считать интервал в часах между двумя моментами времени?

[Phobous]

Формат ячейки, в которой записан интервал (например, 18:00-19:00) - это текст, а не время! Допустим наша ячейка H25. В ней 18:00-19:00. В соседнюю ячейку пишем

=ЧАС(ПРАВСИМВ(H25;5))-ЧАС(ЛЕВСИМВ(H25;5)). Значение будет 1.

[tranziwatt]

Phobous,
1. пол часа не записывает



2. как бы сделать чтоб не нужно было в пустых полях ноль ставить.. а то оно выдает тогда #ЗНАЧ! и из за этого сразу НЕ считает сумму всего столбца

[Phobous]

Моя функция считает только разницу в целых часах.

Попробуй с минутами

Цитата: =ЧАС(ПРАВСИМВ(B8;5))-ЧАС(ЛЕВСИМВ(B8;5))+(МИНУТЫ(ПРАВСИМВ(B8;5))-МИНУТЫ(ЛЕВСИМВ(B8;5)))/60

Цитата: Сообщение от tranziwatt 2. как бы сделать чтоб не нужно было в пустых полях ноль ставить.. а то оно выдает тогда #ЗНАЧ! и из за этого сразу НЕ считает сумму всего столбца

удалить из этой ячейки формулу.

[Chet]

Цитата: Сообщение от tranziwatt 2. как бы сделать чтоб не нужно было в пустых полях ноль ставить..

Цитата: Сообщение от Phobous удалить из этой ячейки формулу.

не-... поставить проверку ЕСЛИ(RC[-1]=''

что-то в этом роде

ячейка с нулём и пустая ячейка - две большие разницы

[Phobous]

ну да.

Цитата: ЕСЛИ(СЧИТАТЬПУСТОТЫ(B8)=0;ЧАС(ПРАВСИМВ(B8;5))-ЧАС(ЛЕВСИМВ(B8;5))+(МИНУТЫ(ПРАВСИМВ(B8;5))-МИНУТЫ(ЛЕВСИМВ(B8;5)))/60 ;0)

[tranziwatt]

в общем не выходит у меня блин не фига...