( ! ) Warning: Parameter 1 to CASDmoderator::onBeforeTopicUpdate() expected to be a reference, value given in /home/bitrix/www/bitrix/modules/main/classes/general/module.php on line 480
Call Stack
#TimeMemoryFunctionLocation
10.0001365232{main}( ).../index.php:0
20.07472901168CMain->IncludeComponent( ).../index.php:9
30.07492901912CBitrixComponent->includeComponent( ).../main.php:1071
40.07522907360CBitrixComponent->__includeComponent( ).../component.php:680
50.07522908096include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.09383510792CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.09433511856CBitrixComponent->showComponentTemplate( ).../component.php:712
80.09433511856CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.10173841400CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.10173841720include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.10173844336CMain->IncludeComponent( ).../read.php:3
120.10223856784CBitrixComponent->includeComponent( ).../main.php:1071
130.10263872904ForumTopicRead->executeComponent( ).../component.php:656
140.13394097904ForumTopicRead->__includeComponent( ).../class.php:70
150.13404100720include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.14404281432ForumSetReadTopic( ).../component.php:309
170.14404281432CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.14404281808CAllForumTopic::Update( ).../topic.php:738
190.14414283224Bitrix\Forum\Topic::update( ).../topic.php:255
200.14424285264ExecuteModuleEventEx( ).../topic.php:643
Страницы: Пред. 1 2
RSS
VBA. Перенос значений в столбце из первого листа по одной ячейке на новые листы.
 
Цитата
чтобы вставлялось в уже существующие листы?
Код
Sub Raznesti()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow
    With Worksheets(CStr(Cells(i, 1)))
       .Range("A1") = Cells(i, "B")
    End With
  Next
End Sub
 
Код
Sub Slect_range()

    lastColumn = Sheets(1).Cells(1, 100).End(xlToLeft).Column
    lastRow = Sheets(1).Cells(1000, 1).End(xlUp).Row
    Call Add_sheets(lastColumn, lastRow)

End Sub

Sub Add_sheets(col, rows)
    
        For mRow = 1 To rows
            cell_value = Sheets("Лист1").Cells(mRow, col).Value
            sheet_name = Str(mRow) & "_" & cell_value
            On Error Resume Next
                cheker = Sheets(sheet_name).Name
                If cheker = sheet_name Then
                    Sheets(sheet_name).Cells(1, 1).Value = cell_value
                    GoTo next_row
                Else
                    Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheet_name
                    Sheets(sheet_name).Cells(1, 1).Value = cell_value
                End If
next_row:
        Next mRow
    
End Sub
 


Если лист с  именем "Номер_Название" есть, то в "А1"  добавляется содержимое с Листа1.
Если листа с именем "Номер_Название" нет, то создается такой лист и в "А1" добавляется содержимое с Листа1.
Изменено: PDO - 17.07.2020 13:09:36
Страницы: Пред. 1 2
Читают тему (гостей: 1)
Наверх