Skip to content

Instantly share code, notes, and snippets.


Block or report user

Report or block zbyna

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View Table-ListObjects.vbs
Sub Sheet2_Button1_Click()
' Sheet2_Button1_Click Macro
Dim Tabulka As ListObject
Dim List As Worksheet
Set List = ActiveSheet ' to get code completion, it does not work on ActiveSheet property
Set Tabulka = List.ListObjects.Add(SourceType:=xlSrcRange, _
zbyna / frequent.vba
Last active Jan 4, 2019
Basic vba statements - frequent uses
View frequent.vba
Sub TotoTlacitka_Click()
' callback for button with name TotoTlacitka, _ is part of vba syntax
' early binding
Dim Aktualni_vyber As Range
Dim bunka As Range
Dim cislo As Integer
' object initialisation
Set Aktualni_vyber = Selection
For Each bunka In Aktualni_vyber
zbyna / example.pas
Created Oct 4, 2017
How to remove diacritics
View example.pas
// using utf8tools and LazUTF8
procedure nahradDiakritiku(var retezec:String);
ukChar: PChar;
unicode: Cardinal;
CharLen: integer;
unicodeCategory: SmallInt;
zbyna / jaknato.txt
Last active Jul 26, 2017
Episodes list json response
View jaknato.txt
eventuální scrapování info o epizodách:
- po sezónách - vrátí všechny epizody pro sezonu
get /series/{id}/episodes/query
response: thetvdb.json
zbyna / Soda Dark 3.sublime-theme
Created Mar 18, 2017
Bigger status bar font in Sublime Text 3 - Soda Dark 3.sublime-theme
View Soda Dark 3.sublime-theme
// Status bar label
"class": "label_control",
"parents": [{"class": "status_bar"}],
"color": [150, 150, 150],
"shadow_color": [25, 25, 25],
"shadow_offset": [0, -1],
"font.size" : 14
You can’t perform that action at this time.