{"id":40,"date":"2021-01-26T04:52:26","date_gmt":"2021-01-25T19:52:26","guid":{"rendered":"http:\/\/192.168.0.97\/bibouroku\/2021\/01\/26\/post-7\/"},"modified":"2021-01-26T04:52:26","modified_gmt":"2021-01-25T19:52:26","slug":"post-7","status":"publish","type":"post","link":"https:\/\/www.donijan.com\/bibouroku\/2021\/01\/post-7.html","title":{"rendered":"\u5165\u529b\u51e6\u7406\u30fb\u30eb\u30fc\u30d7\u51e6\u7406\u30fb\u9078\u629e\u51e6\u7406\u30fb\u6587\u5b57\u5217\u64cd\u4f5c\u30fb\u8ee2\u8a18\u51e6\u7406"},"content":{"rendered":"
\n

\u30a8\u30af\u30bb\u30eb\u8868\u8a08\u7b97\u95a2\u6570\u3067\u306f\u3067\u304d\u306a\u3044\u51e6\u7406\u3068\u3057\u3066
\u591a\u5206\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u3067\u306f\u5de5\u592b\u3059\u308c\u3070\u3067\u304d\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u30fb\u30fb
\u624b\u9806\u304c\u9762\u5012\u306a\u306e\u3067\u30fb\u30fb<\/p>\n

\u5165\u529b\u51e6\u7406\u30fb\u30eb\u30fc\u30d7\u51e6\u7406\u30fb\u9078\u629e\u51e6\u7406\u30fb\u6587\u5b57\u5217\u64cd\u4f5c\u30fb\u8ee2\u8a18\u51e6\u7406<\/p>\n<\/p>\n

<\u76ee\u7684>
\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u306e\u30ad\u30fc\u7a2e\u5225\u306b\u5225\u306e\u8868\u306b\u8ee2\u8a18\u3057\u305f\u3044\u3002<\/p>\n

\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u4e00\u89a7\u8868\u306e\u30a8\u30af\u30bb\u30eb<\/a>\u3092\u4f5c\u6210\u3057\u30fb\u30fb<\/p>\n

Alt \u3068\u304b Ctrl\u3068\u304bWindows\u3068\u304b\u306e\u3001\u5404\u30ad\u30fc\u306e
\u76ee\u7684\u306e\u6587\u5b57\u304c\u5148\u982d\u304b\u3089\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b\u3082\u306e\u3060\u3051\u3092
Sheet1\u304b\u3089\u9078\u629e\u3057\u3001Sheet2\u3078
VBA\u3067\u8ee2\u8a18\u3092\u3059\u308b
\u3000<\/p>\n

<\u5165\u529b\u51e6\u7406>(InputBox)
<\u30eb\u30fc\u30d7\u51e6\u7406>(For\uff5e Next)
<\u9078\u629e\u51e6\u7406> (Select case\uff5eCase \uff5eEnd Select)
<\u6587\u5b57\u5217\u64cd\u4f5c> (Mid())<\/p>\n<\/p>\n<\/blockquote>\n

<\/p>\n

\n

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

‘\u4ee5\u4e0b\u30b3\u30fc\u30c9<\/p>\n

‘———————————————-
‘\u30eb\u30fc\u30d7\u51e6\u7406\u3092\u884c\u3046
‘\u4eca\u56de\u306e\u51e6\u7406\u306f\u3001Sheet1\u304b\u3089Sheet2\u3078\u8ee2\u8a18
‘\u5165\u529b\u3057\u305f\u6587\u5b57\u304c\u5148\u982d\u306b\u3042\u308b\u5834\u5408\u306e\u8ee2\u8a18\u3092\u884c\u3046
‘———————————————-<\/p>\n

Sub Tenki()
‘———————————————-
‘\u5909\u6570\u306e\u5ba3\u8a00<\/p>\n

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 As Long ‘\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3092\u884c\u3046\u70ba\u306e\u5909\u6570
Dim Row1 As Long ‘\u66f8\u8fbc\u3059\u308b\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f7
Dim Kstr As String ‘\u691c\u7d22\u3059\u308b\u6587\u5b57
Dim Ksms As Integer ‘\u691c\u7d22\u3059\u308b\u6587\u5b57\u6570<\/p>\n

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

‘\u5909\u6570\u306b\u5bfe\u3059\u308b\u5024\u306e\u53d6\u5f97\u3068\u30bb\u30c3\u30c8
LastRow = Cells(Rows.Count, 5).End(xlUp).Row ‘\u6700\u7d42\u884c
LastColumn = Cells(2, Columns.Count).End(xlToLeft).Column ‘\u6700\u7d42\u5217
Row1 = 2 ‘\u6700\u521d\u306b\u30b9\u30bf\u30fc\u30c8\u3059\u308bSheet2\u306e\u884c\u756a\u53f7 2\u884c\u76ee\u304b\u3089\u30b9\u30bf\u30fc\u30c8<\/p>\n

‘———————————————-
‘<\u5165\u529b\u51e6\u7406>
‘\u30a4\u30f3\u30d7\u30c3\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u3088\u308b\u6587\u5b57\u306e\u5165\u529b\u3068\u9577\u3055\u53d6\u5f97<\/p>\n

Kstr = InputBox(“\u691c\u7d22\u3059\u308b\u5148\u982d\u6587\u5b57\u5217\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044”, “\u691c\u7d22\u6587\u5b57\u5165\u529b”, “Alt”)
Ksms = Len(Kstr)<\/p>\n

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

‘<\u30eb\u30fc\u30d7\u51e6\u7406><\/p>\n

For Row0 = 5 To LastRow<\/p>\n

\n

‘<\u9078\u629e\u51e6\u7406><\/p>\n

Select Case Mid(Cells(Row0, 5).Value, 1, Ksms) ‘Sheet1\u306e\u8a72\u5f53\u884c\u306e\u5024\u306e\u5148\u982d\u304b\u3089\u6307\u5b9a\u3057\u305f\u6587\u5b57\u6570\u306e\u6587\u5b57\u304c<\/p>\n

\n

Case Kstr ‘\u5165\u529b\u3057\u305f\u6587\u5b57\u3060\u3063\u305f\u5834\u5408<\/p>\n

‘\u5217\u306e\u30eb\u30fc\u30d7\u51e6\u7406<\/p>\n

\n

For Col0 = 5 To LastColumn ‘5\u5217\u76ee\u304b\u3089\u6700\u7d42\u5217\u307e\u3067\u306e\u5024\u3092<\/p>\n

\n

‘Sheet1\u304b\u3089Sheet2\u3078\u8ee2\u8a18\u3059\u308b<\/p>\n

Sheets(“Sheet2”).Cells(Row1, Col0 – 3).Value = Cells(Row0, Col0) ‘Sheet2\u306b\u306f2\u5217\u76ee\u304b\u3089\u66f8\u304d\u8fbc\u3080 5-3=2<\/p>\n<\/blockquote>\n

Next Col0
\u3000<\/p>\n

Row1 = Row1 + 1 ‘\u6b21\u306b\u66f8\u304d\u8fbc\u3080\u70ba\u3001\u884c\u306e\u5024\u30921\u52a0\u3048\u3066\u304a\u304f<\/p>\n<\/blockquote>\n<\/blockquote>\n

End Select<\/p>\n<\/blockquote>\n

Next Row0<\/p>\n

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

End Sub
\u3000<\/p>\n

‘\u3053\u3053\u307e\u3067\u30b3\u30fc\u30c9<\/p>\n<\/blockquote>\n

\u3000<\/p>\n

\u3042\u3068\u306f\u5b9f\u884c\u3059\u308b\u5834\u5408\u306f\u4e09\u89d2\u5f62\u306e\u5b9f\u884c\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u304b
\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8 F5 \u5b9f\u884c
F6 \u30b9\u30c6\u30c3\u30d7\u30a4\u30f3<\/p>\n

<\/p>\n

\u3000<\/p>\n","protected":false},"excerpt":{"rendered":"

\u30a8\u30af\u30bb\u30eb\u8868\u8a08\u7b97\u95a2\u6570\u3067\u306f\u3067\u304d\u306a\u3044\u51e6\u7406\u3068\u3057\u3066\u591a\u5206\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u3067\u306f\u5de5\u592b\u3059\u308c\u3070\u3067\u304d\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u30fb\u30fb\u624b\u9806\u304c\u9762\u5012\u306a\u306e\u3067\u30fb\u30fb \u5165\u529b\u51e6\u7406\u30fb\u30eb\u30fc\u30d7\u51e6\u7406\u30fb\u9078\u629e\u51e6\u7406\u30fb\u6587\u5b57\u5217\u64cd\u4f5c\u30fb\u8ee2\u8a18\u51e6\u7406 <\u76ee\u7684> \u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u306e\u30ad\u30fc\u7a2e […]<\/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-40","post","type-post","status-publish","format-standard","hentry","category-vba"],"_links":{"self":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/40"}],"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=40"}],"version-history":[{"count":0,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/40\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/media?parent=40"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/categories?post=40"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/tags?post=40"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}