Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 524
от 09.05.2007, 22:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 258, Экспертов: 35
В номере:Вопросов: 2, Ответов: 5


Вопрос № 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 (beta) от 02.05.2007
Яндекс Rambler's Top100

В избранное