Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Предыдущие ветки топика: Часть 1, Часть 2
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях Excel
  • Описание Microsoft Excel File Format (eng.)
     
    Рекомендации:
    Если у Вас есть проблема, не решаемая стандартными средствами Excel (об этом можно уточнить здесь) или требующая автоматизации, попробуйте для начала записать макрос самим Excel через меню Сервис (Tools) - Макрос (Macro) - Начать запись (Record New Macro). Подробнее здесь. В большинстве случаев получившийся код (Сервис-Макрос-Макросы-Изменить) Вас не удовлетворит, но подскажет, какие объекты-методы-свойства использовать.  
    Другой Ваш помощник - Просмотр объектов (Object Browser). Ну и встроення помощь (F1), естественно.
     
    Если Вы в тупике, покажите Ваш код (или часть кода) здесь.  Если вылазит ошибка, цитируйте ее полностью. Если код слишком большой, используйте тeг [more].
    Используйте отладчик - Breakpoints (F9), Watches (Shift-F9), Steps (F8 и др.) Сильно облегчает поиск ошибок.

     
    Рекомендуется к прочтению:
  • Первые шаги с Excel VBA
  • Excel VBA: Приёмы программирования
  • WinApi. Лекция из курса "Основы офисного программирования и язык VBA" (для продвинутых)
  • Daily Dose of Excel (eng.) - тематический блог: советы по работе с Excel и прочие материалы
  • Excel Macros & Excel VBA Code Tips, Tricks (eng.) - советы, трюки и уловки
  • Mr. Excel (forum) (eng.) - весьма оживленный форум по Excel&VBA.
  • Приемы, хитрости, трюки и нюансы работы в Microsoft Excel - сайт "Планета Excel", целиком посвященный Excel и всему, что с ним связано.
  • Microsoft Excel: Таблицы и VBA. Справочник. Вопросы и Ответы. Советы. Примеры.  
     
    Родственные топики:
  • Вопросы по работе с MS Excel - Excel FAQ - часть 1, часть 2, часть 3
  • Технические проблемы с MS Office 2003 или Office XP.
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • Книжульки по VBA - книги по программированию с использованием VBA
     
    Конкретные вопросы:
    Форма-заставка
    Как запустить макрос при изменении положения курсора или значения ячейки
  • Пример 1
  • Пример 2
  • Пример 3 (проверка области)
  • Пример 4
  • Пример 5
    Зацикливание в функции Change или SelectionChange
     
    Ранжирование без пробелов (макрос включает функции сортировки массива и удаления дубликатов, работает и в Excel 2007)
  • под Office 97
     
    Добавление в главное меню своего пункта, ассоциированного с макросом
    Создание ярлыка на рабочем столе
    Снятие защиты листа при забытом пароле
    Смена раскладки клавиатуры
    Скролл формы колесом прокрутки мыши
    Оптимизация кода по быстродействию использованием массивов
    Найти "чужое" окно и нажать в нем кнопку (вписать текст в текстовое поле)
    Работа с UNICODE-символами в VBA: запись, чтение из ячейки, перевод в ASС и обратно
    Как программно подключить дополнительные библиотеки (например, "Microsoft Scripting Runtime" или "Microsoft ActiveX Data Objects 2.8 Library) через References
     
    Перечень основных ColorIndex'ов из MSDN
     

    Смежные темы:
    Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
    Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
    Программы » Word FAQ | Excel FAQ | Access FAQ
    Прикладное программирование » Word VBA | Access VBA  
    Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
    Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
    Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
    Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:16 11-01-2010 | Исправлено: ALeXkRU, 16:42 03-08-2021
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Futurism
    Пробуйте:

    Код:
     
    Sub TableToTXT()
        Dim rRg As Range
        Dim sDist As String
     
        For Each rRg In Worksheets(1).UsedRange
            If rRg.Row <> 1 And rRg.Column <> 1 And rRg.Value <> "" Then
                Select Case rRg.Value
                Case 0: sDist = "{length:5, color:#FF0000, weight:3}"
                Case 1: sDist = " {length:10, color:#FF0000}"
                Case 2: sDist = "{length:20, color:#FF9999}"
                Case 3 To 1000: sDist = "{length:" & rRg.Value * 10 & "}"
                End Select
     
                Open "D:\\file.txt" For Append As #1
                Print #1, Worksheets(1).Cells(rRg.Row, 1) & " -- " & Worksheets(1).Cells(1, rRg.Column) & " " & sDist
                Close #1
            End If
        Next
    End Sub
     
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 23:29 10-08-2014
    Futurism

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    как всегда снимаю шляпу.
     
    Добавлено:
    а можно его упорядочить-отсортировать, чтобы сначала шли пары переменных у которых лента 5, потом 10 и по возрастанию.

    Всего записей: 1200 | Зарегистр. 04-02-2011 | Отправлено: 23:36 10-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Futurism
    Можно и так:

    Код:
     
    Sub TableToTXT()
        Dim rRg As Range
        Dim sDist As String
        Dim aTXT(), lCl&, l&: l = 1
         
        With Worksheets(1)
            For Each rRg In .UsedRange
                If rRg.Row <> 1 And rRg.Column <> 1 And rRg.Value <> "" Then
                    Select Case rRg.Value
                    Case 0: sDist = "{length:5, color:#FF0000, weight:3}"
                    Case 1: sDist = " {length:10, color:#FF0000}"
                    Case 2: sDist = "{length:20, color:#FF9999}"
                    Case 3 To 1000: sDist = "{length:" & rRg.Value * 10 & "}"
                    End Select
     
                    ReDim Preserve aTXT(1 To 2, 1 To l)
                    aTXT(1, l) = rRg.Value
                    aTXT(2, l) = .Cells(rRg.Row, 1) & " -- " & .Cells(1, rRg.Column) & " " & sDist
                    l = l + 1
                End If
            Next
                     
            lCl = .Cells(1, Columns.Count).End(xlToLeft).Column: l = l - 1
            .Range(Cells(1, lCl + 1), Cells(l, lCl + 2)) = Application.Transpose(aTXT)
             
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Cells(1, lCl + 1), Order:=xlAscending
                With .Sort
                    .SetRange Range(Cells(1, lCl + 1), Cells(l, lCl + 2))
                    .Header = xlGuess
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
            ReDim aTXT(1 To 2, 1 To l)
            aTXT = Application.Transpose(.Range(Cells(1, lCl + 1), Cells(l, lCl + 2)))
            .Range(Cells(1, lCl + 1), Cells(l, lCl + 2)).ClearContents
            For l = 1 To UBound(aTXT, 2)
                Open "D:\\file.txt" For Append As #1
                Print #1, aTXT(2, l)
                Close #1
            Next l
        End With
    End Sub
     
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 13:38 11-08-2014
    Futurism

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    как всегда гениально.

    Всего записей: 1200 | Зарегистр. 04-02-2011 | Отправлено: 16:29 11-08-2014
    Leojse

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый вечер, уважаемые форумчане!
    Подскажите, пожалуйста, по такому вопросу.
    Есть макрос (Макрос1), который ищет некоторые значения в выделенном диапазоне. Потом результат выдает всегда в столбце А начиная с ячейки 3 (то есть результаты появляются с ячейки А3 и далее вниз по столбцу). Потом я эти результаты копирую уже на другой лист также по определенным столбцам. Подскажите, возможно ли написать такую процедуру типа: "Если Макрос1 обработал в Листе1 диапазон В:С, то результат, котрый получен в столбце А перенести на Лист2 в столбец В начиная с ячейки В3." По-моему, непонятно написал, но не могу написать проще.
    Заранее спасибо!

    Всего записей: 107 | Зарегистр. 05-11-2009 | Отправлено: 23:04 11-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Leojse
    т.е. если в ячейках А3:Аn Лист1 что то есть, перенести его в Лист2 ячейки В3:Вn, где n - последняя заполненная ячейка?
     

    Код:
     
    Sub CopyL1ToL2()
        Dim l&: l = Worksheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Row
        If l > 2 Then Worksheets("Лист2").Range("B3:B" & l) = Worksheets("Лист1").Range("A3:A" & l).Value
    End Sub
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 23:45 11-08-2014
    Leojse

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980, да, спасибо большое!

    Всего записей: 107 | Зарегистр. 05-11-2009 | Отправлено: 18:44 12-08-2014
    Futurism

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
     
    а можно код макроса подправить так, чтобы  брасывал не в txt а в соседний лист, как матрицу, где
    1. в столбец А записывать фразы до « -- »
    2. в столбец В записать « -- »
    3. в столбец С записывать фразы после « -- »
    4. в столбец D записать цифру попранного сходства без указания цвета как {length:цифра}
    где как и прежде ноль — это  {length:5}, 1 — это {length:10}, 2 — это {length:20} и тд

    Всего записей: 1200 | Зарегистр. 04-02-2011 | Отправлено: 16:49 15-08-2014
    gogaman



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто поможет как реализовать запуск файла с определеного листа
    К примеру есть 7 листов, работаю с 6 закрываю открываю 6 а надо чтоб всегда стартовало с 1 например

    Всего записей: 583 | Зарегистр. 22-06-2005 | Отправлено: 15:50 16-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    gogaman
    В модуль "ЭтаКнига"
     

    Код:
     
    Private Sub Workbook_Open()
    ThisWorkbook.Worksheets(1).Activate
    End Sub
     

     
    Добавлено:
    Futurism
    Пробуйте:

    Код:
     
    Sub DoTable()
        Dim rRg As Range
        Dim sDist As String
        Dim aTXT(), lCl&, l&: l = 1
     
        With Worksheets(1)
            For Each rRg In .UsedRange
                If rRg.Row <> 1 And rRg.Column <> 1 And rRg.Value <> "" Then
                    Select Case rRg.Value
                    Case 0: sDist = 5
                    Case 1: sDist = 10
                    Case 2: sDist = 20
                    Case 3 To 1000: sDist = rRg.Value * 10
                    End Select
     
                    ReDim Preserve aTXT(1 To 4, 1 To l)
                    aTXT(1, l) = .Cells(rRg.Row, 1)
                    aTXT(2, l) = " -- "
                    aTXT(3, l) = .Cells(1, rRg.Column)
                    aTXT(4, l) = sDist
                    l = l + 1
                End If
            Next
        End With
     
     
        If ThisWorkbook.Worksheets.Count < 2 Then
            ThisWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
        End If
     
        With Worksheets(2)
            lCl = .Cells(1, Columns.Count).End(xlToLeft).Column: l = l - 1
            .Range(Cells(1, lCl), Cells(l, lCl + 3)) = Application.Transpose(aTXT)
     
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Cells(1, lCl + 3), Order:=xlAscending
            With .Sort
                .SetRange Range(Cells(1, lCl + 1), Cells(l, lCl + 3))
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End With
    End Sub
     
     
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 18:30 17-08-2014
    Futurism

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    добро
     
    А такой вопрос.  
    http://rghost.ru/57521593
    Можно написать макрос, который данные в листе вход автоматически преобразует в такой вид, как на листе выход
    Например в листе выход в столбец А идет фраза
    ремонт компьютеров идет она с А1 по А40 , а в столбце B с какими фразами это фраза встречается. Как видите с 40 фразами
    следующая фраза ремонт ноутбуков А41-А80 и те фразы с котором она встретилась.  
    столбец С это порядковый номер . У нас же с А1-А40 , вот 40 раз и встретилась.
    Этот документ вручную делался. хотелось бы, чтоб лист выход в таком виде автоматически создавался.

    Всего записей: 1200 | Зарегистр. 04-02-2011 | Отправлено: 22:02 17-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Futurism
    Пробуйте:

    Код:
     
    Sub DoTable()
        Dim lRw&, lCl&, l&: l = 1
     
        With Worksheets("Вход")
            For lCl = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column Step 3
                For lRw = 2 To .Cells(Rows.Count, lCl).End(xlUp).Row
                    Worksheets("Выход").Cells(l, 1) = .Cells(1, lCl).Value
                    Worksheets("Выход").Cells(l, 2) = .Cells(lRw, lCl).Value
                    Worksheets("Выход").Cells(l, 3) = lRw - 1
                    l = l + 1
                Next lRw
            Next lCl
        End With
    End Sub
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 23:08 17-08-2014 | Исправлено: andrewkard1980, 23:09 17-08-2014
    Futurism

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ага, все с работало, как всегда. Дело мастера боится

    Всего записей: 1200 | Зарегистр. 04-02-2011 | Отправлено: 09:54 18-08-2014
    DLysenko



    Newbie
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    всем привет.
    Нужна помощь...
    Исходно есть лист1, лист2 и т.д.
    На нем есть данные с примечаниями.
    Нужно через функцию копировать содержимое ячеек вместе в примечаниями между листами.
    Примеры находил, но они просто переносят содержимое примечания в содержимое ячейки..
    Заранее благодарен.

    Всего записей: 21 | Зарегистр. 19-03-2006 | Отправлено: 13:44 18-08-2014
    Fsp050

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    И мне можете помочь
    вот в этом файле
    http://rusfolder.com/41488235
     
    надо найти соотношения где в ячейки Pearson Chi-square значение p<0,1
     
    например, как на этой картинке

    тут p=,007 (h80)
    вот эти данные с 68-81 ячейки надо оставить, они ценные.
     
    а вот пример ячейка 45-57 там  
    Pearson Chi-square имеет значение p=,24

     поэтому эти ячейки надо удалить
    т.е. по сути надо найти по документу Pearson Chi-square его значение p=,
    если оно больше 0,1 удалить табличку, а если меньше оставить. в зависимости от ширины и длины таблички, оно то столбце H, то в столбце F
    M-L Chi-square не трогаем)
    Можете помочь решить эту задачу.
    таблица начинается с фразы 2-Way Summary Table: Observed Frequencies
    заканчивается  в строчке, где данные по M-L Chi-square

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 15:02 18-08-2014 | Исправлено: Fsp050, 15:02 18-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    DLysenko
    Вот пример, правда работает только с одной ячейкой

    Код:
     
    Function CopyAll(r As Range)
    CopyAll = r.Value
    If Not r.Comment Is Nothing Then
        ActiveCell.AddComment
        ActiveCell.Comment.Text (r.Comment.Text)
    End If
    End Function
     

     
    Возможно в Вашем случае лучше через макрос либо банальное Ctrl+C, Ctrl+V  
     
    Добавлено:
    Fsp050
    Таблички у Вас не совсем одинаковые, по этому кое - что придется подправить руками:
     

    Код:
     
    Sub DelTable()
        Dim lRw&, lFstRw&, lLstRw&, x&, y&
        Dim sStr$, sPCS$
        For lRw = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
            sStr = Cells(lRw, 1).Value
            If sStr = "Pearson Chi-square" Then
                sPCS = "0." & Mid(Cells(lRw, Cells(lRw, Columns.Count).End(xlToLeft).Column).Value, 4)
                If Val(sPCS) > 0.1 Then
                    lLstRw = lRw + 1
                    lFstRw = 0
                    For x = 1 To 8
                        For y = lRw To (lRw - 20) Step -1
                            If y < 2 Then Exit For
                            If InStr(1, Cells(y, x).Value, "2-Way Summary Table") > 0 Then lFstRw = y
                        Next y
                    Next x
                    If lFstRw > 0 Then Rows(lFstRw & ":" & lLstRw).Interior.ColorIndex = 3
                    'If lFstRw > 0 Then Rows(lFstRw & ":" & lLstRw).Delete
                End If
            End If
        Next lRw
    End Sub
     
     
     

     
    Когда первый раз прогоните и все подойдет, раскомментируйте строку:
    'If lFstRw > 0 Then Rows(lFstRw & ":" & lLstRw).Delete

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 18:05 18-08-2014
    Fsp050

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Когда первый раз прогоните и все подойдет, раскомментируйте строку:  
    'If lFstRw > 0 Then Rows(lFstRw & ":" & lLstRw).Delete  
     

     
    а как это сделать. пока я проверил, все ок
    только вот  с А1-13 строчки, там p=,20, а красным цветом он не выделил.  
    Вы правы, тут все смещено, т.к. была конверсия с rtf  2 xls
    вот исходный файл
    http://rusfolder.com/41496965
    это конечно немного не эксель, а ворд, но тут все более структурировано, таблицы не скачут. Ваш макрос подойдет для такого файла или его переделать надо будет под него.

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 13:19 19-08-2014
    Leojse

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый вечер!
    Подскажите, пожалуйста, можно ли реализовать следующее: в столбцах есть данные, между которыми есть пустые ячейки (Лист "Изначальные данные"). Затем я перекопирую эти же данные, но с пропуском пустых ячеек в этот же Лист "Изначальные данные" (то есть, получаю то, на Листе "Итог"). Можно ли перекопировать данные, игнорируя пустые ячейки в листе "Изначальные данные"? То есть хочется, чтобы данные в Изначальном листе после обработки макросом, шли сплошняком, без разрыва в виде пустых ячеек.
    http://rghost.ru/57556561
     
     
    Добавлено:
    Fsp050
    раскоментировать - значит убрать апостров перед строчкой кода.

    Всего записей: 107 | Зарегистр. 05-11-2009 | Отправлено: 19:18 19-08-2014 | Исправлено: Leojse, 19:18 19-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Fsp050
    Хоть это и Word, но табличек как таковых в нем нет, это объекты Statistica, которые у меня отображаются как рисунки.
     
    Добавлено:
    Leojse
    Да, можно, если правильно понял:

    Код:
     
    Sub DelBlankCells()
        Dim l&
        Application.ScreenUpdating = False
        With Worksheets("Изначальные данные")
            For l = Application.Max(.Cells(Rows.Count, "A").End(xlUp).Row, _
                                              .Cells(Rows.Count, "B").End(xlUp).Row) To 2 Step -1
                If .Cells(l, 1).Value = "" Then .Cells(l, 1).Delete Shift:=xlUp
                If .Cells(l, 2).Value = "" Then .Cells(l, 2).Delete Shift:=xlUp
            Next l
        End With
        Application.ScreenUpdating = True
    End Sub
     

    Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 23:46 19-08-2014 | Исправлено: andrewkard1980, 10:51 20-08-2014
    Fsp050

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    да, Вы правы, почему импорт со статистики дурацкий
    придется делать такую схему
    сначала в rtf потом в эксель, а потом макрос.
    Но тогда такая просьба, можно сделать, чтобы все красные уходили на другой лист
    а те что нормальные подвигались друг к другу.

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 11:18 20-08-2014
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 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 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru