Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как сделать выпадающее меню, используя оператор SelectCase? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать выпадающее меню, используя оператор SelectCase? (Макросы Sub)
Как сделать выпадающее меню, используя оператор SelectCase?
Demitras Дата: Четверг, 20.02.2014, 19:48 | Сообщение № 1
Группа: Заблокированные
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 100% ±

Excel 2003
Как создать выпадающее меню, какое не было бы связано с ячейкой, а полностью находилось бы в недрах кода?

P.S. И, если можно, максимально просто...)
К сообщению приложен файл: Excel_VBA.xls (49.5 Kb)
 
Ответить
СообщениеКак создать выпадающее меню, какое не было бы связано с ячейкой, а полностью находилось бы в недрах кода?

P.S. И, если можно, максимально просто...)

Автор - Demitras
Дата добавления - 20.02.2014 в 19:48
nilem Дата: Четверг, 20.02.2014, 20:25 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
в недрах кода находим проц-ру UserForm_Initialize и пишем туда все, что не связано с ячейками, например:
[vba]
Код
Private Sub UserForm_Initialize()
With Me.ComboBox2
     .List = Array(5, 8, "rty", 88, "rrr")
     .ListIndex = 1
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениев недрах кода находим проц-ру UserForm_Initialize и пишем туда все, что не связано с ячейками, например:
[vba]
Код
Private Sub UserForm_Initialize()
With Me.ComboBox2
     .List = Array(5, 8, "rty", 88, "rrr")
     .ListIndex = 1
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 20.02.2014 в 20:25
Demitras Дата: Четверг, 20.02.2014, 21:35 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 100% ±

Excel 2003
nilem, спасибо)
 
Ответить
Сообщениеnilem, спасибо)

Автор - Demitras
Дата добавления - 20.02.2014 в 21:35
Demitras Дата: Пятница, 21.02.2014, 21:38 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 100% ±

Excel 2003
nilem, все равно не понял.
Вы-то все сделали правильно, но это не то.

[vba]
Код
PrivateSub ComboBox2_SelectedIndexChanged(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) HandlesschD.SelectedIndexChanged, kA.SelectedIndexChanged
SelectCaseRuhl.Text
CaseIs = "П1"
SelectCaseschD.Text
CaseIs = "10"
x = 200
CaseIs = "20"
x = 190
CaseIs = "40"
x = 175
CaseIs = "70"
x = 170
EndSelect
CaseIs = "П2"
SelectCaseschD.Text
CaseIs = "10"
x = 210
CaseIs = "20"
x = 200
CaseIs = "40"
x = 185
CaseIs = "70"
x = 180
EndSelect
CaseIs = "П3"
SelectCaseschD.Text
CaseIs = "10"
x = 225
CaseIs = "20"
x = 215
CaseIs = "40"
x = 200
CaseIs = "70"
x = 190
EndSelect
[/vba]

Вот у меня есть код. Только он очень старый и какой то не такой.
Он нужен для того, чтобы выбрать расход воды

Есть таблица, и задаемся мы Маркой смеси за ГОСТ и Dmax
И по таблице должен выбраться расход воды

Подскажите, пожалуйста, как это сделать?
К сообщению приложен файл: 3245763.xls (53.5 Kb)


Сообщение отредактировал Serge_007 - Пятница, 21.02.2014, 22:51
 
Ответить
Сообщениеnilem, все равно не понял.
Вы-то все сделали правильно, но это не то.

[vba]
Код
PrivateSub ComboBox2_SelectedIndexChanged(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) HandlesschD.SelectedIndexChanged, kA.SelectedIndexChanged
SelectCaseRuhl.Text
CaseIs = "П1"
SelectCaseschD.Text
CaseIs = "10"
x = 200
CaseIs = "20"
x = 190
CaseIs = "40"
x = 175
CaseIs = "70"
x = 170
EndSelect
CaseIs = "П2"
SelectCaseschD.Text
CaseIs = "10"
x = 210
CaseIs = "20"
x = 200
CaseIs = "40"
x = 185
CaseIs = "70"
x = 180
EndSelect
CaseIs = "П3"
SelectCaseschD.Text
CaseIs = "10"
x = 225
CaseIs = "20"
x = 215
CaseIs = "40"
x = 200
CaseIs = "70"
x = 190
EndSelect
[/vba]

Вот у меня есть код. Только он очень старый и какой то не такой.
Он нужен для того, чтобы выбрать расход воды

Есть таблица, и задаемся мы Маркой смеси за ГОСТ и Dmax
И по таблице должен выбраться расход воды

Подскажите, пожалуйста, как это сделать?

Автор - Demitras
Дата добавления - 21.02.2014 в 21:38
KuklP Дата: Пятница, 21.02.2014, 22:41 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Private Sub ComboBox1_Change()
      Dim a
      On Error Resume Next
      a = Sheets("1").[f23].CurrentRegion
      Me.Label6.Caption = a(Me.ComboBox1.ListIndex + 2, Me.ComboBox2.ListIndex + 2)
End Sub

Private Sub ComboBox2_Change()
Dim a
      On Error Resume Next
      a = Sheets("1").[f23].CurrentRegion
      Me.Label6.Caption = a(Me.ComboBox1.ListIndex + 2, Me.ComboBox2.ListIndex + 2)
End Sub

Private Sub UserForm_Initialize()
     With Me.ComboBox1
         .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4")
         .ListIndex = 0
     End With
     With Me.ComboBox2
         .List = Array("10", "20", "40", "70")
         .ListIndex = 0
     End With
End Sub
[/vba]
К сообщению приложен файл: 5158110.xls (44.0 Kb)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Пятница, 21.02.2014, 22:43
 
Ответить
Сообщение[vba]
Код
Private Sub ComboBox1_Change()
      Dim a
      On Error Resume Next
      a = Sheets("1").[f23].CurrentRegion
      Me.Label6.Caption = a(Me.ComboBox1.ListIndex + 2, Me.ComboBox2.ListIndex + 2)
End Sub

Private Sub ComboBox2_Change()
Dim a
      On Error Resume Next
      a = Sheets("1").[f23].CurrentRegion
      Me.Label6.Caption = a(Me.ComboBox1.ListIndex + 2, Me.ComboBox2.ListIndex + 2)
End Sub

Private Sub UserForm_Initialize()
     With Me.ComboBox1
         .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4")
         .ListIndex = 0
     End With
     With Me.ComboBox2
         .List = Array("10", "20", "40", "70")
         .ListIndex = 0
     End With
End Sub
[/vba]

Автор - KuklP
Дата добавления - 21.02.2014 в 22:41
DJ_Marker_MC Дата: Пятница, 21.02.2014, 22:49 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
а вот еще вариант если сделать через кнопку)))
[vba]
Код
Private Sub CommandButton3_Click()
iRow$ = Me.ComboBox1.Value
iClm% = Me.ComboBox2.Value

i = Application.Match(iRow, Range("F23:F31"), 0)
j = Application.Match(iClm, Range("F23:J23"), 0)

iVoda$ = Application.Index(Range("F23:J31"), i, j)

Label6.Caption = iVoda
End Sub

Private Sub UserForm_Initialize()
      With Me.ComboBox1
          .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4")
          .ListIndex = 1
      End With
      With Me.ComboBox2
          .List = Array("10", "20", "30", "40")
          .ListIndex = 1
      End With
End Sub
[/vba]

обратите внимание что ваш Array("10", "20", "30", "40") не совпадает с реальными значениями таблицы!!! Менять не стал, но при выборе отсутствующего значения - ошибка!
К сообщению приложен файл: 8595475.xls (45.0 Kb)


Сообщение отредактировал DJ_Marker_MC - Пятница, 21.02.2014, 22:51
 
Ответить
Сообщениеа вот еще вариант если сделать через кнопку)))
[vba]
Код
Private Sub CommandButton3_Click()
iRow$ = Me.ComboBox1.Value
iClm% = Me.ComboBox2.Value

i = Application.Match(iRow, Range("F23:F31"), 0)
j = Application.Match(iClm, Range("F23:J23"), 0)

iVoda$ = Application.Index(Range("F23:J31"), i, j)

Label6.Caption = iVoda
End Sub

Private Sub UserForm_Initialize()
      With Me.ComboBox1
          .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4")
          .ListIndex = 1
      End With
      With Me.ComboBox2
          .List = Array("10", "20", "30", "40")
          .ListIndex = 1
      End With
End Sub
[/vba]

обратите внимание что ваш Array("10", "20", "30", "40") не совпадает с реальными значениями таблицы!!! Менять не стал, но при выборе отсутствующего значения - ошибка!

