Доделать макрос

@Karta · Регистрация: 04.06.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Я делала програмку в екселе. В работе 4 флажка: разность, сумма, произведение, деление. Мне нужно, что бы когда я активирую 3 из них: допустим, разность, сумма, произведение, то в примерах(задание прилагаю), нажав на кнопку создать примеры, появляюся примеры на умножение, разность и сумму. Итак же для 4 -х флажков, у меня сделано только для двух разных, а в сумме я не знаю как надо сделать...
Если можете, помогите, пожайлуста.

@БурундукЪ · 05.06.2009, 15:53

вот так строчку переделайте

Visual Basic

1
2

If sh.CheckBox_РАЗНОСТЬ And sh.CheckBox_ДЕЛЕНИЕ And sh.CheckBox_СУММА And sh.CheckBox_ПРОИЗВЕДЕНИЕ _
Then Знак = IIf(Rnd(33) * 2 < 1, IIf(Rnd(33) * 2 < 1, "-", "/"), IIf(Rnd(33) * 2 < 1, "+", "*"))

@Karta · 05.06.2009, 17:32 **[ТС]**

Спасибо, всё работает!

@Karta · 15.06.2009, 18:26 **[ТС]**

Здравствуйте! Скажите пожалуйста, а как мне поставить условие в операции деление, чтоб ответ был только целочисленный, например:
если есть пример 13 разделить на 4 я в ответе напишу 3, то это будет считаться правильным и программа не выдаст ошибку?

@БурундукЪ · 15.06.2009, 18:49

13 \ 4 = 3

@Karta · 15.06.2009, 19:10 **[ТС]**

Ну да, я вот думаю, что здесь надо использовать Console.WriteLine(Int()), но я не знаю куда её вставить...

@БурундукЪ · 15.06.2009, 19:12

Karta, ненене. там просто слэш обратный используется: \ - целочисленное деление

@Karta · 15.06.2009, 19:19 **[ТС]**

Но у меня не получается... куда он там вставляется?

@БурундукЪ · 15.06.2009, 19:25

Visual Basic

1
2

If sh.CheckBox_РАЗНОСТЬ And sh.CheckBox_ДЕЛЕНИЕ And sh.CheckBox_СУММА And sh.CheckBox_ПРОИЗВЕДЕНИЕ _
Then Знак = IIf(Rnd(33) * 2 < 1, IIf(Rnd(33) * 2 < 1, "-", "/"), IIf(Rnd(33) * 2 < 1, "+", IIf(Rnd(33) * 2 < 1, "\", "*")))

типа так как-то

@Karta · 15.06.2009, 19:26 **[ТС]**

У меня просто в условии деления нет "/"

@БурундукЪ · 15.06.2009, 19:27

Karta, мона файл па другому назвать, у мну прокси сервак с кешем, он старое запомнил!

@Karta · 15.06.2009, 19:34 **[ТС]**

Не работает...

@Karta · 15.06.2009, 19:53 **[ТС]**

Воотт...

@БурундукЪ · 15.06.2009, 20:15

Не по теме:

Karta, я понял, что хочете ))) щас буду думать

@Karta · 15.06.2009, 21:13 **[ТС]**

А ещё можно спросить, что значат эти 2 строчки:
SumsCount = Val([h2]): If SumsCount < 4 Then SumsCount = 4

SumText = Trim(Target.Offset(, -4)) & Trim(Target.Offset(, -3)) & Trim(Target.Offset(, -2))
?

@БурундукЪ · 15.06.2009, 23:14

Краткие описания основных функций и команд VB - здесь расписаны функции Визуал Басика
но если кратко, то
Val - преобразование строки в число, если число меньше 4, то приравнять к 4.
Trim - удаление внешних пробелов в строке (справа и слева)
вот что такое Target.Offset для меня загадка, но точно могу сказать, что это ссылки на ячейки

@Karta · 16.06.2009, 00:41 **[ТС]**

эт я как раз понимаю, я не понимаю, почему 4? Что она здесь обозначает? И что значит (, -4)?

@Toxa33rus · 16.06.2009, 10:54

Сообщение от Karta

Не работает...

А так:

