{"id":47,"date":"2021-01-30T06:49:45","date_gmt":"2021-01-29T21:49:45","guid":{"rendered":"http:\/\/192.168.0.97\/bibouroku\/2021\/01\/30\/vba-1\/"},"modified":"2021-01-30T06:49:45","modified_gmt":"2021-01-29T21:49:45","slug":"vba-1","status":"publish","type":"post","link":"https:\/\/www.donijan.com\/bibouroku\/2021\/01\/vba-1.html","title":{"rendered":"VBA\u3067\u5e74\u3054\u3068\u306b\u7570\u306a\u308b\u7bc0\u5206\u3092\u3069\u3046\u8a08\u7b97\u3059\u308b\u304b?"},"content":{"rendered":"

\u793e\u9577\u306e\u624b\u66f8\u304d\u30e1\u30e2<\/a>\u3067\u7d39\u4ecb\u3059\u308b<\/span><\/b><\/p>\n

\u5e74\u306b\u3088\u308a\u7570\u306a\u308b\u7bc0\u5206\u306e\u65e5\u4ed8\u3068\u3001\u958f\u5e74\u306e\u8a08\u7b97\uff1f<\/p>\n

\u897f\u66a6\u5e74\u3092\u5165\u308c\u308b\u3068\u300110\u5e74\u3067\u3082100\u5e74\u3067\u3082\u8a08\u7b97\u3057\u8868\u8a18\u3059\u308b\u306b\u306f\u30fb\u30fb
\u3055\u307e\u3056\u307e\u306a\u8a08\u7b97\u65b9\u6cd5\u304c\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u304c\u30fb\u30fb\u30fb\u7d20\u76f4\u306b\u6587\u3092\u8aad\u3093\u3067\u3001\u305d\u306e\u901a\u308a\u4f5c\u3063\u3066\u307f\u308b\u3002<\/p>\n

\u3000\u6700\u521d\u306f\u3042\u307e\u308a\u5de5\u592b\u3057\u3059\u304e\u308b\u3068\u3001\u3042\u3068\u3067\u308f\u304b\u3089\u306a\u304f\u306a\u308b\u30fb\u30fb<\/span><\/b><\/p>\n

<\/p>\n

\u8aac\u660e\u6587\u306f\u4ee5\u4e0b\u306e\u3068\u304a\u308a\u3067\u30fb\u30fb\u30fb<\/p>\n\n\n\n\n
\n

\u8aac\u660e\u5206<\/p>\n<\/td>\n

\n

\u5e74\u3092\uff14\u3067\u5272\u3063\u305f\u4f59\u308a\u30672\u65e5\uff5e\uff14\u306b\u306a\u308b\u5e74\u5225\u306e\u5272\u308a\u5f53\u3066<\/p>\n<\/td>\n<\/tr>\n

\n

\u3000\u4e00\u822c\u306b\u306f\u6bce\u5e742\u67083\u65e5<\/a>\u3067\u3042\u308b\u304c\u5e38\u306b\u305d\u3046\u3067\u306f\u306a\u304f\u30011984\u5e74<\/a>\u307e\u3067\u306f4\u5e74\u306b1\u5ea6\u306e\u958f\u5e74<\/a>\u306b2\u67084\u65e5<\/a>\u3060\u3063\u305f\u30021985\u5e74<\/a>\u304b\u30892020\u5e74<\/a>\u307e\u3067\u306f2\u67083\u65e5\u3060\u3063\u305f\u304c\u30012021\u5e74<\/a>\u304b\u3089\u306f\u958f\u5e74\u306e\u7fcc\u5e74\u306b2\u67082\u65e5<\/a>\u306b\u306a\u308b\u3002\u30b0\u30ec\u30b4\u30ea\u30aa\u66a6<\/a>\u3067\u306e\u6700\u521d\u306e\u7bc0\u5206\u3068\u306a\u3063\u305f1873\u5e74<\/a>\u304b\u308922\u4e16\u7d00<\/a>\u521d\u982d\u307e\u3067\u306e\u5177\u4f53\u7684\u306a\u65e5\u4ed8\u306f\u8868\u306e\u3088\u3046\u306b\u306a\u308b\uff08\u91cd\u8907\u3057\u3066\u3044\u308b\u5e74\u306f\u3069\u3061\u3089\u306e\u6b04\u3092\u4f7f\u3063\u3066\u3082\u6b63\u3057\u3044\u65e5\u4ed8\u304c\u51fa\u308b\uff09\u3002\u6570\u5341\u5e74\u306e\u30b9\u30b1\u30fc\u30eb\u3067\u5f90\u3005\u306b\u524d\u5012\u3057\u306b\u306a\u3063\u3066\u304f\u308b\u304c\u30014\u3067\u5272\u308a\u5207\u308c\u3066\u3082\u958f\u5e74\u3068\u306a\u3089\u306a\u30441900\u5e74<\/a>\u30012100\u5e74<\/a>\u30012200\u5e74<\/a>…\u306e\u7fcc\u5e74\u306b1\u65e5\u9045\u308c\u3066\u5e33\u6d88\u3057\u3068\u306a\u308b\u3002<\/p>\n

\u3000\u7acb\u6625\u306e\u524d\u65e5\u3067\u3042\u308a\u3001\u7acb\u6625\u306f\u592a\u967d<\/a>\u9ec4\u7d4c<\/a>\u304c315\u5ea6\u3068\u306a\u308b\u65e5\u3067\u3042\u308b\u3002\u3053\u306e\u3088\u3046\u306b\u3001\u9593\u63a5\u7684\u306b\u5929\u4f53\u306e\u904b\u884c\u306b\u57fa\u3065\u3044\u3066\u3044\u308b\u306e\u3067\u3001\u65e5\u4ed8\u306f\u5e74\u306b\u3088\u3063\u3066\u7570\u306a\u308a\u3001\u307e\u305f\u672a\u6765\u306e\u65e5\u4ed8\u306f\u8ecc\u9053\u8a08\u7b97\u306b\u57fa\u3065\u304f\u4e88\u6e2c\u3057\u304b\u3067\u304d\u306a\u3044\u3002\u306a\u304a\u53b3\u5bc6\u306b\u306f\u3001\u57fa\u6e96\u3068\u3059\u308b\u6a19\u6e96\u6642<\/a>\u306b\u3088\u3063\u3066\u3082\u7570\u306a\u308b\u304c\u3001\u65e5\u672c\u4ee5\u5916\u3067\u306f\u795d\u3046\u98a8\u7fd2\u304c\u306a\u3044\u306e\u3067\u3001\u65e7\u6b63\u6708<\/a>\u306e\u3088\u3046\u306b\u56fd\u306b\u3088\u308b\u65e5\u4ed8\u306e\u9055\u3044\u304c\u8a71\u984c\u3068\u306a\u308b\u3053\u3068\u306f\u306a\u3044\u3002<\/p>\n

\u3000\u4e00\u65b9\u3001400\u5e74\u306b97\u56de\u3042\u308b\u958f\u5e74\u3067\u306f366\u65e5\u306b\u306a\u308b\u306e\u30674\u5e74\u524d\u3088\u308a\u5c11\u3057\u65e9\u304f\u306a\u308a\u307e\u3059\u3002\u305f\u3060\u3057\u3001\u897f\u66a6\u5e74\u304c100\u3067\u5272\u308a\u5207\u308c\u308b\u5e74\u306f400\u3067\u5272\u308a\u5207\u308c\u308b\u5e74\u3092\u9664\u304d\u5e73\u5e74\u306b\u306a\u308b\uff08\u4f8b\u3048\u3070\u30011900\u5e74\u30012100\u5e74\u306f\u5e73\u5e74\uff09\u306e\u3067\u3001\u7bc0\u5206\u306f2\u67082\u65e5\u304b\u30892\u67084\u65e5\u306e\u4e2d\u306b\u7d0d\u307e\u308b\u306e\u3067\u3059\u3002<\/span><\/p>\n<\/td>\n

\n\n\n\n
\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\u7bc0\u5206\u306e\u65e5\u4ed8\uff08\u672a\u6765\u306f\u4e88\u6e2c\uff09<\/span><\/caption>\n
\u5e74<\/th>\n4\u3067\u5272\u3063\u305f\u4f59\u308a<\/th>\n<\/tr>\n
1<\/th>\n2<\/th>\n3<\/th>\n0<\/th>\n<\/tr>\n
1873\u5e74 – 1884\u5e74<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
1882\u5e74 – 1900\u5e74<\/td>\n2\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
1901\u5e74 – 1917\u5e74<\/td>\n3\u65e5<\/td>\n4\u65e5<\/td>\n4\u65e5<\/td>\n4\u65e5<\/td>\n<\/tr>\n
1915\u5e74 – 1954\u5e74<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n4\u65e5<\/td>\n4\u65e5<\/td>\n<\/tr>\n
1952\u5e74 – 1987\u5e74<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n4\u65e5<\/td>\n<\/tr>\n
1985\u5e74 – 2020\u5e74<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
2021\u5e74 – 2057\u5e74<\/td>\n2\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
2055\u5e74 – 2090\u5e74<\/td>\n2\u65e5<\/td>\n2\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
2088\u5e74 – 2100\u5e74<\/td>\n2\u65e5<\/td>\n2\u65e5<\/td>\n2\u65e5<\/td>\n3\u65e5<\/td>\n<\/tr>\n
2101\u5e74 – 21??\u5e74<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n3\u65e5<\/td>\n4\u65e5<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

\uff11\uff0e\u3053\u308c\u3092\u8a08\u7b97\u3059\u308b\u65b9\u6cd5\u3092\u8003\u3048\u3066\u307f\u307e\u3059\u3002
\u3000\u3000\u307e\u305a\u30a8\u30af\u30bb\u30eb\u3092\u958b\u3044\u3066\u30fb\u30fb<\/p>\n

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

\u3000<\/p>\n

\uff12\uff0e\u5e74\u3092\u5165\u529b\u3059\u308b\u30bb\u30eb\u306b\u8272\u4ed8\u3051\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n

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

\u3000<\/p>\n

\uff13\uff0e\u6b21\u306b\uff36\uff22\uff21\u3092\u958b\u3044\u3066<\/p>\n

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

\u3000<\/p>\n

\uff14\uff0e\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u304b\u3089\uff33\uff48\uff45\uff45\uff54\uff11\u3092\u9078\u629e\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af<\/p>\n

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

\u3000<\/p>\n

\uff15\uff0e\u305d\u3053\u3067\u4ee5\u4e0b\u306e\u3068\u3053\u308d\u3067WorkSheet\u3092\u9078\u629e\u3057\u307e\u3059<\/p>\n

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

\u3000<\/p>\n

\uff16\uff0e\u3059\u308b\u3068SelectionCange\u306e\u9805\u76ee\u304c\u958b\u304f\u306e\u3067\u30fb\u30fb\u30fb
\u3000\u3000\u3053\u308c\u3092\u5909\u66f4\u3057\u307e\u3059<\/p>\n

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

\u3000<\/p>\n

\uff17\uff0eCange\u306e\u65b9\u3092\u9078\u3073\u307e\u3059<\/p>\n

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

\u3000<\/p>\n

\uff18\uff0eSelectionChange\u306e\u65b9\u306f\u6d88\u3057\u3066Change\u3092\u6b8b\u3057\u307e\u3059<\/p>\n

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

\u3000<\/p>\n

\uff19\uff0e\u3053\u3053\u306b\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u307e\u3059\u3002<\/p>\n

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

\u30b3\u30fc\u30c9\u5185\u5bb9\u306f\u4ee5\u4e0b\u3067\u3059<\/p>\n

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

Private Sub Worksheet_Change(ByVal Target As Range)
‘\u30bb\u30eb\u306e\u5024\u304c\u5909\u66f4\u3055\u308c\u305f\u6642
Select Case Target.Row ‘\u76ee\u7684\u3068\u306a\u308b\u884c\u304c
Case 2 ‘2\u884c\u76ee\u3067
Select Case Target.Column ‘\u76ee\u7684\u3068\u306a\u308b\u5217\u304c
Case 2 ‘2\u5217\u76ee\u306e\u3068\u304d\u30fb\u30fb\u3059\u306a\u308f\u3061B2\u306e\u5834\u5408
‘\u30bf\u30a4\u30c8\u30eb\u3092\u8a18\u8f09\u3059\u308b\u30fb\u30fb
Cells(Target.Row, Target.Column + 1) = “4\u3067\u5272\u3063\u305f\u4f59\u308a”
Cells(Target.Row, Target.Column + 2) = “\u7bc0\u5206\u306e\u65e5\u4ed8”
Cells(Target.Row, Target.Column + 3) = “\u958f\u533a\u5206”
\u3000<\/p>\n

‘\u30d5\u30a1\u30f3\u30af\u30b7\u30e7\u30f3\u3092\u5b9f\u884c\u3059\u308b\u5834\u5408\u306f\u4e0b\u884c\u306e\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3092\u5916\u3059
‘Call Setubun(Target.Value, Target.Row + 1, Target.Column)
End Select
End Select
End Sub<\/p>\n

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

\u3000<\/p>\n

\uff11\uff10\uff0e\u3053\u308c\u304c\u52d5\u304f\u304b\u307e\u305a\u306f\u30c6\u30b9\u30c8\u3057\u3066\u307f\u3066\u6570\u5b57\u3092\u5165\u308c\u3066\u307f\u307e\u3059\u3002<\/p>\n

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

\u3000<\/p>\n

\uff11\uff11\uff0e\u6570\u5024\u3092\u5165\u529b\u3059\u308b\u3068\u96a3\u306e\u5217\u304b\u3089\u305d\u308c\u305e\u308c\u3092\u8a18\u8f09\u3059\u308c\u3070\u30aa\u30fc\u30b1\u30fc<\/p>\n

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

\u3000<\/p>\n

\uff11\uff12\uff0e\u30b3\u30e1\u30f3\u30c8\u3092\u5916\u3057\u3066\u3001\u6b21\u306f\uff26\uff55\uff4e\uff43\uff54\uff49\uff4f\uff4e\u3092\u8a18\u8f09\u3057\u307e\u3059\u3002<\/p>\n

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

\u4ee5\u4e0b\u305d\u306e\uff26\uff55\uff4e\uff43\uff54\uff49\uff4f\uff4e<\/p>\n

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

Private Function Setubun(ByVal Val1 As Long, ByVal Row1 As Integer, ByVal col1 As Integer)<\/p>\n

‘\u62ec\u5f27\u306e\u4e2d\u306e\u5f15\u6570\u306f\u30fb\u30fbByVal Val1 As Long(\u5e74\u3001\u9577\u6574\u6570\u578b), ByVal Row1 As Integer(\u884c\u756a\u53f7\u3001\u5358\u7cbe\u5ea6\u578b\u6574\u6570\u578b), ByVal col1 As Integer(\u5217\u756a\u53f7\u3001\u5358\u7cbe\u5ea6\u578b\u6574\u6570)<\/p>\n

Dim Hiduke As String ‘(\u7bc0\u5206\u306e\u65e5\u4ed8\u3092\u6587\u5b57\u5217\u3067\u6307\u5b9a)<\/p>\n

For i = 0 To 20 ‘\u3068\u308a\u3042\u3048\u305a\u5165\u529b\u3057\u305f\u5e74\u304b\u308920\u5e74\u5206\u8a08\u7b97\u3057\u51fa\u529b\u3059\u308b<\/p>\n

Cells(Row1 + i, col1) = Val1 + i ‘\u5e74\u306b1\u3092\u52a0\u3048\u3066\u8a18\u8f09
Cells(Row1 + i, col1 + 1) = Cells(Row1 + i, col1) Mod 4 ‘\u4f59\u308a\u3092\u8a08\u7b97 ‘Mod\u95a2\u6570\u3092\u4f7f\u7528<\/p>\n

Select Case Cells(Row1 + i, col1 + 1) ‘4\u3067\u5272\u3063\u305f\u4f59\u308a\u304c
Case 0: Cells(Row1 + i, col1 + 3) = “\u958f\u5e74” ‘0\u306e\u6642\u306f\u958f\u5e74
Select Case Cells(Row1 + i, col1) Mod 100 ‘\u305d\u308c\u3067\u3082100\u3067\u5272\u3063\u305f\u3042\u307e\u308a\u304c
Case 0 ‘0\u306e\u5e74\u3067\u3082
Select Case Cells(Row1 + i, col1) Mod 400 ‘400\u3067\u5272\u3063\u3066
Case 0 ‘\u4f59\u308a\u304c\u306a\u3044\u5e74\u306f
Cells(Row1 + i, col1 + 3) = “\u958f\u5e74” ‘\u958f\u5e74\u3067
Case Else
Cells(Row1 + i, col1 + 3) = “\u7279\u7570\u5e74\u958f\u306a\u3057” ‘\u5272\u308a\u5207\u308c\u306a\u3044\u5e74\u306f \u3001\u7279\u7570\u5e74\u3067\u958f\u5e74\u3067\u306a\u3044
End Select
End Select
End Select<\/p>\n

‘\u3053\u3053\u304b\u3089\u306f\u5e74\u306e\u8a08\u7b97\u3067
Select Case Cells(Row1 + i, col1)
Case 1873 To 1884 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 1882 To 1900 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “2\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 1901 To 1917 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “4\u65e5”
Case 3: Hiduke = “4\u65e5”
Case 0: Hiduke = “4\u65e5”
End Select
Case 1915 To 1954 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “4\u65e5”
Case 0: Hiduke = “4\u65e5”
End Select
Case 1952 To 1987 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “4\u65e5”
End Select
Case 1985 To 2020 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 2021 To 2057 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “2\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 2055 To 2090 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “2\u65e5”
Case 2: Hiduke = “2\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 2088 To 2100 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “2\u65e5”
Case 2: Hiduke = “2\u65e5”
Case 3: Hiduke = “2\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select
Case 2101 To 2177 ‘\u3053\u306e\u9593\u306e\u5e74\u3067
Select Case Cells(Row1 + i, col1 + 1) ‘\u5e74\u3092\u5272\u3063\u305f\u4f59\u308a\u304c
Case 1: Hiduke = “3\u65e5”
Case 2: Hiduke = “3\u65e5”
Case 3: Hiduke = “3\u65e5”
Case 0: Hiduke = “3\u65e5”
End Select<\/p>\n

End Select
Cells(Row1 + i, col1 + 2) = Hiduke<\/p>\n

Next i
End Function<\/p>\n

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

\uff11\uff13\uff0e\u305d\u308c\u3067\u5b9f\u884c\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n

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

\u3000<\/p>\n

\uff11\uff14\uff0e\u6570\u5b57\u3092\u3044\u308c\u3066\u307f\u3066\u3001\u6628\u5e74\u306e\u897f\u66a6\u3092\u3044\u308c\u3066\u307f\u307e\u3059\u3002<\/p>\n

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

\u3000<\/p>\n

\uff11\uff15\uff0e\u3067\u3066\u304d\u307e\u3057\u305f<\/p>\n

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

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

\u793e\u9577\u306e\u624b\u66f8\u304d\u30e1\u30e2\u3067\u7d39\u4ecb\u3059\u308b \u5e74\u306b\u3088\u308a\u7570\u306a\u308b\u7bc0\u5206\u306e\u65e5\u4ed8\u3068\u3001\u958f\u5e74\u306e\u8a08\u7b97\uff1f \u897f\u66a6\u5e74\u3092\u5165\u308c\u308b\u3068\u300110\u5e74\u3067\u3082100\u5e74\u3067\u3082\u8a08\u7b97\u3057\u8868\u8a18\u3059\u308b\u306b\u306f\u30fb\u30fb\u3055\u307e\u3056\u307e\u306a\u8a08\u7b97\u65b9\u6cd5\u304c\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u304c\u30fb\u30fb\u30fb\u7d20\u76f4\u306b\u6587\u3092\u8aad\u3093\u3067\u3001\u305d\u306e\u901a\u308a\u4f5c\u3063\u3066\u307f\u308b\u3002 \u3000\u6700\u521d […]<\/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-47","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\/47"}],"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=47"}],"version-history":[{"count":0,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/posts\/47\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/media?parent=47"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/categories?post=47"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.donijan.com\/bibouroku\/wp-json\/wp\/v2\/tags?post=47"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}