Skip to content

Instantly share code, notes, and snippets.

View akiya64's full-sized avatar

Akiya akiya64

15 followers · 20 following
View GitHub Profile
@akiya64
akiya64 / stylus-not-compile.styl
Last active April 14, 2016 05:25
Stylus can not compile
.comments-header
.comment-reply-title
{.entry-content(' h1',' h2',' h3',' h4',' h5',' h6'}
{.page-content(' h1',' h2',' h3',' h4',' h5',' h6'}
color nakano-h
@akiya64
akiya64 / Ariawase.ps
Created April 14, 2016 05:27
Ariawase WPS decompression script
cscript //nologo vbac.wsf decombine
@akiya64
akiya64 / turndown_move_date.php
Created April 17, 2016 04:12
shirohanada
<?php if(is_month()){
//Previous - Next Month Nav//
$before_post_month = strtotime(get_the_time('Y-m')." -1 month");
$before_month = array (
"year" => date('Y', $before_post_month),
"month" => date('m', $before_post_month),
);
$before_month_link = get_month_link($before_month['year'], $before_month['month']);
$after_post_month = strtotime(get_the_time('Y-m')." +1 month");
@akiya64
akiya64 / 'SELECT RECORD' from Sheet
Last active January 30, 2019 13:08
VBA Design Pattern
'Standard Module, Defenition TYPE
Type Employee
ID as String
PersonalName as String
FamilyName as String
PhoneNumber as String
End Type
Sub FindPhoneNumber(ByVal Id as String)
@akiya64
akiya64 / Don't use Regular Expression or "Like"
Last active October 18, 2016 04:05
telnum1 = 1
telnum1 = Len(Trim(breathein.Cells(i, 7).Value))
.Cells(i, 7).Value = StrConv(breathein.Cells(i, 7).Value, vbNarrow)
For ia = telnum1 To 1 Step -1
If (Mid(breathein.Cells(i, 7).Value, ia, 1) <> "0") _
And (Mid(breathein.Cells(i, 7).Value, ia, 1) <> "1") _
And (Mid(breathein.Cells(i, 7).Value, ia, 1) <> "2") _
And (Mid(breathein.Cells(i, 7).Value, ia, 1) <> "3") _
And (Mid(breathein.Cells(i, 7).Value, ia, 1) <> "4") _
@akiya64
akiya64 / Shirohanada front page
Last active November 17, 2016 01:06
.top-flex-container {
width: 1240px;
height: 700px;
margin: 9vh auto 0;
display: -webkit-box;
display: -moz-box;
display: -webkit-flex;
display: -ms-flexbox;
display: box;
display: flex;
@akiya64
akiya64 / ConnectTextdataVBA
Created December 14, 2016 08:15
Import Excel 132Column CSV
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;YAMATO_SYS_DUMP.csv", Destination:=Range("$A$2"))
.Name = "CSV読込"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
@akiya64
akiya64 / StringOrLong
Created December 15, 2016 07:48
Can I Roundup String?
Dim finalNumber As String
finalNumber = 50000001
Dim newStartNumber As String
newStartNumber = Application.RoundUp(finalNumber, -1)
Dim newFinalNumber As String
For i = 2 To ThisWorkbook.Worksheets(db).Range("B50000").End(xlUp).Row
With ThisWorkbook.Worksheets(db)
@akiya64
akiya64 / echoAlmostAllTags
Last active December 26, 2016 08:50
How include html tags into php code?
///////////////////////////////////////////////////////////////upper layout part
echo("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>");
echo("<html xmlns='http://www.w3.org/1999/xhtml'>");
echo("<head>");
echo("<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' />");
echo("<meta http-equiv='content-language' content='en' />");
echo("<meta http-equiv='imagetoolbar' content='no' />");
echo("<link rel='stylesheet' href='".$abs_pass."style.css' type='text/css' /> ");
echo("<title>".$abs_title."</title>");
@akiya64
akiya64 / functions.part.php
Created February 6, 2017 04:21
Switch Excerpt
add_action ( 'edit_category_form_fields', 'extra_category_fields');
function extra_category_fields( $tag ) {
$tid = $tag->term_id;
$is_show_excerpt = get_option( "cat_$tid_show_excerpt");
?>
<tr class="form-field">
<th><label for="extra_text">抜粋を表示</label></th>
<td>
<select name="is_show_exception" id="is_show_exception">
<?php if($is_show_excerpt): ?>