Тест в excel visual basic - Word и Excel - помощь в работе с программами

Создание простого тестового задания средствами VBA Excel на конкретном примере. Загрузка вопросов и ответов с помощью массивов. Выставление оценки за тест.

Описание тестового задания

Простое тестовое задание состоит из пяти вопросов с пятью вариантами ответов на каждый. Оценивается пройденный тест от 0 до 5 баллов в зависимости от количества правильных ответов.

Пользователь выбирает на каждый вопрос один ответ из пяти предложенных и нажимает кнопку «Оценить». Результат выполнения тестового задания выводится в информационном окне MsgBox.

Форма и элементы управления

На пользовательской форме VBA Excel расположены пять элементов управления Frame (рамка) для размещения вопросов. В каждой рамке расположены по пять элементов OptionButton (переключатель) для размещения и выбора вариантов ответа.

Рамки нужны для объединения переключателей в группы, в которых только один элемент OptionButton из группы может иметь значение True. Это облегчает пользователю перевыбор ответа.

Кнопка CommandButton1 используется для запуска процедуры расчета оценки за пройденный тест.

Загрузка вопросов и ответов

Вопросы и варианты ответов присваиваются массивам непосредственно в коде VBA Excel. Из массивов информация передается на пользовательскую форму элементам управления Frame и OptionButton.

Private Sub UserForm_Initialize()

Dim arr1 As Variant, arr2 As Variant, i As Byte

‘Присваиваем список вопросов массиву arr1

arr1 = Array(«Сколько лапок у мухи?», «На что меняют шило?», _

«5! — это сколько?», «Кто может стать мужем лосихи?», _

«Что в списке цветов лишнее?»)

‘Присваиваем вопросы заголовкам рамок

‘из массива arr1

For i = 1 To 5

Controls(«Frame» & i).Caption = arr1(i — 1)

‘Присваиваем варианты ответов массиву arr2

arr2 = Array(«2», «4», «6», «8», «10», «на вилы», «на мыло», _

«на силу», «на рыло», «на рынду», «24», «48», «60», «120», _

«240», «Вепрь», «Упырь», «Бугай», «Мизгирь», «Сохатый», _

«Сенполия», «Физалия», «Циния», «Пеларгония», «Аквилегия»)

‘Присваиваем варианты ответов надписям

‘переключателей из массива arr2

For i = 1 To 25

Controls(«OptionButton» & i).Caption = arr2(i — 1)

CommandButton1.Caption = «Оценка»

Me.Caption = «Тестовое задание»

End Sub

Выставление оценки за тест

Для расчета оценки за пройденный тест используется свойство Value элемента управления OptionButton, которое равно True, если переключатель выбран. В тексте процедуры свойство Value не указано, так как оно является для OptionButton свойством по умолчанию.

Private Sub CommandButton1_Click()

Dim arr3 As Variant, n As Byte, i As Byte

‘Присваиваем порядковые номера правильных

‘ответов массиву arr3

arr3 = Array(«3», «7», «14», «20», «22»)

‘Считаем количество правильных ответов

For i = 1 To 5

If Controls(«OptionButton» & arr3(i — 1)) Then

n = n + 1

End If

‘Выводим результат в MsgBox

MsgBox «Ваша оценка: « & n

End Sub

Предложенное здесь простое тестовое задание в VBA Excel можно усовершенствовать, организовав загрузку вопросов и ответов в массивы с активного рабочего листа. Тогда на разных листах можно будет создать различные варианты тестов и запускать их одной программой, выбрав нужный лист.

Источник

Если ваши ученики освоили в Excel представление и
обработку данных, то можно переходить на
качественно новый уровень работы с Excel –
автоматизировать свою работу. Язык VBA (Visual Basic for
Application) – язык программирования, который
подходит для всех приложений Microsoft Office, это один
из самых простых в изучении и применении языков,
он является версией языка Visual Basic.

Предлагаю задания для создания проектов в виде
тестов в среде MS Excel и VBA.

Задание:

Откройте Excel.
Переименуйте Лист1 в Вопросник
и составьте таблицу.

