This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.comments-header | |
.comment-reply-title | |
{.entry-content(' h1',' h2',' h3',' h4',' h5',' h6'} | |
{.page-content(' h1',' h2',' h3',' h4',' h5',' h6'} | |
color nakano-h |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
cscript //nologo vbac.wsf decombine |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?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"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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") _ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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): ?> |
OlderNewer