{"id":6555,"date":"2026-08-09T15:16:28","date_gmt":"2026-08-09T06:16:28","guid":{"rendered":"https:\/\/route-zero.com\/recruit\/?post_type=route&p=6555"},"modified":"2026-11-09T15:25:36","modified_gmt":"2026-11-09T06:25:36","slug":"vba-ubound-lbound-array-range-size","status":"publish","type":"route","link":"https:\/\/route-zero.com\/recruit\/route\/6555\/","title":{"rendered":"VBA\u306eUBound\u30fbLBound\u3067\u914d\u5217\u306e\u7bc4\u56f2\u3092\u8abf\u3079\u308b\u65b9\u6cd5"},"content":{"rendered":"

VBA\u306e\u914d\u5217\u3067\u300c\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u304c\u6709\u52b9\u7bc4\u56f2\u306b\u3042\u308a\u307e\u305b\u3093\u300d\u3068\u8868\u793a\u3055\u308c\u305f\u3089\u3001\u307e\u305aLBound<\/strong>\u3068UBound<\/strong>\u3067\u4f7f\u3048\u308b\u756a\u53f7\u306e\u7bc4\u56f2\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002\u914d\u5217\u306e\u6570\u3092\u6570\u3048\u308b\u5f0f\u306f `UBound(\u914d\u5217) – LBound(\u914d\u5217) + 1` \u3067\u3059\u3002<\/p>\n

LBound\u306f\u6700\u5c0f\u756a\u53f7\u3001UBound\u306f\u6700\u5927\u756a\u53f7\u3092\u8fd4\u3059<\/h2>\n

\u914d\u5217\u306f\u8907\u6570\u306e\u5024\u3092\u756a\u53f7\u3067\u7ba1\u7406\u3059\u308b\u4ed5\u7d44\u307f\u3067\u3059\u3002\u6700\u521d\u306e\u756a\u53f7\u3092\u4e0b\u9650<\/strong>\u3001\u6700\u5f8c\u306e\u756a\u53f7\u3092\u4e0a\u9650<\/strong>\u3068\u547c\u3073\u307e\u3059\u3002\u756a\u53f7\u306f\u5e38\u306b0\u304b\u3089\u59cb\u307e\u308b\u3068\u306f\u9650\u308a\u307e\u305b\u3093\u3002<\/p>\n

\n

\u7528\u8a9e\u89e3\u8aac\uff1a\u6dfb\u5b57\uff08\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\uff09<\/strong>
\u914d\u5217\u306e\u4f55\u756a\u76ee\u306e\u8981\u7d20\u304b\u3092\u6307\u5b9a\u3059\u308b\u756a\u53f7\u3002\u5b9f\u969b\u306b\u4f7f\u3048\u308b\u6700\u5c0f\u30fb\u6700\u5927\u306e\u756a\u53f7\u306f\u914d\u5217\u306b\u3088\u3063\u3066\u7570\u306a\u308a\u307e\u3059\u3002<\/p>\n<\/blockquote>\n\n\n\n\n\n\n\n
\u5f0f<\/th>\n\u8abf\u3079\u3089\u308c\u308b\u5185\u5bb9<\/th>\n\u4f8b\uff1aDim scores(2 To 4)<\/th>\n<\/tr>\n<\/thead>\n
LBound(scores)<\/td>\n\u6700\u5c0f\u306e\u6dfb\u5b57<\/td>\n2<\/td>\n<\/tr>\n
UBound(scores)<\/td>\n\u6700\u5927\u306e\u6dfb\u5b57<\/td>\n4<\/td>\n<\/tr>\n
UBound – LBound + 1<\/td>\n\u8981\u7d20\u6570<\/td>\n3<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

`UBound`\u306f\u300c\u6700\u5f8c\u306e\u756a\u53f7\u300d\u3067\u3042\u308a\u3001\u300c\u8981\u7d20\u6570\u300d\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u30020\u59cb\u307e\u308a\u3067\u306f\u4e0a\u9650\u306b1\u3092\u8db3\u3057\u305f\u5024\u304c\u8981\u7d20\u6570\u3067\u3059\u304c\u30012\u59cb\u307e\u308a\u306a\u3069\u3067\u306f\u305d\u306e\u8a08\u7b97\u306f\u9593\u9055\u3044\u307e\u3059\u3002<\/p>\n

\n

1\u6b21\u5143\u914d\u5217\u3067\u7bc4\u56f2\u3092\u78ba\u8a8d\u3057\u3066\u30eb\u30fc\u30d7\u3059\u308b<\/h2>\n

Excel\u3067Alt+F11\u304b\u3089VBA\u30a8\u30c7\u30a3\u30bf\u30fc\u3092\u958b\u304d\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3078\u6b21\u306e\u30de\u30af\u30ed\u3092\u5165\u529b\u3057\u307e\u3059\u3002\u5b9f\u884c\u5f8c\u306fCtrl+G\u3067\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u8868\u793a\u3057\u3001\u51fa\u529b\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n

Sub CheckBounds()\r\n    Dim scores(2 To 4) As Long\r\n    Dim i As Long\r\n\r\n    scores(2) = 10\r\n    scores(3) = 20\r\n    scores(4) = 30\r\n    Debug.Print "\u4e0b\u9650=" & LBound(scores)     ' 2\r\n    Debug.Print "\u4e0a\u9650=" & UBound(scores)     ' 4\r\n    Debug.Print "\u8981\u7d20\u6570=" & UBound(scores) - LBound(scores) + 1  ' 3\r\n\r\n    For i = LBound(scores) To UBound(scores)\r\n        Debug.Print scores(i)\r\n    Next i\r\nEnd Sub<\/code><\/pre>\n
\u60f3\u5b9a\u51fa\u529b\u306f\u3001\u4e0b\u96502\u30fb\u4e0a\u96504\u30fb\u8981\u7d20\u65703\u306b\u7d9a\u3044\u306610\u300120\u300130\u3067\u3059\u3002`For i = 0 To UBound(scores)`\u306b\u5909\u3048\u308b\u3068\u3001\u3053\u306e\u914d\u5217\u3067\u306f0\u30841\u304c\u7bc4\u56f2\u5916\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\n
2\u6b21\u5143\u914d\u5217\u306a\u3089\u6b21\u5143\u3092\u660e\u793a\u3059\u308b<\/h2>\n
\u8868\u306e\u3088\u3046\u306b\u884c\u3068\u5217\u304c\u3042\u308b\u914d\u5217\u3067\u306f\u3001LBound\/UBound\u306e\u7b2c2\u5f15\u6570\u306b\u6b21\u5143\uff081\u306f\u884c\u65b9\u5411\u30012\u306f\u5217\u65b9\u5411\uff09\u3092\u6e21\u3057\u307e\u3059\u3002\u7701\u7565\u3059\u308b\u3068\u7b2c1\u6b21\u5143\u3092\u8abf\u3079\u307e\u3059\u3002<\/p>\n
Sub CheckTableBounds()\r\n    Dim cells(1 To 2, 3 To 5) As Long\r\n    Dim rowIndex As Long, colIndex As Long\r\n\r\n    Debug.Print UBound(cells, 1) - LBound(cells, 1) + 1  ' \u884c\u65702\r\n    Debug.Print UBound(cells, 2) - LBound(cells, 2) + 1  ' \u5217\u65703\r\n\r\n    For rowIndex = LBound(cells, 1) To UBound(cells, 1)\r\n        For colIndex = LBound(cells, 2) To UBound(cells, 2)\r\n            cells(rowIndex, colIndex) = rowIndex * 10 + colIndex\r\n        Next colIndex\r\n    Next rowIndex\r\n    Debug.Print cells(2, 5)  ' 25\r\nEnd Sub<\/code><\/pre>\n
Excel\u306e\u30bb\u30eb\u304b\u3089\u914d\u5217\u3078\u8aad\u307f\u8fbc\u3080\u3068\u304d\u3082\u3001\u914d\u5217\u306e\u6b21\u5143\u3068\u5b9f\u969b\u306e\u4e0b\u9650\u3092\u78ba\u8a8d\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u5358\u4e00\u30bb\u30eb\u53d6\u5f97\u3068\u8907\u6570\u30bb\u30eb\u53d6\u5f97\u3067\u306f\u8fd4\u308b\u5024\u306e\u5f62\u304c\u9055\u3046\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
\n
\u6dfb\u5b57\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u3089\u78ba\u8a8d\u3059\u308b\u9806\u756a<\/h2>\n