Для каждого вопроса создайте пользовательские
формы и с помощью их заполните таблицу.

Пользовательские формы могут иметь вид:

UserForm1

UserForm2

При вызове следующего вопроса закрывается
текущая форма, записываются результаты на лист Вопросник,
и открывается форма со следующим вопросом.
В форме с последним вопросом запрограммировано
только закрытие формы и запись результатов.
Спроектируйте на листе Excel Вопросник
кнопку вызова форм:

Примечание. Подумайте, как изменится
программа, если заполнить таблицу по вертикали.

Темы проектов:

1. Подобрать тест, обработать его, результаты
показать через пользовательскую форму.

2. Вопросник по любому предмету, результаты
которого обработать в Excel и выдать через
пользовательскую форму оценку:

3. Вопросник «МОЯ ВСЕЛЕННАЯ, ПОЗНАЙ СЕБЯ»

Создать кнопку вызова.
Создать форму Вопрос и ответы к ним:

Вопросы:

Мое любимое занятие…
Мой любимый цвет…
Мое любимое животное…
Мой лучший друг…
Мой любимый звук…
Мой любимый запах…
Моя любимая игра…
Моя любимая одежда…
Моя любимая музыка…
Мое любимое время года…
Что я больше всего на свете люблю делать…
Место, где я больше всего люблю бывать…
Мой любимый певец или группа…
Мои любимые герои…
Я чувствую в себе способности к …
Человек, которым я больше всего восхищаюсь …
Лучше всего я умею …
Я знаю, что смогу …
Я уверен в себе потому, что …

Вопросник «Мне нравится»

Мне нравится в школе то, что …
Мне не нравится в школе то, что …
Я просто в восторге от того, что …
Мне не нравится на уроке то, что …
Вот было бы здорово, если бы на уроке можно было
бы …

Смотри Приложение 1, где
можно определить тип темперамента.

Желаю удачи!!!

Источник

1. Overview

Welcome to the world of Excel VBA unit testing! In this tutorial, I am going to introduce you to Rubberduck VBA, and its unit testing capabilities.

What you’ll learn

How to add test modules
How to add unit tests
How to run unit tests
How to interpret test results

What you’ll need

A Windows computer with Excel 2007, or newer
Basic knowledge of Function and Sub procedures

All the commands that are listed below are executed on a Windows 10 machine with Excel 2016.

2. Get started

This step is only needed if you have not set up your development environment. You need to install Rubberduck VBA to your Excel. You can follow these instructions to install it.

Download Rubberduck installer from this link. Once download is finished, start the installer and follow the steps in the setup wizard.

Kicking off Excel

After setup has finished installing, it’s a good idea to launch Excel, open VBA Editor, and verify Rubberduck has been properly installed:

After installing the Rubberduck add-in, a new menu appears in VBA Editor.

The options we’ll use in this tutorial are located unter the Rubberduck > Unit Tests menu:

3. Create a function to test

In the previous step, we started Excel and opened Visual Basic Editor. In this step, you are going to insert a new code module, and add a new Function to it.

I’ve already prepared a function that we will unit test later, so just paste it into Module1:

	Option Explicit

	»
	‘ Validate the password length so that it’s between 8-16 characters long
	‘
	‘ Returns:
	‘
	‘ TRUE – Password matches the lenght requirement
	‘ FALSE – Password doesn’t match the length requirement

	Function ValidatePasswordLength(password As String) As Boolean

	Dim success As Boolean: success = False

	‘ Validate the password is of correct length (between 8-16 characters)
	Dim length As Long: length = Len(password)

	If (length >= 8 And length <= 16) Then
	success = True
	End If

	ValidatePasswordLength = success

	End Function

Here, you defined a new function, called ValidatePasswordLength(). It takes a single parameter of value string, and returns a boolean.

The purpose of the function is to assure that the password length is valid. It needs to be greater or equal to 8, and less or equal to 16 characters.

In next steps, we are going to create several unit tests that will test this function.

4. Insert a Test Module

Before you can start adding unit tests, you need to first insert a test module. A test module is a container for unit tests. Each test module can have zero or more unit tests. You can have any number of test modules in a project, depending on the complexity of your requirements. In this tutorial, you are just going to use a single Test Module.

To insert a new Test Module, you need to display the Test Explorer window. You do that with the Rubberduck > Unit Tests > Test Explorer menu command:

Next, select the Test Explorer > Add > Test Module command. This inserts a new Test Module called TestModule1:

Every time you insert a new test module, it contains these procedures: ModuleInitialize(), ModuleCleanup(), TestInitialize() and TestCleanup(). They are used to perform any initialization before running the tests, as well as cleaning up after tests have finished running.

Step 5: Add unit tests

If you try running the tests now, you won’t get any output. That’s because there are no unit test methods yet. So let’s start to add some tests. Usually it’s best to add the tests at the very bottom of this module, below ModuleInitialize(), ModuleCleanup(), TestInitialize() and TestCleanup() functions.

To insert a unit tests:

First, make sure you’re located in TestModule1, just like in the previous screen shot.
In Test Explorer, click Add > Test Method.

Test Explorer inserts a new test method:

	‘@TestMethod
	Public Sub TestMethod1() ‘TODO Rename test
	On Error GoTo TestFail

	‘Arrange:

	‘Act:

	‘Assert:
	Assert.Inconclusive

	TestExit:
	Exit Sub
	TestFail:
	Assert.Fail «Test raised an error: #» & Err.Number & » – « & Err.Description
	End Sub

What’s happening here?

Looking at the generated code, we see the Arrange, Act and Assert comments. These help guide us in writing better tests. For the purpose of this tutorial, we can delete all three of these comments.

Notice the @TestMethod attribute right in front of the function declaration? This attribute is automatically added to every test method. It’s there so that the method can get picked up by the test runner, as well as Test Explorer. Without it, test methods wouldn’t show up in Test Explorer.

To illustrate this concept, let’s click on the Refresh button in Test Explorer, and observe how the newly added test method now shows up in the Test Explorer window.

After refreshing, the test method shows up in Test Explorer

It’s a good idea to use the refresh button when you make changes to your methods, such as renaming them, deleting, or adding new ones.

Note: When you get more comfortable with writing unit tests, you can omit using the wizard — and code your test methods directly in the editor. You can do this by adding the @TestMethod attribute right in front of your test method.

Step 6: Customize the Unit Test

So far, this test method doesn’t do anything — it doesn’t test any code. So let’s customize it, by giving it a more appropriate name, and let’s add some code to it.

Let’s rename the test method from TestMethod1() to TestPasswordLenthIsTooSmall(), and delete the three “Arrange:”, “Act:” and “Assert:” comments.

Next, let’s modify the TestPasswordLenthIsTooSmall() test method, by having it invoke the ValidatePasswordLength() function we created in Step 3, by passing it the parameter “bob”.

You can do this by replacing the line:

Assert.Inconclusive

with:

Assert.IsFalse (ValidatePasswordLength("bob"))

The purpose of the ValidatePasswordLength() function, is to verify whether the password is valid, by comparing it’s length. If it’s within the range of 8-16 characters, the password is valid, and the function will return true. If it’s outside of that range, it will return false. Because we’re passing the parameter “bob”, we’re expecting to see a false result. That’s why we use Assert.IsFalse().

When you’re done, your code should look like this:

	Option Explicit
	Option Private Module

	‘@TestModule
	‘@Folder(«Tests»)

	Private Assert As Object

	‘@ModuleInitialize
	Public Sub ModuleInitialize()
	‘this method runs once per module.
	Set Assert = CreateObject(«Rubberduck.AssertClass»)
	End Sub

	‘@ModuleCleanup
	Public Sub ModuleCleanup()
	‘this method runs once per module.
	End Sub

	‘@TestInitialize
	Public Sub TestInitialize()
	‘this method runs before every test in the module.
	End Sub

	‘@TestCleanup
	Public Sub TestCleanup()
	‘this method runs after every test in the module.
	End Sub

	‘@TestMethod
	Public Sub TestPasswordLengthIsTooSmall()
	On Error GoTo TestFail

	Assert.IsFalse (ValidatePasswordLength(«bob»))

	TestExit:
	Exit Sub
	TestFail:
	Assert.Fail «Test raised an error: #» & Err.Number & » – « & Err.Description
	End Sub