Visual Basic

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, sh.[e:e]) Is Nothing And Target.Cells.Count = 1 Then
        текстпримера = Trim(Target.Offset(, -4)) & Trim(Target.Offset(, -3)) & Trim(Target.Offset(, -2))
        textPrimera = Int(Application.Evaluate(текстпримера))
        Debug.Print текстпримера & "=" & textPrimera
        Target.Interior.ColorIndex = 35
 
        If textPrimera <> Val(Target) Then
            Debug.Print ttt, Trim(Target)
            ДобавкаЗаОшибку = Val([ДобавкаЗаОшибку])
            For i = 1 To ДобавкаЗаОшибку: СоздатьПример: Next
            Target.Interior.ColorIndex = 38: Target.Next = 1
        End If
    End If
End Sub

@Karta · 16.06.2009, 12:27 **[ТС]**

СПАСИБО!!!

Добавлено через 1 час 11 минут 13 секунд
Скажите, а что значит эта строка:
Debug.Print ttt, Trim(Target)

@Toxa33rus · 16.06.2009, 12:33

Все строки с Debug.... можете смело удалять. Они не играют никакой роли в программе. Это значит что во время выполнения кода в окно отладки (Immediate - Ctrl+G в редакторе кода) будут выводится промежуточные данные.
А "ttt" это такая хитрая переменная которая сначала у меня была, а потом я ее удалил за ненадобностью, а дух ее остался в этой строке

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	05.06.2009, 17:32 [ТС]	3
	Спасибо, всё работает! 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	15.06.2009, 18:26 [ТС]	4
	Здравствуйте! Скажите пожалуйста, а как мне поставить условие в операции деление, чтоб ответ был только целочисленный, например: если есть пример 13 разделить на 4 я в ответе напишу 3, то это будет считаться правильным и программа не выдаст ошибку? 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	15.06.2009, 18:49	5
	13 \ 4 = 3 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	15.06.2009, 19:10 [ТС]	6
	Ну да, я вот думаю, что здесь надо использовать Console.WriteLine(Int()), но я не знаю куда её вставить... 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	15.06.2009, 19:12	7
	Karta, ненене. там просто слэш обратный используется: \ - целочисленное деление 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	15.06.2009, 19:19 [ТС]	8
	Но у меня не получается... куда он там вставляется? 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	15.06.2009, 19:27	11
	Karta, мона файл па другому назвать, у мну прокси сервак с кешем, он старое запомнил! 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	15.06.2009, 19:34 [ТС]	12
	Не работает... 0

@БурундукЪ
	15.06.2009, 20:15 #14
	Не по теме: Karta, я понял, что хочете ))) щас буду думать 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	15.06.2009, 21:13 [ТС]	15
	А ещё можно спросить, что значат эти 2 строчки: SumsCount = Val([h2]): If SumsCount < 4 Then SumsCount = 4 SumText = Trim(Target.Offset(, -4)) & Trim(Target.Offset(, -3)) & Trim(Target.Offset(, -2)) ? 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	15.06.2009, 23:14	16
	Краткие описания основных функций и команд VB - здесь расписаны функции Визуал Басика но если кратко, то Val - преобразование строки в число, если число меньше 4, то приравнять к 4. Trim - удаление внешних пробелов в строке (справа и слева) вот что такое Target.Offset для меня загадка, но точно могу сказать, что это ссылки на ячейки 1

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	16.06.2009, 00:41 [ТС]	17
	эт я как раз понимаю, я не понимаю, почему 4? Что она здесь обозначает? И что значит (, -4)? 0

@Karta 5 / 5 / 2 Регистрация: 04.06.2009 Сообщений: 147
	16.06.2009, 12:27 [ТС]	19
	СПАСИБО!!! Добавлено через 1 час 11 минут 13 секунд Скажите, а что значит эта строка: Debug.Print ttt, Trim(Target) 0

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	16.06.2009, 12:33	20
	Все строки с Debug.... можете смело удалять. Они не играют никакой роли в программе. Это значит что во время выполнения кода в окно отладки (Immediate - Ctrl+G в редакторе кода) будут выводится промежуточные данные. А "ttt" это такая хитрая переменная которая сначала у меня была, а потом я ее удалил за ненадобностью, а дух ее остался в этой строке 0