Вопрос № 85423: Предположим я в редакторе VBA в Excel написал вот такую функцию
Function Test(i As Integer) As Integer
Test = i + 5
End Function
Теперь возвращаюсь в Excel и в одной из ячеек ввожу:
=Test(С5)
В результате получается...Вопрос № 85430: Уважаемые Эксперты подскажите как вызвать окно "установка связи с Интернетом" в ХР...
Вопрос № 85.423
Предположим я в редакторе VBA в Excel написал вот такую функцию
Function Test(i As Integer) As Integer
Test = i + 5
End Function
Теперь возвращаюсь в Excel и в одной из ячеек ввожу:
=Test(С5)
В результате получается содержимое ячейки С5+5. Тут все понятно.
Из всего вышеперечисленного у меня вопрос:
Хочу написать подобную функцию которая подсвечивала бы содержимое этой же ячейки если значение в этой же ячейки больше определенного значения.
Подскажите как получить значение ячейки в которой будет вызыватся эта функция.
И как получить доступ к свойствам шрифта ячейки с которой придется работать.
Отправлен: 04.05.2007, 12:35
Вопрос задал: Mironicuss (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Денисов Сергей Иванович
Здравствуйте, Mironicuss!
Для этих целей есть Условное форматирование из меню Формат
Ответ отправил: Денисов Сергей Иванович (статус: 1-ый класс)
Ответ отправлен: 04.05.2007, 12:55
Отвечает: PsySex
Здравствуйте, Mironicuss!
В приложении подпрограмма, она ничего не возвращает. Входной параметр ячейка как строка.
вызов подпрограммы
Call test("A2")
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 04.05.2007, 13:15
Отвечает: HookEst
Здравствуйте, Mironicuss!
Условное форматирование Вам нужно.
Excel насколько я знаю не дает форматировать ячейки во время расчета формул, если только попробовать в формуле сохранять ссылки на нужные ячейки, а форматировать по таймеру??
а передавать просто:
в ячейке A1: =test(A1, 12689)
в ячейке A2: =test(A2, -59846)
в модуле
Function test(r as range,avalue)
'r - ячейка A1,A2...
'следующая строка не сработает, нужно что-то еще
r.Font.Bold=true
'r.Value- использовать нельзя - зациклится
'выдаем значение
test=avalue
End Function
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 04.05.2007, 14:45
Вопрос № 85.430
Уважаемые Эксперты подскажите как вызвать окно "установка связи с Интернетом" в ХР
Отправлен: 04.05.2007, 13:56
Вопрос задал: Masol (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PsySex
Здравствуйте, Masol!
Может вы имели ввиду "Подключение удаленного доступа" ???
К ответу пристегнут архив с 3-мя примерами, надеюсь вам поможет.
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 05.05.2007, 10:44 Оценка за ответ: 5 Комментарий оценки: то что надо
Отвечает: LEXASOFT
Здравствуйте, Masol!
Этот код автоматически дозвонится по интернет соединению по умолчанию:
uses
WinInet;
procedure TForm1.Button1Click(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
// not connected
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
// error
end;
end;
Ответ отправил: LEXASOFT (статус: 3-ий класс)
Ответ отправлен: 06.05.2007, 01:08