Sub proDialogOkno() Dim varStartTime As Double Dim varSporočilo As String varStartTime = Timer Range("A1") = varStartTime Application.Goto Reference:="PoljeA" Application.Dialogs(xlDialogAlignment).Show Range("A2") = Timer Range("A3") = "Čas trajanja:" & Timer - varStartTime & " sekund" Sheets("List3").Range("PoljeA").Value = "AAA" If MsgBox("Se okno odpre?", vbYesNo, ".. gumb ...") Then Sheets("List5").Range("A1:F10").Value = "Ok!" Else: Value = "Poreden!" End If Selection.Offset(2, 3).Select ActiveCell.Value = "Barvica!" ActiveCell.Font.Name = "Verdana" ActiveCell.Font.Color = vbRed End Sub
sreda, 1. december 2010
Syntax highlighter, kontrolnik za prikaz izvorne kode
Dodal "SyntaxHighlighting" funkcionalnost. Tole je primer kode v Visual Basicu. Informacije o namestitvi SyntaxHighlighterja so na naslednjih mestih:
Naročite se na:
Objavi komentarje (Atom)
Ni komentarjev:
Objavite komentar