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]
[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]
Код
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") не совпадает с реальными значениями таблицы!!! Менять не стал, но при выборе отсутствующего значения - ошибка!
а вот еще вариант если сделать через кнопку))) [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
если совсем без связи с листом, то можно попробовать так (в модуль формы) [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.
если совсем без связи с листом, то можно попробовать так (в модуль формы) [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
Demitras, правила форума не просто прихоть администрации. Они продиктованы жизнью и опытом и их необходимо соблюдать. Так на всех форумах. Уверен, знай мы о Вашем конфликте с администрацией, никто из нас помогать Вам не стал бы.
Demitras, правила форума не просто прихоть администрации. Они продиктованы жизнью и опытом и их необходимо соблюдать. Так на всех форумах. Уверен, знай мы о Вашем конфликте с администрацией, никто из нас помогать Вам не стал бы.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Нет никакого конфликта. Но когда человек не понимает ПЯТИ предупреждений и продолжает нарушать правила, так и не соизволив их прочитать - то ничего другого не остается, как бан
Нет никакого конфликта. Но когда человек не понимает ПЯТИ предупреждений и продолжает нарушать правила, так и не соизволив их прочитать - то ничего другого не остается, как банSerge_007
[offtop]Серж, как не назови. Я когда вижу замечание модеров или админов на любом форуме - переключаюсь в режим ожидания, даже если есть готовый ответ. Недержанием не страдаю, зато чувство корпоративной солидарности присутстствует Но если как здесь, только в процентах чего-то есть, то сия близорукая мартышка(я то бишь) не всегда видит. P.S. Впрочем, модеры и иже, у вас есть возможность закрывать тему и удалять ответы из нее, в случае нарушений. Никаких обид с моей стороны и думаю, все форумчане отнесутся с пониманием к такому.[/offtop]
[offtop]Серж, как не назови. Я когда вижу замечание модеров или админов на любом форуме - переключаюсь в режим ожидания, даже если есть готовый ответ. Недержанием не страдаю, зато чувство корпоративной солидарности присутстствует Но если как здесь, только в процентах чего-то есть, то сия близорукая мартышка(я то бишь) не всегда видит. P.S. Впрочем, модеры и иже, у вас есть возможность закрывать тему и удалять ответы из нее, в случае нарушений. Никаких обид с моей стороны и думаю, все форумчане отнесутся с пониманием к такому.[/offtop]KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
[offtop]Тоже не обратил внимания на процент замечаний. Обычно пишут что-то вроде "Не нужно отвечать в этой теме, пока не будут устранены замечания модераторов" Теперь вот чувствую себя нарушителем :([/offtop]
[offtop]Тоже не обратил внимания на процент замечаний. Обычно пишут что-то вроде "Не нужно отвечать в этой теме, пока не будут устранены замечания модераторов" Теперь вот чувствую себя нарушителем :([/offtop]nilem
Дата: Воскресенье, 23.02.2014, 00:21 |
Сообщение № 13
Группа: Гости
[offop] Serge_007, абсолютно с вами согласен. Виноват. Пять раз виноват. Но согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности.
KukIP и вам спасибо большое за ответы, благодаря им я смог написать большой кусок своей программы!
nilem а ваша последняя запись, касающаяся темы до сих пор пыхтит в недрах моей проги
P.S. MS Excel действительно незаменимая вещь для работы современного инженера-строителя. И очень жаль, что на пути к пониманию часто стоит стена бюрократии. Да, я понимаю, что есть правила и их нужно соблюдать. Однако это не должно становится между идеей и ее решением, ИМХО. Сейчас в моей стране революция, переворот, смена власти, убийства, смерть, страдания. И я очень сильно переживаю поэтому поводу. И моя работа, это единственное, что позволяет отвлечься от этого кошмара. Жаль, что мало кто это понимает. Можете называть меня хохлом, но такой я есть...
[offop] Serge_007, абсолютно с вами согласен. Виноват. Пять раз виноват. Но согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности.
KukIP и вам спасибо большое за ответы, благодаря им я смог написать большой кусок своей программы!
nilem а ваша последняя запись, касающаяся темы до сих пор пыхтит в недрах моей проги
P.S. MS Excel действительно незаменимая вещь для работы современного инженера-строителя. И очень жаль, что на пути к пониманию часто стоит стена бюрократии. Да, я понимаю, что есть правила и их нужно соблюдать. Однако это не должно становится между идеей и ее решением, ИМХО. Сейчас в моей стране революция, переворот, смена власти, убийства, смерть, страдания. И я очень сильно переживаю поэтому поводу. И моя работа, это единственное, что позволяет отвлечься от этого кошмара. Жаль, что мало кто это понимает. Можете называть меня хохлом, но такой я есть...Гость
[offtop] Demitras, а я откуда? Загляните в профиль. Думаете мне пофиг? Но здесь форум и политике здесь не место. Модеры - обычные люди, не звери, им хочется заниматься красивыми решениями, а не нарушителями. Так давайте мирно - получил замечание, устранил, придерживаемся правил. И всем будет хорошо. [/offtop]
[offtop] Demitras, а я откуда? Загляните в профиль. Думаете мне пофиг? Но здесь форум и политике здесь не место. Модеры - обычные люди, не звери, им хочется заниматься красивыми решениями, а не нарушителями. Так давайте мирно - получил замечание, устранил, придерживаемся правил. И всем будет хорошо. [/offtop]KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности
Не согласен. Если нужна помощь - правила форума надо ВЫУЧИТЬ. Иначе - неуважение
согласитесь, когда человек в отчаянии, когда три недели не получается программа из за какой то мелочи, то хватаешься за любую соломинку, какая может вытащить из ямы безисходности
Не согласен. Если нужна помощь - правила форума надо ВЫУЧИТЬ. Иначе - неуважениеSerge_007
Дата: Воскресенье, 23.02.2014, 01:00 |
Сообщение № 16
Группа: Гости
В правилах про устранение предупреждений нет ни слова. Если было бы возможно, то устранил бы незамедлительно, но как? И если посмотреть на хронологию моих грехов, то они просто шли один за одним. Безусловно это было не за один день, но я на сайте не продержался и 50 дней (42). Как вы заметили, я натура не скандальная и не мстительная. Не спорю, правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу и я обратился к вам за помощью. Спасибо всем, кто помог, но последние мои штрафы были скорее инерционными. Прошу меня простить, это не является обсуждением решений администрации.
Оффтоп никак не получается сделать, гостям нельзя.
KukIP, значит ты меня можешь понять. Хорошо это, что выпустили леди мы увидим, но я надеюсь на наше светлое будущее. А за все дни моего пребывания на сайте я не нашел как избавится от печальных процентов. Я не говорю, что штудировал сайт, но я что, дурак не устранить замечания, зная, как это сделать... И не могу исправлять свои орфографические ошибки - простите, гостям нельзя редактировать свои же сообщения.
В правилах про устранение предупреждений нет ни слова. Если было бы возможно, то устранил бы незамедлительно, но как? И если посмотреть на хронологию моих грехов, то они просто шли один за одним. Безусловно это было не за один день, но я на сайте не продержался и 50 дней (42). Как вы заметили, я натура не скандальная и не мстительная. Не спорю, правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу и я обратился к вам за помощью. Спасибо всем, кто помог, но последние мои штрафы были скорее инерционными. Прошу меня простить, это не является обсуждением решений администрации.
Оффтоп никак не получается сделать, гостям нельзя.
KukIP, значит ты меня можешь понять. Хорошо это, что выпустили леди мы увидим, но я надеюсь на наше светлое будущее. А за все дни моего пребывания на сайте я не нашел как избавится от печальных процентов. Я не говорю, что штудировал сайт, но я что, дурак не устранить замечания, зная, как это сделать... И не могу исправлять свои орфографические ошибки - простите, гостям нельзя редактировать свои же сообщения.Demitras
правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу
Как маленький ребенок, ей Богу... "Товарищ милиционер, я знаю что правила надо соблюдать, но пьяный по встречке со скоростью 200 км/ч я ехал потому что мне очень надо успеть на блины к тетушке. Отдайте пожалуйста права, я больше так не буду..."
Потратив несколько минут на чтение правил Вы получили бы всю необходимую помощь по Вашему проекту. Что, это ниже Вашего достоинства? Или так сложно? Или что-то ещё?
правила нужно соблюдать, но и меня поймите. Мне очень нужно закончить писать эту программу
Как маленький ребенок, ей Богу... "Товарищ милиционер, я знаю что правила надо соблюдать, но пьяный по встречке со скоростью 200 км/ч я ехал потому что мне очень надо успеть на блины к тетушке. Отдайте пожалуйста права, я больше так не буду..."
Потратив несколько минут на чтение правил Вы получили бы всю необходимую помощь по Вашему проекту. Что, это ниже Вашего достоинства? Или так сложно? Или что-то ещё?