SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kronic
Цитата:| мне переменная NewString нужна с типом single, а не String. |
Можно. Но тогда будут некоторые ограничения. Т.е. если символы "+" или "-" встретятся в середине строки, то преобразовать в тип Single невозможно. Вот вариант:
Код: Sub Repl()
Dim i As Integer, MyString As String, NewString As String, MyVal As Single
MyString = "-1q2w3e4r5t6yu6" 'Пусть это наша переменная
For i = 1 To Len(MyString)
Select Case Mid(MyString, i, 1)
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "-", "+", "."
NewString = NewString & Mid(MyString, i, 1)
End Select
Next
On Error Resume Next
MyVal = CSng(NewString)
If Err = 0 Then MsgBox MyVal Else MsgBox "Преобразование невозможно!"
On Error GoTo 0
End Sub |
Добавлено:
MoBo4Ka
А что Вы имеете ввиду под
Цитата:| при запуске следующий раз |
Если книга не закрывалась, то можно либо сохранять нужные значения в переменных, объявленных как Public, и при инициализации формы вставлять их куда нужно. Либо использовать не Unload, а Hide. Т.е. не выгружать, а просто скрывать форму. При этом все значения сохраняются.
Если же помнить данные нужно и после закрытия книги, то единственный способ, это сохранять все значения вместе с книгой. Например, в каких-нибудь "богом забытых" (можно скрытых) ячейках рабочего листа.
Добавлено:
Kanev75
Посмотрите Здесь. |
