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/Excel - Jak zwrócić wynik fomuły w MsgBox?

dajmilogin 11 Kwi 2014 12:45 1086 2
  • #1 11 Kwi 2014 12:45
    dajmilogin
    Poziom 10  

    Jak zwrócić w ponizszym kodzie wynik famuły w msgbox a nie tekst formuły, ajk to siedzieje teraz?

    Code:
     Sub Przycisk_Kliknięcie()     
    
    Dim Podfolder     As String   
    Podfolder = "=CONCATENATE(MID(RC[-1],1,4),""_"",MID(RC[-1],6,2))"   
    MsgBox Podfolder   
    End Sub

    0 2
  • #2 11 Kwi 2014 13:11
    adamas_nt
    Moderator Programowanie

    Toż to konkatenacja zwykła przecież... Przepisz do składni tekstowej, Np:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 11 Kwi 2014 15:27
    dajmilogin
    Poziom 10  

    mozliwe, że jest, ale ma sie odwoływać nie do jednej stałej komórki jak "AK3", tylko do komórki poprzedzającej, to jest tylko fragment poniższej procedury.
    Za chiny nie wiem jak wyciągnąc wynik z "podfolder", reszta działa.

    Code:

    Sub Przycisk38_Kliknięcie()
        Dim Sciezka       As String
        Dim NazwaPliku    As String
        Dim podfolder     As String
            Sciezka = "\\DEP_Handlu\Dane_zamowienia\"
            NazwaPliku = CStr(ActiveCell.Value)
            podfolder = Mid(Range("AK3"), 1, 4) & "_" & Mid(Range("AK3"), 6, 2)
    On Error Resume Next
    ActiveWorkbook.FollowHyperlink Address:=Sciezka & podfolder & "\" & NazwaPliku & ".pdf", NewWindow:=True
        If Err.Number <> 0 Then
          MsgBox Err.Description
          Err.Clear
       End If



    End Sub


    Dodano po 1 [godziny] 44 [minuty]:

    rozwiazane, dodałem podfolder do formuł spod NazwaPliku = CStr(ActiveCell.Value) .
    Trochę obejście, ale wazne, ze dziala.

    0