Predmet:Verzija excela
Ova funkcija vraca verziju excela u kojem radite
PreuzmiIzvorni kôd (Visual Basic):Function verzija()
Dim Ver As Integer
Dim Str As String
Ver = Val(Application.Version)
Select Case Ver
Case 8
Str = "Excel 97"
Case 9
Str = "Excel 2000"
Case 10
Str = "Excel 2002"
Case 11
Str = "Excel 2003"
Case 12
Str = "Excel 2007"
Case 14
Str = "Excel 2010"
Case 15
Str = "Excel 2013"
Case 16
Str = "Excel 2016"
Case Else
Str = "Nepoznata verzija"
End Select
MsgBox Str
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.