Excel VBA filtras |
KU202M, permalink
Sveiki,
Gal kas turit ir galit pasidalinti :
Yra lentelė ~4000 eilučių . Reikia pagal vieną stulpelį (ten duomenys -
"bendra" formato) išfiltruot visas eilutes kuriose pvz yra simboliai
"7b7" . Viską tą daro standartinis autofiltras, bet man reikia
supaprastintai - įrašai į viršutinę užfryzintą celę reikiamus simbolius
ir išfiltruoja.
Bandžiau ~2val. ieškot pvz... nesekasi, organizmas nu-alintas po šventės.
krk, permalink
Labas
Neturiu po ranka exelio kad tiksliai viska ivardyt, bet mazdaug taip:
Isijungi filtra. Spaudi record macro, tada pasifiltruoji kazka panasaus.
Stop record
Tada vba edit: worksheete surandi trigeri on change, ten isikopini ta savo
surecordinta macrosa, idedi papildomai if target_range.address = A1 then...
ir savo makrose tai ka reik filtruot pakeiti i target_range.value
KU202M drxx777@gmail.com wrote:
Sveiki,
Gal kas turit ir galit pasidalinti :
Yra lentelė ~4000 eilučių . Reikia pagal vieną stulpelį (ten duomenys -
"bendra" formato) išfiltruot visas eilutes kuriose pvz yra simboliai
"7b7" . Viską tą daro standartinis autofiltras, bet man reikia
supaprastintai - įrašai į viršutinę užfryzintą celę reikiamus simbolius
ir išfiltruoja.Bandžiau ~2val. ieškot pvz... nesekasi, organizmas nu-alintas po šventės.
KU202M, permalink
2020-06-25 18:56, krk rašė:
Labas
Neturiu po ranka exelio kad tiksliai viska ivardyt, bet mazdaug taip:
Isijungi filtra. Spaudi record macro, tada pasifiltruoji kazka panasaus.
Stop recordTada vba edit: worksheete surandi trigeri on change, ten isikopini ta savo
surecordinta macrosa, idedi papildomai if target_range.address = A1 then...
ir savo makrose tai ka reik filtruot pakeiti i target_range.valueKU202M drxx777@gmail.com wrote:
Sveiki,
Gal kas turit ir galit pasidalinti :
Yra lentelė ~4000 eilučių . Reikia pagal vieną stulpelį (ten duomenys -
"bendra" formato) išfiltruot visas eilutes kuriose pvz yra simboliai
"7b7" . Viską tą daro standartinis autofiltras, bet man reikia
supaprastintai - įrašai į viršutinę užfryzintą celę reikiamus simbolius
ir išfiltruoja.Bandžiau ~2val. ieškot pvz... nesekasi, organizmas nu-alintas po šventės.
Ačiū. Bandysiu insisavinti.
KU202M, permalink
2020-06-26 07:18, KU202M rašė:
2020-06-25 18:56, krk rašė:
Labas
Neturiu po ranka exelio kad tiksliai viska ivardyt, bet mazdaug taip:
Isijungi filtra. Spaudi record macro, tada pasifiltruoji kazka panasaus.
Stop recordTada vba edit: worksheete surandi trigeri on change, ten isikopini ta
savo
surecordinta macrosa, idedi papildomai if target_range.address = A1
then...
ir savo makrose tai ka reik filtruot pakeiti i target_range.value
Sub GNfiltras()
'
' GNfiltras Makrokomanda
'
'
Sheets("BENDRAS R").Range("B3").AutoFilter Field:=2,
Criteria1:=Cells(1, 2).Value
End Sub
Išfiltruoja tik tikslias reikšmes turinčias eilutes. Reikia, kad, kaip
standartinis filtras, išfiltruotų visas eilutes , kurių B stulpelio
celėse yra info su įrašytais į paiešką simboliais. Kadangi ir taip turiu
n reikaliukų, tikiuosi, kad kažkas patikslins.
krk, permalink
Pvz kad ieskotu visu kur yra d, reik irasyti d
Arba sitaip:
Criteria1:=“=” & Cells(1, 2).Value & ””
KU202M drxx777@gmail.com wrote:
2020-06-26 07:18, KU202M rašė:
2020-06-25 18:56, krk rašė:
Labas
Neturiu po ranka exelio kad tiksliai viska ivardyt, bet mazdaug taip:
Isijungi filtra. Spaudi record macro, tada pasifiltruoji kazka panasaus.
Stop recordTada vba edit: worksheete surandi trigeri on change, ten isikopini ta
savo
surecordinta macrosa, idedi papildomai if target_range.address = A1
then...
ir savo makrose tai ka reik filtruot pakeiti i target_range.valueSub GNfiltras()
'
' GNfiltras Makrokomanda
''
Sheets("BENDRAS R").Range("B3").AutoFilter Field:=2,
Criteria1:=Cells(1, 2).ValueEnd Sub
Išfiltruoja tik tikslias reikšmes turinčias eilutes. Reikia, kad, kaip
standartinis filtras, išfiltruotų visas eilutes , kurių B stulpelio
celėse yra info su įrašytais į paiešką simboliais. Kadangi ir taip turiu
n reikaliukų, tikiuosi, kad kažkas patikslins.
KU202M, permalink
2020-06-30 14:48, krk rašė:
Pvz kad ieskotu visu kur yra d, reik irasyti d
Arba sitaip:Criteria1:=“=” & Cells(1, 2).Value & ””
Niveikiot :( Criteria1:=“” & Cells(1, 2).Value & ””
krk, permalink
O ka reiskia niveikot?
1. Ivedus nauja reiksme filtras nepasikeicia? Tada reikia on change
trigerio workshyte
2. Filtruoja tik tiksliai tai kas irasyta? Su zvaigzdutem viskas turetu but
ok.
3. Filtruoja bbz ka? Cells(1, 2) yra activesheet’e, tai gal tas turi buti
sheets(“bendras r”).cells(1,2)?
Cia jau ilgiau uztrunka aiskint nei padaryt, neturiu kompe jokio newsu
readerio/writerio, atsiusk emaila (mano praktiskai tikras), atsiusiu koki
pavyzdi
KU202M drxx777@gmail.com wrote:
2020-06-30 14:48, krk rašė:
Pvz kad ieskotu visu kur yra d, reik irasyti d
Arba sitaip:Criteria1:=“=” & Cells(1, 2).Value & ””
Niveikiot :( Criteria1:=“” & Cells(1, 2).Value & ””