listbox1.value
5 отговора
0 прегледа
listbox1.value
Може ли някой да помогне?
Да обясня какво прави този код!
- На лист1 съм поставила бутон, който извиква форма на която съм поставила listbox1, който се запълва със записи от лист2 и на същата форма също така още един бутон , който изтрива посочения запис едновременно от listbox1 и от лист2.
Всичко това сработва, само ако предварително е активен лист2, но ако е активен друг лист то той не не сработва.
Въпроса ми е, как да направя така, че независимо кой лист е активен кода да работи? Ето го кода!
If MsgBox("Сигурни ли сте че желаете изтриване на отбелязаният запис?", vbYesNo, "Внимание - операция изтриване!") = vbYes Then
For j = 14 To 80
Izbranslujitel = ListBox1.Value
If Cells("B" & j) = Izbranslujitel Then
NomerRed = Range("B" & j).Row
Rows(NomerRed).Delete
End If
Next
ZarediListBox
End If
Да обясня какво прави този код!
- На лист1 съм поставила бутон, който извиква форма на която съм поставила listbox1, който се запълва със записи от лист2 и на същата форма също така още един бутон , който изтрива посочения запис едновременно от listbox1 и от лист2.
Всичко това сработва, само ако предварително е активен лист2, но ако е активен друг лист то той не не сработва.
Въпроса ми е, как да направя така, че независимо кой лист е активен кода да работи? Ето го кода!
If MsgBox("Сигурни ли сте че желаете изтриване на отбелязаният запис?", vbYesNo, "Внимание - операция изтриване!") = vbYes Then
For j = 14 To 80
Izbranslujitel = ListBox1.Value
If Cells("B" & j) = Izbranslujitel Then
NomerRed = Range("B" & j).Row
Rows(NomerRed).Delete
End If
Next
ZarediListBox
End If
в отговор на zvezdi4kata_ff
#3
Re: listbox1.value
Преди между IF и FOR сложи един ред, на който активираш втория лист и готово!
в отговор на koмeтkaтka
#4
Re: listbox1.value
Версията на ексел е 2003
Варианта с активиране на лист2 съм го отработила , но не ме устройва, поради това, че листовете са повече, а бутона от който извиквам listbox1 съм го поставила на тулбара... та когато го извиквам от примерно лист3 трябва да активирам лист2 и после да се върна на лист3, от където всъшност съм извикала listbox1... А ако са повече листата? За това идеята ми е като натисна бутона да не се съобразявам на кой лист се намирам.
Варианта с активиране на лист2 съм го отработила , но не ме устройва, поради това, че листовете са повече, а бутона от който извиквам listbox1 съм го поставила на тулбара... та когато го извиквам от примерно лист3 трябва да активирам лист2 и после да се върна на лист3, от където всъшност съм извикала listbox1... А ако са повече листата? За това идеята ми е като натисна бутона да не се съобразявам на кой лист се намирам.
в отговор на zvezdi4kata_ff
#5
Re: listbox1.value
Еми тогава, навсякъде където ползваш адресиране към клетка (в текущата страница), сложи едно Sheets("лист2").
напр.
вместо
cells(1,1).value
може да се ползва
sheets(list1).cells(1,1).value
(е, при тебе буквите са други)
напр.
вместо
cells(1,1).value
може да се ползва
sheets(list1).cells(1,1).value
(е, при тебе буквите са други)
в отговор на zvezdi4kata_ff
#6
Re: listbox1.value
Сорка че съ сбъркала към кого е поста. И един съвет: Когато питаш за нещо из форумите, е най-добре подробно да опишеш и какво си пробвала. По този начин ще спестиш куп варианти, вече тествани...