ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима помощь в решении задачи!
19 сообщений из 19, страница 1 из 1
Необходима помощь в решении задачи!
    #34555382
mirrors
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirrors
Гость
Привет всем, очень нужна помощь в решении одной задачи, так как я новичок в ВБА, есть лист со списком людей и далее ещё 6 столбцов с разными данными на каждого человека, необходимо, что бы макрос формировал письмо по указанному юзером человеку, выбирая и вставляя данные из таблицы в форму письма.. Проблема состоит в следующем, какая бы ячейка в строке ни была выбрана, после запуска макроса должна выделиться ячейка в столбце "В" указанной юзером строки, что бы выбрать с неё данные и вывести в диалоговом окне: "Сформировать письмо по (данные из столбца "В")?", остальное вроде получилось.. Благодарен заранее
...
Рейтинг: 0 / 0
28.05.2007, 14:50
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34555498
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lena_####
Участник
mirrors
Способов можно много всяких придумать, например, такой:

Код: plaintext
1.
2.
  Dim v_Rng As Range
  Set v_Rng = Application.Intersect(ActiveCell.EntireRow, Columns( 2 ))
  v_Rng.Select

Кстати, чтобы вернуть данные из ячейки необязательно ее выделять - достаточно получить ссылку на нее.
...
Рейтинг: 0 / 0
28.05.2007, 15:25
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34556386
mirrors
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirrors
Гость
.. сори, я пока ещё не знаю как получить ссылку..
Завтра на работе попробую этот вариант, хотя что такое Intersect - честно, не знаю..
В любом случае спасибо, я уже неделю не могу этот момент решить, а спросить не у кого.
...
Рейтинг: 0 / 0
28.05.2007, 21:17
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34556394
Шыфл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шыфл
Участник
Код: plaintext
Cells(ActiveCell.Row,  2 ).Select
...
Рейтинг: 0 / 0
28.05.2007, 21:25
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34559575
mirrors
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirrors
Гость
Спасибо большое и первый и второй вариант работает безукоризненно :) Ещё есть такой вопрос, можно ли как то вывести переменную в нужном формате, например:

MsgBox "К оплате " & My.Money & ".", что бы переменная My.Money выводилась в денежном формате (грн.) и с округлением до сотой? Я пробовал такой вариант:

