Вывод на форму годов и кварталов

@tarik ukraine · Регистрация: 26.12.2011

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

Добрый вечер)
Вопрос таков:
вводятся период: например, 1996 год 3 квартал по 2010 год 1 квартал
мне для каждого квартала надо вывести ячейку для ввода значения ...я так понимаю сначала надо полные года посчитать, где количество кварталов будет 4..но потом?
подскажите пожалуйста

@tarik ukraine · 10.12.2012, 05:12 **[ТС]**

Сообщение от Скрипт

да, всё правильно.

вроде все правильно, но не хочет работать

вот код и результаты в картинках

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
68
69
70
71
72
73
74
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
 
If TextBox1.Value > TextBox2.Value Then GoTo theend
If TextBox1.Value = "" Or TextBox2.Value = "" Or ComboBox1.Value = "" Or ComboBox2.Value = "" Then GoTo theend
'If ComboBox1.Value <> "I" And ComboBox1.Value <> "II" And ComboBox1.Value <> "II" And ComboBox1.Value <> "IV" Then GoTo theend
'If ComboBox2.Value <> "I" And ComboBox2.Value <> "II" And ComboBox2.Value <> "II" And ComboBox2.Value <> "IV" Then GoTo theend
starty = TextBox1.Value
finishy = TextBox2.Value
startq = ComboBox1.Value
finishq = ComboBox2.Value
For i = starty To finishy
 Set alala = UserForm4.Frame1.Controls.Add("Forms.TextBox.1")
        alala.Width = 50
        alala.Height = 22
        alala.Left = 20
        alala.Top = 60
        alala.Text = i
        alala.FontSize = 14
        alala.Locked = True
        alala.Enabled = False
    If i = starty And starty = finishy Then
          For j = startq To finishq
   Set alala = UserForm4.Frame1.Controls.Add("Forms.TextBox.1")
        alala.Width = 50
        alala.Height = 22
        alala.Left = 80
        alala.Top = 80
        alala.Text = j
        alala.FontSize = 14
        alala.Locked = True
        alala.Enabled = False
       
        Next j
    ElseIf i = starty Then
         For j = startq To 4
           ' MsgBox i & " - " & j
    Set alala = UserForm4.Frame1.Controls.Add("Forms.TextBox.1")
        alala.Width = 50
        alala.Height = 22
        alala.Left = 80
        alala.Top = 100
        alala.Text = j
        alala.FontSize = 14
        alala.Locked = True
        alala.Enabled = False
        Next j
    ElseIf i = finishy Then
       For j = 1 To finishq
    Set alala = UserForm4.Frame1.Controls.Add("Forms.TextBox.1")
        alala.Width = 50
        alala.Height = 22
        alala.Left = 80
        alala.Top = 120
        alala.Text = j
        alala.FontSize = 14
        alala.Locked = True
        alala.Enabled = False
        Next j
    Else
        For j = 1 To 4
   Set alala = UserForm4.Frame1.Controls.Add("Forms.TextBox.1")
        alala.Width = 50
        alala.Height = 22
        alala.Left = 80
        alala.Top = 22 + 20 * (j - 1)
        alala.Text = j
        alala.FontSize = 14
        alala.Locked = True
        alala.Enabled = False
        Next j
    End If
Next i

@Апострофф · 10.12.2012, 07:52

tarik ukraine, выложи весь проект в архиве, желательно в формате ZIP.

Не по теме:

Как-то лень всё это мастерить, да и возможность есть своих ошибок добавить, а ваших не повторить:scratch:

Скрипт · 10.12.2012, 08:39

tarik ukraine, для последнего года Left и Top вы неправильно задаёте. Нужно задавать положение для последнего года с учётом того, что уже на форму могут быть добавлены TextBoxы, а вы добавляете так, как будто это первые TextBoxы.

@Апострофф · 10.12.2012, 08:42

Сообщение от Скрипт

Для каждого нового TextBoxа нужно указывать разные Top и Left.

Обычно достаточно разных Top ИЛИ Left

Скрипт · 10.12.2012, 08:45

tarik ukraine, да, обратите внимание на Top для TextBoxов. Вы неправильно рассчитываете Top:

не учитываете TextBoxы предыдущих годов;
для последнего года вообще не учитываете, что на форме могут уже быть TextBoxы.

@tarik ukraine · 10.12.2012, 12:12 **[ТС]**

я понял) просто что-то перепутал и подумал, что каждый сет выводит все текстбоксы по-своему) спасибо. попробую изменить)

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@tarik ukraine 3 / 3 / 1 Регистрация: 26.12.2011 Сообщений: 63

	Вывод на форму годов и кварталов 09.12.2012, 17:54. Показов 2722. Ответов 25 Метки нет (Все метки) Добрый вечер) Вопрос таков: вводятся период: например, 1996 год 3 квартал по 2010 год 1 квартал мне для каждого квартала надо вывести ячейку для ввода значения ...я так понимаю сначала надо полные года посчитать, где количество кварталов будет 4..но потом? подскажите пожалуйста 0

@Апострофф 9912 / 3933 / 743 Регистрация: 11.10.2011 Сообщений: 5,916
	10.12.2012, 07:52
	tarik ukraine, выложи весь проект в архиве, желательно в формате ZIP. Не по теме: Как-то лень всё это мастерить, да и возможность есть своих ошибок добавить, а ваших не повторить:scratch: 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	10.12.2012, 08:39
	tarik ukraine, для последнего года Left и Top вы неправильно задаёте. Нужно задавать положение для последнего года с учётом того, что уже на форму могут быть добавлены TextBoxы, а вы добавляете так, как будто это первые TextBoxы. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	10.12.2012, 08:45
	tarik ukraine, да, обратите внимание на Top для TextBoxов. Вы неправильно рассчитываете Top: не учитываете TextBoxы предыдущих годов; для последнего года вообще не учитываете, что на форме могут уже быть TextBoxы. 0

@tarik ukraine 3 / 3 / 1 Регистрация: 26.12.2011 Сообщений: 63
	10.12.2012, 12:12 [ТС]
	я понял) просто что-то перепутал и подумал, что каждый сет выводит все текстбоксы по-своему) спасибо. попробую изменить) 0