Assert.IsTrue and Assert.IsFalse above are methods from Rubberduck’s Assert class. Conveniently, it also provides a few other methods that we can use:

The Assert class in Rubberduck VBA provides some of the most commonly used assertions.

Believe it or not, that’s it! We’re done with creating our first test case.

Step 7: Run the test

Now starts the real fun: let’s run it. In order to run the test:

Inside Test Explorer, click Run > All Tests.

In Test Explorer, we can see a few things:

Test result: failed, passed, and not run tests
The name of the test module
Name of the test method
How long it took to execute the test, in ms

After running the unit test, the Test Explorer updates with the latest result.

That’s it! As you can see, our unit test passes. If you’d like to add the remaining test cases, you may do so. When you’re finished adding them, you just need to refresh the Test Explorer, and re-run the tests. The Test Explorer will run all of them, and show you the summary of results for each.

Once all your tests pass, you’re good to go!

Step 8: Add more test cases (optional)

So far, we’ve added one single test method, and ran it to make sure it passed.

We can use many different values to ValidatePasswordLength()‘s parameters. For example:

“bob” –> should return FALSE
“ASecretPassword” –> should return TRUE
“” –> should return FALSE
“123456” –> should return FALSE
“IAmAVeryLongLongLongLongPassword#!{}$#.” –> should return FALSE

If we imagine running ValidatePasswordLength() with the inputs above, we should get results as indicated in the bullet points above.

Just for fun, I’ve added a few of the test cases above, and this is what I get after refreshing and running the tests:

Running multiple tests using Test Explorer

All the tests pass. Pretty neat!

Summary

In this tutorial, I’ve shown you how to get started with Rubberduck VBA to create and run your very first unit test. Congratulate yourself on your success!

Obviously, a real-world scenario doesn’t include just one single test. There can be many unit tests organized in many test modules, depending on the complexity of your solution. The great thing about using Rubberduck VBA is that it provides a Test Explorer which allows you to navigate your test cases.

If your company is considering implementing unit tests, or require tailor-made solutions for complex scenarios, please don’t hesitate to get in touch.

Источник

vba-test

vba-test (formerly Excel-TDD and VBA-TDD) adds testing to VBA on Windows and Mac.

Donate

Example

Function AddTests() As TestSuite
  Set AddTests = New TestSuite
  AddTests.Description = "Add"

  ' Report results to the Immediate Window
  ' (ctrl + g or View > Immediate Window)
  Dim Reporter As New ImmediateReporter
  Reporter.ListenTo AddTests

  With AddTests.Test("should add two numbers")
    .IsEqual Add(2, 2), 4
    .IsEqual Add(3, -1), 2
    .IsEqual Add(-1, -2), -3
  End With

  With AddTests.Test("should add any number of numbers")
    .IsEqual Add(1, 2, 3), 6
    .IsEqual Add(1, 2, 3, 4), 10
  End With
End Function

Public Function Add(ParamArray Values() As Variant) As Double
  Dim i As Integer
  Add = 0
  
  For i = LBound(Values) To UBound(Values)
    Add = Add + Values(i)
  Next i
End Function

' Immediate Window:
'
' === Add ===
' + should add two numbers
' + should add any number of numbers
' = PASS (2 of 2 passed) =

For details of the process of reaching this example, see the TDD Example

Advanced Example

For an advanced example of what is possible with vba-test, check out the tests for VBA-Web

Getting Started

Download the latest release (v2.0.0-beta.3)
Add src/TestSuite.cls, src/TestCase.cls, add src/ImmediateReporter.cls to your project
If you’re starting from scratch with Excel, you can use vba-test-blank.xlsm

If you’re updating from Excel-TDD v1, follow these upgrade details.

TestSuite

A test suite groups tests together, runs test hooks for actions that should be run before and after tests, and is responsible for passing test results to reporters.

' Create a new test suite
Dim Suite As New TestSuite
Suite.Description = "Module Name"

