[sartek]

Excelowe świry, jak najprościej sprawdzić, czy komórki w danym zakresie zaczynają się od konkretnych znaków, i jeśli tak, to wywalić message box'a?

Próbuję takiego prostego kodu, ale nie działa:

Sub startswith()

If Left(Range("B12:B202").Value, 4) = "1111" Then
MsgBox "Text text", vbInformation,"Title"
End If

#excel #vba

[JanKremovski]

@sartek: "For each Cell in Range" i tak dalej

[sartek]

@JanKremovski: A to trzeba przejechać pętlą? Nie wystarczy, że jakoś tylko zadeklaruję zakres?

Ze zrobieniem pętli w pythonie to nie miałbym problemu, ale vba to inna sprawa xDDDD

W sensie, że coś

[L.....n]

Dla sprawdzenia czy w danym zakresie istnieje taka wartość:

for x = 12 to 202
If Left(Range("B"&x),4)="1111" Then
MsgBox "Lubie Budyń"
exit for

[Mr_NiceGuy]

@sartek Tak, ale bez value. Jak coś bardziej skomplikowanego to zamień left na like.

[JanKremovski]

@sartek: Jeśli chcesz wyświetlać MsgBox za każdym razem jak znajdzie komórkę z "1111":

Dim i As Range

For Each i In Range("B12:B202")
If Left(i, 4) =

[sartek]

@Lubie_Budyn
@Mr_NiceGuy
@JanKremovski

Dzięki wielkie mireczki, sprawdzę to jak już będę z powrotem przy kompie.
Tylko, że trochę nie sprecyzowalem, bo nie chce sprawdzać tego przy uruchomieniu makra, tylko, żeby to działało w tle i msgbox wyskakiwał od razu, jeśli wprowadzona wartość zaczyna się od

[Mr_NiceGuy]

@sartek to będzie event.
Sub Worksheet.Change(ByVal rng as Range)

[sartek]

@Mr_NiceGuy ok, i w evencie też mogę użyć pętli, czy to powinno być bez pętli, tak jak zaczynałem pisać na początku?

[Mr_NiceGuy]

@sartek spoko. Nie jestem ekspertem, ale chyba nie musisz, bo rng to będzie edytowana komórka. Czyli coś w stylu:
if left (rng,4) = "1111" then
Ale tak na 90 % :P

[croppz]

@sartek: @Mr_NiceGuy:

Private Sub Worksheet_Change(ByVal Target As Range)
 For Each cell In Target
 If Left(cell.Value, 4) = "1111"

[Mr_NiceGuy]

@croppz Pięknie wytłumaczone. Szanuję.

[sartek]

@Mr_NiceGuy
@croppz
Dzięki ziomeczki raz jeszcze ( ͡° ͜ʖ ͡°)
Więcej niż jedna komórka jednocześnie nie będzie zmieniana, bo to idzie przez walidację danych, i ten szeroki zakres to też trochę na wyrost, więc to akurat nie problem.

[sartek]

@croppz: @Mr_NiceGuy: Kurde, sorry za takię męczenie, ale mam już w tym arkuszy eventy przez worksheetchange, i już wcześniej żebym mógł mieć więcej niż jeden to dodałem Case, i te dwa wcześniejsze działały poprawnie, ale ten już mi nie działa niestety.

Mój kod to:

Private Sub

[sartek]

@Mr_NiceGuy: @Mr_NiceGuy: Mogę w sumie dać Case Else, ale jest ryzyko, że inne komórki też mogą się zaczynać od tych znaków, więc wolałbym ograniczyć zakres.

[croppz]

@sartek tak na szybko, bo nie mam teraz dostępu do Excela: if not intersect(target, me.columns(2)) is nothing

[sartek]

@croppz: dzięki, właśnie w tej chwili znalazłem też coś takiego

If Not Intersect(Target, Range("$X$19:$X$42")) Is Nothing Then

użyte już po End Select, to już jakoś to powinienem ogarnąć teraz.

[patatier]

@sartek for n=1 to ileśtam
if cells(n, 1).value like "1111*" then
End if
Next

[53845714N]

@sartek możesz to zrobić zwykłą funkcją tablicową i zliczyć ile takich wystąpień jest i np. wyświetlić w danej komórce ;) nie jest do tego potrzebne żadne makro ;)