Programma Excel VBA - - Msg Box, kad šūna atbilst kritērijiem

Izdevums
Risinājums
Piezīme

Izdevums

Čau, tas droši vien būs ļoti vienkāršs, lai kāds tomēr man ir murgs diena, viss, ko es gribu, ir VBA formula, kas parādīs ziņojumu lodziņu, kad šūna parāda konkrētus kritērijus.

Vai kāds var palīdzēt?

Risinājums

Šis kods pieņem, ka tas, ko jūs meklējat, ir A slejā.

 Privāts sub Find_Criteria () Dim i Dim rr = diapazons ("A65536"). Beigas (xlUp) .Rinda i = 1 i = i uz r Ja diapazons ("A" & i) = "kritēriji" Tad MsgBox "Atrasts" & "" Un diapazons ("A" un i) .Pievienot beigas Ja nākamais i Beigas Sub Ja meklējat noteiktus kritērijus šūnu diapazonā, tad mēģiniet kaut ko līdzīgu. Privāts sub Find_Criteria () Dim i kā variants Dim FindRange kā diapazona komplekts FindRange = diapazons ("A1: K50") katram i FindRange Ja i = "kritēriji" Tad MsgBox "Atrasts" & "& i.Address End Ja nākamais i Beigt Sub