\u8907\u6570\u306e\u5217\u3067\u4e26\u3073\u66ff\u3048\u305f\u3044\u3002 <\/p>\n\n\n\n
![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-79.png\")
<\/figure>\n\n\n\n<\/p>\n\n\n\n
\u6700\u521d\u304b\u3089\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u3053\u306e\u30ce\u30fc\u30c9\u3092\u3061\u3087\u3053\u3063\u3068\u4fee\u6b63\u3057\u305f<\/h2>\n\n\n\n
\u3053\u306e\u307e\u307e\u3060\u3068\u4e00\u3064\u306e\u9805\u76ee\u3067\u3057\u304b\u4e26\u3073\u66ff\u3048\u3067\u304d\u306a\u3044\u3002 ' ====\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f====================================================<\/p>\n\n\n\n ' \u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\u3092\u30d5\u30eb\u30d1\u30b9\u306b\u5909\u63db\u3059\u308b ' workbook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b ' \u4e00\u5148\u305aWorkbook\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092GetObject\u3057\u3066\u307f\u308b ' GetObject\u306b\u3088\u3063\u3066\u65b0\u898f\u306b\u958b\u304b\u308c\u305fWorkbook\u306a\u3089 ' Workbook\u304c\u307e\u3060\u5b58\u5728\u3059\u308b\u304b\u78ba\u8a8d\u3059\u308b ' Workbook\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\u306f\u3001\u65b0\u305f\u306b\u958b\u304f\u3002 End If<\/p>\n\n\n\n ' \u8b66\u544a\u306e\u6291\u5236\u3092\u5143\u306b\u623b\u3059 If workbook Is Nothing Then ' ====\u6307\u5b9a\u3055\u308c\u305f\u30b7\u30fc\u30c8\u3092\u53d6\u5f97\u3059\u308b==================================================<\/p>\n\n\n\n sheetName = !\u30b7\u30fc\u30c8\u540d! If worksheet Is Nothing Then worksheet.Activate<\/p>\n\n\n\n ' ====\u30cf\u30a4\u30e9\u30a4\u30c8\u3092\u8868\u793a\u3059\u308b========================================================<\/p>\n\n\n\n ' Hwnd\u30d7\u30ed\u30d1\u30c6\u30a3\u306fExcel2002\u4ee5\u964d\u306e\u307f\u5bfe\u5fdc ' ==============================================================<\/p>\n\n\n\n scell = !\u958b\u59cb\u30bb\u30eb! If orderStr1 = \"\u6607\u9806\" Then If orderStr2 = \"\u6607\u9806\" Then<\/span><\/strong> If headerStr = \"\u81ea\u52d5\u5224\u5225\" Then Set cell1 = Nothing If matches1<\/strong>.Count = 0 Then If matches2.Count = 0 Then<\/span><\/strong> On Error Goto 0<\/p>\n\n\n\n If cell1 Is Nothing Then If cell2 Is Nothing Then<\/strong> If UCase(scell) = UCase(ecell) Then targetRange = scell&\":\"&ecell<\/p>\n\n\n\n 'cell.select<\/p>\n\n\n\n If header = \"\" Then Set objRE = Nothing \u51fa\u8377\u6570\u306e\u6607\u9806 \u51fa\u8377\u6570\u306e\u6607\u9806 <\/p>\n\n\n\n \u4ee5\u4e0a<\/p>\n","protected":false},"excerpt":{"rendered":" \u524d\u63d0\u6761\u4ef6\u3068\u76ee\u6a19 \u2193 \u3053\u3046\u3044\u3046Excel\u304c\u3042\u3063\u305f\u3068\u3059\u308b\u3002 \u8907\u6570\u306e\u5217\u3067\u4e26\u3073\u66ff\u3048\u305f\u3044\u3002 \u6700\u521d\u304b\u3089\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u3053\u306e\u30ce\u30fc\u30c9\u3092\u3061\u3087\u3053\u3063\u3068\u4fee\u6b63\u3057\u305f \u3053\u306e\u307e\u307e\u3060\u3068\u4e00\u3064\u306e\u9805\u76ee\u3067\u3057\u304b\u4e26\u3073\u66ff\u3048\u3067\u304d\u306a\u3044\u3002\u8907\u6570\u306e\u5217\u3067\u4e26\u3073\u66ff\u3048 ... <\/p>\n","protected":false},"author":1,"featured_media":5288,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[61,109],"tags":[],"class_list":["post-5277","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-rpa","category-winactor"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/5277","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5277"}],"version-history":[{"count":6,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/5277\/revisions"}],"predecessor-version":[{"id":5294,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/posts\/5277\/revisions\/5294"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=\/wp\/v2\/media\/5288"}],"wp:attachment":[{"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5277"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5277"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lacotasu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5277"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\u8907\u6570\u306e\u5217\u3067\u4e26\u3073\u66ff\u3048\u305f\u3044\u3002<\/p>\n\n\n\n![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-73.png\")
<\/figure>\n\n\n\n![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-74.png\")
<\/figure>\n\n\n\n![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-78.png\")
<\/figure>\n\n\n\n\u4ee5\u4e0b\u8d64\u5b57\u304c\u8ffd\u52a0\u4fee\u6b63\u3057\u305f\u30b3\u30fc\u30c9\uff08\u30bd\u30fc\u30c8\u3057\u305f\u3044\u5217\u304c2\u3064\u306e\u4f8b\uff09<\/h2>\n\n\n\n
fname = !\u30d5\u30a1\u30a4\u30eb\u540d!
SetUMSVariable \"$FILE_PATH_TYPE\", \"1\"
SetUmsVariable \"$PARSE_FILE_PATH\", fname
filePath = GetUmsVariable(\"$PARSE_FILE_PATH\")<\/p>\n\n\n\n
Set workbook = Nothing
On Error Resume Next
' \u65e2\u5b58\u306e\u30a8\u30af\u30bb\u30eb\u304c\u8d77\u52d5\u3055\u308c\u3066\u3044\u308c\u3070\u8b66\u544a\u3092\u6291\u5236\u3059\u308b
Set existingXlsApp = Nothing
Set existingXlsApp = GetObject(, \"Excel.Application\")
existingXlsApp.DisplayAlerts = False<\/p>\n\n\n\n
Set workbook = GetObject(filePath)
Set xlsApp = workbook.Parent<\/p>\n\n\n\n
' \u5909\u6570\u306bNothing\u3092\u4ee3\u5165\u3059\u308b\u3053\u3068\u3067\u53c2\u7167\u304c0\u306b\u306a\u308b\u305f\u3081
' \u81ea\u52d5\u7684\u306b\u9589\u3058\u3089\u308c\u308b\u3002
Set workbook = Nothing<\/p>\n\n\n\n
For Each book In xlsApp.Workbooks
If UCase(book.FullName) = UCase(filePath) Then
' Workbook\u304c\u307e\u3060\u5b58\u5728\u3059\u308b\u306e\u3067\u3001\u3053\u306eWorkbook\u306f\u65e2\u306b\u958b\u304b\u308c\u3066\u3044\u305f\u3082\u306e
Set workbook = book
xlsApp.Visible = True
End If
Next<\/p>\n\n\n\n
If workbook Is Nothing Then
Set xlsApp = Nothing<\/p>\n\n\n\n' Excel\u304c\u65e2\u306b\u958b\u304b\u308c\u3066\u3044\u305f\u306a\u3089\u305d\u308c\u3092\u518d\u5229\u7528\u3059\u308b\nIf Not existingXlsApp Is Nothing Then\n Set xlsApp = existingXlsApp\n xlsApp.Visible = True\nElse\n Set xlsApp = CreateObject(\"Excel.Application\")\n xlsApp.Visible = True\nEnd If\n\nSet workbook = xlsApp.Workbooks.Open(filePath)<\/code><\/pre>\n\n\n\n
existingXlsApp.DisplayAlerts = True
Set existingXlsApp = Nothing
On Error Goto 0<\/p>\n\n\n\n
Err.Raise 1, \"\", \"\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002\"
End If<\/p>\n\n\n\n
Set worksheet = Nothing
On Error Resume Next
' \u30b7\u30fc\u30c8\u540d\u304c\u6307\u5b9a\u3055\u308c\u3066\u3044\u306a\u3044\u5834\u5408\u306f\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u3092\u5bfe\u8c61\u3068\u3059\u308b
If sheetName = \"\" Then
Set worksheet = workbook.ActiveSheet
Else
Set worksheet = workbook.Worksheets(sheetName)
End If
On Error Goto 0<\/p>\n\n\n\n
Err.Raise 1, \"\", \"\u6307\u5b9a\u3055\u308c\u305f\u30b7\u30fc\u30c8\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\"
End If<\/p>\n\n\n\n
On Error Resume Next
ShowUMSHighlight(xlsApp.Hwnd)
On Error Goto 0<\/p>\n\n\n\n
ecell = !\u7d42\u4e86\u30bb\u30eb!
cellAddress1 = !\u30bd\u30fc\u30c8\u30ad\u30fc\u306e\u30bb\u30eb\u4f4d\u7f6e1!
cellAddress2 = !\u30bd\u30fc\u30c8\u30ad\u30fc\u306e\u30bb\u30eb\u4f4d\u7f6e2!<\/span><\/strong>
orderStr1 = !\u4e26\u3073\u66ff\u3048\u9806\u5e8f1|\u6607\u9806,\u964d\u9806!
orderStr2 = !\u4e26\u3073\u66ff\u3048\u9806\u5e8f2|\u6607\u9806,\u964d\u9806!<\/strong><\/span>
headerStr = !1\u884c\u76ee\u306e\u6271\u3044|\u898b\u51fa\u3057\u3068\u3057\u306a\u3044,\u898b\u51fa\u3057\u3068\u3059\u308b,\u81ea\u52d5\u5224\u5225!
order1 = 1
order2 = 1<\/span><\/strong>
header = 2<\/p>\n\n\n\n
order1 = 1
Else
order1 = 2
End If<\/strong><\/span><\/p>\n\n\n\n
order2 = 1
Else
order2 = 2
End If<\/span><\/strong><\/p>\n\n\n\n
header = 0
ElseIf headerStr = \"\u898b\u51fa\u3057\u3068\u3059\u308b\" Then
header = 1
Else
header = 2
End If<\/p>\n\n\n\n
Set cell2 = Nothing<\/span><\/strong>
On Error Resume Next
' R1C1\u5f62\u5f0f\u306b\u3082\u5bfe\u5fdc\u3059\u308b\u3002
Set objRE = CreateObject(\"VBScript.RegExp\")
objRE.IgnoreCase = True
objRE.Pattern = \"^R(\\d+)C(\\d+)$\"
Set matches1 = objRE.Execute(cellAddress1)
Set matches2 = objRE.Execute(cellAddress2)<\/span><\/strong><\/p>\n\n\n\n
Set cell1 = worksheet.Range(cellAddress1)<\/strong>
Else
Set cell1<\/strong> = worksheet.Cells(matches(0).SubMatches(0) + 0, matches(0).SubMatches(1) + 0)
End If<\/span><\/p>\n\n\n\n
Set cell2 = worksheet.Range(cellAddress2)
Else
Set cell2 = worksheet.Cells(matches(0).SubMatches(0) + 0, matches(0).SubMatches(1) + 0)
End If<\/span><\/strong><\/p>\n\n\n\n
Err.Raise 1, \"\", \"\u30bd\u30fc\u30c8\u30ad\u30fc1\u306e\u30bb\u30eb\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\"
End If<\/strong><\/span><\/p>\n\n\n\n
Err.Raise 1, \"\", \"\u30bd\u30fc\u30c8\u30ad\u30fc2\u306e\u30bb\u30eb\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\"
End If<\/strong><\/span><\/p>\n\n\n\n
Err.Raise 1, \"\", \"\u958b\u59cb\u30bb\u30eb\u3068\u7d42\u4e86\u30bb\u30eb\u3067\u540c\u3058\u30bb\u30eb\u306f\u6307\u5b9a\u3067\u304d\u307e\u305b\u3093\u3002\"
WScript.Quit()
End If<\/p>\n\n\n\n
worksheet.range(targetRange).Sort cell2,order2'\u203b\u9006\u8ee2\u3055\u305b\u308b
worksheet.range(targetRange).Sort cell1,order1'\u203b\u9006\u8ee2\u3055\u305b\u308b<\/span><\/strong>
Else
worksheet.range(targetRange).Sort cell2,order2,,,,,,header'\u203b\u9006\u8ee2\u3055\u305b\u308b
worksheet.range(targetRange).Sort cell1,order1,,,,,,header'\u203b\u9006\u8ee2\u3055\u305b\u308b<\/span><\/strong>
End If<\/p>\n\n\n\n
Set xlsApp = Nothing
Set worksheet = Nothing
Set workbook = Nothing<\/p>\n\n\n\n\u8a2d\u5b9a\u5185\u5bb9\u306f\u3053\u3093\u306a\u611f\u3058<\/h2>\n\n\n\n
![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-110.png\")
<\/figure>\n\n\n\n
\u5546\u54c1\u30b3\u30fc\u30c9\u306e\u964d\u9806<\/p>\n\n\n\n\u25b6\u3067\u5b9f\u884c\u3057\u3066\u307f\u308b<\/h2>\n\n\n\n
![\"\"](\"https:\/\/lacotasu.com\/wp-content\/uploads\/2021\/12\/image-111.png\")
<\/figure>\n\n\n\n
\u5546\u54c1\u30b3\u30fc\u30c9\u306e\u964d\u9806
\u3067\u30bd\u30fc\u30c8\u3055\u308c\u307e\u3057\u305f\uff01<\/p>\n\n\n\n