Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA szukanie formuły - Jeżeli występuje formułą zwróć msgbox

pop3k1 14 Gru 2016 10:09 513 2
  • #1 14 Gru 2016 10:09
    pop3k1
    Poziom 8  

    Witam, mam taką funkcyjkę, która może zadziałać jeśli w podanym zakresie komórek nie będzie żadnych formuł (jak '=suma()', '=A3+A4' itd)

    Spójrzcie:

    Sub AZ()
    Dim rng, cl As Range, szukana As String
    Dim j As Byte

    Set rng = Range("F3:DZ100")
    szukana = "="
    j = 0
    For Each cl In rng
    If Left(cl.Value, 1) Like szukana Then
    j = 1
    End If
    Next cl
    If j = 1 Then

    MsgBox "W arkuszu występuje jakaś formuła"

    Else
    - jakaś tam funkcja -

    End If
    End Sub

    No właśnie. Tu nie mogę sobie poradzić, myślałem, że szukane słowo '=' załatwi sprawę, ale to tylko w przypadku gdyby w arkuszu będzie tekst '=' a nie jakaś formuła.

    0 2
  • Pomocny post
    #2 14 Gru 2016 10:32
    JRV
    Specjalista - VBA, Excel

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 14 Gru 2016 12:19
    pop3k1
    Poziom 8  

    Dziękuję za pomoc, pięknie chodzi

    0