Автор - DJ_Marker_MC
Дата добавления - 21.02.2014 в 22:49
nilem Дата: Пятница, 21.02.2014, 23:27 | Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
если совсем без связи с листом, то можно попробовать так (в модуль формы)
[vba]
Код
Option Explicit
Dim x

Private Sub UserForm_Initialize()
x = [{120,160,150,135;170,165,160,140;175,165,150,155;185,175,160,155;200,190,175,170;210,200,285,180;225,215,200,190;235,230,215,205}]
With Me.ComboBox1
     .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4"): .ListIndex = 0
End With
With Me.ComboBox2
     .List = Array("10", "20", "40", "70"): .ListIndex = 0
End With
End Sub

Private Sub ComboBox1_Change()
If ComboBox2.ListIndex = -1 Then Exit Sub
Me.Label6.Caption = x(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 1)
End Sub

Private Sub ComboBox2_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Me.Label6.Caption = x(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 1)
End Sub
[/vba]
вот это PrivateSub ComboBox2_SelectedIndexChanged(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) мне кажется из VB.NET, точно не VBA.


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеесли совсем без связи с листом, то можно попробовать так (в модуль формы)
[vba]
Код
Option Explicit
Dim x

Private Sub UserForm_Initialize()
x = [{120,160,150,135;170,165,160,140;175,165,150,155;185,175,160,155;200,190,175,170;210,200,285,180;225,215,200,190;235,230,215,205}]
With Me.ComboBox1
     .List = Array("Ж0", "Ж1", "Ж2", "Ж3", "P1", "P2", "P3", "P4"): .ListIndex = 0
End With
With Me.ComboBox2
     .List = Array("10", "20", "40", "70"): .ListIndex = 0
End With
End Sub

Private Sub ComboBox1_Change()
If ComboBox2.ListIndex = -1 Then Exit Sub
Me.Label6.Caption = x(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 1)
End Sub

Private Sub ComboBox2_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Me.Label6.Caption = x(ComboBox1.ListIndex + 1, ComboBox2.ListIndex + 1)
End Sub
[/vba]
вот это PrivateSub ComboBox2_SelectedIndexChanged(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) мне кажется из VB.NET, точно не VBA.

Автор - nilem
Дата добавления - 21.02.2014 в 23:27
Гость Дата: Суббота, 22.02.2014, 10:57 | Сообщение № 8
Группа: Гости
Ребят, спасибо большое!)
Больно хороший у вас администратор, выгнал меня...
Спасибо всем за помощь, будьте здоровы!
 
Ответить
СообщениеРебят, спасибо большое!)
Больно хороший у вас администратор, выгнал меня...
Спасибо всем за помощь, будьте здоровы!

Автор - Гость
Дата добавления - 22.02.2014 в 10:57
KuklP Дата: Суббота, 22.02.2014, 14:26 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Demitras, правила форума не просто прихоть администрации. Они продиктованы жизнью и опытом и их необходимо соблюдать. Так на всех форумах. Уверен, знай мы о Вашем конфликте с администрацией, никто из нас помогать Вам не стал бы.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеDemitras, правила форума не просто прихоть администрации. Они продиктованы жизнью и опытом и их необходимо соблюдать. Так на всех форумах. Уверен, знай мы о Вашем конфликте с администрацией, никто из нас помогать Вам не стал бы.

Автор - KuklP
Дата добавления - 22.02.2014 в 14:26
Serge_007 Дата: Суббота, 22.02.2014, 21:41 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Нет никакого конфликта. Но когда человек не понимает ПЯТИ предупреждений и продолжает нарушать правила, так и не соизволив их прочитать - то ничего другого не остается, как бан


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНет никакого конфликта. Но когда человек не понимает ПЯТИ предупреждений и продолжает нарушать правила, так и не соизволив их прочитать - то ничего другого не остается, как бан

Автор - Serge_007
Дата добавления - 22.02.2014 в 21:41
KuklP Дата: Суббота, 22.02.2014, 22:51 | Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[offtop]Серж, как не назови. Я когда вижу замечание модеров или админов на любом форуме - переключаюсь в режим ожидания, даже если есть готовый ответ. Недержанием не страдаю, зато чувство корпоративной солидарности присутстствует :D Но если как здесь, только в процентах чего-то есть, то сия близорукая мартышка(я то бишь) не всегда видит.
P.S. Впрочем, модеры и иже, у вас есть возможность закрывать тему и удалять ответы из нее, в случае нарушений. Никаких обид с моей стороны и думаю, все форумчане отнесутся с пониманием к такому.[/offtop]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[offtop]Серж, как не назови. Я когда вижу замечание модеров или админов на любом форуме - переключаюсь в режим ожидания, даже если есть готовый ответ. Недержанием не страдаю, зато чувство корпоративной солидарности присутстствует :D Но если как здесь, только в процентах чего-то есть, то сия близорукая мартышка(я то бишь) не всегда видит.
P.S. Впрочем, модеры и иже, у вас есть возможность закрывать тему и удалять ответы из нее, в случае нарушений. Никаких обид с моей стороны и думаю, все форумчане отнесутся с пониманием к такому.[/offtop]

