{"id":236,"date":"2025-03-20T17:25:28","date_gmt":"2025-03-20T08:25:28","guid":{"rendered":"https:\/\/web.monomatome.com\/?p=236"},"modified":"2025-03-22T01:33:38","modified_gmt":"2025-03-21T16:33:38","slug":"excel%e3%81%a7%e3%80%81%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e5%86%85%e3%81%ab%e3%81%82%e3%82%8b%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e5%90%8d%e3%82%92%e3%81%99","status":"publish","type":"post","link":"https:\/\/web.monomatome.com\/?p=236","title":{"rendered":"Excel\u3067\u3001\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u4e00\u62ec\u3067\u53d6\u5f97\u3059\u308bVBA\u3002cmd\u4e0d\u8981\u3002\u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\u3084\u66f4\u65b0\u65e5\u3082\u3002"},"content":{"rendered":"\n

\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u4e0d\u8981\u3002Excel\u306e\u30b7\u30fc\u30c8\u306b\u53d6\u308a\u8fbc\u307f\u3002<\/p>\n\n\n\n

\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u4e00\u62ec\u3067\u53d6\u5f97 – VBA\u30b3\u30fc\u30c9\u3000<\/h2>\n\n\n\n

\u6307\u5b9a\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u3059\u3079\u3066\u53d6\u5f97\u3057\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306eA\u5217\u306b\u51fa\u529b\u3057\u307e\u3059\u3002<\/p>\n\n\n\n

Sub GetFileNames()\n    Dim folderPath As String\n    Dim fileName As String\n    Dim row As Integer\n    \n    ' \u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u958b\u304f\n    With Application.FileDialog(msoFileDialogFolderPicker)\n        If .Show = False Then Exit Sub ' \u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u305f\u3089\u7d42\u4e86\n        folderPath = .SelectedItems(1) & "\\"\n    End With\n    \n    ' \u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306eA\u5217\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u51fa\u529b\n    row = 1\n    fileName = Dir(folderPath) ' \u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u5bfe\u8c61\n    \n    Do While fileName <> ""\n        Cells(row, 1).Value = fileName\n        row = row + 1\n        fileName = Dir() ' \u6b21\u306e\u30d5\u30a1\u30a4\u30eb\u53d6\u5f97\n    Loop\n    \n    MsgBox "\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7\u306e\u53d6\u5f97\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation\nEnd Sub<\/code><\/pre><\/div>\n\n\n\n
VBA\u306e\u6d41\u308c<\/strong><\/h3>\n\n\n\n
    \n
  1. \u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0<\/strong>\u3092\u8868\u793a\u3057\u3001\u53d6\u5f97\u5bfe\u8c61\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u9078\u629e\u3002<\/li>\n\n\n\n
  2. Dir<\/code>\u95a2\u6570<\/strong>\u3092\u4f7f\u7528\u3057\u3066\u3001\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u6700\u521d\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3002<\/li>\n\n\n\n
  3. Do While<\/code> \u30eb\u30fc\u30d7<\/strong>\u3067\u3001\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092A\u5217\u306b\u51fa\u529b\u3002<\/li>\n\n\n\n
  4. MsgBox<\/code><\/strong> \u3067\u51e6\u7406\u5b8c\u4e86\u3092\u901a\u77e5\u3002<\/li>\n<\/ol>\n\n\n
    \t\t\t
    \n\t\t\t\t
    \n\t\t\t\t\t\u3042\u308f\u305b\u3066\u8aad\u307f\u305f\u3044<\/span>\n\t\t\t\t\t
    \"\"<\/figure><\/div>\t\t\t\t\t
    \n\t\t\t\t\t\t\u3010\u8d85\u521d\u5fc3\u8005\u5411\u3051\u3011Excel VBA\u306e\u306f\u3058\u3081\u65b9\u3002\u521d\u671f\u8a2d\u5b9a\u3084VBA\u306e\u958b\u304d\u65b9\u30fb\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306a\u3069\u3002<\/a>\n\t\t\t\t\t\t\u300e\u77e5\u8b58\u30bc\u30ed\u3002\u306f\u3058\u3081\u3066VBA\u306b\u89e6\u308b\u3002\u300f\u3068\u3044\u3046\u4eba\u5411\u3051 Excel\u306e\u4f5c\u696d\u3092\u81ea\u52d5\u5316\u3067\u304d\u308b\u300cVBA\uff08Visual Basic for Applications\uff09\u300d\u30b9\u30bf\u30fc\u30c8\u6642\u306b\u5fc5\u8981\u306a\u6e96\u5099\u3092\u307e\u3068\u3081\u307e\u3057\u305f\u3002\u300e\u4eca\u65e5\u3001…<\/span>\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t<\/div>\n\t\t<\/div>\n\n\n
    VBA\u5b9f\u884c\u7d50\u679c<\/h3>\n\n\n\n
    \u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u3001A\u5217\u306b\u3059\u3079\u3066\u51fa\u529b\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
    \"VBA\u3067\u30d5\u30a1\u30a4\u30eb\u540d\u4e00\u62ec\u53d6\u5f97\"<\/figure>\n\n\n\n
    \u6ce8\u610f<\/strong><\/h3>\n\n\n\n
    A\u5217\u306b\u30c7\u30fc\u30bf\u304c\u3042\u308b\u5834\u5408\u306f\u3001\u4e0a\u66f8\u304d\u3055\u308c\u307e\u3059\u3002
    \u5fc5\u8981\u306b\u5fdc\u3058\u3066\u30ab\u30b9\u30bf\u30e0\u3057\u3066\u4f7f\u7528\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
    \u6307\u5b9a\u3057\u305f\u7a2e\u985e\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97 – VBA\u30b3\u30fc\u30c9\u3000<\/h2>\n\n\n\n
    \u62e1\u5f35\u5b50\u3092\u6307\u5b9a\u3057\u3066\u3001\u7279\u5b9a\u306e\u7a2e\u985e\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u307f\u53d6\u5f97\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
    \u4f8b\uff1a\u753b\u50cf\u30d5\u30a1\u30a4\u30eb(.jpg)\u306e\u307f\u3001\u97f3\u697d\u30d5\u30a1\u30a4\u30eb(.mp3)\u306e\u307f\u3001Excel\u30d5\u30a1\u30a4\u30eb(.xlsx)\u306e\u307f\u7b49\u3002<\/p>\n\n\n\n
    \u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9 – \u753b\u50cf\u30d5\u30a1\u30a4\u30eb(.jpg)\u306e\u307f<\/h3>\n\n\n\n
    Sub GetFileNames_fileType()\n    Dim folderPath As String\n    Dim fileName As String\n    Dim row As Integer\n    \n    ' \u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u958b\u304f\n    With Application.FileDialog(msoFileDialogFolderPicker)\n        If .Show = False Then Exit Sub ' \u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u305f\u3089\u7d42\u4e86\n        folderPath = .SelectedItems(1) & "\\"\n    End With\n    \n    ' \u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306eA\u5217\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u51fa\u529b\n    row = 1\n    \n    fileName = Dir(folderPath & "*.jpg") ' \u4f8b: jpg\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97\n    \n    Do While fileName <> ""\n        Cells(row, 1).Value = fileName\n        row = row + 1\n        fileName = Dir() ' \u6b21\u306e\u30d5\u30a1\u30a4\u30eb\u53d6\u5f97\n    Loop\n    \n    MsgBox "\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7\u306e\u53d6\u5f97\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation\nEnd Sub<\/code><\/pre><\/div>\n\n\n\n
    VBA\u5b9f\u884c\u7d50\u679c<\/h3>\n\n\n\n
    \u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3001\u753b\u50cf\u30d5\u30a1\u30a4\u30eb(.jpg)\u306e\u307f\u51fa\u529b\u3055\u308c\u308b\u3002<\/p>\n\n\n\n
    \u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u540d<\/strong>
    03.fire.jpg
    04.jet.jpg
    1.Stock.jpg
    57113190.8.jpg<\/p>\n\n\n\n
    \u8ffd\u52a0\u3057\u305f\u30b3\u30fc\u30c9<\/h3>\n\n\n\n
    15\u884c\u76ee\u3067\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u53d6\u5f97\u6642\u306b\u62e1\u5f35\u5b50\u3092\u6307\u5b9a\u3002<\/p>\n\n\n\n
    15\u884c\u76ee \u300cfileName = Dir(folderPath & \"*.jpg<\/mark>\") ' \u4f8b: jpg\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97<\/code><\/pre>\n\n\n\n
    \u305d\u306e\u4ed6\u306e\u30ab\u30b9\u30bf\u30e0\u4f8b<\/p>\n\n\n\n
    fileName = Dir(folderPath & \"*.mp3<\/mark>\") ' \u4f8b: mp3\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97\nfileName = Dir(folderPath & \"*.xlsx<\/mark>\") ' \u4f8b: Excel\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97\nfileName = Dir(folderPath & \"*.php<\/mark>\") ' \u4f8b: php\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u53d6\u5f97<\/code><\/pre>\n\n\n\n
    \u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\u3084\u66f4\u65b0\u65e5\u6642\u3082\u53d6\u5f97\u3059\u308b – VBA\u30b3\u30fc\u30c9\u3000<\/h2>\n\n\n\n
    \u30d5\u30a1\u30a4\u30eb\u540d\u306b\u52a0\u3048\u3001\u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\u3068\u66f4\u65b0\u65e5\u6642\u3092\u53d6\u5f97\u3059\u308b\u30ab\u30b9\u30bf\u30e0\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
    \u51fa\u529b\uff1a<\/strong>
    A\u5217\uff1a\u30d5\u30a1\u30a4\u30eb\u540d\u3001B\u5217\uff1a\u66f4\u65b0\u65e5\u6642\u3001C\u5217\uff1a\u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba(KB)<\/p>\n\n\n\n
    \u30b5\u30a4\u30ba\u3068\u66f4\u65b0\u65e5\u6642\u3082\u53d6\u5f97 – \u30b5\u30f3\u30d7\u30ebVBA<\/h3>\n\n\n\n
    Sub GetFileNames_custom()\n    Dim folderPath As String\n    Dim fileName As String\n    Dim row As Integer\n    \n    ' \u30d5\u30a9\u30eb\u30c0\u9078\u629e\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u958b\u304f\n    With Application.FileDialog(msoFileDialogFolderPicker)\n        If .Show = False Then Exit Sub ' \u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u305f\u3089\u7d42\u4e86\n        folderPath = .SelectedItems(1) & "\\"\n    End With\n    \n    ' \u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306eA\u5217\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u51fa\u529b\n    row = 1\n    \n    fileName = Dir(folderPath) ' \u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u5bfe\u8c61\n    \n    Do While fileName <> ""\n        Cells(row, 1).Value = fileName ' \u30d5\u30a1\u30a4\u30eb\u540d\n        Cells(row, 2).Value = FileDateTime(folderPath & fileName) ' \u66f4\u65b0\u65e5\u6642\n        'Cells(row, 3).Value = FileLen(folderPath & fileName) ' \u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\n        Cells(row, 3).Value = Round(FileLen(folderPath & fileName) \/ 1024, 2) & " KB"\n\n        row = row + 1\n        fileName = Dir() ' \u6b21\u306e\u30d5\u30a1\u30a4\u30eb\u53d6\u5f97\n    Loop\n    \n    MsgBox "\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7\u306e\u53d6\u5f97\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation\nEnd Sub\n<\/code><\/pre><\/div>\n\n\n\n
    VBA\u5b9f\u884c\u7d50\u679c<\/h3>\n\n\n\n
    \u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u30fb\u66f4\u65b0\u65e5\u6642\u30fb\u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\u304c\u53d6\u5f97\u3055\u308c\u308b\u3002
    (\u6ce8\u610f\uff1aA-C\u5217\u306b\u30c7\u30fc\u30bf\u304c\u3042\u308b\u3068\u4e0a\u66f8\u304d\u3055\u308c\u307e\u3059\u3002)<\/p>\n\n\n\n
    \"\"<\/figure>\n\n\n
    \n
    VBA\u306e\u4f7f\u7528\u65b9\u6cd5<\/h2>\n\n\n\n
      \n
    1. Excel\u3067VBA\u30a8\u30c7\u30a3\u30bf\u30fc\uff08Alt + F11\uff09\u3092\u958b\u304d\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u30b3\u30fc\u30c9\u3092\u8cbc\u308a\u4ed8\u3051\u3002<\/li>\n\n\n\n
    2. Excel\u306b\u623b\u308a\u3001\u300cAlt + F8\u300d\u3092\u62bc\u3057\u3066\u30de\u30af\u30ed\u306e\u4e00\u89a7\u3092\u8868\u793a\u3002<\/li>\n\n\n\n
    3. \u8ffd\u52a0\u3057\u305fSub\u540d\u304c\u8868\u793a\u3055\u308c\u308b\u306e\u3067\u3001\u9078\u629e\u3057\u3066\u300c\u5b9f\u884c\u300d\u3002<\/li>\n<\/ol>\n\n\n
      \t\t\t
      \n\t\t\t\t
      \n\t\t\t\t\t\u3042\u308f\u305b\u3066\u8aad\u307f\u305f\u3044<\/span>\n\t\t\t\t\t
      \"\"<\/figure><\/div>\t\t\t\t\t
      \n\t\t\t\t\t\t\u3010\u8d85\u521d\u5fc3\u8005\u5411\u3051\u3011Excel VBA\u306e\u306f\u3058\u3081\u65b9\u3002\u521d\u671f\u8a2d\u5b9a\u3084VBA\u306e\u958b\u304d\u65b9\u30fb\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306a\u3069\u3002<\/a>\n\t\t\t\t\t\t\u300e\u77e5\u8b58\u30bc\u30ed\u3002\u306f\u3058\u3081\u3066VBA\u306b\u89e6\u308b\u3002\u300f\u3068\u3044\u3046\u4eba\u5411\u3051 Excel\u306e\u4f5c\u696d\u3092\u81ea\u52d5\u5316\u3067\u304d\u308b\u300cVBA\uff08Visual Basic for Applications\uff09\u300d\u30b9\u30bf\u30fc\u30c8\u6642\u306b\u5fc5\u8981\u306a\u6e96\u5099\u3092\u307e\u3068\u3081\u307e\u3057\u305f\u3002\u300e\u4eca\u65e5\u3001…<\/span>\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t<\/div>\n\t\t<\/div>\n\n\n\n<\/div>","protected":false},"excerpt":{"rendered":"
      \u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u4e0d\u8981\u3002Excel\u306e\u30b7\u30fc\u30c8\u306b\u53d6\u308a\u8fbc\u307f\u3002 \u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u4e00\u62ec\u3067\u53d6\u5f97 – VBA\u30b3\u30fc\u30c9\u3000 \u6307\u5b9a\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u3059\u3079\u3066\u53d6\u5f97\u3057\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306eA\u5217\u306b\u51fa\u529b\u3057\u307e\u3059\u3002 VBA\u306e\u6d41\u308c VBA […]<\/p>\n","protected":false},"author":1,"featured_media":278,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"swell_btn_cv_data":"","_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[11,3],"tags":[14],"class_list":["post-236","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel","category-memo","tag-vba"],"acf":[],"jetpack_featured_media_url":"https:\/\/web.monomatome.com\/wp-content\/uploads\/sites\/2\/2025\/03\/image-10.png","jetpack_sharing_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/posts\/236","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=236"}],"version-history":[{"count":11,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/posts\/236\/revisions"}],"predecessor-version":[{"id":305,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/posts\/236\/revisions\/305"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=\/wp\/v2\/media\/278"}],"wp:attachment":[{"href":"https:\/\/web.monomatome.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=236"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=236"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/web.monomatome.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=236"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}