Vba функция mid
Автор Maksim Kurkovs задал вопрос в разделе Другие языки и технологии
VBA в чем проблема в функции MID? и получил лучший ответ
Ответ от Александр Погребняк[гуру]
Вы уверены, что ошибка именно в функции MID, а не в varRoman(j)?
varRoman - это массив?
Нумерация символов в строке начинается с 1. А у Вас i в цикле начинается с нуля и на первом шаге выглядит так
Mid(Number, 0, 1)
Александр Погребняк
(82147)
Понял. Нумерация символов в строке начинается с 1. А у Вас i в цикле начинается с нуля
Ответ от Максим[гуру]
Number это что?
Number это что?
Ответ от Ev[гуру]
Проблема в том, что
For i = 0 To Len(Number) Step 1
If Mid(Number, i, 1) = varRoman(j) Then
В строке не бывает нулевого символа, только первый, второй и т. д.
У вас i=0 вот MID() и не работает.
Кстати, выражение Step 1 в данном случае не нужно.
Неплохо бы правильно объявлять переменные и указывать их тип.
Dim i As Integer, j As Integer
Dim Number As String
Dim intResult As Integer
При объявлении переменной типа String её значение равно пустой строке (""),
а если переменная-число, то оно будет иметь значение 0,
поэтому присвоение intResult = 0 то же излишне
Проблема в том, что
For i = 0 To Len(Number) Step 1
If Mid(Number, i, 1) = varRoman(j) Then
В строке не бывает нулевого символа, только первый, второй и т. д.
У вас i=0 вот MID() и не работает.
Кстати, выражение Step 1 в данном случае не нужно.
Неплохо бы правильно объявлять переменные и указывать их тип.
Dim i As Integer, j As Integer
Dim Number As String
Dim intResult As Integer
При объявлении переменной типа String её значение равно пустой строке (""),
а если переменная-число, то оно будет иметь значение 0,
поэтому присвоение intResult = 0 то же излишне
Ответ от Ёергей Шепелев[гуру]
Mid вроде как возвращает строку,, даже если varRoman(j) тоже строка, то сравнение их надо осуществлять через StrComp.
Eсли varRoman(j) не строка, то надо озаботиться приведением типов.
Mid вроде как возвращает строку,, даже если varRoman(j) тоже строка, то сравнение их надо осуществлять через StrComp.
Eсли varRoman(j) не строка, то надо озаботиться приведением типов.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: VBA в чем проблема в функции MID?
как в Excel поменять местами 2 последних символа в строке при помощи функций?
lll = mid(stroka,1, len(stroka)-2)+mid(stroka,len(stroka), 1)+mid(stroka,len(stroka)-1, 1)
в
подробнее...
спросили в SAP Open Selection
Вопрос по VBA
Вот пример:
Sub Desicion()
Dim handleFile, beg, fin As Integer
Dim
подробнее...
Вопрос по VBA
Вот пример:
Sub Desicion()
Dim handleFile, beg, fin As Integer
Dim
подробнее...
Подскажите как обратиться к символу в строке (VBA)
Увидел begin и чуть не получил разрыв сердца.
Неужели, думаю, создали Delphi Applications for
подробнее...
спросили в Альбомы AFI
Подскажите аналоги к программе sothink swf decompiler,что-бы переделать файл из "Swf" в "fla"
Flash Decompiler Trillix. На Рутрекере
подробнее...
Подскажите аналоги к программе sothink swf decompiler,что-бы переделать файл из "Swf" в "fla"
Flash Decompiler Trillix. На Рутрекере
подробнее...
спросили в Pectinoida V10 0
Помогите сделать задачу VBA
Sub MacrosBirthDay()
'Рассчитать, в какой день недели вы родились
Dim BirthDay,
подробнее...
Помогите сделать задачу VBA
Sub MacrosBirthDay()
'Рассчитать, в какой день недели вы родились
Dim BirthDay,
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Формула 2
Excel функции Подскажите, как правильно установить функцию (округл), нужно чтобы округляло в таблице все значения
Поможет только редактирование всех формул в тех ячейках, в которых требуется округление.
Т. е.
подробнее...
Excel функции Подскажите, как правильно установить функцию (округл), нужно чтобы округляло в таблице все значения
Поможет только редактирование всех формул в тех ячейках, в которых требуется округление.
Т. е.
подробнее...
VBA Access: Как сделать, чтобы в MsgBox показывались связанные данные (см. внутри)
'Set dbs = CurrentDb
'Set tbl = dbs.OpenRecordset("Разработка")
'If tbl.EOF Then Exit
подробнее...
спросили в User ab
Является ли "программирование в excel" программированием.
Например, функция пользователя конвертирования десятичного числа в двоичное
Function
подробнее...
Является ли "программирование в excel" программированием.
Например, функция пользователя конвертирования десятичного числа в двоичное
Function
подробнее...