If Then в одной строке

[alleonid]

Только не убивайте меня сразу!!! Вопрос простой, но я новичек. Честно искал ответ, но в общем - планида что ли такая - иду сдаваться . От прелюдии перехожу к вопросу.
Я копирую фрагменты кода из Книги Excel и мне было бы весьма удобно, чтобы выражение:

Код: Выделить всё

If Combo2.ListIndex = 25 And Combo1.ListIndex = 0 Then
A = 55.04
J=55.6
End If

было записано в одной строке. Смутно помню, что если все наоборот, хочешь чтобы перенести без переноса, то надо писать &_

[Alexanbar]

Код: Выделить всё

If Combo2.ListIndex = 25 And Combo1.ListIndex = 0 Then A = 55.04 : J=55.6


А вообще говоря, нефига экономить строки нужно писать на нескольких строках даже там, где можно писать на одной - гораздо удобнее работать.

[alleonid]

Спасиба. Дай Вам Бог здоровичка

[lister]

От прелюдии перехожу к вопросу.

Обалденно!!! Представляете, у нас на форуме уже так Без прелюдий не обойтись

Можно в цитаты???

Гы...

[alleonid]

Почтенные знатоки VB Вы соль земли
Раз уж вы меня пока оставили жить, то
вот есть такое явление:
если a<1,
например a=0.81
то Str(a) записывается в отчете как .81
(т.е. ноль исчезает).
Можно конечно иф-дзеном добавить этот самый грешный ноль ...
А может можно как нибудь проще

[Dmitriy2003]

а что Format$ уже не рулит

[alleonid]

а что Format$ уже не рулит

при этом слове вспоминается проваленный еще при коммунизме экзамен по Fortran -у.
Вот - написал детсадовскую функцию, только она пробел лишний оставляет перед точкой, ну да ладно.

Код: Выделить всё

Function Strz(x As Double)
Strz=Str(x)
If Abs(x) < 1 Then Strz = "0" & Str(x)
End Function

[Viper]

видать таки не рулит Format то...

вот те примерчик от доброты душевной

Код: Выделить всё

Dim d As Double
d = 0.81
Debug.Print Format$(d, "0.##")

[Dmitriy2003]

for i=0 to 1000000

format$(d,"0.##") - 4,0583
strz(d) - 7,7535

это даже не велосипед - это самокат ржавый

[alleonid]

Спасибо. Учу матчать, чорт бы ее побрал

Код: Выделить всё

Sub Text1_Change()

d = Val(Text1.Text)
Print
Label1.Caption = Format$(d, "0.##")


End Sub

Код: Выделить всё

Function Strz(x As Double)
Strz = Str(x)
If Abs(x) < 1 Then Strz = Format$(x, "0.###")
If Abs(x) >= 1 Then Strz = Str(Round(x, 2))
End Function

PS Извините, я думал такя же фигня как с функцией типа "минимум", в свое время был удивлен, что в VB ее дописывать надо.

[uhm]

Опять мимо. Не нужна тебе никакая функция Strz. Просто в самой начальной задаче вместо Str(a) пишешь Format$(a,"0.##").

[alleonid]

Опять мимо. Не нужна тебе никакая функция Strz. Просто в самой начальной задаче вместо Str(a) пишешь Format$(a,"0.##").

Да, но ... функция вроде как работает. И меньше букаф. Я уже навводил Str - мне "z" удобнее добавить. В общем всем спасибо, я пишу 1 программку в год, и потому никак не обучусь толком. Но, что касается моей функции, все же я свободный человек, в свободной стране и, извините: [модератор: не извиним].

[HandKot]

, то
вот есть такое явление:
если a<1,
например a=0.81
то Str(a) записывается в отчете как .81
(т.е. ноль исчезает).
Можно конечно иф-дзеном добавить этот самый грешный ноль ...
А может можно как нибудь проще

можно стандартную ф-цию CStr использовать

[alibek]

Да, но ... функция вроде как работает. И меньше букаф.

Какое забавное существо...
Если она работает, то почему же возник данный топик?
Кстати, ты не пробовал свою функцию с отрицательными числами? А с логическими значениями? Попробуй.

[alleonid]

Если она работает, то почему же возник данный топик?
Кстати, ты не пробовал свою функцию с отрицательными числами? А с логическими значениями? Попробуй.

Вопрос изначально возник, ибо я не знал как это делать. Поиск рулит не всегда, да и фразу для поиска не всегда хватает ума сконструировать. Добрый !Viper! мне подсказал про Format$. Функция, построенная на основе этой штуки в конечном варианте работает как надо. CStr я не тестировал, т.к. программа слишком мелкая и неответственная и следующую я напишу нескоро. Всем спасибо.

PS Что то в последнее время к новичкам на vbstreets отношение стало пренебрежительное. Или я не там вопрос пишу? Я уж выбираю слова и так и так, чтобы продвинутые пользователи вставили строчку кода в подмогу. Сурово посылают на MSDN и в матчасть. Не иначе как активисты повзрослели, нарожали деток и озабочены теперь их содержанием?

[Viper]

Поскольку я оказывается добрый, то...

Здесь задается вопрос, непосредственно в следующем посте дается ответ. Спрашивается почему в следующем после ответа посте изобретается велосипед? Ответ может быть только один: автор не потрудился выяснить, что же это такое за функция такая Format. Справку не судьба посмотреть?

О активистах, озабоченность содержанием деток несомненно у кого-то имеет место быть, но причем тут VBStreets и новички? Все гораздо проще: когда человек в n-ый раз видит один и тот же, причем примитивный вопрос, то его это раздражает и .... "В поиск, в гугл, MSDN и матчасть... " И что характерно необходимомть использовать поиск и MSDN это прописана в правилах!

Как то вот так...

З.Ы. А CStr стоит проверить таки... да и вообще помнить о ее существовании

[alleonid]

З.Ы. А CStr стоит проверить таки... да и вообще помнить о ее существовании

'Большое спасибо за помощь!