MsgBox "К оплате " & FormatNumber(My.Money(-*#.##0.00 [$грн.])) & "." - ругается на переменную, может кто подскажет?
Или формат можно задавать только на Range? Хотелось бы, чтобы все было одной строкой..
...
Рейтинг: 0 / 0
29.05.2007, 23:00
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34559595
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Формат можно задавать и на переменную. Но только вы проверьте чему равно у вас My.Money .
И еще. Если у вас стоит украинская раскладка, то есть еще такая функция — FormatCurrency .
...
Рейтинг: 0 / 0
29.05.2007, 23:16
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34559606
mirrors
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirrors
Гость
My.Money - переменная типа Double (хотя вот тут я призадумался.. завтра проверю, не integer ли она) и в любом случае принимает, или положительное, или отрицательное значение (не всегда целое), украинская раскладка клавы у нас присутствует в обязательном порядке а насчет FormatCurrency можно поподробнее?
...
Рейтинг: 0 / 0
29.05.2007, 23:23
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34559612
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
FormatCurrency — это форматирование выражения в денежной форме. В общем вы попробуйте написать msgbox FormatCurrency(my.money)
...
Рейтинг: 0 / 0
29.05.2007, 23:31
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34559694
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
mirrorsMsgBox "К оплате " & FormatNumber(My.Money(-*#.##0.00 [$грн.])) & "." - ругается на переменную, может кто подскажет?Ну дык естественно. My.Money это у тебя переменная а не имя функции. Зачем ты форматную строку в скобки взял?
И вообще, поставь курсор на FormatNumber и ткни F1, там совершенно по другому задаются параметры форматирования.
А если хочется задавать шаблон текстом, то его надо отдавать функции Format(). Например так:
Код: plaintext
MsgBox "К оплате " & Format(My.Money, "-*#.##0.00 [$грн.]") & "."
...
Рейтинг: 0 / 0
30.05.2007, 00:53
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34599519
REDCool
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
REDCool
Гость
Народ кто мне может помочь в решении задачи.Вот условие: Разработайте прогамму для решения квадратного уравнения ax(в квадрате)+bx+c=0.Пользователь будет вводить a.b.c.Программа сначала вычсляет D=b(в квадрате)-4ac,если дискреминант больше нуля,то вычмсляется корни квадратного уравнения по формуле

x1,2=-b+-корень из D,делить на 2ас.
...
Рейтинг: 0 / 0
16.06.2007, 14:02
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34599537
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
2 REDCool
за 5 североамериканских тугриков я весь твой!!! :)
...
Рейтинг: 0 / 0
16.06.2007, 14:22
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34600821
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
REDCoolНарод кто мне может помочь в решении задачи.Вот условие: Разработайте прогамму для решения квадратного уравнения ax(в квадрате)+bx+c=0.Пользователь будет вводить a.b.c.Программа сначала вычсляет D=b(в квадрате)-4ac,если дискреминант больше нуля,то вычмсляется корни квадратного уравнения по формуле

x1,2=-b+-корень из D,делить на 2ас.


Божеееееееееее!!!!
Это прога уровня школы, десятиклассники щёлкают как семачки, может тебе поймать пацана у школы и за полтиник попросить сделать прогу
...
Рейтинг: 0 / 0
18.06.2007, 09:07
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34601443
REDCool
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
REDCool
Гость
Хм во первых я не в школе учюсь,во вторых если ты такой умный то в чём проблема?
Если не можеш помочь то не надо глупых фраз...
...
Рейтинг: 0 / 0
18.06.2007, 12:30
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34601479
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
REDCoolХм во первых я не в школе учюсь,во вторых если ты такой умный то в чём проблема?
Если не можеш помочь то не надо глупых фраз...

АААА!
у вас случайно в системных требованиях компьютера не указано IQ>30 ???

ТАКИХ ПРОГРАММ МОРЕ!!! ИХ ПИШУТ все кому не лень ДЕСЯТИКЛАССНИКИ.
...
Рейтинг: 0 / 0
18.06.2007, 12:37
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34601777
REDCool
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
REDCool
Гость
В школе мы это не проходили,а с ВБ я имею дело первый раз,и что за бесполезные высказывания,если все так легко ну помогите мне решить её.
...
Рейтинг: 0 / 0
18.06.2007, 13:42
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34601845
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
2REDCool
REDCoolкто мне может помочь в решении
Подразумевает твой код с указанием непонятных мест или мест где выскакивют ошибки.
REDCoolРазработайте прогамму для решения
А это уже прямой заказ на работу.. которая бесплатно не делается.
Тем более что народ прав... это элементарная программа.
Напиши хотя бы алгоритм решения как ты его видишь..... Четко по пунктам. Что за чем вводится
Где отображается решение.
...
Рейтинг: 0 / 0
18.06.2007, 13:56
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34602082
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
REDCoolВ школе мы это не проходили,а с ВБ я имею дело первый раз,и что за бесполезные высказывания,если все так легко ну помогите мне решить её.


Знаешь, ты сначала ответь, что ты вообще знаешь в программировании!!!!
Здаётся мне, что ты типичный десятиклассник, который и комп-то видал лишь на витрине универа.
Сначала свои задумки покажи, а мы уж поможем исправить, а то я смотрю не я один на всё готовенькое падок. Шутка!!! У меня пять лет программирования за плечами и гора книг. И чисто от себя отмазка, я типа языка не знаю, говорит лишь о том, что либо начинающий и ещё не понявший сути работы программиста, либо ты школяр, который хочет перед кем-нить повилять, мол смотрите как я умею. Даже если ты прогаммировал на Паскале или в Делфи, то всё равно идея быть должна. А на блюдце никто ничего не выложит
...
Рейтинг: 0 / 0
18.06.2007, 14:52
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34602191
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
REDCoolНарод кто мне может помочь в решении задачи.Вот условие: Разработайте прогамму для решения квадратного уравнения ax(в квадрате)+bx+c=0.Пользователь будет вводить a.b.c.Программа сначала вычсляет D=b(в квадрате)-4ac,если дискреминант больше нуля,то вычмсляется корни квадратного уравнения по формуле

x1,2=-b+-корень из D,делить на 2ас.

REDCool,

Это отдельная, не связанная с данным обсуждением, тема. Выставите ее отдельно. Имейте ввиду, что правила форума вряд ли поощряют решение студенческих задач, тем более без видимых усилий со стороны спрашивающего. Покажите сначала ваш вариант, укажите, что не выходит. Уровень сложности не имеет значения. Задача может быть сколь угодно простой, но по VB. Проведите поиск, может такое уже встречалось.
...
Рейтинг: 0 / 0
18.06.2007, 15:16
| Ответить | Цитировать | Написать  
Необходима помощь в решении задачи!
    #34602432
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист Дёня
Участник
[quot VladConn]
правила форума вряд ли поощряют решение студенческих задач [quot]

Вы меня извините, но вы выше смотрели, такие задачи дают ученикам 9го класса, даже в самой замшелой школе, где стоят потссовковые развалюхи, я такую задачу решал в десятом классе на такой вот развалюхе каких-то 10 лет тому назад, когда не то что инета, и сотовые были у малиновопиджаковых, вот вам и дети поколения интернетси, ничё не могут даже сидя в инете,
...
Рейтинг: 0 / 0
18.06.2007, 16:16
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима помощь в решении задачи!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=230&tid=2163846]:
 0ms
get settings:
 6ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 225ms
total:  374ms
созд. / загр.: 374ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]