{"id":46,"date":"2021-01-28T17:56:03","date_gmt":"2021-01-28T08:56:03","guid":{"rendered":"http:\/\/192.168.0.97\/bibouroku\/2021\/01\/28\/post-13\/"},"modified":"2021-01-28T17:56:03","modified_gmt":"2021-01-28T08:56:03","slug":"post-13","status":"publish","type":"post","link":"https:\/\/www.donijan.com\/bibouroku\/2021\/01\/post-13.html","title":{"rendered":"\u8868\u8a08\u7b97\u95a2\u6570\u3067\u51fa\u6765\u306a\u304b\u3063\u305f\u3089\u30fb\u30fb\u30fb"},"content":{"rendered":"

\u3000\u3000\u8868\u8a08\u7b97\u95a2\u6570\u3067\u306f\u30fb\u30fb\u3061\u3087\u3063\u3068\u3067\u304d\u306a\u3044\uff1f<\/p>\n

\u3000\u3000\u305d\u3093\u306a\u4e8b\u4f8b\u306e\u4e00\u3064\u30fb\u30fb<\/p>\n

\u3000\u3000\u30eb\u30fc\u30c1\u30f3\u30ef\u30fc\u30af\u3067\u4e00\u756a\u3084\u308a\u305f\u304f\u306a\u3044\u4f5c\u696d\u30fb\u30fb
\u3000\u3000\u305f\u3081\u606f\u304c\u3067\u3066\u304d\u307e\u3059\u3002
\u3000\u3000\u5b9f\u52d9\u3067\u3001\u3053\u3093\u306a\u3053\u3068\u304c\u3088\u304f\u3042\u308a\u307e\u3059\u3002<\/p>\n

\u305d\u3093\u306a\u4e00\u4f8b\u306e\u3054\u7d39\u4ecb\u3067\u3059\u3002<\/p>\n

<\/p>\n

\u3000<\/p>\n

\uff11\uff0e\u8868\u8a08\u7b97\u95a2\u6570\u3067\u306f\u30fb\u30fb\u3061\u3087\u3063\u3068\u3067\u304d\u306a\u3044\uff1f
\u3000\u3000\u5b9f\u52d9\u3067\u3001\u3053\u3093\u306a\u3053\u3068\u304c\u3088\u304f\u3042\u308a\u307e\u3059\u3002\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306a\u3069\u306b\u767b\u9332\u3059\u308b\u3068\u304d\u306b\u30fb\u30fb
\u3000\u3000\u884c\u3068\u5217\u3092\u3061\u3083\u3093\u3068\u5206\u3051\u3066\u30fb\u30fb\u30c7\u30fc\u30bf\u3092\u30b9\u30c8\u30c3\u30af\u3057\u3066\u304a\u304b\u306a\u3044\u3068\u5f8c\u3067\u3001\u56f0\u308b\u30fb\u30fb\uff08\uff34\uff3f\uff34\uff09<\/p>\n

\u4e0b\u8a18\u306e\u8868\u306e\u30fb\u30fb\u30fb\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u4e00\u89a7\u3067\u30fb\u30fb\u30fb<\/p>\n

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

\uff12\uff0e\uff7e\uff99\u306e\u306a\u304b\u306b\u8907\u6570\u306e\u6587\u5b57\u304c\u7d44\u307f\u5408\u308f\u3055\u308c\u3066\u3044\u3066\u30fb\u30fb\u305d\u308c\u3092\u5206\u89e3\u3057\u3066\u5225\u306e\uff7e\uff99\u306b\u66f8\u304d\u51fa\u3059\u3002
\u3000\u30002\uff5e3\u884c\u304f\u3089\u3044\u3060\u3063\u305f\u3089\u3001\u624b\u3067\u5909\u66f4\u3057\u3066\u3082\u30fb\u30fb600\u884c\u3068\u304c\uff11\uff10\uff10\uff10\u884c\u3068\u304b\u3060\u3063\u305f\u3089\u3069\u3046\u3059\u308b\uff1f\uff1f
\u3000\u3000\u8868\u8a08\u7b97\u95a2\u6570\u3067\u3082\u3067\u304d\u306a\u3044\u3057\u30fb\u30fb\u3063\u3066\u3044\u3046\u6642\u30fb\u30fb\u30fb<\/p>\n

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

\uff13\uff0e\u305d\u3046\u3044\u3046\u6642\u30fb\u30fb\u30fb\u306b\u3082\u3044\u308d\u3044\u308d\u5de5\u592b\u3092\u3059\u308b\u3068\u30fb\u30fb\u30fb
\u3000\u3000\u306a\u3093\u3068\u304b\u306a\u308a\u307e\u3059\u306d\u3002<\/p>\n

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

\uff14\uff0e\u3055\u307e\u3056\u307e\u306a\u3084\u308a\u65b9\u3067\u3084\u3063\u3066\u307f\u308b\u3068\u30fb\u30fb\u4e00\u77ac\u3067\u3067\u304d\u3061\u3083\u3044\u307e\u3059\u3002
\u3000\u3000\u3082\u3057\u3082\u3001\u3053\u3093\u306a\u3084\u308a\u305f\u304f\u306a\u3044\u30eb\u30fc\u30c1\u30f3\u4f5c\u696d\u3092\u89e3\u6d88\u3057\u305f\u3044\u3082\u306e\u3067\u3059\u3002<\/p>\n

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

\uff15\uff0e\u53c2\u8003\u306e\u30a8\u30af\u30bb\u30eb\u30ef\u30fc\u30af\u30d6\u30c3\u30af<\/a><\/p>\n

\u3000<\/p>\n

\uff16\uff0e\uff36\uff22\u306e\u30b3\u30fc\u30c9\u306f\u3053\u3093\u306a\u611f\u3058\u3067\u30fb\u30fb\u30fb<\/p>\n

‘\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d
‘\u4e00\u5b9a\u306e\u51e6\u7406\u3092\u884c\u3046
Sub KeySet()
Dim LastRow As Long ‘\u6700\u7d42\u884c\u3092\u53d6\u5f97\u3059\u308b\u5909\u6570
Dim LastColumn As Long ‘\u6700\u7d42\u5217\u3092\u53d6\u5f97\u3059\u308b\u5909\u6570
Dim Row0, Col0 As Long ‘\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u884c\u3046\u70ba\u306e\u5909\u6570
Dim Sstr As String ‘\u4e00\u65e6\u30bb\u30eb\u5185\u5bb9\u3092\u6587\u5b57\u5217\u306b\u53ce\u7d0d\u3059\u308b
Dim SpStr As Variant ”\u6587\u5b57\u5217\u306e\u914d\u5217\u3092\u53ce\u7d0d\u3059\u308b\u5909\u6570<\/p>\n

LastRow = Cells(Rows.Count, 6).End(xlUp).Row
LastColumn = Cells(2, Columns.Count).End(xlToLeft).Column<\/p>\n

For Row0 = 5 To LastRow ‘5\u884c\u76ee\u304b\u3089\u6700\u7d42\u884c\u307e\u3067
Select Case InStr(1, Cells(Row0, 6), ” (“)
Case Is > 0
Sstr = Mid(Cells(Row0, 6), 1, InStr(1, Cells(Row0, 6), ” (“))
Case 0
Sstr = Cells(Row0, 6)
Case Else
End Select
‘\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u5185\u306b” + “\u3068\u3044\u3046\u6587\u5b57\u5217\u304c\u306f\u3044\u3063\u3066\u3044\u308b\u304b\u3069\u3046\u304b? ‘
Select Case InStr(1, Sstr, ” + “) ‘InStr\u306e\u623b\u308a\u5024\u306f\u958b\u59cb\u6587\u5b57\u5217
Case Is > 1 ‘\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u5185\u306b” + “\u3068\u3044\u3046\u6587\u5b57\u5217\u304c\u306f\u3044\u3063\u3066\u3044\u308b\u304b\u3069\u3046\u304b? ‘<\/p>\n

SpStr = Split(Sstr, ” + “)
For Col0 = 0 To UBound(SpStr)
Cells(Row0, Col0 + 2).Value = SpStr(Col0)
Next Col0
Erase SpStr
Case Else ‘\u5165\u3063\u3066\u3044\u306a\u3044\u5834\u5408
Cells(Row0, 2) = Sstr
End Select<\/p>\n

Next Row0 ‘\u3053\u3053\u307e\u3067\u306e\u9593\u3092\u7e70\u308a\u8fd4\u3059<\/p>\n

End Sub<\/p>\n

‘\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d\uff0d<\/p>\n

‘Dim \u3067\u5ba3\u8a00\u3057\u305f\u5909\u6570\u4ee5\u5916\u306e\u8a33\u306e\u308f\u304b\u3089\u306a\u3044\u3082\u306e\u306f\u3001net\u3067vb **\u3063\u3066\u691c\u7d22\u3059\u308b\u3068\u51fa\u3066\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

\u3000\u3000\u8868\u8a08\u7b97\u95a2\u6570\u3067\u306f\u30fb\u30fb\u3061\u3087\u3063\u3068\u3067\u304d\u306a\u3044\uff1f \u3000\u3000\u305d\u3093\u306a\u4e8b\u4f8b\u306e\u4e00\u3064\u30fb\u30fb \u3000\u3000\u30eb\u30fc\u30c1\u30f3\u30ef\u30fc\u30af\u3067\u4e00\u756a\u3084\u308a\u305f\u304f\u306a\u3044\u4f5c\u696d\u30fb\u30fb\u3000\u3000\u305f\u3081\u606f\u304c\u3067\u3066\u304d\u307e\u3059\u3002\u3000\u3000\u5b9f\u52d9\u3067\u3001\u3053\u3093\u306a\u3053\u3068\u304c\u3088\u304f\u3042\u308a\u307e\u3059\u3002 \u305d\u3093\u306a\u4e00\u4f8b\u306e\u3054\u7d39\u4ecb\u3067\u3059\u3002<\/p>\n","protected":false},"author":7,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-46","post","type-post","status-publish","format-standard","hentry","category-vba"],"_links":{"self":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/46"}],"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=46"}],"version-history":[{"count":0,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/46\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/media?parent=46"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/categories?post=46"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/tags?post=46"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}