{"id":202,"date":"2024-11-22T17:43:24","date_gmt":"2024-11-22T08:43:24","guid":{"rendered":"https:\/\/anbtksh.com\/?p=202"},"modified":"2024-11-23T17:36:30","modified_gmt":"2024-11-23T08:36:30","slug":"%e4%bf%ae%e6%ad%a3%e4%b8%ad","status":"publish","type":"post","link":"https:\/\/anbtksh.com\/?p=202","title":{"rendered":"\u30b7\u30a7\u30a4\u30d7\u304b\u3089\u5185\u5bb9\u78ba\u8a8d\u306e\u4e00\u89a7\u8868\u3092\u51fa\u529b"},"content":{"rendered":"\n

Sub \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A()<\/p>\n\n\n\n

Application.ScreenUpdating = False<\/p>\n\n\n\n

Dim folderPath As String
Dim fileName As String
Dim targetWb As Workbook
Dim resultWb As Workbook
Dim resultWs As Worksheet
Dim row As Long
Dim resultFilePath As String<\/p>\n\n\n\n

‘ \u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\u3092\u53d6\u5f97
folderPath = InputBox(“\u64cd\u4f5c\u5bfe\u8c61\u306b\u306a\u308b\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044”, “\u30d5\u30a9\u30eb\u30c0\u306e\u9078\u629e”)
If Right(folderPath, 1) <> “\\” Then folderPath = folderPath & “\\”<\/p>\n\n\n\n

‘ \u7d50\u679c\u3092\u51fa\u529b\u3059\u308b\u65b0\u3057\u3044\u30d6\u30c3\u30af\u3092\u4f5c\u6210
Set resultWb = Workbooks.Add
Set resultWs = resultWb.sheets(1)
resultWs.Name = “\u30b7\u30a7\u30a4\u30d7\u306e\u4e00\u89a7”<\/p>\n\n\n\n

‘ \u898b\u51fa\u3057\u3092\u8a2d\u5b9a
resultWs.Cells(1, 1).Value = “\u30d6\u30c3\u30af\u540d”
resultWs.Cells(1, 2).Value = “\u30b7\u30fc\u30c8\u540d”
resultWs.Cells(1, 3).Value = “\u30b0\u30eb\u30fc\u30d7\u540d”
resultWs.Cells(1, 4).Value = “\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d”
resultWs.Cells(1, 5).Value = “\u30c6\u30ad\u30b9\u30c8”
resultWs.Cells(1, 6).Value = “TBL”<\/p>\n\n\n\n

‘ \u898b\u51fa\u3057\u306e\u66f8\u5f0f\u8a2d\u5b9a
With resultWs.Range(“A1:F1”)
.Interior.Color = RGB(255, 255, 0) ‘ \u80cc\u666f\u3092\u9ec4\u8272\u306b\u8a2d\u5b9a
.HorizontalAlignment = xlCenter ‘ \u30bb\u30f3\u30bf\u30ea\u30f3\u30b0
.Font.Bold = True
End With<\/p>\n\n\n\n

‘ 1\u884c\u76ee\u3092\u56fa\u5b9a
resultWs.rows(“2:2”).Select
ActiveWindow.FreezePanes = True<\/p>\n\n\n\n

row = 2<\/p>\n\n\n\n

‘ \u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3059\u3079\u3066\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u30eb\u30fc\u30d7
fileName = Dir(folderPath & “.xls<\/em>“)
Do While fileName <> “”
Set targetWb = Workbooks.Open(folderPath & fileName)<\/p>\n\n\n\n

' \u5404\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u30eb\u30fc\u30d7\nDim ws As Worksheet\nFor Each ws In targetWb.Worksheets\n    ' \u5404\u30b7\u30a7\u30a4\u30d7\u3092\u30eb\u30fc\u30d7\n    Dim targetShape As shape\n    For Each targetShape In ws.Shapes\n        Call \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A_1(targetShape, resultWs, row, \"\", ws.Name, targetWb.Name)\n    Next targetShape\nNext ws\n\ntargetWb.Close False\nfileName = Dir<\/code><\/pre>\n\n\n\n
Loop<\/p>\n\n\n\n
‘ \u30bb\u30eb\u5e45\u3092\u6700\u9069\u5316
resultWs.columns(“A:F”).AutoFit<\/p>\n\n\n\n
‘ E\u5217\u306e\u30c6\u30ad\u30b9\u30c8\u3092\u5927\u6587\u5b57\u306b\u5909\u63db
Dim lastRow As Long
lastRow = resultWs.Cells(resultWs.rows.Count, “E”).End(xlUp).row
Dim i As Long
For i = 2 To lastRow
resultWs.Cells(i, 5).Value = UCase(resultWs.Cells(i, 5).Value)<\/p>\n\n\n\n
' (TBL_ \u3092\u542b\u3080\u30c6\u30ad\u30b9\u30c8\u3092\u62bd\u51fa\u3057\u3066F\u5217\u306b\u66f8\u304d\u51fa\u3059\nDim text As String\ntext = resultWs.Cells(i, 5).Value\nIf InStr(text, \"(TBL_\") > 0 Then\n    Dim startPos As Long\n    Dim endPos As Long\n    startPos = InStr(text, \"(TBL_\")\n    endPos = InStr(startPos, text, \")\")\n    If endPos > startPos Then\n        resultWs.Cells(i, 6).Value = Mid(text, startPos + 1, endPos - startPos - 1)\n    End If\nEnd If<\/code><\/pre>\n\n\n\n
Next i<\/p>\n\n\n\n
‘ \u7d50\u679c\u30d6\u30c3\u30af\u3092\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a9\u30eb\u30c0\u306b\u4fdd\u5b58
resultFilePath = folderPath & “\u30b7\u30a7\u30a4\u30d7\u306e\u4e00\u89a7\u7d50\u679c.xlsx”
resultWb.SaveAs resultFilePath
resultWb.Close False<\/p>\n\n\n\n
Application.ScreenUpdating = True<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
Sub \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A_1(targetShape As shape, resultWs As Worksheet, ByRef row As Long, groupName As String, sheetName As String, bookName As String)
Dim i As Long
Dim shapeName As String<\/p>\n\n\n\n
shapeName = targetShape.Name<\/p>\n\n\n\n
‘ \u30b0\u30eb\u30fc\u30d7\u5316\u3055\u308c\u305f\u30b7\u30a7\u30a4\u30d7\u306e\u5834\u5408
If targetShape.Type = msoGroup Then
For i = 1 To targetShape.GroupItems.Count
Call \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A_1(targetShape.GroupItems(i), resultWs, row, shapeName, sheetName, bookName)
Next i
Else
‘ \u30c6\u30ad\u30b9\u30c8\u304c\u3042\u308b\u5834\u5408
If targetShape.TextFrame2.HasText Then
resultWs.Cells(row, 1).Value = bookName
resultWs.Cells(row, 2).Value = sheetName
resultWs.Cells(row, 3).Value = groupName
resultWs.Cells(row, 4).Value = shapeName
resultWs.Cells(row, 5).Value = targetShape.TextFrame2.textRange.text
row = row + 1
End If
End If
End Sub<\/p>\n\n\n\n
Sub \u7d50\u679c\u306e\u78ba\u8a8d\u3068\u767b\u9332()<\/p>\n\n\n\n
Application.ScreenUpdating = False<\/p>\n\n\n\n
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim lastRow As Long
Dim lastRow2 As Long
Dim lastRow3 As Long
Dim i As Long, j As Long
Dim bookName As String, sheetName As String, groupName As String
Dim filePath As String<\/p>\n\n\n\n
‘ \u30d5\u30eb\u30d1\u30b9\u3092\u5165\u529b
filePath = InputBox(“\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u306e\u30d5\u30eb\u30d1\u30b9\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044:”)<\/p>\n\n\n\n
‘ \u30ef\u30fc\u30af\u30d6\u30c3\u30af\u3092\u958b\u304f
On Error Resume Next
Set ws = Workbooks.Open(filePath).sheets(“\u30b7\u30a7\u30a4\u30d7\u306e\u4e00\u89a7”)
On Error GoTo 0<\/p>\n\n\n\n
If ws Is Nothing Then
MsgBox “\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3051\u307e\u305b\u3093\u3067\u3057\u305f\u3002”
Exit Sub
End If<\/p>\n\n\n\n
‘ G\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u524a\u9664\u300d\u3068\u5165\u529b
ws.Cells(1, “G”).Value = “\u524a\u9664”<\/p>\n\n\n\n
‘ H\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u4e3b\u30ad\u30fc\u300d\u3068\u5165\u529b
ws.Cells(1, “H”).Value = “\u4e3b\u30ad\u30fc”<\/p>\n\n\n\n
‘ I\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u306a\u3057\u300d\u3068\u5165\u529b
ws.Cells(1, “I”).Value = “\u306a\u3057”<\/p>\n\n\n\n
‘ J\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u8ad6\u7406DB\u300d\u3068\u5165\u529b
ws.Cells(1, “J”).Value = “\u8ad6\u7406DB”<\/p>\n\n\n\n
‘ \u6700\u7d42\u884c\u3092\u53d6\u5f97
lastRow = ws.Cells(ws.rows.Count, “E”).End(xlUp).row<\/p>\n\n\n\n
‘ E\u5217\u3092\u5927\u6587\u5b57\u306b\u5909\u63db\u3057\u3001\u30c8\u30ea\u30e0\u3057\u3066\u6539\u884c\u3084\u7a7a\u767d\u3092\u524a\u9664
For i = 2 To lastRow
ws.Cells(i, “E”).Value = Trim(UCase(Replace(ws.Cells(i, “E”).Value, vbLf, “”)))
Next i<\/p>\n\n\n\n
‘ F\u5217\u3092\u30eb\u30fc\u30d7\u3057\u3066\u300cTBL_XX\u300d\u3092\u542b\u3080\u884c\u3092\u63a2\u3059
For i = 2 To lastRow
If InStr(ws.Cells(i, “F”).Value, “TBL_XX”) > 0 Then
bookName = ws.Cells(i, “A”).Value
sheetName = ws.Cells(i, “B”).Value
groupName = ws.Cells(i, “C”).Value<\/p>\n\n\n\n
    For j = 2 To lastRow\n        If ws.Cells(j, \"A\").Value = bookName And _\n           ws.Cells(j, \"B\").Value = sheetName And _\n           ws.Cells(j, \"C\").Value = groupName Then\n            ws.Cells(j, \"G\").Value = 1\n        End If\n    Next j\nEnd If<\/code><\/pre>\n\n\n\n
Next i<\/p>\n\n\n\n
‘ E\u5217\u3092\u30eb\u30fc\u30d7\u3057\u3066\u300c\u25cf\u300d\u3067\u59cb\u307e\u308b\u884c\u3092\u63a2\u3059
For i = 2 To lastRow
If Left(ws.Cells(i, “E”).Value, 1) = “\u25cf” Then
ws.Cells(i, “H”).Value = 1
End If
Next i<\/p>\n\n\n\n
‘ E\u5217\u3092\u30eb\u30fc\u30d7\u3057\u3066\u300c\u306a\u3057\u300d\u3092\u542b\u3080\u884c\u3092\u63a2\u3059
For i = 2 To lastRow
If InStr(ws.Cells(i, “E”).Value, “\u306a\u3057”) > 0 Then
ws.Cells(i, “I”).Value = 1
End If
Next i<\/p>\n\n\n\n
‘ G\u5217\u3001H\u5217\u3001I\u5217\u3001F\u5217\u304c\u3059\u3079\u3066\u7a7a\u767d\u306e\u884c\u306eF\u5217\u306b0\u3092\u767b\u9332
For i = 2 To lastRow
If IsEmpty(ws.Cells(i, “G”)) And IsEmpty(ws.Cells(i, “H”)) And IsEmpty(ws.Cells(i, “I”)) And IsEmpty(ws.Cells(i, “F”)) Then
ws.Cells(i, “F”).Value = 0
End If
Next i<\/p>\n\n\n\n
‘ A\u5217\u3001B\u5217\u3001C\u5217\u3001F\u5217\u3092\u6607\u9806\u3067\u30bd\u30fc\u30c8
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=ws.Range(“A2:A” & lastRow), Order:=xlAscending
ws.Sort.SortFields.Add Key:=ws.Range(“B2:B” & lastRow), Order:=xlAscending
ws.Sort.SortFields.Add Key:=ws.Range(“C2:C” & lastRow), Order:=xlAscending
ws.Sort.SortFields.Add Key:=ws.Range(“F2:F” & lastRow), Order:=xlAscending
With ws.Sort
.SetRange ws.Range(“A1:J” & lastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With<\/p>\n\n\n\n
‘ F\u5217\u306b0\u304c\u3042\u308b\u884c\u306eE\u5217\u306e\u5185\u5bb9\u3092J\u5217\u306b\u8a18\u5165
For i = 2 To lastRow
If ws.Cells(i, “F”).Value = 0 And Not IsEmpty(ws.Cells(i, “F”)) Then
ws.Cells(i, “J”).Value = ws.Cells(i, “E”).Value
End If
Next i<\/p>\n\n\n\n
‘ 1\u884c\u76ee\u306e\u30bf\u30a4\u30c8\u30eb\u3092\u30bb\u30f3\u30bf\u30ea\u30f3\u30b0\u3001\u80cc\u666f\u3092\u9ec4\u8272\u306b\u3057\u3001\u56fa\u5b9a\u3057\u3066\u30d5\u30a3\u30eb\u30bf\u3092\u304b\u3051\u308b
With ws.rows(1)
.HorizontalAlignment = xlCenter
.Interior.Color = RGB(255, 255, 0)
End With
ws.rows(2).Select
ActiveWindow.FreezePanes = True<\/p>\n\n\n\n
‘ \u30d5\u30a3\u30eb\u30bf\u304c\u304b\u304b\u3063\u3066\u3044\u306a\u3044\u5834\u5408\u306b\u30d5\u30a3\u30eb\u30bf\u3092\u304b\u3051\u308b
If Not ws.AutoFilterMode Then
ws.rows(1).AutoFilter
End If<\/p>\n\n\n\n
‘ \u5217\u5e45\u3092\u6700\u9069\u5316
ws.columns(“A:J”).AutoFit<\/p>\n\n\n\n
‘ \u65b0\u3057\u3044\u30b7\u30fc\u30c8\u3092\u4f5c\u6210\u3057\u3066\u30c7\u30fc\u30bf\u3092\u30b3\u30d4\u30fc
Set ws2 = ws.Parent.sheets.Add(After:=ws.Parent.sheets(ws.Parent.sheets.Count))
ws2.Name = “\u30b7\u30a7\u30a4\u30d7\u306e\u4e00\u89a72”
ws.rows.Copy Destination:=ws2.rows<\/p>\n\n\n\n
‘ G\u5217\u3001H\u5217\u3001I\u5217\u306b1\u304c\u3042\u308b\u884c\u3092\u524a\u9664
For i = lastRow To 2 Step -1
If ws2.Cells(i, “G”).Value = 1 Or ws2.Cells(i, “H”).Value = 1 Or ws2.Cells(i, “I”).Value = 1 Then
ws2.rows(i).Delete
End If
Next i<\/p>\n\n\n\n
‘ \u5217\u5e45\u3092\u6700\u9069\u5316
For i = 1 To ws2.columns.Count
ws2.columns(i).AutoFit
Next i<\/p>\n\n\n\n
‘ F\u5217\u306b\u8a18\u5165\u304c\u3042\u308a\u3001J\u5217\u304c\u7a7a\u767d\u306e\u90e8\u5206\u306f\u4e0a\u306e\u884c\u306e\u5185\u5bb9\u3092\u30b3\u30d4\u30fc\u3057\u3066\u8a18\u5165
For i = 2 To lastRow
If Not IsEmpty(ws2.Cells(i, “F”)) And IsEmpty(ws2.Cells(i, “J”)) Then
ws2.Cells(i, “J”).Value = ws2.Cells(i – 1, “J”).Value
End If
Next i<\/p>\n\n\n\n
‘ K\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u3092\u8a2d\u5b9a
ws2.Cells(1, “K”).Value = “\u30b5\u30d6\u30b7\u30b9\u30c6\u30e0\u540d”<\/p>\n\n\n\n
‘ A\u5217\u306e\u5185\u5bb9\u3067\u534a\u89d2\u304a\u3088\u3073\u5168\u89d2\u306e\uff08\u3068\uff09\u3067\u56f2\u307e\u308c\u3066\u3044\u308b\u5185\u5bb9\u3092K\u5217\u306b\u8a18\u5165
For i = 2 To lastRow
If InStr(ws2.Cells(i, “A”).Value, “(“) > 0 And InStr(ws2.Cells(i, “A”).Value, “)”) > 0 Then
ws2.Cells(i, “K”).Value = Mid(ws2.Cells(i, “A”).Value, InStr(ws2.Cells(i, “A”).Value, “(“) + 1, InStr(ws2.Cells(i, “A”).Value, “)”) – InStr(ws2.Cells(i, “A”).Value, “(“) – 1)
ElseIf InStr(ws2.Cells(i, “A”).Value, “\uff08”) > 0 And InStr(ws2.Cells(i, “A”).Value, “\uff09”) > 0 Then
ws2.Cells(i, “K”).Value = Mid(ws2.Cells(i, “A”).Value, InStr(ws2.Cells(i, “A”).Value, “\uff08”) + 1, InStr(ws2.Cells(i, “A”).Value, “\uff09”) – InStr(ws2.Cells(i, “A”).Value, “\uff08”) – 1)
End If
Next i<\/p>\n\n\n\n
‘ \u30ef\u30fc\u30af\u30d6\u30c3\u30af\u3092\u4fdd\u5b58\uff08\u9589\u3058\u306a\u3044\uff09
ws.Parent.Save<\/p>\n\n\n\n
‘ \u30b7\u30fc\u30c8\u3092\u8a2d\u5b9a
Set ws3 = ws.Parent.sheets.Add(After:=ws2)
ws3.Name = “\u30b7\u30a7\u30a4\u30d7\u306e\u4e00\u89a73”<\/p>\n\n\n\n
‘ \u6700\u7d42\u884c\u3092\u53d6\u5f97
lastRow2 = ws2.Cells(ws2.rows.Count, “F”).End(xlUp).row
lastRow3 = ws3.Cells(ws3.rows.Count, “A”).End(xlUp).row + 1<\/p>\n\n\n\n
‘ F\u5217\u304c0\u3067\u306a\u3044\u3082\u306e\u3092\u30b3\u30d4\u30fc
j = lastRow3
For i = 2 To lastRow2
If ws2.Cells(i, “F”).Value <> 0 Then
ws3.Cells(j, “A”).Value = ws2.Cells(i, “F”).Value
ws3.Cells(j, “B”).Value = ws2.Cells(i, “K”).Value
ws3.Cells(j, “C”).Value = ws2.Cells(i, “J”).Value
j = j + 1
End If
Next i<\/p>\n\n\n\n
‘ A1\u304b\u3089C1\u306e\u30bb\u30eb\u3092\u9078\u629e
With ws3.Range(“A1:C1”)
‘ \u80cc\u666f\u8272\u3092\u9ec4\u8272\u306b\u8a2d\u5b9a
.Interior.Color = RGB(255, 255, 0)
‘ \u30bb\u30f3\u30bf\u30ea\u30f3\u30b0
.HorizontalAlignment = xlCenter
‘ \u30d5\u30a3\u30eb\u30bf\u306e\u8ffd\u52a0
.AutoFilter
End With<\/p>\n\n\n\n
‘ A\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300cTBL\u300d\u3068\u5165\u529b
ws3.Cells(1, “A”).Value = “TBL”<\/p>\n\n\n\n
‘ B\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u30b5\u30d6\u30b7\u30b9\u30c6\u30e0\u300d\u3068\u5165\u529b
ws3.Cells(1, “B”).Value = “\u30b5\u30d6\u30b7\u30b9\u30c6\u30e0”<\/p>\n\n\n\n
‘ C\u5217\u306e\u30bf\u30a4\u30c8\u30eb\u306b\u300c\u8ad6\u7406DB\u300d\u3068\u5165\u529b
ws3.Cells(1, “C”).Value = “\u8ad6\u7406DB”<\/p>\n\n\n\n
‘ 2\u884c\u76ee\u3092\u9078\u629e\u3057\u3066\u56fa\u5b9a
ws3.rows(“2:2”).Select
ActiveWindow.FreezePanes = True<\/p>\n\n\n\n
‘ \u5217\u5e45\u3092\u6700\u9069\u5316
ws3.columns(“A:C”).AutoFit<\/p>\n\n\n\n
Application.ScreenUpdating = True<\/p>\n\n\n\n
Application.WindowState = xlMaximized
ActiveWindow.Zoom = 100
Range(“a1”).Select<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
Sub test()<\/p>\n\n\n\n
Call \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A
Call \u7d50\u679c\u306e\u78ba\u8a8d\u3068\u767b\u9332<\/p>\n\n\n\n
End Sub<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
Sub \u30b7\u30a7\u30a4\u30d7\u306e\u30c6\u30ad\u30b9\u30c8\u4e00\u89a7A() Application.ScreenUpdating = False Dim folderPath As StringDim fileName As StringDim target … <\/p>\n
“\u30b7\u30a7\u30a4\u30d7\u304b\u3089\u5185\u5bb9\u78ba\u8a8d\u306e\u4e00\u89a7\u8868\u3092\u51fa\u529b” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-202","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/posts\/202","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/anbtksh.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=202"}],"version-history":[{"count":7,"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/posts\/202\/revisions"}],"predecessor-version":[{"id":210,"href":"https:\/\/anbtksh.com\/index.php?rest_route=\/wp\/v2\/posts\/202\/revisions\/210"}],"wp:attachment":[{"href":"https:\/\/anbtksh.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=202"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anbtksh.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=202"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anbtksh.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=202"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}