' Create a new test
Dim Test As TestCase
Set Test = Suite.Test("Test Name")
Test.IsEqual ' ...

' or create and use test using With
With Suite.Test("Test Name")
  .IsEqual '...
End With

TestSuite API

Description
Test(Name) As TestCase
Event BeforeEach(Test)
Event Result(Test)
Event AfterEach(Test)

TestCase

A test case uses assertions to test a specific part of your application.

With Suite.Test("specific part of your application")
  .IsEqual A, B, "(optional message, e.g. result should be 12)"
  .NotEqual B, C

  .IsOk C > B
  .NotOk B > C

  .IsUndefined ' Checks Nothing, Empty, Missing, or Null
  .NotUndefined

  .Includes Array(1, 2, 3), 2
  .NotIncludes Array(1, 2, 3), 4
  .IsApproximate 1.001, 1.002, 2
  .NotApproximate 1.001, 1.009, 3
  
  On Error Resume Next
  
  Err.Raise vbObjectError + 1, Description:="Uh oh."
  .IsError Description:="Uh oh."
  
  Err.Clear
  .NotError

  .Pass
  .Fail "e.g. should not have gotten here" 
  .Plan 4 ' Should only be 4 assertions, more or less fails
  .Skip ' skip this test
End With

With Suite.Test("complex things")
  .IsEqual _
    ThisWorkbook.Sheets("Hidden").Visible, _
    XlSheetVisibility.xlSheetVisible
  .IsEqual _
    ThisWorkbook.Sheets("Main").Cells(1, 1).Interior.Color, _
    RGB(255, 0, 0)
End With

In addition to these basic assertions, custom assertions can be made by passing the TestCase to an assertion function

Sub ToBeWithin(Test As TestCase, Value As Variant, Min As Variant, Max As Variant)
  Dim Message As String
  Message = "Expected " & Value & " to be within " & Min & " and " & Max

  Test.IsOk Value >= Min, Message
  Test.IsOk Value <= Max, Message
End Sub

With Suite.Test("...")
  ToBeWithin(.Self, Value, 0, 100)
End With

TestCase API

Test.Name
Test.Self — Reference to test case (useful inside of With)
Test.Context — Dictionary holding test context (useful for BeforeEach/AfterEach)
Test.IsEqual(A, B, [Message])
Test.NotEqual(A, B, [Message])
Test.IsOk(Value, [Message])
Test.NotOk(Value, [Message])
Test.IsUndefined(Value, [Message])
Test.NotUndefined(Value, [Message])
Test.Includes(Values, Value, [Message]) — Check if value is included in array or Collection
Test.NotIncludes(Values, Value, [Message])
Test.IsApproximate(A, B, SignificantFigures, [Message]) — Check if two values are close to each other (useful for Double values)
Test.NotApproximate(A, B, SignificantFigures, [Message])
Test.IsError([Number], [Source], [Description], [Message]) — Check if Err contains an error
Test.NotError([Message])
Test.Pass() — Explicitly pass the test
Test.Fail([Message]) — Explicitly fail the test
Test.Plan(Count) — For tests with loops and branches, it is important to catch if any assertions are skipped or extra
Test.Skip() — Notify suite to skip this test

ImmediateReporter

With your tests defined, the easiest way to display the test results is with ImmediateReporter. This outputs results to the Immediate Window (ctrl+g or View > Immediate Window) and is useful for running your tests without leaving the VBA editor.

Public Function Suite As TestSuite
  Set Suite = New TestSuite
  Suite.Description = "..."

  ' Create reporter and attach it to these specs
  Dim Reporter As New ImmediateReporter
  Reporter.ListenTo Suite

  ' -> Reporter will now output results as they are generated
End Function

Context / Lifecycle Hooks

TestSuite includes events for setup and teardown before tests and a Context object for passing values into tests that are properly torn down between tests.

' Class TestFixture
Private WithEvents pSuite As TestSuite

Public Sub ListenTo(Suite As TestSuite)
  Set pSuite = Suite
End Sub

Private Sub pSuite_BeforeEach(Test As TestCase)
  Test.Context.Add "fixture", New Collection
