Jak zwrócić w poniższym kodzie wynik formuły w Msgbox, a nie tekst formuły, jak to się dzieje teraz?
Sub Przycisk_Kliknięcie() Dim Podfolder As String Podfolder = "=CONCATENATE(MID(RC[-1],1,4),""_"",MID(RC[-1],6,2))" MsgBox Podfolder End Sub
Jak zwrócić w poniższym kodzie wynik formuły w Msgbox, a nie tekst formuły, jak to się dzieje teraz?
Sub Przycisk_Kliknięcie() Dim Podfolder As String Podfolder = "=CONCATENATE(MID(RC[-1],1,4),""_"",MID(RC[-1],6,2))" MsgBox Podfolder End Sub
Ta formuła daje zapewne poprawny wynik w komórce, w której jest wpisana.
Wystarczy zatem przypisać ją do jakiejś komórki korzystając z właściwości formula, np.
Range("A1").Formula = "=CONCATENATE(MID(RC[-1],1,4),""_"",MID(RC[-1],6,2))"
Następnie wyświetlić obliczoną w komórce wartość:
MsgBox Range("A1").Value