با سلام
ماکرو ذیل را تست کنید
کد PHP:
Sub test()
For Each cell In ActiveSheet.UsedRange
If Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 Or _
Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 And InStr(cell, "+") > 0 Then
cell.Select
cell.Value = "=" & cell.Value
End If
Next
End Sub
علاقه مندی ها (Bookmarks)