XpoHuK #21 19 января 2010 =SEARCH(" ";string;0) нет idi excel uchi, wmara https://www.twitch.tv/alcorithm Поделиться сообщением Ссылка на сообщение
XaBK #22 19 января 2010 =SEARCH(" ";string;0) нет idi excel uchi, wmara нет Поделиться сообщением Ссылка на сообщение
kvaDrug #23 20 января 2010 Sub Avtor_mudakdak() Dim s As String Dim i, j As Integer j = 0 s = Sheets(1).Cells(1, 1).Value For i = 1 To Len(s) If Mid(s, i, 1) = " " Then j = j + 1 Dim s As String Dim i, j As Integer j = 0 s = Sheets(1).Cells(1, 1).Value For i = 1 To Len(s) If Mid(s, i, 1) = " " Then j = j + 1 End If Next Sheets(1).Cells(2, 1).Value = "probelov = " & j End Sub Хахаххаах Поделиться сообщением Ссылка на сообщение