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