{"id":57,"date":"2021-02-08T07:23:43","date_gmt":"2021-02-07T22:23:43","guid":{"rendered":"http:\/\/192.168.0.97\/bibouroku\/2021\/02\/08\/post-17\/"},"modified":"2021-02-08T07:23:43","modified_gmt":"2021-02-07T22:23:43","slug":"post-17","status":"publish","type":"post","link":"https:\/\/www.donijan.com\/bibouroku\/2021\/02\/post-17.html","title":{"rendered":"\u7d0d\u54c1\u30c7\u30fc\u30bf\u304b\u3089\u7269\u54c1\u53d7\u9818\u66f8\u30fb\u8acb\u6c42\u66f8\u30fb\u9818\u53ce\u66f8\u3092\u4e00\u62ec\u3067"},"content":{"rendered":"

\u7d0d\u54c1\u30c7\u30fc\u30bf\u3068\u7269\u54c1\u53d7\u9818\u66f8\u30fb\u8acb\u6c42\u66f8\u30fb\u9818\u53ce\u66f8\u3092\u30d0\u30e9\u30d0\u30e9\u500b\u5225\u306b\u7121\u99c4\u306b\u4f5c\u3063\u3066\u3044\u306a\u3044\u304b?<\/p>\n

\u78ba\u5b9a\u3057\u305f\u7d0d\u54c1\u30c7\u30fc\u30bf\u3067\u3042\u308c\u3070\u30fb\u30fb<\/p>\n

\u5358\u7d14\u306b\u7d0d\u54c1\u4f1d\u7968=\u7269\u54c1\u53d7\u9818\u66f8=\u8acb\u6c42\u66f8=\u9818\u53ce\u8a3c\u3068\u306a\u308b\u30fb\u30fb\u30fb<\/p>\n

\u3042\u3068\u306f\u305d\u306e\u307e\u307e<\/p>\n

\u540c\u4e00\u5185\u5bb9\u3092\u8868\u66f8\u304d\u3092\u5909\u3048\u3066\u5370\u5237\u3059\u308b\u3060\u3051\u3068\u306a\u308b\u306e\u3067\u30fb\u30fb
\u4e00\u6c17\u306b\u4f5c\u3063\u3066\u5370\u5237\u3057\u3066\u3057\u307e\u3046\u3002<\/p>\n

<\/p>\n

\u4e00\u6c17\u306b\u4f5c\u3063\u3066\u5370\u5237\u3057\u3066\u3057\u307e\u3046\u3002<\/p>\n

\uff11\uff0e\u5b9f\u969b\u306e\u7d0d\u54c1\u30c7\u30fc\u30bf\u304c\u78ba\u5b9a\u3057\u3066\u3001\u58f2\u308a\u4e0a\u3052\u30c7\u30fc\u30bf\u3092CSV\u30d5\u30a1\u30a4\u30eb\u306b\u30b9\u30c8\u30c3\u30af\u3057\u305f\u5f8c
\u3000\u3000\u6b21\u306f\u7d0d\u54c1\u30c7\u30fc\u30bf\u306e\u5370\u5237\u3068\u306a\u308a\u307e\u3059\u304c\u3001\u3053\u306e\u3068\u304d\u306b\u4e00\u62ec\u3067\u3001\u7269\u54c1\u53d7\u9818\u66f8=\u8acb\u6c42\u66f8=\u9818\u53ce\u8a3c\u3082
\u3000\u3000\u5370\u5237\u3057\u3066\u3057\u307e\u3046\u3002\u4ee5\u4e0b\uff15\uff10\u884c\u306e\u4f1d\u7968\u3092\u4f5c\u308a\u3001\u30d7\u30ea\u30f3\u30c8\u30a2\u30a6\u30c8\u306e\u30dc\u30bf\u30f3\u3092\u4f5c\u6210\u3002<\/p>\n

<\/a><\/p>\n

\uff12\uff0e\u305d\u306e\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u306b\u547c\u3073\u51fa\u3059\u30d7\u30ed\u30b0\u30e9\u30e0\u540d\u79f0\u3092\u8a18\u8f09\u3002<\/p>\n

<\/a><\/p>\n

\uff13\uff0e\u4eca\u5ea6\u306f\u305d\u306e\u547c\u3073\u51fa\u3057\u5148\u306b\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u3002<\/p>\n

<\/a><\/p>\n

\u66f8\u304f\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b\u306e\u901a\u308a<\/p>\n

‘————————————————————————–<\/p>\n

‘\u4f1d\u7968\u5370\u5237<\/p>\n

Sub DepyPrint()<\/p>\n

‘\u5909\u6570\u306e\u8a2d\u5b9a
Dim LastRow, LastRow0, LastCol0, RowCnt, RowSs As Long<\/p>\n

‘\u5909\u6570\u3078\u306e\u5024\u306e\u4ee3\u5165
LastRow0 = Cells(Rows.Count, 9).End(xlUp).Row + 1
RowCnt = LastRow0 – 1
RowSs = 2\u3000\u3000\u3000’\u884c\u306e\u8aa4\u5dee\u304c\u51fa\u308b\u306e\u3067\u305d\u306e\u4fee\u6b63\u6570
LastCol0 = Cells(6, Columns.Count).End(xlToLeft).Column<\/p>\n

‘\u7d0d\u54c1\u66f8\u90e8\u5206\u3092\u30b3\u30d4\u30fc
Range(Cells(1, 1), Cells(LastRow0, LastCol0)).Select
Selection.Copy<\/p>\n

For i = 1 To 3\u3000’\u7e70\u308a\u8fd4\u3057<\/p>\n

‘\u6307\u5b9a\u90e8\u5206\u306b\u8cbc\u308a\u4ed8\u3051
Cells(RowCnt * i + RowSs, 1).Select
ActiveSheet.Paste<\/p>\n

RowSs = RowSs + 1<\/p>\n

Next i<\/p>\n

‘\u7d0d\u54c1\u66f8\u3092\u5143\u306b\u3001\u7269\u54c1\u53d7\u9818\u66f8\u3068\u8acb\u6c42\u66f8\u3068\u9818\u53ce\u66f8\u306b\u5909\u3048\u308b
LastRow = Cells(Rows.Count, 9).End(xlUp).Row<\/p>\n

RowCnt = 1
For i = 1 To LastRow
Select Case Cells(i, 4)
Case “\u7d0d\u54c1\u66f8”
Select Case RowCnt<\/p>\n

Case 1: RowCnt = RowCnt + 1<\/p>\n

Case 2: Cells(i, 4) = “\u7269\u54c1\u53d7\u9818\u66f8”
Rows(i – 1 & “:” & i – 1).RowHeight = 5.25
Cells(i + 1, 8) = “\u53d7\u9818\u5370”
Rows(i + 2 & “:” & i + 3).RowHeight = 12
With Range(Cells(i + 1, 8), Cells(i + 2, 8))
.Merge
.VerticalAlignment = xlTop
.HorizontalAlignment = xlCenter
.Font.Size = 7
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium<\/p>\n

End With<\/p>\n

With Range(Cells(i – 2, 2), Cells(i – 2, 11))
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
End With
RowCnt = RowCnt + 1<\/p>\n

Case 3: Cells(i, 4) = “\u8acb\u6c42\u66f8”
Rows(i – 1 & “:” & i – 1).RowHeight = 5.25
Rows(i + 2 & “:” & i + 3).RowHeight = 12
With Range(Cells(i – 2, 2), Cells(i – 2, 11))
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
End With
RowCnt = RowCnt + 1<\/p>\n

Case 4: Cells(i, 4) = “\u9818\u53ce\u66f8”
Rows(i – 1 & “:” & i – 1).RowHeight = 5.25
Rows(i + 2 & “:” & i + 3).RowHeight = 12
Cells(i + 2, 5) = “\u9818\u53ce\u3044\u305f\u3057\u307e\u3057\u305f\u3002\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3059\u3002”
Cells(i + 2, 5).Font.Size = 10
With Range(Cells(i – 2, 2), Cells(i – 2, 11))
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
End With
End Select
End Select
Next i<\/p>\n

‘\u30d7\u30ea\u30f3\u30c8\u8a2d\u5b9a(\u3053\u3053\u306f\u30d7\u30ea\u30f3\u30bf\u30fc\u306b\u3088\u3063\u3066\u7570\u306a\u308b)<\/p>\n

Range(“A1:K” & LastRow + 1).Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = “$A$1:$K$” & LastRow + 1
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = “”
.PrintTitleColumns = “”
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = “$A$1:$K$” & LastRow + 1
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = “”
.CenterHeader = “”
.RightHeader = “”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = “”
.EvenPage.CenterHeader.Text = “”
.EvenPage.RightHeader.Text = “”
.EvenPage.LeftFooter.Text = “”
.EvenPage.CenterFooter.Text = “”
.EvenPage.RightFooter.Text = “”
.FirstPage.LeftHeader.Text = “”
.FirstPage.CenterHeader.Text = “”
.FirstPage.RightHeader.Text = “”
.FirstPage.LeftFooter.Text = “”
.FirstPage.CenterFooter.Text = “”
.FirstPage.RightFooter.Text = “”
End With
‘\u2193\u3053\u3053\u3082\u30d7\u30ea\u30f3\u30bf\u30fc\u306e\u6a5f\u7a2e\u306b\u3088\u308a\u7570\u306a\u308b
Application.PrintCommunication = True<\/p>\n

End Sub<\/p>\n

‘————————————————————————–<\/p>\n

\uff14\uff0e\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u3066\u5b9f\u884c\u3059\u308b\u3002<\/p>\n

<\/a><\/p>\n

\uff15\uff0e\u7d0d\u54c1\u66f8\u306e\u6b21\u306f\u7269\u54c1\u53d7\u9818\u66f8\u3001\u53d7\u9818\u5370\u306e\u5834\u6240\u3092\u4f5c\u308b\u3002<\/p>\n

<\/a><\/p>\n

\uff16\uff0e\u6b21\u306f\u8acb\u6c42\u66f8<\/p>\n

<\/a><\/p>\n

\uff17\uff0e\u6700\u5f8c\u306f\u9818\u53ce\u8a3c\u3000\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3057\u305f\u30fb\u30fb\u5165\u308c\u3066\u30fb\u30fb<\/p>\n

<\/a><\/p>\n

\uff18\uff0e\u3042\u3068\u306f\u5370\u5237\u306e\u8a2d\u5b9a\u3092\u3059\u308b\u30fb\u30fb\u30fb
\u3000\u3000\u30a8\u30af\u30bb\u30eb\u306f\u3053\u306e\u30d7\u30ea\u30f3\u30bf\u30fc\u306e\u8a2d\u5b9a\u304c\u3001\u6a5f\u7a2e\u306b\u3088\u3063\u3066\u3055\u307e\u3056\u307e\u7570\u306a\u308b\u5834\u5408\u304c\u3042\u308b\u306e\u3067
\u3000\u3000\u81ea\u5206\u306e\u74b0\u5883\u306b\u3042\u308f\u305b\u3066\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3002
\u3000\u3000\uff16\u884c\u3060\u3051\u306e\u56fa\u5b9a\u884c\u3067\u306a\u3044\u306e\u3067\u3001\u3053\u3053\u306f\u5185\u5bb9\u306b\u5408\u308f\u305b\u3066\u30fb\u30fb\u30fb\u5370\u5237\u30bf\u30a4\u30c8\u30eb\u3084\u30da\u30fc\u30b8\u6570\u306a\u3069\u306e
\u3000\u3000\u8a2d\u5b9a\u3092\u30de\u30af\u30ed\u3067\u304b\u3044\u3066\u304a\u3051\u3070\u3001\u697d\u306b\u306a\u308b\u306f\u305a\u3067\u3059\u3002
\u3000<\/p>\n","protected":false},"excerpt":{"rendered":"

\u7d0d\u54c1\u30c7\u30fc\u30bf\u3068\u7269\u54c1\u53d7\u9818\u66f8\u30fb\u8acb\u6c42\u66f8\u30fb\u9818\u53ce\u66f8\u3092\u30d0\u30e9\u30d0\u30e9\u500b\u5225\u306b\u7121\u99c4\u306b\u4f5c\u3063\u3066\u3044\u306a\u3044\u304b? \u78ba\u5b9a\u3057\u305f\u7d0d\u54c1\u30c7\u30fc\u30bf\u3067\u3042\u308c\u3070\u30fb\u30fb \u5358\u7d14\u306b\u7d0d\u54c1\u4f1d\u7968=\u7269\u54c1\u53d7\u9818\u66f8=\u8acb\u6c42\u66f8=\u9818\u53ce\u8a3c\u3068\u306a\u308b\u30fb\u30fb\u30fb \u3042\u3068\u306f\u305d\u306e\u307e\u307e \u540c\u4e00\u5185\u5bb9\u3092\u8868\u66f8\u304d\u3092\u5909\u3048\u3066\u5370\u5237\u3059\u308b\u3060\u3051\u3068 […]<\/p>\n","protected":false},"author":7,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16,17],"tags":[],"class_list":["post-57","post","type-post","status-publish","format-standard","hentry","category-excel","category-vba"],"_links":{"self":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/57"}],"collection":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/users\/7"}],"replies":[{"embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/comments?post=57"}],"version-history":[{"count":0,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/57\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/media?parent=57"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/categories?post=57"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/tags?post=57"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}