Skip to content

Instantly share code, notes, and snippets.

View adityadaniel's full-sized avatar
🛠️

Daniel Aditya Istyana adityadaniel

🛠️
View GitHub Profile
@adityadaniel
adityadaniel / add body class genesis.php
Created January 13, 2017 03:44
Add custom class to body in Genesis themes
// Add custom body class to the head
add_filter( 'body_class', 'uc_body_class' );
function add_body_class( $classes ) {
$classes[] = 'name-of-css-class-goes-here';
return $classes;
}
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
declare
i number(1);
Nama varchar2(100);
begin
<< outer_loop >>
select first_name into nama from employees where first_name = 'Den';
dbms_output.put_line('Nama adalah: ' || Nama );
for i in 1..3 loop
<< inner_loop >>
dbms_output.put_line('Nama saya berulang: ' || Nama );
declare
v_fname employees.first_name%type;
v_lname employees.last_name%type;
begin
select first_name, last_name into v_fname, v_lname from employees where employee_id=1000;
dbms_output.put_line('Nama depannya adalah: ' || v_fname );
dbms_output.put_line('Nama belakangnya adalah: ' || v_lname );
exception
when no_data_found then
DECLARE
x number;
v_fname employees.first_name%type;
v_lname employees.last_name%type;
BEGIN
SELECT first_name,
last_name INTO v_fname,
v_lname
declare
v_fname employees.first_name%type;
v_lname employees.last_name%type;
begin
SELECT first_name, last_name into v_fname, v_lname from employees WHERE last_name = 'Chen';
dbms_output.put_line('Nama lengkap saya adalah: ' || v_fname || ' ' || v_lname);
end;
DECLARE
nama varchar2(100);
v_fname employees.first_name%type;
v_lname employees.last_name%type;
BEGIN
SELECT first_name,
last_name INTO v_fname,
v_lname
FROM employees
/* Settings */
:root {
--offset: 1.5rem;
--max_width: 72rem;
--columns: 6;
--gutter: .5rem;
--baseline: 3rem;
--baseline-shift: 2rem;
--color: hsla(204, 80%, 72%, 0.25);
}
@adityadaniel
adityadaniel / delete_blank_rows_more_than_8000.vb
Created July 10, 2018 01:28
VBA excel to delete blank rows more than 8000 cell
Sub del_COLA_empty()
'D McRitchie http://www.mvps.org/dmcritchie/excel/delempty.htm 2004-01-10
'based on Matt Neuburg, PhD http://www.tidbits.com/matt Aug 3, 1998
'Loop required due to MS KB http://support.microsoft.com/?kbid=832293
Dim i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
i = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = i To 1 Step -8000
On Error Resume Next 'in case there are no blanks