powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
21 сообщений из 21, страница 1 из 1
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37297927
Суть дела такая... Есть файл ексель с формой на вба...нужно придумать и написать процедуру какую-то...подайте хотя бы идею а код я как то додумаю и сама напишу)))
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298072
Alexander-80578
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Снежана Ломакина,

а зачем?
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298099
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "Hello world!"
End Sub
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298126
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Снежана Ломакина,

Код: plaintext
Delete.Me
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298141
Alexander-80578Снежана Ломакина,

а зачем?

нужно что - то интересное и индивидуальное... Типа какие то операции с цифрами в даной БД или с суднами или Пунктами призначення. Вот например,как написать сумму зарплаты моряков за данный месяц. КАк написать это на языке ВБА?
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298231
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Снежана Ломакинанужно придумать и написать процедуру какую-то...подайте хотя бы идею а код я как то додумаю и сама напишу)))
аппетит растёт во время еды
Вот например,как написать сумму зарплаты моряков за данный месяц.
то есть есть столбик сумм и в конце вывести итого?
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298337
нет... вы сможете сделать следующее : создать поле где нужно было бы прописать название "судна" и появлялась картинка этого судна... это типа
if sud.Text="Орел" then
image1.jpg тут я не знаю как написать...
elseif sud.Text="Тигр" then
image2.jpg
elseif sud.Text="свята олена" then
image3.jpg
elseif sud.Text="гепард" then
image4.jpg
else
image5.jpg
end if
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37298424
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
создайте объект Image на форме и пишите Image1.Picture
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37299157
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37299456
Ципихович Эндрю,

спасибо)) я уже сделала и сдала все))))))) СПАСИБО!!!!!
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379453
onlyStudent
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
здравствуйте. у меня один вопрос по этой теме:
можно ли сделать так, чтоб при нажатии на кнопку появлялась картинка(например в окне image1), адрес которой будет такого плана C:\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\водяные лилии.jpg.
в примере выше все картинки уже в самой программе, а мне вот нужно чтоб адрес прописывал я сам вручную.
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379458
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
onlyStudent,
>нужно чтоб адрес прописывал я сам вручную
В какой именно момент??
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379470
onlyStudent
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вот моя мини-прога.
хочу чтоб при выбранном месяце показывалась картинка.
Private Sub CommandButton1_Click()
Select Case Val(TextBox1.Value)
Case 1
image1.picture = c:/адрес картинки
Label1.Caption = "Январь"
Case 2
image1.picture = c:/адрес другой картинки
Label1.Caption = "Февраль"
Case 3
image1.picture = c:/адрес третьей картинки и т.д.
Label1.Caption = "Март"
Case 4
Label1.Caption = "Апрель"
Case 5
Label1.Caption = "Май"
Case 6
Label1.Caption = "Июнь"
Case 7
Label1.Caption = "Июль"
Case 8
Label1.Caption = "Август"
Case 9
Label1.Caption = "Сентябрь"
Case 10
Label1.Caption = "Октябрь"
Case 11
Label1.Caption = "Ноябрь"
Case 12
Label1.Caption = "Декабрь"
Case Else
MsgBox "Ошибка!"
Label1.Caption = ""
End Select
End Sub
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379474
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
onlyStudent,
>в примере выше все картинки уже в самой программе, а мне вот нужно чтоб адрес прописывал я сам вручную
Ваши слова!!
так делов то 12 картинок, что плохого если они в проге??
Сколько людей столько и мнений, а так если по указанному пути удалят не хорошие люди
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379482
onlyStudent
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а все-таки есть ли возможность реализовать это?
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379502
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
image1.picture = LoadPicture("c:/адрес третьей картинки и т.д.")
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379509
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro, кажися слеш не туда повернут, ну не критично
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379510
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообще, код можно сильно подсократить:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub CommandButton1_Click()

Case Val(TextBox1.Value)
  Case  1  To  12 
    image1.picture = LoadPicture("c:\адрес картинки"+CStr(Val(TextBox1.Value))+".jpg")
    Label1.Caption = Format$(DateSerial( 2011 ,Val(TextBox1.Value), 01 ), "mmmm")
  Case Else
    MsgBox "Ошибка!"
    Label1.Caption = "" 
End Select

End Sub
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379511
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ципихович ЭндрюShocker.Pro, кажися слеш не туда повернут, ну не критично Как у автора написано, так я и скопировал. Мало ли, может ему так нравится.
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379512
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
>код можно сильно подсократить
а я и не сомневался
...
Рейтинг: 0 / 0
КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
    #37379518
onlyStudent
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
товарищи, спасибо огромное вам за помощь!!!!!!!!
...
Рейтинг: 0 / 0
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАКУЮ МОЖНА ПРИДУМАТЬ ПРОЦЕДУРУ К ФОРМЕ НА VBA ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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