{"id":9870,"date":"2024-10-03T14:04:27","date_gmt":"2024-10-03T10:34:27","guid":{"rendered":"https:\/\/officebaz.ir\/ex\/?p=9870"},"modified":"2024-10-06T11:10:00","modified_gmt":"2024-10-06T07:40:00","slug":"%d8%a8%d8%a7%d8%b2%db%8c-%d9%85%db%8c%d9%86-%db%8c%d8%a7%d8%a8-%d8%af%d8%b1-%d8%a7%da%a9%d8%b3%d9%84","status":"publish","type":"post","link":"https:\/\/officebaz.ir\/ex\/%d8%a8%d8%a7%d8%b2%db%8c-%d9%85%db%8c%d9%86-%db%8c%d8%a7%d8%a8-%d8%af%d8%b1-%d8%a7%da%a9%d8%b3%d9%84\/","title":{"rendered":"\u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644"},"content":{"rendered":"

\u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0645\u06cc \u062a\u0648\u0627\u0646\u062f \u0647\u0645 \u062a\u0648\u0627\u0646 VBA \u0634\u0645\u0627 \u0631\u0627 \u0627\u0641\u0632\u0627\u06cc\u0634 \u062f\u0647\u062f \u0648 \u0647\u0645 \u0634\u0645\u0627 \u0631\u0627 \u062a\u0627 \u062d\u062f\u0648\u062f\u06cc \u0633\u0631\u06af\u0631\u0645 \u06a9\u0646\u062f \u060c \u0627\u06af\u0631 \u0627\u0632 \u06a9\u0627\u0631\u0628\u0631\u0627\u0646 \u0642\u062f\u06cc\u0645\u06cc \u0648\u06cc\u0646\u062f\u0648\u0632 \u0628\u0627\u0634\u06cc\u062f \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0645\u062d\u0628\u0648\u0628 \u0631\u0627 \u0628\u0647 \u06cc\u0627\u062f \u062f\u0627\u0631\u06cc\u062f \u060c \u062d\u0627\u0644\u0627 \u0645\u06cc \u062e\u0648\u0627\u0647\u06cc\u0645 \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0631\u0627 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u067e\u06cc\u0627\u062f\u0647 \u0633\u0627\u0632\u06cc \u06a9\u0646\u06cc\u0645 .<\/p>\n\n\n

\u0645\u0631\u0627\u062d\u0644 \u0633\u0627\u062e\u062a \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644<\/h2>\n\n\n

\u0627\u0628\u062a\u062f\u0627 \u06cc\u06a9 \u0641\u06cc\u0627\u0644 \u062c\u062f\u06cc\u062f \u0627\u06a9\u0633\u0644 \u0628\u0627\u0632 \u06a9\u0646\u06cc\u062f \u0648 \u0645\u062d\u062f\u0648\u0647 A1:J10 \u0622\u0646 \u0631\u0627 \u0628\u0647 \u0639\u0631\u0636 \u0648 \u0627\u0631\u062a\u0641\u0627\u0639 \u062f\u0644\u062e\u0648\u0627\u0647 \u062a\u063a\u06cc\u06cc\u0631 \u062f\u0647\u06cc\u062f \u060c \u0627\u0644\u0628\u062a\u0647 \u0627\u06cc\u0646 \u0645\u062d\u062f\u0648\u062f\u0647 \u067e\u06cc\u0634\u0646\u0647\u0627\u062f\u06cc \u0628\u0648\u062f\u0647 \u0648 \u0634\u0645\u0627 \u0645\u06cc \u062a\u0648\u0627\u0646\u06cc\u062f \u0645\u062d\u062f\u0648\u062f\u0647 \u062e\u0648\u062f \u0631\u0627 \u0627\u06cc\u062c\u0627\u062f \u0646\u0645\u0627\u0626\u06cc\u062f .<\/p>\n

    \n
  1. \u0628\u0631\u0627\u06cc \u0627\u06cc\u0646 \u0645\u062d\u062f\u0648\u062f\u0647 \u062d\u0627\u0634\u06cc\u0647 \u062f\u0631 \u0646\u0638\u0631 \u0628\u06af\u06cc\u0631\u06cc\u062f \u0648 Gridline \u0627\u06a9\u0633\u0644 \u0631\u0627 \u063a\u06cc\u0631 \u0641\u0639\u0627\u0644 \u06a9\u0646\u06cc\u062f\u00a0<\/li>\n
  2. \u06a9\u0644\u06cc\u062f\u0647\u0627\u06cc Alt + W + V + G \u062e\u0637\u0647\u0627\u06cc \u0627\u06a9\u0633\u0644 \u0631\u0627 \u0645\u062e\u0641\u06cc \u0645\u06cc \u06a9\u0646\u062f .<\/li>\n
  3. \u0628\u0647 \u0635\u0648\u0631\u062a \u062a\u0635\u0627\u062f\u0641\u06cc \u062f\u0631 \u0628\u0631\u062e\u06cc \u0627\u0632 \u062e\u0627\u0646\u0647 \u0647\u0627\u06cc \u0645\u062d\u062f\u0648\u062f\u0647 \u0627\u06cc\u062c\u0627\u062f \u0634\u062f\u0647 \u062d\u0631\u0641 B \u0631\u0627 \u0648\u0627\u0631\u062f \u06a9\u0646\u06cc\u062f .<\/li>\n
  4. \u0627\u06cc\u0646 \u06a9\u0627\u0631 \u0631\u0627 \u0628\u0627 \u06a9\u062f\u0647\u0627\u06cc \u0632\u06cc\u0631 \u0627\u0646\u062c\u0627\u0645 \u062f\u0647\u06cc\u062f .<\/li>\n<\/ol>\n\n\n
    Sub SetupGameBoard()\n    Dim i As Integer, j As Integer\n    Dim numRows As Integer, numCols As Integer\n    \n    numRows = 10\n    numCols = 10\n    \n    For i = 1 To numRows\n        For j = 1 To numCols\n            Cells(i, j).Value = ""\n            Cells(i, j).Interior.Color = RGB(255, 255, 255)\n        Next j\n    Next i\n    \n    For i = 1 To 10\n        Dim rowNum As Integer, colNum As Integer\n        rowNum = Int((numRows * Rnd) + 1)\n        colNum = Int((numCols * Rnd) + 1)\n        Cells(rowNum, colNum).Value = "B"\n    Next i\nEnd Sub<\/pre><\/div>\n\n\n
    \u0628\u0627 \u0627\u062c\u0631\u0627\u06cc \u06a9\u062f\u0647\u0627\u06cc \u0628\u0627\u0644\u0627 \u062f\u0631 \u0645\u062d\u062f\u0648\u062f\u0647 A1:J10 \u0628\u0647 \u0635\u0648\u0631\u062a \u062a\u0635\u0627\u062f\u0641\u06cc 10 \u062d\u0631\u0641 B \u0642\u0631\u0627\u0631 \u0645\u06cc\u06af\u06cc\u0631\u062f \u060c \u0627\u06af\u0631 \u0645\u06cc\u062e\u0648\u0627\u0647\u06cc\u062f \u0628\u0627\u0632\u06cc \u0633\u062e\u062a \u062a\u0631 \u0634\u0648\u062f \u0645\u06cc \u062a\u0648\u0627\u0646\u062f \u0639\u062f\u062f 10 \u0631\u0627 \u0627\u0641\u0632\u0627\u06cc\u0634 \u062f\u0647\u06cc\u062f.<\/p>\n
    \u062e\u0628 \u062f\u0631 \u0627\u062f\u0627\u0645\u0647 \u0628\u0627\u06cc\u062f \u0627\u0639\u062f\u0627\u062f \u0631\u0627\u0647\u0646\u0645\u0627 \u0631\u0627 \u06a9\u0646\u0627\u0631 \u062d\u0631\u0648\u0641 B \u06a9\u0647 \u0647\u0645\u0627\u0646 \u0645\u06cc\u0646 \u0647\u0627 \u0647\u0633\u062a\u0646\u062f \u0642\u0631\u0627\u0631 \u062f\u0647\u06cc\u0645 \u060c \u0628\u0631\u0627\u06cc \u0627\u06cc\u0646 \u0645\u0646\u0638\u0648\u0631 \u0647\u0645 \u0627\u0632 \u06a9\u062f \u0632\u06cc\u0631 \u0627\u0633\u062a\u0641\u0627\u062f\u0647 \u0645\u06cc \u06a9\u0646\u06cc\u0645 .<\/p>\n\n\n
    Sub CalculateAdjacentBombs()\n    Dim i As Integer, j As Integer, x As Integer, y As Integer\n    Dim numRows As Integer, numCols As Integer, bombCount As Integer \n    numRows = 10\n    numCols = 10\n    For i = 1 To numRows\n        For j = 1 To numCols\n            If Cells(i, j).Value <> "B" Then\n                bombCount = 0\n                For x = -1 To 1\n                    For y = -1 To 1\n                        If (i + x > 0 And i + x <= numRows) And _\n                           (j + y > 0 And j + y <= numCols) Then\n                            If Cells(i + x, j + y).Value = "B" Then\n                                bombCount = bombCount + 1\n                            End If\n                        End If\n                    Next y\n                Next x\n                If bombCount > 0 Then\n                    Cells(i, j).Value = bombCount\n                End If\n            End If\n        Next j\n    Next i\nEnd Sub<\/pre><\/div>\n\n\n
    \u0628\u0627 \u0627\u062c\u0631\u0627\u06cc \u062f\u0648 \u06a9\u062f \u0628\u0627\u0644\u0627 \u0645\u0627 \u0634\u0631\u0627\u06cc\u0637 \u0628\u0627\u0632\u06cc \u0631\u0627 \u0622\u0645\u0627\u062f\u0647 \u06a9\u0631\u062f\u0647 \u0627\u06cc\u0645 \u0648 \u062d\u0627\u0644\u0627 \u0628\u0627\u06cc\u062f \u062f\u0631 \u0631\u0648\u06cc\u062f\u0627\u062f SelectionCHange \u0634\u06cc\u062a \u062e\u0648\u062f \u06a9\u062f\u0647\u0627\u06cc\u06cc \u0631\u0627 \u0628\u0646\u0648\u06cc\u0633\u06cc\u0645 \u06a9\u0647 \u0627\u06af\u0631 \u06a9\u0627\u0631\u0628\u0631 \u062f\u0631 \u0645\u062d\u062f\u0648\u062f\u0647 A1:J10 \u06a9\u0644\u06cc\u06a9 \u06a9\u0631\u062f \u0627\u06af\u0631 \u0645\u062d\u062a\u0648\u0627\u06cc \u0622\u0646 \u062d\u0631\u0641 B \u0628\u0642\u06cc\u0647 \u0633\u0644\u0648\u0644\u0647\u0627\u06cc \u0645\u062d\u062f\u0648\u062f\u0647 \u0631\u0627 \u0647\u0645 \u0646\u0645\u0627\u06cc\u0634 \u062f\u0647\u062f \u0648 \u0627\u06af\u0631 B \u0646\u0628\u0648\u062f \u0645\u062d\u062a\u0648\u0627\u06cc \u0622\u0646 \u0631\u0627 \u0646\u0645\u0627\u06cc\u0634 \u062f\u0647\u062f \u06a9\u0647 \u0627\u06cc\u0646 \u06a9\u0627\u0631\u0647\u0627 \u0628\u0627 \u062a\u063a\u06cc\u06cc\u0631 \u0631\u0646\u06af \u0648 \u0641\u0648\u0646\u062a \u0627\u0646\u062c\u0627\u0645 \u0645\u06cc \u0634\u0648\u062f .<\/p>\n
    \u062f\u0631 \u0627\u062f\u0627\u0645\u0647 \u06a9\u062f\u0647\u0627\u06cc \u0645\u0631\u0628\u0648\u0637 \u0628\u0647 \u062a\u06a9\u0645\u06cc\u0644 \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0622\u0648\u0631\u062f\u0647 \u0634\u062f\u0647 \u0627\u0633\u062a \u060c \u062e\u0648\u062f\u062a\u0627\u0646 \u0627\u0648\u0644\u06cc\u0646 \u0628\u0627\u0632\u06cc<\/a> \u0631\u0627 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0627\u06cc\u062c\u0627\u062f \u06a9\u0646\u0628\u062f .<\/p>\n\n\n
    \"\u0628\u0627\u0632\u06cc<\/figure>\n\n\n
    \u0646\u062a\u06cc\u062c\u0647 \u0627\u062c\u0631\u0627\u06cc \u062f\u0648 \u0642\u0637\u0639\u0647 \u06a9\u062f \u0628\u0627\u0644\u0627 \u0628\u0631\u0627\u06cc \u0633\u0627\u062e\u062a \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0631\u0627 \u0645\u06cc \u0628\u06cc\u0646\u06cc\u062f \u060c \u062f\u0631 \u0627\u062f\u0627\u0645\u0647 \u0628\u0627\u06cc\u062f \u0631\u0646\u06af \u0641\u0648\u0646\u062a \u0646\u0648\u0634\u062a\u0647 \u0647\u0627 \u0648 \u067e\u0633 \u0632\u0645\u06cc\u0646\u0647 \u0622\u0646\u0647\u0627 \u0633\u0641\u06cc\u062f \u0634\u0648\u062f \u06a9\u0647 \u062f\u06cc\u062f\u0647 \u0646\u0634\u0648\u062f \u0648 \u0628\u0627 \u06a9\u0644\u06cc\u06a9 \u0631\u0648\u06cc \u0622\u0646\u0647\u0627 \u0627\u06af\u0631 \u062d\u0631\u0641 B \u0646\u0628\u0648\u062f \u067e\u0633 \u0632\u0645\u06cc\u0646\u0647 \u0622\u0646 \u062e\u0627\u06a9\u0633\u062a\u0631\u06cc \u0634\u0648\u062f \u0648 \u0627\u06af\u0631 B \u0628\u0648\u062f \u067e\u0633 \u0632\u0645\u06cc\u0646\u0647 B \u0647\u0627 \u0642\u0631\u0645\u0632 \u0648 \u0645\u0627\u0628\u0642\u06cc \u0633\u0628\u0632 \u0634\u0648\u062f .<\/p>\n\n\n
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)\n    Dim currentPlayerRow As Long\n    Dim currentScore As Integer\n    currentPlayerRow = ThisWorkbook.Sheets("Sheet1").Range("N1").Value\n    If Not Intersect(Target, Range("A1:J10")) Is Nothing Then\n        If Target.Cells.CountLarge > 1 Then Exit Sub\n        If Target.Value = "B" Then\n            If isFirstClick Then\n                ThisWorkbook.Sheets("Sheet1").Cells(currentPlayerRow, "M").Value = 0\n            End If\n            MsgBox "\u062e\u0633\u062a\u0647 \u0646\u0628\u0627\u0634\u064a\u062f :) \u0628\u0631\u0627\u064a \u064a\u0627\u062f\u06af\u064a\u0631\u064a \u0627\u06a9\u0633\u0644 " & vbCrLf & vbCrLf & " \u064a\u0647 \u0633\u0631 \u0628\u0647 Officebaz.ir \u0628\u0632\u0646", vbOKOnly Or vbExclamation Or vbMsgBoxRtlReading Or vbMsgBoxRight, " \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 "\n            Call RevealAllCells\n            Exit Sub\n        End If\n        isFirstClick = False\n        Target.Font.Color = RGB(0, 0, 0)\n        Target.Interior.Color = RGB(200, 200, 200)\n        currentScore = CalculateScore()\n        ThisWorkbook.Sheets("Sheet1").Cells(currentPlayerRow, "M").Value = currentScore\n    End If\nEnd Sub<\/pre><\/div>\n\n\n
    \u06a9\u062f\u0647\u0627\u06cc \u062f\u06cc\u06af\u0631\u06cc \u0647\u0645 \u0628\u0631\u0627\u06cc \u062a\u06a9\u0645\u06cc\u0644 \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0645\u06cc \u062a\u0648\u0627\u0646\u06cc\u062f \u0627\u0636\u0627\u0641\u0647 \u06a9\u0646\u06cc\u062f \u0645\u062b\u0644\u0627 \u060c \u0645\u0646 \u0628\u0631\u0627\u06cc \u0627\u06cc\u0646\u06a9\u0647 \u0646\u0627\u0645 \u0634\u0631\u06a9\u062a \u06a9\u0646\u0646\u062f\u0647 \u0647\u0627 \u0631\u0627 \u062f\u0627\u0634\u062a\u0647 \u0628\u0627\u0634\u06cc\u0645 \u0648 \u0627\u0645\u062a\u06cc\u0627\u0632 \u0622\u0646\u0647\u0627 \u0631\u0627 \u062b\u0628\u062a \u06a9\u0646\u06cc\u0645 \u060c \u06a9\u062f\u0647\u0627\u06cc\u06cc \u0627\u0636\u0627\u0641\u0647 \u06a9\u0631\u062f\u0645 \u06a9\u0647 \u06a9\u0627\u0631\u0647\u0627\u06cc \u0632\u06cc\u0631 \u0631\u0627 \u0627\u0646\u062c\u0627\u0645 \u0645\u06cc \u062f\u0647\u062f.<\/p>\n
      \n
    1. \u0628\u0627 \u06cc\u06a9 InputBox \u0646\u0627\u0645 \u06a9\u0627\u0631\u0628\u0631 \u0631\u0627 \u0645\u06cc \u06af\u06cc\u0631\u062f.<\/li>\n
    2. \u0646\u0627\u0645 \u06a9\u0627\u0631\u0628\u0631 \u0631\u0627 \u062f\u0631 \u0627\u0648\u0644\u06cc\u0646 \u0631\u062f\u06cc\u0641 \u062e\u0627\u0644\u06cc \u0633\u062a\u0648\u0646 L \u0642\u0631\u0627\u0631 \u0645\u06cc\u062f\u0647\u062f .<\/li>\n
    3. \u062f\u0631 \u0631\u0648\u06cc\u062f\u0627\u062f SelectionChange \u0647\u0645 \u06a9\u062f\u0647\u0627\u06cc\u06cc \u0648\u062c\u0648\u062f \u062f\u0627\u0631\u062f \u06a9\u0647 \u0628\u0647 \u0627\u0632\u0627\u06cc \u0647\u0631 \u06a9\u0644\u06cc\u06a9 \u0635\u062d\u06cc\u062d \u06cc\u06a9 \u0627\u0645\u062a\u06cc\u0627\u0632 \u062f\u0631 \u0633\u062a\u0648\u0646 M \u0642\u0631\u0627\u0631 \u0645\u06cc \u062f\u0647\u062f.<\/li>\n
    4. \u0628\u0627\u0644\u0627\u062a\u0631\u06cc\u0646 \u0627\u0645\u062a\u06cc\u0627\u0632 \u06a9\u0633\u0628 \u0634\u062f\u0647 \u062f\u0631 \u0633\u062a\u0648\u0646 L \u0631\u0627 \u0633\u0628 \u0645\u06cc\u06a9\u0646\u062f \u06a9\u0647 \u0628\u0627 \u0642\u0627\u0644\u0628\u062f\u0647\u06cc \u0634\u0631\u0637\u06cc \u0627\u0646\u062c\u0627\u0645 \u0645\u06cc \u0634\u0648\u062f .<\/li>\n<\/ol>\n\n
      \u0633\u0639\u06cc \u0645\u06cc \u06a9\u0646\u06cc\u0645 \u067e\u0633 \u0627\u0632 \u0627\u06cc\u0646 \u062f\u0631 \u0627\u06cc\u0646 \u0633\u0627\u06cc\u062a \u0633\u0631\u06af\u0631\u0645\u06cc \u0647\u0627\u06cc \u0627\u06a9\u0633\u0644 \u0631\u0627 \u0628\u06cc\u0634\u062a\u0631 \u0642\u0631\u0627\u0631 \u062f\u0647\u06cc\u0645 \u0648 \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0634\u0631\u0648\u0639\u06cc \u0628\u0631\u0627\u06cc \u0627\u06cc\u0646 \u0647\u062f\u0641 \u0627\u0633\u062a .\u00a0<\/p>\n
      \u0686\u0631\u0627 \u06a9\u0647 \u0647\u0645\u0648\u0627\u0631\u0647 \u0627\u0646\u062c\u0627\u0645 \u0633\u0631\u06af\u0631\u0645\u06cc \u0647\u0645 \u0646\u06cc\u0627\u0632 \u0627\u0646\u0633\u0627\u0646 \u0627\u0633\u062a \u0648 \u0647\u0645 \u062f\u0631 \u06cc\u0627\u062f\u06af\u06cc\u0631\u06cc \u0648 \u062f\u0631\u06a9 VBA \u0627\u06a9\u0633\u0644<\/a> \u062a\u0648\u0627\u0646\u0627\u06cc\u06cc \u0647\u0627\u06cc \u0622\u0646 \u06a9\u0645\u06a9 \u06a9\u0646\u0646\u062f\u0647 \u0645\u06cc \u0628\u0627\u0634\u062f.<\/p>\n\n
      \n            \n
      \n    \n
      \n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n    <\/div>\n    \n
      \n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n            
      \n            \n\n
      <\/div>\n        <\/div>\n    <\/div>\n<\/div>\n                \n\n
      \n            4\/5 - (6 \u0627\u0645\u062a\u06cc\u0627\u0632)    <\/div>\n    <\/div>\n","protected":false},"excerpt":{"rendered":"
      \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0645\u06cc \u062a\u0648\u0627\u0646\u062f \u0647\u0645 \u062a\u0648\u0627\u0646 VBA \u0634\u0645\u0627 \u0631\u0627 \u0627\u0641\u0632\u0627\u06cc\u0634 \u062f\u0647\u062f \u0648 \u0647\u0645 \u0634\u0645\u0627 \u0631\u0627 \u062a\u0627 \u062d\u062f\u0648\u062f\u06cc \u0633\u0631\u06af\u0631\u0645 \u06a9\u0646\u062f \u060c \u0627\u06af\u0631 \u0627\u0632 \u06a9\u0627\u0631\u0628\u0631\u0627\u0646 \u0642\u062f\u06cc\u0645\u06cc \u0648\u06cc\u0646\u062f\u0648\u0632 \u0628\u0627\u0634\u06cc\u062f \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0645\u062d\u0628\u0648\u0628 \u0631\u0627 \u0628\u0647 \u06cc\u0627\u062f \u062f\u0627\u0631\u06cc\u062f \u060c \u062d\u0627\u0644\u0627 \u0645\u06cc \u062e\u0648\u0627\u0647\u06cc\u0645 \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0631\u0627 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u067e\u06cc\u0627\u062f\u0647 \u0633\u0627\u0632\u06cc \u06a9\u0646\u06cc\u0645 . \u0645\u0631\u0627\u062d\u0644 \u0633\u0627\u062e\u062a \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 […]<\/p>\n","protected":false},"author":1,"featured_media":9872,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"_uag_custom_page_level_css":"","advgb_blocks_editor_width":"","advgb_blocks_columns_visual_guide":"","footnotes":""},"categories":[198],"tags":[138],"class_list":["post-9870","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-198","tag-vba"],"acf":[],"author_meta":{"display_name":"\u0646\u0627\u062f\u0631 \u0628\u062d\u0631\u06cc","author_link":"https:\/\/officebaz.ir\/ex\/author\/administrator\/"},"featured_img":"https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper-300x169.webp","uagb_featured_image_src":{"full":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",1280,720,false],"thumbnail":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper-150x150.webp",150,150,true],"medium":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper-300x169.webp",300,169,true],"medium_large":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper-768x432.webp",768,432,true],"large":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper-1024x576.webp",800,450,true],"1536x1536":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",1280,720,false],"2048x2048":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",1280,720,false],"gform-image-choice-sm":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",300,169,false],"gform-image-choice-md":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",400,225,false],"gform-image-choice-lg":["https:\/\/officebaz.ir\/ex\/wp-content\/uploads\/2024\/10\/mineSweeper.webp",600,338,false]},"uagb_author_info":{"display_name":"\u0646\u0627\u062f\u0631 \u0628\u062d\u0631\u06cc","author_link":"https:\/\/officebaz.ir\/ex\/author\/administrator\/"},"uagb_comment_info":2,"uagb_excerpt":"\u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u0645\u06cc \u062a\u0648\u0627\u0646\u062f \u0647\u0645 \u062a\u0648\u0627\u0646 VBA \u0634\u0645\u0627 \u0631\u0627 \u0627\u0641\u0632\u0627\u06cc\u0634 \u062f\u0647\u062f \u0648 \u0647\u0645 \u0634\u0645\u0627 \u0631\u0627 \u062a\u0627 \u062d\u062f\u0648\u062f\u06cc \u0633\u0631\u06af\u0631\u0645 \u06a9\u0646\u062f \u060c \u0627\u06af\u0631 \u0627\u0632 \u06a9\u0627\u0631\u0628\u0631\u0627\u0646 \u0642\u062f\u06cc\u0645\u06cc \u0648\u06cc\u0646\u062f\u0648\u0632 \u0628\u0627\u0634\u06cc\u062f \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0645\u062d\u0628\u0648\u0628 \u0631\u0627 \u0628\u0647 \u06cc\u0627\u062f \u062f\u0627\u0631\u06cc\u062f \u060c \u062d\u0627\u0644\u0627 \u0645\u06cc \u062e\u0648\u0627\u0647\u06cc\u0645 \u0627\u06cc\u0646 \u0628\u0627\u0632\u06cc \u0631\u0627 \u062f\u0631 \u0627\u06a9\u0633\u0644 \u067e\u06cc\u0627\u062f\u0647 \u0633\u0627\u0632\u06cc \u06a9\u0646\u06cc\u0645 . \u0645\u0631\u0627\u062d\u0644 \u0633\u0627\u062e\u062a \u0628\u0627\u0632\u06cc \u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631…","coauthors":[],"tax_additional":{"categories":{"linked":["\u0633\u0631\u06af\u0631\u0645\u06cc \u062f\u0631 \u0627\u06a9\u0633\u0644<\/a>"],"unlinked":["\u0633\u0631\u06af\u0631\u0645\u06cc \u062f\u0631 \u0627\u06a9\u0633\u0644<\/span>"]},"tags":{"linked":["VBA<\/a>"],"unlinked":["VBA<\/span>"]}},"comment_count":"2","relative_dates":{"created":"\u0645\u0646\u062a\u0634\u0631 \u0634\u062f\u0647 2 \u0633\u0627\u0644 \u067e\u06cc\u0634","modified":"\u0628\u0647\u200c\u0631\u0648\u0632\u0631\u0633\u0627\u0646\u06cc \u0634\u062f\u0647 2 \u0633\u0627\u0644 \u067e\u06cc\u0634"},"absolute_dates":{"created":"\u0645\u0646\u062a\u0634\u0631 \u0634\u062f\u0647 \u062f\u0631 12 \u0645\u0647\u0631 1403","modified":"\u0628\u0647\u200c\u0631\u0648\u0632\u0631\u0633\u0627\u0646\u06cc \u0634\u062f\u0647 \u062f\u0631 15 \u0645\u0647\u0631 1403"},"absolute_dates_time":{"created":"\u0645\u0646\u062a\u0634\u0631 \u0634\u062f\u0647 \u062f\u0631 12 \u0645\u0647\u0631 1403 2:04 \u0628.\u0638","modified":"\u0628\u0647\u200c\u0631\u0648\u0632\u0631\u0633\u0627\u0646\u06cc \u0634\u062f\u0647 \u062f\u0631 15 \u0645\u0647\u0631 1403 11:10 \u0642.\u0638"},"featured_img_caption":"\u0645\u06cc\u0646 \u06cc\u0627\u0628 \u062f\u0631 \u0627\u06a9\u0633\u0644","series_order":"","_links":{"self":[{"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/posts\/9870","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/comments?post=9870"}],"version-history":[{"count":0,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/posts\/9870\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/media\/9872"}],"wp:attachment":[{"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/media?parent=9870"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/categories?post=9870"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/officebaz.ir\/ex\/wp-json\/wp\/v2\/tags?post=9870"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}