|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.04.2012, 17:09 | #21 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну и это тоже - как заключительный штрих (чтоб никто шаблон не попортил).
webmoney: E265281470651 Z422237915069 R418926282008
|
11.04.2012, 17:54 | #22 |
Пользователь
Регистрация: 11.04.2012
Сообщений: 23
|
сменил на type = 1, но при вводе значения, ничего не происходит)
sh.Cells(6, 3) = .ActiveSheet.Cells(fromcopy.Row, "L"), после копирования, вижу в ячейке это значение 40989,43333 (3) Последний раз редактировалось Vult; 11.04.2012 в 17:58. |
11.04.2012, 18:10 | #23 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
1.
Dim i& i = InputBox("Какую строку извлекать?", "Ввод значений") sh.Cells(6, 3) = .ActiveSheet.Cells(i, "L"), 2. 40989,43333 - а Вы поставьте этой ячейке формат даты (я об этом уже писал).
webmoney: E265281470651 Z422237915069 R418926282008
|
12.04.2012, 10:11 | #24 |
Пользователь
Регистрация: 11.04.2012
Сообщений: 23
|
понял, благодарю! даже немного начал понимать что есть что в коде благодаря Вашим примерам
а что означает символ & в объявлении переменной? поправил строки, добавил переменную, почему-то не копирует. хотя и ошибки тоже нет. Последний раз редактировалось Vult; 12.04.2012 в 10:23. |
12.04.2012, 11:11 | #25 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Символ & заменяет as Long.
Т.е. dim i& = dim i as long Если всё правильно сделали - должно копировать. Ведь было как: получаем ссылку на строку: Set fromcopy = Application.InputBox(prompt:="Selec t a Row to copy", Type:=8) подставляем номер этой строки: sh.Cells(2, 3) = .ActiveSheet.Cells(fromcopy.Row, "A") Если теперь в инпутбоксе сразу спрашиваем номер строки, то его же позже и подставляем.
webmoney: E265281470651 Z422237915069 R418926282008
|
12.04.2012, 11:15 | #26 |
Пользователь
Регистрация: 11.04.2012
Сообщений: 23
|
вот так вставлял:
Application.ScreenUpdating = True On Error Resume Next i = InputBox("Какую строку извлекать?", "Ввод значений") On Error GoTo 0 Application.ScreenUpdating = False If Not fromcopy Is Nothing Then sh.Cells(2, 3) = .ActiveSheet.Cells(i, "A") sh.Cells(5, 3) = .ActiveSheet.Cells(i, "G") переменную объявил в начале кода меняется как-то If Not fromcopy Is Nothing Then теперь? да, принцип работы я понял с номером строки. а вот предыдущий не совсем. т.е. я понимаю, что мы выбирали диапазон, но не более того =) Последний раз редактировалось Vult; 12.04.2012 в 11:19. |
12.04.2012, 11:37 | #27 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
А, ну да, это условие
If Not fromcopy Is Nothing Then теперь нужно убрать - оно ведь всегда теперь nothing... Предыдущее - юзер указывает на диапазон (хоть одну ячейку). У этого диапазона есть адрес, строка, столбец, цвет, вес (тьфу, веса нет , цвет у ячеек по-одной). Из всего этого нам нужен был номер строки.
webmoney: E265281470651 Z422237915069 R418926282008
|
12.04.2012, 11:52 | #28 | |
Пользователь
Регистрация: 11.04.2012
Сообщений: 23
|
Цитата:
удалил, заработало =) сделал, чтобы макрос запускался при открытии книги. а как сделать так, чтобы в название сохраняемого файла вставлялась дата или значение ячейки и при этом не выпадал диалог, сохранить-ли макрос? Последний раз редактировалось Vult; 12.04.2012 в 12:50. |
|
12.04.2012, 12:51 | #29 |
Пользователь
Регистрация: 11.04.2012
Сообщений: 23
|
ActiveWorkbook.SaveAs Filename:="C:\Users\1\Desktop\тут переменную указать?.xlsx",
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False |
12.04.2012, 12:54 | #30 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а компоненты файла F2 - в файл | Алексей_1 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.05.2011 13:37 |
копирование строк в файл | raspberry | Общие вопросы C/C++ | 3 | 12.03.2010 19:16 |
сброс выбраной строки в listview | TaTT DoGG | Общие вопросы .NET | 5 | 02.03.2010 01:32 |
копирование данных их файла .doc в файл Excel | prima | Microsoft Office Excel | 3 | 19.10.2009 08:37 |
Копирование текста в файл | bookkc | Общие вопросы Delphi | 2 | 18.06.2009 23:57 |