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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Fsp050
     
    Попробуйте, чуть наоборот получилось на счет:
     

    Цитата:
    чтобы все красные уходили на другой лист  
    а те что нормальные подвигались друг к другу

     
    , но сути вроде не меняет:
     

    Код:
     
    Sub DelTable()
        Dim lRw&, lFstRw&, lLstRw&, x&, y&, l As Variant
        Dim sStr$, sPCS$
         
        For lRw = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            l = Application.Match("*" & "Summary Table" & "*", Range(Cells(lRw, 1), Cells(lRw, 10)), 0)
            If Not IsError(l) Then
                If l > 1 Then Range(Cells(lRw, 1), Cells(lRw, l - 1)).Delete shift:=xlToLeft
            End If
        Next lRw
         
        If ThisWorkbook.Worksheets.Count < 2 Then
            ThisWorkbook.Worksheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
            ThisWorkbook.Worksheets(1).Activate
        End If
         
        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: y = lRw
                    Do Until InStr(1, Cells(y, 1).Value, "2-Way Summary Table") > 0
                        y = y - 1
                        lFstRw = y
                    Loop
                    Rows(lFstRw & ":" & lLstRw).Copy Destination:=Worksheets(2).Range("A" & Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 3)
                    Rows(lFstRw & ":" & lLstRw).Delete
                End If
            End If
        Next lRw
    End Sub
     

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

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    очередной раз спасли.

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

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А можете помочь ещё в решении такой задачи. А именно подбор оптимальных моделей регрессии. Постараюсь задачу объяснить максимально просто
    Множественный регрессионный анализ нужен  для предсказания значения зависимой переменной через независимые.
    Например переменную Y надо предсказать через значение переменных x1,x2,x3
    при этом важный показатель это коэф. множ детерминации или R-квадрат.
    пример на рисунке.

    тут я пытаюсь предсказать значение переменной "дистанцирование" она зависимая через 5 независимых, они справа.
    после анализа получаем такой результат

    но это откровенная лажа.
    т.к. тут R квадрат равен 0,036 хуже некуда и уровень значимости p=0,88
    это значит что нельзя предсказать зависимую переменную через эти 5.
    другой вариант красивый

    здесь у нас такая зависмая переменная и мы её пытаемся предсказать через 6 независимых
    вот такой результат

    тут R-квадрат равен 0,77 и уровень значимости 0,00
    значит зная значения независимых переменных, мы можем предсказать значение зависимой с точностью до 77%.
    Но чтобы этого добиться необходимо постоянно перебирать модели.
    например пытаясь предсказать Y через x1,x2,x3 у нас плохой R-квадрат.
    но если мы изменим независимые переменные на x3,x4,x7,x10 будет хороший r-квадрат
    Можно ли в экселе сделать так, чтобы  макрос сам находил оптимальный r-квадрат на моих выборках.  
    например, вот данные со старого исследования
    http://rghost.ru/57608064
    можно ли перебирать модели пока не будут выбраны оптимальные сочетания зависимых и независимых переменных. на R-квадрат можно смотреть, если он равен хотя бы 0,50
    на этом сайте дается решение онлаин одной задачи, т.е просто проведется анализ онлайн
    http://math.semestr.ru/regress/excel.php
    и то по-левому, там можно выкачать р-ты в экселе. но они имеют странный вид
    но формула высчита r-квадрата есть
    В идеале конечно, чтобы эксель сам переберил соотношение зависимых и независимых переменных и выдавал списки тех моделей, где R-квадрат =0,5

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

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

    Цитата:
     
    для предсказания значения зависимой переменной через независимые
     

    а есть список зависимых и список независимых под них. С функцией ЛИНЕЙН я знаком, но нужно понимать, какую переменную нужно предсказать и через какие.

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

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    в том то и дело. пусть эксель сам берет и перебирает. Задача этого перебора, чтоб он сам решил, какие модели лучшие. например, пусть начнет с переменной цели она будет зависимой. а независимой процесс. смотрим R-квадрат. далее добавляет вторую переменную,процесс, смотрим как изменился R квадрат, лишь бы не меньше 0,5 потом в список независимых переменных добавит третью переменную результат опять смотрит на Р-квадрат и так далее. там будет множество комбинаций моделей, тут 45 переменных и как минимум половина из которых плохие модели.  
    И потом ведь переменная цель может сама стать независимой, а переменная процесс зависимой. переменная цели может быть независимой и например для копинга дистанцирование и наоборот.

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

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

    Цитата:
     
    Задача этого перебора, чтоб он сам решил, какие модели лучшие.
     

    А Вам то это зачем?
     
    Добавлено:
    Ладно, вопрос по алгоритму, берем первый столбик, sex, это y, второй sc, это х, высчитываем
    R2, записываем результаты, потом для того же y, берем х: sc,    Цели, высчитываем
    R2, записываем результаты, и так далее до "общее среднее", потом колонку sc - перемещаем на первое место, и это будет Y, и далее по этому же алгоритму. Правильно?
     
     
     
    Добавлено:
    Что то мне подсказывает, что это не совсем то что нужно, я так понял, Вам нужно знать с какими переменными R2 для конкретного Y будет максимальный, и это могут быть любые из представленных.

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

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

    Цитата:
    А Вам то это зачем?  

    для работы с большим кол-вом исследований.

    Цитата:
    Ладно, вопрос по алгоритму, берем первый столбик, sex, это y, второй sc, это х, высчитываем

    нет, это номинативный переменные. Sex-это пол Sc это номер школы. они могут быть зависимыми, но это будет не регрессия, а дискриминантный анализ.  
    Но независимыми, они быть не могут нигде, когда речь о линейной регрессии идет
    Но в целом вы идею поняли.
     

    Цитата:
    я так понял, Вам нужно знать с какими переменными R2 для конкретного Y будет максимальный, и это могут быть любые из представленных.

    да, т.е. надо найти эти Y . сегодня Y цели, завтра конфрантационный копинг Ну, это утрировано.  
    Просто как я написал, я могу это вручную делать, варьировать местами зависимые и независимые переменные, какие-то удалять, а какие-то добавлять, но даже  для моего примера, где мало данных, на этой уйдет дня 3.
    А у нас может быть и 200 наблюдений по 50 переменных. Комментарии излишне.

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

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

    Код:
     
    Sub GetMaxR2()
        Dim y%, x1%, x2%, l%, i%, iMin%, iMax%, v
        y = 3 ' Столбик с переменной Y
         
        If ThisWorkbook.Worksheets.Count < 2 Then
            ThisWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
            Worksheets(1).Activate
        End If
         
        iMin = 4 ' Начало переменных Х
        iMax = Worksheets(1).Cells(1, Columns.Count).End(xlToLeft).Column ' Конец переменных Х
         
        Do Until l = 100 ' К-во найденных вариантов R  > 0.5
            x1 = Int((iMax - iMin + 1) * Rnd + iMin)
            x2 = Int((iMax - iMin + 1) * Rnd + iMin)
            If x2 < x1 Then x2 = x1 + 1
            Range("AX2:AX4").Select
            Selection.FormulaArray = "=LINEST(R2C" & y & ":R39C" & y & ",R2C" & x1 & ":R39C" & x2 & ",1,1)"
            With Worksheets(2)
                v = Worksheets(1).Range("AX4").Value
                If IsNumeric(v) = True Then
                    If v > 0.5 Then
                        i = .Cells(Rows.Count, "A").End(xlUp).Row
                        .Cells(i + 1, 1) = Worksheets(1).Range("AX4").Value
                        .Cells(i + 1, 2) = " " & x1 & " - " & x2
                        .Cells(i + 1, 3) = Cells(1, y).Value
                        l = l + 1
                    End If
                End If
            End With
        Loop
    End Sub
     

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

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

    т.е. когда зависимая переменная цели, а независимые переменные идут с 6-22, то наш r2 равен 0,85,  я правильно понял.
     
    Если да, то Вы суперпрофи. Но такой вопрос, давайте теперь зависимой переменной будет "Процесс", и опять погнали по остальным независимым  переменным , куда уже будет входить "цели".

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

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

    Цитата:
     
    а независимые переменные идут с 6-22, то наш r2 равен 0,85,  я правильно понял
     

    по крайней мере так говорит функция ЛИНЕЙН, а она не ошибается
     

    Цитата:
     
    давайте теперь зависимой переменной будет "Процесс", и опять погнали по остальным независимым  переменным , куда уже будет входить "цели"
     

     
    меняйте их местами и вперед:
    как то так:
    ...
    http://higgs.rghost.ru/57690259/image.png

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

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    ясно. а этот макрос будет работать на большем объеме переменых?
     и можно ли сделать, так, чтобы они автоматически менялись местами, после того как макрос свое дело сделал и запустился снова сам

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 20:38 26-08-2014
    andrewkard1980

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

    Цитата:
     
    наш r2 равен 0,85,
     

    вообще то там был и 1.00000
     
    Добавлено:

    Цитата:
     
    можно ли сделать, так, чтобы они автоматически менялись местами
     

    думаю можно

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



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewkard1980
    Можеж подсказать если возможность реализовать запуск формы без отображения екселя, чтоб свернут был при отображении формы.

    Всего записей: 583 | Зарегистр. 22-06-2005 | Отправлено: 00:18 27-08-2014
    Fsp050

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

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 00:42 27-08-2014
    andrewkard1980

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Fsp050
    Нет, 100% она не участвовала в независимых, там же макрос так настроен, что работает с 4 столбца, а она стоит в 3. Столбцы можно так же менять рандомно. Просто до конца я так и не понял где же наша цель ) Перебор для перебора...
     
    gogaman
    На форуме здесь где то я встречал. Поищите. Либо на vb6 можно написать, очень похожий к VBA (или наоборот)

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

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

    Цитата:
    Fsp050  
    Нет, 100% она не участвовала в независимых, там же макрос так настроен, что работает с 4 столбца, а она стоит в 3. Столбцы можно так же менять рандомно. Просто до конца я так и не понял где же наша цель ) Перебор для перебора...

     
    Цель так просто объяснить нельзя, потом с этими р-тами будет качественный анализ
     
    пока как вы сказали перебор для перебора.  
    Буду благодарен, если сделаете ,чтобы после того как переменная себя в роли зависимой отработала сама вставала другая на её место

    Всего записей: 361 | Зарегистр. 02-04-2011 | Отправлено: 12:40 27-08-2014
    andrewkard1980

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

    Цитата:
     
    переменная себя в роли зависимой отработала
     

    как посчитать это событие? Перебрать все варианты наверное по времени очень долго будет. А если еще и мешать столбики, то вообще.

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

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

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

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

    Код:
     
    Sub GetMaxR2()
        Dim y%, x1%, x2%, l%, i%, iMin%, iMax%, v, k%, a(), b(), c, lLr%, g%
        y = 3
         
        Application.ScreenUpdating = False
        If ThisWorkbook.Worksheets.Count < 2 Then
            ThisWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
            Worksheets(1).Activate
        End If
         
        iMin = 4
        iMax = Worksheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
        lLr = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
         
        For k = 3 To iMax - 1
            l = 0: g = 0
            Do Until l = 1 ' количество найденных R2 для одной переменной
                DoEvents
                x1 = Int((iMax - iMin + 1) * Rnd + iMin)
                x2 = Int((iMax - iMin + 1) * Rnd + iMin)
                If x2 < x1 Then x2 = x1 + 1
                c = Worksheets(1).Range(Cells(1, x1), Cells(1, x2))
                Range("AX2:AX4").Select
                Selection.FormulaArray = "=LINEST(R2C" & y & ":R" & lLr & "C" & y & ",R2C" & x1 & ":R" & lLr & "C" & x2 & ",1,1)"
                With Worksheets(2)
                    v = Worksheets(1).Range("AX4").Value
                    If IsNumeric(v) = True Then
                        If v > 0.5 Then
                            i = .Cells(Rows.Count, "A").End(xlUp).Row
                            .Cells(i + 1, 1) = Worksheets(1).Range("AX4").Value
                            .Cells(i + 1, 2) = " " & x1 & " - " & x2
                            .Cells(i + 1, 3) = Worksheets(1).Cells(1, y).Value
                            .Range(.Cells(i + 1, 5), .Cells(i + 1, x2 - x1 + 5)) = c
                            l = l + 1
                        End If
                    End If
                End With
                g = g + 1
                If g = 10 Then Exit Do ' количество итераций
            Loop
            ThisWorkbook.Save
            With Worksheets(1)
                a = Application.Transpose(.Range(.Cells(1, 3), .Cells(lLr, 3)))
                b = Application.Transpose(.Range(.Cells(1, k + 1), .Cells(lLr, k + 1)))
                .Range(.Cells(1, 3), .Cells(lLr, 3)) = Application.Transpose(b)
                .Range(.Cells(1, k + 1), .Cells(lLr, k + 1)) = Application.Transpose(a)
            End With
        Next k
        Application.ScreenUpdating = True
    End Sub
     

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

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    подскажите, пожалуйста, решение задачки:  
     на одном листе есть данные следующего вида (2 столбца):  
     Информационные технологии                  Инф. техн.  
     История мировой культуры                                ИМК  
     Основы безопасности жизнедеятельности    ОБЖ  
       
    на другом листе нужно в ячейке создать список из данных 1-го столбца 1-го листа, а при выборе определенного значения - ввод в эту же ячейку значения 2-го столбца 1-го листа
     
    Список создаю, используя опции Имя... - Присвоить... и Проверка данных (тип данных - список).

    Всего записей: 655 | Зарегистр. 27-01-2008 | Отправлено: 20:07 31-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