copy of columns

@francois · Регистрация: 13.11.2010

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

задача , скопировать содержание с2:с21 из трех листов , в один лист "results.xlsm" C3:c22,D3:d22,e3:e22 соответственно ,вот код что смог то смог , тока не работает

как исправит кто нибуд знает , спасибо !!!

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Sub exam3()
Dim book As Workbook
Dim ans As Integer
Dim tt As String
Dim jj As Integer
Dim j1 As Range
Dim jjj, jjj1, jjj2, jjj3 As Integer
Dim j11, j2, j3, j4   As Range
Dim mean As Long
'Dim x(1 To 20) As Integer
 
 jj = InputBox("vyberite list iz kotorogo nujno skopirovat C2:C21 v list " results" sootvetsvenno D2:D21 :")
    
        ff (jj)     
   
   Workbooks("results.xlsm").Worksheets(1).Activate
       Set j1 = Range("c3:c22")
       Set j2 = Range("d3:d22")
       Set j3 = Range("e3:e22")       
       
     For j = 1 To 20
        j1.Cells(j, 1) = ff(x(j))
       Next
        For j = 1 To 20
        j2.Cells(j, 1) = ff(x(j))
       Next
     For j = 1 To 20
        j3.Cells(j, 1) = ff(x(j))
       Next
    
    Set j4 = Range("f3:f20")
    
    For jjj = 1 To 20
            For jjj1 = 1 To 20
                For jjj2 = 1 To 20
                    For ttt = 1 To 20
                    
                    j4.Cells(ttt, 7) = j1.Cells(jjj, 3).Value + j2.Cells(jjj1, 4).Value + j3.Cells(jjj2, 5).Value
                    
                    
        Next ttt
        Next jjj2
        Next jjj1
        Next jjj
        
                
End Sub
 
Function ff(s As Integer, Optional df As String)
 
    Dim x(1 To 20) As Integer
    Dim h As Range, h1 As Range, h2 As Range, h3 As Range
    Dim f1 As Sheets, d1 As String
    Dim i, j, k, l, fd As Integer
    Dim f2 As Workbooks
    Dim workbookname As String
    
    
        
        
                If s = 1 Then
                Workbooks("E1.xls").Worksheets(1).Activate
                Set h = Range("c2:c21")
                For i = 1 To 20
                x(i) = p.Cells(i, 1).Value
                Next i
       ' ActiveWorkbook.SaveAs Filename:="c\C:\Documents and Settings\User\\t.zip\macros1.xslm", FileFormat:=xlNormal
        'f2 = Active.Workbook("results.xlsm")
        'Active.Sheets (1)
        
        'For Each h1 In p.Cells
         '   h2.Cells(j, 1) = p.Cells(i, 1)
          '  h2.Cells(j, 1) = x
           ' Next h1
                  
        'Application.Workbooks ("results.xlsm")
        
                ElseIf s = 2 Then
                    Workbooks("E2.xls").Worksheets(1).Activate
                    Set h3 = Range("f3:f22")
                    Set h = Range("c2:c21")
                        For i = 1 To 20
                            x(i) = p.Cells(i, 1).Value
                            For l = 1 To 20
                            h3.Cells(l, 1).Value = h.Cells(i, 1).Value
                         Next l
                         Next i
                        'Workbooks("results.xlsm").Worksheets(1).Activate
                        Set h2 = Range("c3:c22")
                        'x = p.Cells(i, 1).Value
                        For k = 1 To 20
                        h2.Cells(k, 1).Value = h.Cells().Value
                         Next k
                    
                            
                ElseIf s = 3 Then
                Workbooks("E3.xls").Worksheets(1).Activate
                    Set h = Range("c2:c21")
                        For i = 1 To 20
                        x(i) = p.Cells(i, 1).Value
                        Next i
             End If
             
             ff (x(i))
End Function

@Alex77755 · 13.11.2010, 08:05

в конце функции стоит ff (x(i)). Это зачем ты снова вызываешь функцию? Типа рекурсию хочешь организовать? ff = (x(i))

@serg207 · 13.11.2010, 08:10

эээ.. а так не пойдет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub aaa()
  
  For i = 1 To 3
    Worksheets(i).Range("c2:c21").Copy
    Worksheets("results.xlsm").Select
    Range("C3").Cells(1, i).Select
    ActiveSheet.Paste
  Next i
 
End Sub

@francois · 14.11.2010, 02:37 **[ТС]**

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

в конце функции стоит ff (x(i)). Это зачем ты снова вызываешь функцию? Типа рекурсию хочешь организовать? ff = (x(i))

дело в том , что я хотел вызвать мои значение х(i) через function , токо я незнаю как их передать или по другому сказать вытащить наружу сорри если я не ясно выразился

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

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

эээ.. а так не пойдет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub aaa()
  
  For i = 1 To 3
    Worksheets(i).Range("c2:c21").Copy
    Worksheets("results.xlsm").Select
    Range("C3").Cells(1, i).Select
    ActiveSheet.Paste
  Next i
 
End Sub

можно

a kak ty listy vyberat' budew !? ty prosto skopiroval znachenie na znachenie , esli mne nado tolko iz E1 skopirovat !? ili v range("c3") v range("D3") i range("e3") . No ya uznal pro "copy" do etogo ne znal

@Alex77755 · 14.11.2010, 04:41

francois,
А не можешь пояснить, что ты пытался сделать циклом

Visual Basic
1
2
3
4
5
6
    For jjj = 1 To 20
            For jjj1 = 1 To 20
                For jjj2 = 1 To 20
                    For ttt = 1 To 20
                    
                    j4.Cells(ttt, 7) = ......

Зачем 8000 раз перезаписывать ячейки с первой по двадцатой строки 7 столбца?
Всё это равносильно:

Visual Basic
1
2
3
For ttt = 1 To 20
      j4.Cells(ttt, 7) = j1.Cells(20, 3).Value + j2.Cells(20, 4).Value + j3.Cells(20, 5).Value
Next ttt

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

дело в том , что я хотел вызвать мои значение х(i) через function , токо я незнаю как их передать или по другому сказать вытащить наружу

Вызов функции

@francois · 21.11.2010, 20:53 **[ТС]**

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

francois,
А не можешь пояснить, что ты пытался сделать циклом

Visual Basic
1
2
3
4
5
6
    For jjj = 1 To 20
            For jjj1 = 1 To 20
                For jjj2 = 1 To 20
                    For ttt = 1 To 20
                    
                    j4.Cells(ttt, 7) = ......

Зачем 8000 раз перезаписывать ячейки с первой по двадцатой строки 7 столбца?
Всё это равносильно:

Visual Basic
1
2
3
For ttt = 1 To 20
      j4.Cells(ttt, 7) = j1.Cells(20, 3).Value + j2.Cells(20, 4).Value + j3.Cells(20, 5).Value
Next ttt

Добавлено через 7 минут
Вызов функции

thank's you !!! very much

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.11.2010, 08:05
	в конце функции стоит ff (x(i)). Это зачем ты снова вызываешь функцию? Типа рекурсию хочешь организовать? ff = (x(i)) 0