End Sub

Private Sub pSuite_AfterEach(Test As TestCase)
  ' Context is cleared automatically,
  ' but can manually cleanup here
End Sub

' Elsewhere

Dim Suite As New TestSuite

Dim Fixture As New TestFixture
Fixture.ListenTo Suite

With Suite.Test("...")
  .Context("fixture").Add "..."
End With

Источник

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

08.12.2013, 19:41. Показов 17107. Ответов 32

Приветствую уважаемые форумчане! У меня курсовая работа по VBA, которую нужно сдать на предстоящей неделе, в связи с чем вынужден просить помощи, так как сам мягко говоря — ничего в этом не смыслю. (теорию выучил неплохо, написание кодов парализовано напрочь).
Суть работы в создании теста. Почитав похожие темы, я не нашел подходящего мне варианта. Постараюсь описать приблизительный вид моего задания:

1. По кнопке вызывается титульная форма с приветствием (Небольшой рисунок, разные цвета, некоторый текст и кнопка «Начать тест»)
2. Нажимая кнопку «Начать тест» мы переходим к другой форме с 1-м вопросом, содержащей: Текст вопроса, N-е число вариантов ответа (допустим 3) и кнопки «Продолжить», «Выход» (просто закрытие формы). Читаем вопрос, выбираем вариант ответа и нажимаем продолжить. P.S. К каждому варианту ответа мы привязываем определенное кол-во баллов, сумма которых посчитается по окончанию тестирования
3. Допустим 10 вопросов, читаем вопрос, выбираем ответ, идем дальше
4. Ответив на последний вопрос, выскакивает форма с подсчитанными баллами и интерпретацией относительно количества баллов и кнопкой «Спасибо, завершить»

Иными словами нечто похожее на онлайн тестирование. Я понимаю что прошу слишком много, но помимо представления должного вида работы, я не смыслю как это дело осуществить. Если есть нечто похожее, прошу — дайте ссылочку на тему или помогите разобраться с этим делом. Буду благодарен за самую простейшую работу, для примера, которую потом переделаю под себя.

Заранее спасибо! Очень выручите

3217 / 966 / 223

Регистрация: 29.05.2010

Сообщений: 2,085

08.12.2013, 20:05

Уважаемый LaDav, для решения необходимы входные данные, ну так создайте, например в Excel, базу данных вопросов, возможных ответов, и определите бальность ответов. Но

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

(теорию выучил неплохо

начни с чего нибудь, тогда может и помогут.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

08.12.2013, 20:42

[ТС]

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

Уважаемый LaDav, для решения необходимы входные данные, ну так создайте, например в Excel, базу данных вопросов, возможных ответов, и определите бальность ответов. Но начни с чего нибудь, тогда может и помогут.

Сейчас, я создал 2 формы и на листе введу необходимые данные. Минут 15, я быстро.

Добавлено через 35 минут

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

В общем вот. Все данные для ввода на листе Excel. В VBA 4 формы. (Приветствие, переход к началу теста, форма результата выводящаяся после всех вопросов и прощальная, с благодарностью за прохождение).

В общем вариант ответа должен быть только 1, баллы в конце подсчитываться автоматически. Номер вопроса в форме выводится по мере ответа на вопросы (Вопрос № 1… Далее 1 меняется на 2 и т.д.)

Очень прошу вас, если что то сможете сделать — я буду безмерно благодарен. Или хотя бы помогите с заготовкой, а я допишу (вставлю) оставшиеся варианты. Для кода у меня идей 0.

3217 / 966 / 223

Регистрация: 29.05.2010

Сообщений: 2,085

08.12.2013, 21:38

Примерно так:

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

08.12.2013, 21:49

[ТС]

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

Примерно так:

Я даже не знаю как вас отблагодарить… Огромное спасибо. Я визуально подредактирую и это то, что мне в принципе нужно. Мои знания ограничились переходом между формами, за то по вашему примеру я почерпну для себя много нового. У меня крайне мало практики. Читать код в принципе могу и понимаю, что написано, а вот взять и самому настрочить — из головы вылетает, путаюсь и не могу собраться с мыслями. Еще раз спасибо!

Прошу модераторов тему пока не закрывать, могут появиться вопросы, лучше тут сразу и спрошу.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

12.12.2013, 00:45

[ТС]

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

Примерно так:

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

1. Можно ли сделать возврат на предыдущий вопрос? (добавив еще 1 кнопку по вторую форму)
2. Можно ли сделать запрет, на переход к следующему вопросу, если не был дан ответ на предыдущий? (В данный момент я могу перейти к след. вопросу нажав кнопку далее и не выбрав ни один из предложенных вариантов. Пропустив все вопросы, в конце вылазит label2. Хотелось бы как нибудь отредактировать этот пункт. Например не выбрав ни один из вар-ов, вылазит vbInformation с текстом «Выберите один из предложенных вар-ов»)

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

Заранее, большое спасибо!

3217 / 966 / 223

Регистрация: 29.05.2010

Сообщений: 2,085

12.12.2013, 17:27

А зачем возврат назад? Думал же человек когда отвечал. Думаю возврат не нужен, а вот ограничить переход можно.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

12.12.2013, 19:07

[ТС]

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

А зачем возврат назад? Думал же человек когда отвечал. Думаю возврат не нужен, а вот ограничить переход можно.

Еще раз огромное спасибо!

А если меня все же попросят подправить и сделать переход назад, то какой для этого потребуется код? Создаю 3-ю кнопку перед «Продолжить», так и назовем «Возврат» и что пропишем? Если конечно так можно, мне для себя было бы полезно!

Чрезмерно благодарен!

3217 / 966 / 223

Регистрация: 29.05.2010

Сообщений: 2,085

12.12.2013, 19:23

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

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

Думаю не попросят. Для решения необходимо много изменений, в т.ч. и хранение значений всех ответов, чтобы пересчитывать количество балов. Как вариант могу предложить создать кнопку «Начать сначала», хотя Завершить и Запустить тест тоже самое.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

12.12.2013, 20:18

[ТС]

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

Хорошо, еще раз спасибо! Надеюсь устроит такой вариант. Во всяком случае если попросят переделать, у меня будет больше времени и там уже постараюсь сам разобраться, воспользовавшись руководствами.

LaDav

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

12.12.2013, 23:13

[ТС]

Ребят, у меня еще такой вопрос (toiai ушел спать видимо, не могу у него спросить). Проблема в прочтении кода, мне нужно будет рассказать собственно как сделал работу, а я не все понимаю. Вы можете мне объяснить, что означают строки:

Visual Basic

1 2	Dim bal As Double Dim nVopros As Double

Dim — переменная, Double — двойная, с плавающей точкой, а вот bal и nVopros что такое? Баллы и номер Вопроса?

Visual Basic

1 2	KolBalov = KolBalov + bal nVopros = nVopros + 1

Не пойму что означают данные строки и для чего они прописаны

Visual Basic

1	Label2.Caption = Cells(nVopros + 3, 1)

Так же не пойму, что означает эта строка. Cells вроде указывает на диапазон, а что в скобках?

Visual Basic

Private Sub UserForm_Activate()
    For i = 32 To 38
        If KolBalov >= Cells(i, 1) And KolBalov <= Cells(i, 2) Then
            Label2.Caption = KolBalov & " баллов - " & Cells(i, 3)
            Exit For

Этот код так же вызывает затруднения. Пожалуйста, если кто может написать, что это значит, отпишитесь. Файлик с прописанными кодами прикрепил, на всякий случай.

Вложения

Тест — Ваш уровень общительности (Конечный результат).rar (125.5 Кб, 107 просмотров)

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

13.12.2013, 19:17

[ТС]

Вопрос выше не актуален, я разобрался, но появились новые нюансы. Прошу пока не закрывать тему. Очень нужна будет ваша помощь, скорее всего завтра.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

15.12.2013, 20:15

[ТС]

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

Здравствуйте! Я показал задание с которым вы мне помогли и преподавателю понравилось, но есть некоторые нюансы, в связи с чем вновь хотелось бы к вам обратиться (прошу прощения за назойливость). Меня попросили внести некоторые коррективы, которые я сам вряд ли смогу сделать. В общем меня попросили осуществить вот что:

1. Вопросы, количество баллов для них сделать на отдельном от кнопки листе и скрыть его (чтобы пользователь их не видел)
2. Сделать базу данных, в которой после ответа на вопросы будут выводиться Ф.И.О., кол-во набранных баллов и результат, прошедшего тестирование человека
3. Вопросы должны быть с разным кол-вом баллов, то есть в моем варианте было: «Да» — 2 балла, «Нет» — 0 баллов, «Иногда» — 1 балл, а просят, чтобы кол-во баллов было разным для каждого ответа, например 1 вопрос «Да» — 2 балла, а на 2-й вопрос, к ответу «Да» уже причисляется 1 или 0 баллов.
4. Так же попросили сделать форму, для коррекции вопросов администратором, то есть редактирование вопроса и добавление нового.

Если я вам опять сделаю шапку с формами и примерным представлением того, как все должно быть, сможете помочь с кодами? Я надеюсь это последние замечания преподавателя и уже будет зачет по этому предмету, а после я постараюсь на каникулах разобраться с этим языком (по болезни пропускал много пар и ужасно усвоил практику).

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

18.12.2013, 19:07

[ТС]

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

Примерно так:

Здравствуйте еще раз! Я накидал шапку к новым требованием для моего теста, нужна срочно ваша помощь, очень прошу помочь с кодом.

На 1-м листе я оставил только кнопку.
На 2-м листе все входные данные для теста, которые нужно добавить с новыми условиями (я все расписал) и потом его скрыть, чтобы пользователю был недоступен.
На 3-м листе небольшая база данных, куда должны выводиться информация о человеке, который проходит тест (Ф.И. пол, дата прохождения, кол-во баллов и результат).

Я создал 5-ю форму, которую нужно вставить между после 1-й и перед 2-й, она должна служить для ввода данных (фамилии, имени, пола и даты прохождения теста), затем далее и переходим к самим вопросам из листа 2. После завершения вопросов, выводится на 3-й форме результат, который должен быть внесен вместе с информацией из 5-й формы на 3-й лист в соответствующие поля.
Так же меня просили создать форму для редактирования администратором вопросов, внесению новых и т.д. Но я считаю, что для теста это делать глупо.

Пожалуйста, если у вас есть время сегодня/завтра, помогите мне с этим решить. Навалилось перед сессией работы, не успеваю и не соображаю в данном предмете, но за каникулы надеюсь освою.

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

19.12.2013, 11:17

[ТС]

Ребята, кто может помочь с кодом, просмотрите пожалуйста темку! Очень срочно. Возможна оплата за вашу работу.

Добавлено через 12 часов 52 минуты
Апаю тему. Ребят, пожалуйста, если никто не может сделать, хотя бы подскажите, как мне быть, с чего начать прописывать эти вопросы, примерное направление… Просто я не представляю с какой стороны вообще пытаться

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

19.12.2013, 17:40

LaDav, пришлось попотеть, но получилось у меня вроде неплохо.

Вариант, который выношу на ваше рассмотрение — в приложении.

С уважением,

Aksima

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

19.12.2013, 18:04

[ТС]

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

Времени совсем нет, занят, посмотри здесь Добавление данных через UserForm

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

LaDav, пришлось попотеть, но получилось у меня вроде неплохо.
Вариант, который выношу на ваше рассмотрение — в приложении.
С уважением,
Aksima

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

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

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

19.12.2013, 22:08

LaDav, спасибо, но платить не надо — сделал эту работу не ради денег, а потому, что мне понравился ваш психологический тест.

А вот ваше стремление посвятить часть каникул восполнению пробелов в познаниях VBA — это похвально! Желаю успехов в изучении языка, и может быть, вы даже расскажете нам что-нибудь интересное из того, что узнаете.

С уважением,

Aksima

2 / 2 / 0

Регистрация: 01.11.2013

Сообщений: 56

19.12.2013, 22:12

[ТС]

Еще раз огромное вам спасибо! Я безусловно буду стараться!

Источник