0 / 0 / 0
Регистрация: 29.11.2014
Сообщений: 23
1

Вывод результатов программы на лист Excel

20.12.2014, 16:18. Показов 3164. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Программа ставит диагноз пациенту.. нужно чтобы результаты выводились на 2 лист в столбик "Диагноз" по нажатию кнопки "Вывести диагноз на лист".
Вложения
Тип файла: xls VBA.xls (64.5 Кб, 16 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2014, 16:18
Ответы с готовыми решениями:

Вывод результатов запроса SQL в excel: На лист выводится каждая 256 запись
Есть файл excel, в макросе вызывается запрос SQL. Строки сами по себе большие, количество почти...

Вывод формул на лист Excel
Здравствуйте! Хорошего всем настроения! Вот пишу, а слёзы душат и капают... Второй день не могу...

Вывод массива на лист Excel
Всем добрый день, Помогите пожалуйста разобраться: Вывожу одномерный массив на лист Excel (1...

Вывод информации на лист Excel
Доброго времени суток! Столкнулся с проблемой вывода информации на лист Excel при подключении с...

1
0 / 0 / 0
Регистрация: 29.11.2014
Сообщений: 23
21.12.2014, 10:09  [ТС] 2
С помощью чего это можно сделать... переписывать код или есть какая то определенная функция?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
    Dim NORM As Range, R, T
    Set NORM = Range("ÍÎÐÌÀ")
    For R = 1 To 7
        Debug.Print Controls("TextBox" & R).Text
        T = CDbl(Replace(Controls("TextBox" & R).Text, ".", ","))
 
        If T < NORM(R, 2) Or T > NORM(R, 3) Then
            If Val(TextBox2.Text) < 8 Then
                st = "Ëåãêàÿ ñòåïåíü òÿæåñòè."
            ElseIf Val(TextBox2.Text) > 14 Then
                st = "Òÿæåëûé ñëó÷àé."
            Else
                st = "Ñðåäíÿÿ ñòåïåíü òÿæåñòè."
                End If
            End If
        If T < NORM(R, 2) Or T > NORM(R, 3) Then
            If Val(TextBox5.Text) <= 3 Then
            st = st & " " & "1 òèï"
            ElseIf Val(TextBox5.Text) > 3 Then
            st = st & " " & "2 òèï"
        End If
            MsgBox "Ïàöèåíò áîëåí. Ñàõàðíûé äèàáåò!" & vbLf & st, 64, NORM(R, 1)
            Exit Sub
        End If
    Next R
    MsgBox "Ïàöèåíò çäîðîâ!", 64, ""
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets(2).Range("A2", Worksheets(2).Cells(Rows.Count, "A").End(xlUp)).Value
End Sub
Private Sub ComboBox1_Change()
With Ëèñò2
TextBox1 = .Cells(ComboBox1.ListIndex + 2, 2)
TextBox2 = .Cells(ComboBox1.ListIndex + 2, 3)
TextBox3 = .Cells(ComboBox1.ListIndex + 2, 4)
TextBox4 = .Cells(ComboBox1.ListIndex + 2, 5)
TextBox5 = .Cells(ComboBox1.ListIndex + 2, 6)
TextBox6 = .Cells(ComboBox1.ListIndex + 2, 7)
TextBox7 = .Cells(ComboBox1.ListIndex + 2, 8)
End With
End Sub
Private Sub CommandButton1_Click()
For Each Control In Me.Controls
    On Error Resume Next
        Control.Value = ""
    On Error GoTo 0
Next
End Sub
'
'Ïðîöåäóðà çàêðûòèÿ äèàëîãîâîãî îêíà
'
Private Sub CommandButton3_Click()
    UserForm2.Hide
End Sub
 Private Sub CommandButton4_Click() 'Êíîïêà ÄÈÀÃÍÎÇ
        If ComboBox1.Text = "" Then
              MsgBox "Ïàöèåíò íå âûáðàí", vbCritical, "Îøèáêà"
        Else
              MsgBox "Ïðîèçâîäèì îáðàáîòêó äàííûõ ïàöèåíòà " & _
                 ComboBox1.Text, vbExclamation, "Ïðèìåð"
        End If
        End Sub
  
Private Sub UserForm2_Initialize()
ComboBox1.RowSource = Ëèñò2.Range("a1").CurrentRegion.Columns(1).Address
End Sub
0
21.12.2014, 10:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2014, 10:09
Помогаю со студенческими работами здесь

Вывод массива на лист excel
Всем добрый вечер. Собственно, проблема вот в чем, пользователь вводит количество столбцов и строк...

Вывод результатов из Access в Excel таблицу.
Привет всем! У меня такой вопрос: Я обращаюсь к БД и результат вывожу в виде таблицы на экран, а...

Вывод результатов программы С++ в Qt
Доброго времени суток! Подскажите, пожалуйста, новичку в изучении С++ и Qt, как вывести...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru