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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Август 2017   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

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


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

Лучшие эксперты в разделе

Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 77
∙ повысить рейтинг » 		mklokov
Статус: 6-й класс
Рейтинг: 63
∙ повысить рейтинг » 		Megaloman
Статус: Академик
Рейтинг: 22
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1121
Дата выхода:30.08.2017, 21:45
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:13 / 11
Вопросов / ответов:3 / 9

Консультация # 35006: Здравствуйте У меня проблема не магу написать код. Задача такая: необходимо в таблице Access найти значение -100000 и заменить его на предыдущее PS. Спасибо .
Консультация # 53964: Здрайствуйте. Для начала всех, кто учит с праздником, всем, кто учиться: примите мои соболезнования. :) Купил книгу "VBA", авт. - Андрей Гарнаев, издательство "bhv", серия "в подлиннике"(довольно толстая штука), прошу вас, если кто читал высказать свое мнение. Просто сначала показалось, что очень содержател...
Консультация # 85423: Предположим я в редакторе VBA в Excel написал вот такую функцию Function Test(i As Integer) As Integer Test = i + 5 End Function Теперь возвращаюсь в Excel и в одной из ячеек ввожу: =Test(С5) В результате получается содержимое ячейки С5+5. Тут все понятно. Из всего вышеперечисленного у меня вопрос: Хо...

Консультация # 35006:

Здравствуйте
У меня проблема не магу написать код. Задача такая: необходимо в таблице Access найти значение -100000 и заменить его на предыдущее
PS. Спасибо

Дата отправки: 08.02.2006, 12:52
Вопрос задал: Копысов Николай Александрович
Всего ответов: 3
Страница онлайн-консультации »

Консультирует DrakoN:

Здравствуйте, Копысов Николай Александрович!
Кидаем в форму гридку и дата...
далее настраиваем чтоб дата юзала таблицу из Access и отображала в гридке..
и пишем..
Dim a as real
Data1.Recordset.BOF = true
While Data1.Recordset.EOF = true Do
if Data1.Recordset.Field(номер поля с числом -100000) = -100000 then
Data1.Recordset.Next
a = Data1.Recordset.Field(номер поля с числом -100000)
Data1.Recordset.Previous
Data1.Recordset.Field(номер поля с числом -100000) = a
End if
Data1.Recordset.Next
End while

примерно так синтаксис может хромать но выпадающие меню решит ету проблему удачи!

Консультировал: DrakoN
Дата отправки: 08.02.2006, 13:16
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует AlexanderZh:

Здравствуйте, Копысов Николай Александрович!
Выплни такой запрос:
UPDATE [MyTable] SET [MyColumn] = -99999 WHERE [MyColumn] = -100000;

Консультировал: AlexanderZh
Дата отправки: 09.02.2006, 12:04
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Залетин Виталий Викторович:

Здравствуйте, Копысов Николай Александрович!
Выполните SQL-запрос на обновление (ConnectionObject.Execute):

Update TableName Set ColumnName = -99999 Where ColumnName = -100000

Если, конечно, цифру -99999 Вы имели ввиду под предыдущим значением.

Консультировал: Залетин Виталий Викторович
Дата отправки: 11.02.2006, 14:34
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 53964:

Здрайствуйте.
Для начала всех, кто учит с праздником, всем, кто учиться: примите мои соболезнования. :)
Купил книгу "VBA", авт. - Андрей Гарнаев, издательство "bhv", серия "в подлиннике"(довольно толстая штука), прошу вас, если кто читал высказать свое мнение.
Просто сначала показалось, что очень содержательная хорошая книга, а по мере чтения все больше разочаровываюсь.

Дата отправки: 01.09.2006, 09:17
Вопрос задал: Дмитрий Т.
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Макаренко Е.В.:

Здравствуйте, Дмитрий Т.!
Если Вы имели в виду "Самоучитель VBA. Технология создания пользовательских приложений.", то впечатление и впрямь удручающее: небольшой ликбез и курс объектов и методов Excel\'я. Лично у меня, когда пришлось разбираться с экселевским VBA, вызвала затруднения только постановка защиты на лист (парольная строка не хотела работать). И все.
По моему скромному мнению, лучшее обучение - это общие навыки по объектно ориентированому программированию + хелп ДАННОЙ среды VBA. Ибо кто под свою систему адаптирует VBA, тот обязательно поизощряется на предмет уникальных классов и методов. :(
Писать и опять копаться в справочнике конструктора...

Консультировал: Макаренко Е.В.
Дата отправки: 01.09.2006, 09:32
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Кокорич Вадим Леонидович:

Здравствуйте, Дмитрий Т.!

На вкус и цвет... Не знаю, чем Вас разоваровала эта книга - лично я с удовольствием ей пользуюсь и нахожу в ней ответы на все возникающие у меня вопросы по VBA.
На мой взгляд, Ваше разочарование объясняется несбывшимися ожиданиями - Вы явно не того ожидали от книги. Если Вы покупали ее с целью ответа на вопрос типа "БыстроеНаписаниеМакровируса" и т.п. - Вы явно ошиблись. То же самое, если Вы предполагали найти перечень конкретных, готовых рецептов на все случаи жизни: книга тем и хороша, что она дает ТОЛЬКО ОСНОВЫ, предполагая самостоятельное применение данных рекомендаций (или их комбинацию), их развитие. Вам не нравиться большое количество теории ? Простите, но это - основа, которую все равно знать надо, если Вы планируете и далее заниматься VBA.
Позвольте мне Вас процитировать: "Просто сначала показалось, что очень содержательная хорошая книга, а по мере чтения все больше разочаровываюсь". Еще раз спрошу: чем конкретно ? Примеры не работают или они примитивные ?
В общем, не аргументированное высказывание о книге. Конечно, книг о VBA написано очень много и, может быть, есть и лучше - не буду спорить. А, может, только мне одному она подходит ? ;-)

Консультировал: Кокорич Вадим Леонидович
Дата отправки: 01.09.2006, 16:43
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Митрофанов Артем Борисович:

Здравствуйте, Дмитрий Т.!
Я эту книгу читал, но знаний она мне прибавила мало, если вообще прибавила. Советую книгу Стива Брауна(издательство Питер) - Visual Basic 6. Отличная книга - почти 600 страниц, описано почти все - от обработчиков событий до ActiveX. Удачи!

Консультировал: Митрофанов Артем Борисович
Дата отправки: 01.09.2006, 18:28
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 85423:

Предположим я в редакторе 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
Страница онлайн-консультации »

Консультирует Денисов Сергей Иванович:

Здравствуйте, Mironicuss!
Для этих целей есть Условное форматирование из меню Формат

Консультировал: Денисов Сергей Иванович
Дата отправки: 04.05.2007, 12:55
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует PsySex (Профессионал):

Здравствуйте, Mironicuss!
В приложении подпрограмма, она ничего не возвращает. Входной параметр ячейка как строка.
вызов подпрограммы
Call test("A2")

Приложение:

Консультировал: PsySex (Профессионал)
Дата отправки: 04.05.2007, 13:15
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует 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
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное