ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задача vba
25 сообщений из 107, страница 2 из 5
  2  все
Задача vba
    #39879907
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Chislo()
Dim a As Double, n1, n2, n3, n4, n5

a = Range("A1")
n1 = Mid(a, 1, 1)
n2 = Mid(a, 2, 1)
n3 = Mid(a, 3, 1)
n4 = Mid(a, 4, 1)
n5 = Mid(a, 5)
Range("A2") = n1
Range("A3") = n2
Range("A4") = n3
Range("A5") = n4
Range("A6") = n5


End Sub

Shocker.Pro,
...
Рейтинг: 0 / 0
22.10.2019, 13:59
| Ответить | Цитировать | Написать  
Задача vba
    #39879931
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub Chislo()
    Dim srcValue As Double, n As Double
    srcValue = Range("A1")
    For n = 0 To 4
        Range("A2:A6")(n + 1) = (srcValue \ (10 ^ n)) Mod 10
    Next n
End Sub
...
Рейтинг: 0 / 0
22.10.2019, 14:22
| Ответить | Цитировать | Написать  
Задача vba
    #39879932
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gembirdТак можно записывать ? Ошибку даетнет
Код: vbnet
1.
Range("19")

что ты хотел этим сказать?
...
Рейтинг: 0 / 0
22.10.2019, 14:24
| Ответить | Цитировать | Написать  
Задача vba
    #39879948
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("B19")
Y = Range("B20")
If (X < 0) And (Y > 0) Then
   Range("B21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("B21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("B21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("B21") = "4"
 End If
 End Sub


Да извините, не корректно указана ячейка.
...
Рейтинг: 0 / 0
22.10.2019, 14:41
| Ответить | Цитировать | Написать  
Задача vba
    #39879954
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Спасибо, Roman Mejtes,
...
Рейтинг: 0 / 0
22.10.2019, 14:50
| Ответить | Цитировать | Написать  
Задача vba
    #39879959
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("B19")
Y = Range("B20")
If (X < 0) And (Y > 0) Then
   Range("B21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("B21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("B21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("B21") = "4"
 End If
 End Sub

gembird,
В целом конструкция верна или так не делают?
...
Рейтинг: 0 / 0
22.10.2019, 14:55
| Ответить | Цитировать | Написать  
Задача vba
    #39879987
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Написать программу преобразования десятичного числа в шестнадцатеричное. Подскажите куда смотреть?
...
Рейтинг: 0 / 0
22.10.2019, 15:16
| Ответить | Цитировать | Написать  
Задача vba
    #39879997
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
gembird,

Range("A1") = HEX(10digitNumber)
...
Рейтинг: 0 / 0
22.10.2019, 15:23
| Ответить | Цитировать | Написать  
Задача vba
    #39880009
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Благодарю.
...
Рейтинг: 0 / 0
22.10.2019, 15:32
| Ответить | Цитировать | Написать  
Задача vba
    #39880515
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Задача. Дано три числа. Расположите их в порядке возрастания. Тема Урока : Условные операторы. If..Then.. Else
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a <= b) And (a <= c) Then
    Range("c2") = "1"
 End If
 If (b >= a) And (b <= c) Then
    Range("c3") = "2"
 End If
If (c >= a) And (c >= b) Then
    Range("c4") = "3"
    End If
 
End Sub


Не работает. Дает только первый результат.
...
Рейтинг: 0 / 0
23.10.2019, 15:19
| Ответить | Цитировать | Написать  
Задача vba
    #39880530
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А всё потому, что отсутствуетgembirdElse
...
Рейтинг: 0 / 0
23.10.2019, 15:51
| Ответить | Цитировать | Написать  
Задача vba
    #39880533
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
gembirdЗадача. Дано три числа. Расположите их в порядке возрастания. Тема Урока : Условные операторы. If..Then.. Else
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a <= b) And (a <= c) Then
    Range("c2") = "1"
 End If
 If (b >= a) And (b <= c) Then
    Range("c3") = "2"
 End If
If (c >= a) And (c >= b) Then
    Range("c4") = "3"
    End If
 
End Sub


Не работает. Дает только первый результат.

Три числа могут быть размещены 6 способами - факториал 3.
Значит в коде должно быть 6 проверок.
Код: vbnet
1.
2.
3.
4.
5.
if (a<=b) and (a<=c) and (b<=c) then 
range("c2")=a
range("c3")=b
range("c4")=c
end if


Итак 6 раз.
...
Рейтинг: 0 / 0
23.10.2019, 16:01
| Ответить | Цитировать | Написать  
Задача vba
    #39880542
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a <= b) And (a <= c) Then
    Range("c2") = "1"
    Elsae If (b >= a) And (b <= c) Then
        Range("c3") = "2"
    Else If (c >= a) And (c >= b) Then
          Range("c4") = "3"
            End If
    
 
End Sub
...
Рейтинг: 0 / 0
23.10.2019, 16:10
| Ответить | Цитировать | Написать  
Задача vba
    #39880549
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
gembird,

Если даже убрать ошибки синтаксиса, то работать не будет.
Попробуй взять числа 2,5,3 и запустить свой код.
...
Рейтинг: 0 / 0
23.10.2019, 16:17
| Ответить | Цитировать | Написать  
Задача vba
    #39880556
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gembird,

Простая логика. В каждой из ячеек (с2-с4) у тебя может оказаться одно из чисел (1-3)

У тебя есть только Range("c2") = "1", а Range("c2") = "2" и Range("c2") = "3" у тебя нигде нет.

Улавливаешь проблему?
...
Рейтинг: 0 / 0
23.10.2019, 16:28
| Ответить | Цитировать | Написать  
Задача vba
    #39880569
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a < b) And (a < c) Then
    Range("c2") = a
    Else If (b > a) And (b < c) Then
        Range("c3") = b
    Else If (c > a) And (c > b) Then
          Range("c4") = c
          
            End If
    
 
End Sub
...
Рейтинг: 0 / 0
23.10.2019, 16:43
| Ответить | Цитировать | Написать  
Задача vba
    #39880570
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
это академическая задача? то есть есть какое то письменное задание? я так и не понял, что конкретно хочет автор?
перестановки? что происходит? :D
...
Рейтинг: 0 / 0
23.10.2019, 16:43
| Ответить | Цитировать | Написать  
Задача vba
    #39880577
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Задача по VBA, учебное пособие, нужно раставить в порядке возрастания , какие- то три числа. По идее ничего сложного для Вас, но у меня не получается, комп плюется ошибками.
...
Рейтинг: 0 / 0
23.10.2019, 16:52
| Ответить | Цитировать | Написать  
Задача vba
    #39880581
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gembirdЗадача по VBA, учебное пособие, нужно раставить в порядке возрастания , какие- то три числа. По идее ничего сложного для Вас, но у меня не получается, комп плюется ошибками.Так надо прочитать эти ошибки, а не просто сетовать.

В данном случае проблема в том, что количество End If не соответствует количеству If.

Либо нужно использовать ElseIf, если вы его проходили, тогда можно обойтись одним End If
...
Рейтинг: 0 / 0
23.10.2019, 16:54
| Ответить | Цитировать | Написать  
Задача vba
    #39880584
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
gembirdЗадача. Дано три числа. Расположите их в порядке возрастания.
Код: vbnet
1.
2.
3.
Range("A1") = WorksheetFunction.Min(a,b,c)
Range("A3") = WorksheetFunction.Max(a,b,c)
Range("A2") = a+b+c-Range("A1")-Range("A3")

...
Рейтинг: 0 / 0
23.10.2019, 16:57
| Ответить | Цитировать | Написать  
Задача vba
    #39880638
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Akina,

авторТема Урока : Условные операторы. If..Then.. Else
Неспортивно ;)
...
Рейтинг: 0 / 0
23.10.2019, 18:29
| Ответить | Цитировать | Написать  
Задача vba
    #39880641
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
big-dukeНеспортивно ;)Можно добавить If True

А так - да, неспортивно. Можно же было прям в ячейках средствами экселя отсортировать
...
Рейтинг: 0 / 0
23.10.2019, 18:32
| Ответить | Цитировать | Написать  
Задача vba
    #39880670
gembird
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gembird
Гость
Задача VBa.
Запрограммируйте шуточный тест "Проверь свои возможности". Пользователю предлагается ответить на 7 вопросов:
1) Профессор лёг спать в 8 часов, а встал в 9 часов. Сколько часов проспал профессор? (1)
2) На двух руках 10 пальцев. Сколько пальцев на 10?(50)
3) Сколько цифр в дюжине?(2)
4) Сколько нужно сделать запилов, чтобы распилить бревно на 12 частей? (11)
5) Врач сделал три укола в интервале 30 минут. Сколько времени он затратил? (30)
6) Сколько цифр 9 в интервале 1 100? (1)
7) У пастуха было 30 овец. Все кроме одной разбежались. Сколько овец осталось? (1)
Оценка ответов пользователя:
- если 7 правильных, то печатается "Гений";
- если 6 правильных, то печатается "Эрудит";
- если 5 правильных, то печатается "Нормальный";
- если 4 правильных, то печатается "Способности средние";
- если 3 правильных, то печатается "Способности ниже среднего";
- если <2 правильных, то печатается "Вам надо отдохнуть!".
Использовать оператор if then else.
Подскажите с чего начать.
...
Рейтинг: 0 / 0
23.10.2019, 20:08
| Ответить | Цитировать | Написать  
Задача vba
    #39880676
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
6-й ответ неверный )
...
Рейтинг: 0 / 0
23.10.2019, 20:40
| Ответить | Цитировать | Написать  
Задача vba
    #39880677
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gembirdПодскажите с чего начать.Начать надо с рисования алгоритма на бумажке - да-да, те самые ромбики, прямоугольнички и стрелочки.
Опять же не очень понятно, каким способом задаются вопросы и получаются ответы? MsgBox-ами и InputBox-ами или, допустим, список вопросов в ячейках листа и список ответов напротив
...
Рейтинг: 0 / 0
23.10.2019, 20:44
| Ответить | Цитировать | Написать  
25 сообщений из 107, страница 2 из 5
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задача vba
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39880515&tid=2154859]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 285ms
total:  431ms
созд. / загр.: 431ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]