Бамп. Я тупой и только начал вкатываться, поэтому готов принимать урину на ебало.

1000 рублей доната Навальному с пруфами
и готовый скрипт у тебя в кармане

если бы фотку перевернул я бы объяснил тебе, а так - иди нахуй

Вес дебилов настолько много, что даже уже лень обоссывать. Сажи, скрыл от

>>187346607
Могу максимум задонатить тебе сотку на киви, офк после того как я проверю твое решение. Впринципе относится ко всем . Прикрепляйте номер телефона к посту с решением сразу.

>>187346929
Че сказать-то хотел, игорян?

>>187346992
Что ты долбоеб

>>187347019
иди нахуй, мань

бамп

На киберфоруме не смотрел? Или попробуй на znanija.com или как он там.

>>187346498 (OP)
А что не работает-то? Вроде выглядит более-менее норм.

>>187347184
Я не знаю что это за сайты, там наверняка нужно регистрироваться, подтверждать по почте и прочая ебля. А на двач вбросил и бампаешь лениво.

>>187347206
Знал бы, не спрашивал бы. Выдает ошибку и нихуя

>>187346498 (OP)
Че за хуйня, ты строку на слова что ли не можешь разбить?

abu = Split("мухосранск пушкина 11 38")


// abu(0) = мухосранск
// abu(1) = пушкина
// etc

>>187347360
Попробуй для начала убрать к хуям объявление переменных как Integer. Возможно, Mid выдаёт результат как строку, и вылетает ошибка.

>>187346498 (OP)
А если я введу "г.МУХОСРАНСК пушкина 11-38" прога тоже должна работать?

>>187347434
Можно использовать только синтаксис который на пикче. Нужно чтобы город и улица были с большой буквы.

>>187347527
Ок, попробую, только я сейчас не дома. Спасибо анонче за хоть какой-то совет.

>>187347621
А ты дебажить не умеешь, что ли? Watch там, breakpoints, всякое такое?

>>187347565
данные в таблице представлены именно так как в оп посте "мухосранск пушкина 11 38" без знаков между словами, все маленькими буквами. Функция должна преобразовать мухосранск и пушкина чтобы они стали Мухосранск и Пушкина, ну и добавить перед словами г., ул. и тд но это уже очевидно. Главная проблема - сделать 1 буквы большими

>>187347683
Нет, первый раз слышу.

>>187347724
Да ты охуел, там даже специальная функция есть для этого, капиталейт, или типа того. Нахуй ограничивать синтаксис, кстати?

>>187347762
Ну так научись. Сразу понял бы, в чём ошибка. Я бы даже твой код подебагал, если бы ты его текстом вставил. Перенабивать с картинки я ебал.

>>187347724
Ну и хуле тебя тогда Split не утраивает, нахуя там inStr, Left, Mid и прочее говно? Разбил на слова и пересобрал, там где надо заглавную - UCase(строка)

объяви n4 для начала, ошибки не показвает？

>>187347724
не все же - улица, есть проспекты, переулки, или похуй?

>>187347895
Да у них тема небось эти самые
>inStr, Left, Mid и прочее говно

>>187347724
Используй функцию UCase() для того чтобы заглавную букву сделать

>>187347832
Function ADR(x As String) As String
Dim city As String, street As String
Dim house As Integer, apartment As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer
x = StrConv(x, vbProperCase)
n1 = InStr(x, " ")
n2 = InStr(n1 + 1, x, " ")
n3 = InStr(n2 + 1, x, " ")
n4 = InStr(n3 + 1, x, " ")
city = Left(x, n1 + 1)
street = Mid(x, n2 + 1, n2 - n1)
house = Mid(x, n3 + 1, n3 - n2)
apartment = Mid(x, n4 + 1, n4 - n3)
ADR = "г." + city + ", " + "ул." + street + ", " + "д." + house + ", " + "кв." + apartment

End Function

>>187347963
>>187347895
Использовать только синтаксис с пика. 3 раз говорю.

>>187347905
похуй. Основная задача сделать первые буквы заглавными данным синтаксисом

>>187347896
бля точно. Уже объявил но все равно ошибка.

бамп

бамп

>>187346909
Я как-то раз решил одному двощепетуху матстат за деньги. Он порлсуммы выплатил, а вторую поклялся отдать, как только у мамки выпросит. Но, видимо, мамка сдохла или бросила корзиночку, потому что второй половины я не получил.
Что интересно, ирл меня никто не кидал. А я года 3 решал маняматику студентам.

>>187349928
Такая простая задача стоит не дороже сотки. Ее я могу кинуть, могу пруфануть счетом киви. Но после того как я проверю.

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

>>187347724
Заменить " а" на " А"
Заменить " б" на "Б"

>>187352062
Ты решил потролить или что? Просто мимо проходи.

Бамп

Бамп

Бамп

Бамп

Бамп

>>187346498 (OP)
Внезапно, а где можно обучиться VBA онлайн желательно на халяву?

>>187352427
Нахуй тебе это надо?

Бамп

>>187346498 (OP)
Я бы тебе помог, но я не собираюсь читать перевернутое на бок изображение (пошол нахуй)

>>187352572
Выше в треде скопирован код

Бамп

Сука как же я заебался выбирать витрины

>>187352484
Ну я про ексельщик, но временами было бы удобнее парсить данные с сайтов, например. По работе

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

Бамп

>>187353165
Если ввести n4 все равно будет ошибка, я уже проверил

>>187346498 (OP)
Сука, мало того что это размытая фотка монитора вместо нормального скрина, так ещё и повернута на 90 градусов. Ты так троллишь? Хотел помочь но не буду.

Мимо-погромист-шарящий-в-VBA-и-не-только

>>187353180
В чем отличие этих сайтов от двача?? Какая разница спрошу я там или тут? На дваче мне удобнее вот и все.

На, страдалец

Function ADR(x As String) As String
Dim city As String, street As String
Dim house As Integer, apartment As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer
x = StrConv(x, vbProperCase)
n1 = InStr(x, " ")
n2 = InStr(n1 + 1, x, " ")
n3 = InStr(n2 + 1, x, " ")
n4 = InStr(n3 + 1, x, " ")
city = Left(x, n1 - 1)
street = Mid(x, n1, n2 - n1)
house = Mid(x, n2, n3 - n2)
apartment = Mid(x, n3, Len(x) - n3)
ADR = "ã." + city + ", óë." + street + ", ä." + Format(house) + ", êâ." + Format(apartment)
End Function

>>187353292
я блять скинул код выше по треду

Function ADR(x As String) As String
Dim city As String, street As String
Dim house As Integer, apartment As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer
x = StrConv(x, vbProperCase)
n1 = InStr(x, " ")
n2 = InStr(n1 + 1, x, " ")
n3 = InStr(n2 + 1, x, " ")
n4 = InStr(n3 + 1, x, " ")
city = Left(x, n1 + 1)
street = Mid(x, n2 + 1, n2 - n1)
house = Mid(x, n3 + 1, n3 - n2)
apartment = Mid(x, n4 + 1, n4 - n3)
ADR = "г." + city + ", " + "ул." + street + ", " + "д." + house + ", " + "кв." + apartment

End Function

>>187353298
n4 можешь совсем выкинуть, она не нужна. И пофиксь побитые символы.

>>187353351
Молодец

>>187353353
>>187353298
Охуеть спасибо. Можешь объяснить что значит Len(x) - n3?

>>187353297
То, что ты сраный паразит!
На двач люди по другим целям заходят..

Бэйсик, серьёзно? Это в какой шараге ты учишься, лол?

>>187353615
Длина строки х минус н3

>>187353750
а разве нельзя было это же сделать через n4?

>>187353914
можно, n4=Len(x) гыгы
Суть в том, что у тебя три пробела в строке, ты их находишь в n1-n3. А четвёртого пробела нет, нахуя тебе n4.

Этот долбоеб 3 часа не может открыть отладчик, и посмотреть в чем ошибка. Мда.

>>187354017
Спасибо. Ну и я обещал сотку тому кто поможет. Если у тебя есть киви то кидай с пруфом(скрином) что эти сообщения от тебя.

>>187353682
Это еще что. У нас курсач по ООП, там на выбор писать код на си шарпе или на вба. Не представляю гения, который вообще станет на вба делать

Чё, никому сотку не надо? Постите киви, ОП заплатит, я угощаю.

>>187354430
Идет)

Три дошика нахаляву дают, и никому не надо. Доска успешных людей.

>>187354225
+7915ЗЗЗЗ5ЗЗ

>>187354735
Палить свой телефон на борде, такая себе мысль

>>187354999
Да я тут регулярно вижу треды "дайте денег", значит кому-то норм. Вот, дают денег.

>>187354980
Хуя номер, сколько отдал за такой?

>>187354980
ОП, ты ему скинул сотку?

>>187355300
Стрёмный пруф, ни времени, ни телефона, может это ты сам себе скинул. Ну ладно, я тебе верю.

>>187355300
Спасибо. Пришла соточка. Отправлю в какой нибудь фонд по борьбе с болезнями.

>>187355154
50к примерно. Но вообще это дёшево, т.к на номер засран и постоянно звонили коллекторы. Вообще средняя цена такого номера 80-200к в зависимости от цифр. Я просто покупаю периодически такие, потом перепродаю.

>>187355488
Лучше.

>>187355643
>Отправлю в какой нибудь фонд по борьбе с болезнями
Тред добра :3