| ش | ی | د | س | چ | پ | ج |
| 1 | 2 | 3 | 4 | 5 | 6 | |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | 31 |
Extract Color Text / Rng As Range
(xValue=Rng.Text (Formatted Text
(For........Next ..... Len(xValue
Rng.Characters(i,1).Font.Color=VbRed
(Out=Out& Mid(xValue,i,1



ش