Автор - KuklP
Дата добавления - 22.02.2014 в 22:51
nilem Дата: Суббота, 22.02.2014, 23:54 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
[offtop]Тоже не обратил внимания на процент замечаний. Обычно пишут что-то вроде "Не нужно отвечать в этой теме, пока не будут устранены замечания модераторов"
Теперь вот чувствую себя нарушителем :([/offtop]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщение[offtop]Тоже не обратил внимания на процент замечаний. Обычно пишут что-то вроде "Не нужно отвечать в этой теме, пока не будут устранены замечания модераторов"
Теперь вот чувствую себя нарушителем :([/offtop]

Автор - nilem
Дата добавления - 22.02.2014 в 23:54
Гость Дата: Воскресенье, 23.02.2014, 00:21 | Сообщение № 13
Группа: Гости
[offop] Serge_007, абсолютно с вами согласен. Виноват. Пять раз виноват. Но согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности.

KukIP и вам спасибо большое за ответы, благодаря им я смог написать большой кусок своей программы!

nilem а ваша последняя запись, касающаяся темы до сих пор пыхтит в недрах моей проги

P.S. MS Excel действительно незаменимая вещь для работы современного инженера-строителя. И очень жаль, что на пути к пониманию часто стоит стена бюрократии. Да, я понимаю, что есть правила и их нужно соблюдать. Однако это не должно становится между идеей и ее решением, ИМХО. Сейчас в моей стране революция, переворот, смена власти, убийства, смерть, страдания. И я очень сильно переживаю поэтому поводу. И моя работа, это единственное, что позволяет отвлечься от этого кошмара. Жаль, что мало кто это понимает. Можете называть меня хохлом, но такой я есть...
 
Ответить
Сообщение[offop] Serge_007, абсолютно с вами согласен. Виноват. Пять раз виноват. Но согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности.

KukIP и вам спасибо большое за ответы, благодаря им я смог написать большой кусок своей программы!

nilem а ваша последняя запись, касающаяся темы до сих пор пыхтит в недрах моей проги

P.S. MS Excel действительно незаменимая вещь для работы современного инженера-строителя. И очень жаль, что на пути к пониманию часто стоит стена бюрократии. Да, я понимаю, что есть правила и их нужно соблюдать. Однако это не должно становится между идеей и ее решением, ИМХО. Сейчас в моей стране революция, переворот, смена власти, убийства, смерть, страдания. И я очень сильно переживаю поэтому поводу. И моя работа, это единственное, что позволяет отвлечься от этого кошмара. Жаль, что мало кто это понимает. Можете называть меня хохлом, но такой я есть...

Автор - Гость
Дата добавления - 23.02.2014 в 00:21
KuklP Дата: Воскресенье, 23.02.2014, 00:31 | Сообщение № 14
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[offtop] Demitras, а я откуда? Загляните в профиль. Думаете мне пофиг? Но здесь форум и политике здесь не место. Модеры - обычные люди, не звери, им хочется заниматься красивыми решениями, а не нарушителями. Так давайте мирно - получил замечание, устранил, придерживаемся правил. И всем будет хорошо. yes [/offtop]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[offtop] Demitras, а я откуда? Загляните в профиль. Думаете мне пофиг? Но здесь форум и политике здесь не место. Модеры - обычные люди, не звери, им хочется заниматься красивыми решениями, а не нарушителями. Так давайте мирно - получил замечание, устранил, придерживаемся правил. И всем будет хорошо. yes [/offtop]

Автор - KuklP
Дата добавления - 23.02.2014 в 00:31
Serge_007 Дата: Воскресенье, 23.02.2014, 00:31 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности
Не согласен. Если нужна помощь - правила форума надо ВЫУЧИТЬ. Иначе - неуважение


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности
Не согласен. Если нужна помощь - правила форума надо ВЫУЧИТЬ. Иначе - неуважение

Автор - Serge_007
Дата добавления - 23.02.2014 в 00:31
Demitras Дата: Воскресенье, 23.02.2014, 01:00 | Сообщение № 16
Группа: Гости
В правилах про устранение предупреждений нет ни слова. Если было бы возможно, то устранил бы незамедлительно, но как? И если посмотреть на хронологию моих грехов, то они просто шли один за одним. Безусловно это было не за один день, но я на сайте не продержался и 50 дней (42).
Как вы заметили, я натура не скандальная и не мстительная. Не спорю, правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу и я обратился к вам за помощью. Спасибо всем, кто помог, но последние мои штрафы были скорее инерционными. Прошу меня простить, это не является обсуждением решений администрации.

Оффтоп никак не получается сделать, гостям нельзя.

KukIP, значит ты меня можешь понять. Хорошо это, что выпустили леди мы увидим, но я надеюсь на наше светлое будущее. А за все дни моего пребывания на сайте я не нашел как избавится от печальных процентов. Я не говорю, что штудировал сайт, но я что, дурак не устранить замечания, зная, как это сделать...
И не могу исправлять свои орфографические ошибки - простите, гостям нельзя редактировать свои же сообщения.
 
Ответить
СообщениеВ правилах про устранение предупреждений нет ни слова. Если было бы возможно, то устранил бы незамедлительно, но как? И если посмотреть на хронологию моих грехов, то они просто шли один за одним. Безусловно это было не за один день, но я на сайте не продержался и 50 дней (42).
Как вы заметили, я натура не скандальная и не мстительная. Не спорю, правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу и я обратился к вам за помощью. Спасибо всем, кто помог, но последние мои штрафы были скорее инерционными. Прошу меня простить, это не является обсуждением решений администрации.

Оффтоп никак не получается сделать, гостям нельзя.

KukIP, значит ты меня можешь понять. Хорошо это, что выпустили леди мы увидим, но я надеюсь на наше светлое будущее. А за все дни моего пребывания на сайте я не нашел как избавится от печальных процентов. Я не говорю, что штудировал сайт, но я что, дурак не устранить замечания, зная, как это сделать...
И не могу исправлять свои орфографические ошибки - простите, гостям нельзя редактировать свои же сообщения.

Автор - Demitras
Дата добавления - 23.02.2014 в 01:00
Serge_007 Дата: Воскресенье, 23.02.2014, 12:11 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
В правилах про устранение предупреждений нет ни слова
Естественно. Никто не может отменять баны самому себе, баны пользователям может отменять только администрация

правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу
Как маленький ребенок, ей Богу...
"Товарищ милиционер, я знаю что правила надо соблюдать, но пьяный по встречке со скоростью 200 км/ч я ехал потому что мне очень надо успеть на блины к тетушке. Отдайте пожалуйста права, я больше так не буду..."

Потратив несколько минут на чтение правил Вы получили бы всю необходимую помощь по Вашему проекту. Что, это ниже Вашего достоинства? Или так сложно? Или что-то ещё?

Тема закрыта, отвечать не надо


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
В правилах про устранение предупреждений нет ни слова
Естественно. Никто не может отменять баны самому себе, баны пользователям может отменять только администрация

правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу
Как маленький ребенок, ей Богу...
"Товарищ милиционер, я знаю что правила надо соблюдать, но пьяный по встречке со скоростью 200 км/ч я ехал потому что мне очень надо успеть на блины к тетушке. Отдайте пожалуйста права, я больше так не буду..."

Потратив несколько минут на чтение правил Вы получили бы всю необходимую помощь по Вашему проекту. Что, это ниже Вашего достоинства? Или так сложно? Или что-то ещё?

Тема закрыта, отвечать не надо

Автор - Serge_007
Дата добавления - 23.02.2014 в 12:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать выпадающее меню, используя оператор SelectCase? (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!