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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Ноябрь 2008   →
 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


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


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

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

Статистика

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

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


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Moryarty
Статус: Студент
Рейтинг: 308
∙ повысить рейтинг >> 		Шичко Игорь
Статус: Практикант
Рейтинг: 210
∙ повысить рейтинг >> 		Grigory
Статус: Практикант
Рейтинг: 44
∙ повысить рейтинг >>

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

Выпуск № 830
от 26.11.2008, 22:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 259, Экспертов: 26
В номере:Вопросов: 3, Ответов: 3
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 151249: Доброго времени суток, уважаемые эксперты. Подскажите пожайлуста какой-нибудь подробный самоучитель по Microsoft Visual Basic 6.0 лучше чтоб начать изучать с самих основ. Заранее благодарен. ...

Вопрос № 151309: Здравствуйте. Есть две таблицы в документе Word. Состоят из множества строк и нескольких столбцов. Ячейки столбцов содержат цифровые значения. Я выделяю все ячейки в конкретном столбце (не захватывая первую ячейку верхнюю - заголовок). Необ...
Вопрос № 151372: Уважаемые Эксперты! помогите,пожалуйста,составить программу на VBA: нужно,чтобы на созданной форме при нажатии первой кнопки *Добавить* введенные в текстовое поле значения добавлялись в ячейку, а нажатием другой кнопки подсчитывалось среднее значение...

Вопрос № 151.249
Доброго времени суток, уважаемые эксперты. Подскажите пожайлуста какой-нибудь подробный самоучитель по Microsoft Visual Basic 6.0 лучше чтоб начать изучать с самих основ. Заранее благодарен.
Отправлен: 20.11.2008, 23:45
Вопрос задал: Sanik (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Grigory
Здравствуйте, Sanik!

Вот вроде довольно подробный самоучитель, и по-моему как раз для начинающих.

Иллюстрированный самоучитель по Visual Basic 6.0



---------
Если хочешь быть счастливым - будь им! (Козьма Прутков)
Ответ отправил: Grigory (статус: Практикант)
Ответ отправлен: 21.11.2008, 00:15

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 236172 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 151.309
    Здравствуйте.
    Есть две таблицы в документе Word. Состоят из множества строк и нескольких столбцов. Ячейки столбцов содержат цифровые значения. Я выделяю все ячейки в конкретном столбце (не захватывая первую ячейку верхнюю - заголовок).

    Необходимо: получить сумму значений из выделенных ячеек и занести в переменную.
    Затем я снова вручную выделяю ячейки из конкретного столбца уже второй таблицы и теперь мне нужно проссумировать значения уже из этих выделенных ячеек и прибавить к этой сумме то значение, которое мы сохранили в переменной для первой таблицы. Ну и вывести результат итоговый в виде сообщения.
    Как это можно сделать программно?

    P.S. Ячейки столбца я выделяю вручную. Нужно лишь проссумировать их и занести в переменную.
    Спасибо.
    Отправлен: 21.11.2008, 16:12
    Вопрос задал: Кокин Антон Вадимович (статус: Студент)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 0)
    Отвечает: HookEst
    Здравствуйте, Кокин Антон Вадимович!
    Selection.Cells - вернет коллекцию ячеек в выделении, проходите по ним и суммируете:

    Код:

    Option Explicit
    Private SummTable1 As Double
    Private SummTable2 As Double

    Sub t1()
    Dim c As Cell
        SummTable1 = 0
        For Each
c In Selection.Cells
            SummTable1 = SummTable1 + Val(c.Range.Text)
        Next c
        MsgBox "SummTable1=" & SummTable1
    End Sub

    Sub t2()
    Dim c As Cell
        SummTable2 = 0
        For Each c In Selection.Cells
            SummTable2 = SummTable2 + Val(c.Range.Text)
        Next c
        MsgBox "SummTable2=" & SummTable2
        MsgBox "SummTable1 + SummTable2=" & (SummTable1 + SummTable2)
    End Sub


    Успехов.
    Ответ отправил: HookEst (статус: Специалист)
    Ответ отправлен: 25.11.2008, 02:35

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 236613 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Спасибо!

    Вопрос № 151.372
    Уважаемые Эксперты! помогите,пожалуйста,составить программу на VBA: нужно,чтобы на созданной форме при нажатии первой кнопки *Добавить* введенные в текстовое поле значения добавлялись в ячейку, а нажатием другой кнопки подсчитывалось среднее значение ячеек(сумма всех ячеек,деленная на их количество).Получилось только добавлять значения в ячейки...а дальше пробелмы,поскольку не знаю как подсчитать количество ячеек с данными

    Приложение:

    Отправлен: 21.11.2008, 21:21
    Вопрос задала: Streetst (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 1)
    Отвечает: Тесленко Евгений Алексеевич
    Здравствуйте, Streetst!
    "...не знаю как подсчитать..."
    Номер последней используемой на листе строки получите так:
    Код:
    Private Function lastRow() As Long
        With ActiveSheet.UsedRange
            lastRow = .Rows.Count + .Row - 1
        End With
    End Function
    а далее с помощью цикла ...
    Евгений.
    Ответ отправил: Тесленко Евгений Алексеевич (статус: Практикант)
    Ответ отправлен: 21.11.2008, 21:34

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 236277 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

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

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

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

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


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

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2008, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.12 от 19.11.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное