F1, F1!, Нужон хэлп по Excel
Привет, Гость ( Вход | Регистрация )
![]() ![]() ![]() ![]() ![]() |
![]() ![]() ![]() ![]() |
F1, F1!, Нужон хэлп по Excel
[Dominant] |
![]() ![]()
Сообщение
#1
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
Общий привет.
Может кто подскажет по такому вопросу: Нужно из одного листа Экселя организовать запись значений определенных ячеек в другой файл экселя. Принцип: Человек заполняет ячейки в исходном файле, давит на батон... Данные помещаются в другой файл ДОБАВЛЯЯСЬ новой строчкой к уже существующим там данным. Во. ![]() ![]() ![]() -------------------- Вороне Бог на вход подал 4 вольта...
|
![]() ![]() ![]() |
shura51 |
![]()
Сообщение
#2
|
Опытный кинолюбитель ![]() ![]() ![]() Группа: Мемберы Сообщений: 250 Регистрация: 15 Июня '06 Откуда: Украина 2 Юзер Цитировать ![]() |
Через встроенный VB(alt+F11)... Макрос написать
Просто и элементарно... Или нужно конкретный код написать???? -------------------- Мой_цвет = RGB(128; 128; 128)
|
[Dominant] |
![]()
Сообщение
#3
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
Ну конечно-же код нужен!!!
![]() Не обязательно весь, можно просто направить по курсу, показать методы, какими это делается. Скажем как: 1. взять значения 2. записать в другое файло 3. определить в другом файло координаты пустой строки Добавлено: Скажем так: с ВБА я немного знаком. -------------------- Вороне Бог на вход подал 4 вольта...
|
shura51 |
![]()
Сообщение
#4
|
Опытный кинолюбитель ![]() ![]() ![]() Группа: Мемберы Сообщений: 250 Регистрация: 15 Июня '06 Откуда: Украина 2 Юзер Цитировать ![]() |
Ну если совсем в лоб...
Два файла Sor.xls и Targ.xls Targ.xls изначально закрыт закрыт Ha первом листе Sor.xls вводятся данные в ячейки A1 и B1... В Targ.xls данные записываются на первый лист в ячейки Ai и Bi с каждым разом о первую пустую строчку под существующими данными... После чего Targ.xls сохраняется и закрывается... На первом листе Sor.xls нарисовать кнопку и на кнопке написать такой код Private Sub CommandButton1_Click() Workbooks.Open Filename:="D:\Мои документы\Targ.xls" Workbooks("Targ.xls").Activate 'Определение последней пустой строки при условии хотя бы одной заполненной ячейке в диапазоне. i = 1 While Workbooks("Targ.xls").Sheets(1).Cells(i, 1).Value <> "" Or Workbooks("Targ.xls").Sheets(1).Cells(i, 2).Value <> "" i = i + 1 Wend 'Запись данных из одного файла в другой Workbooks("Targ.xls").Sheets(1).Cells(i, 1) = Workbooks("Sor.xls").Sheets(1).Cells(1, 1) Workbooks("Targ.xls").Sheets(1).Cells(i, 2) = Workbooks("Sor.xls").Sheets(1).Cells(1, 2) Workbooks("Targ.xls").Save Workbooks("Targ.xls").Close End Sub Ну я понимаю, что это коряво, но рыть нужно в этом направлении... Лучше в Targ.xls на отдельном листе организовать счётчик строк, который будет увеличиваться на единицу при внесении очередной порции данных, а то с каждой новой строкой время выполнения будет увеличиваться... -------------------- Мой_цвет = RGB(128; 128; 128)
|
dvo2000 |
![]()
Сообщение
#5
|
![]() Видеоман ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 3244 Регистрация: 28 Дек '05 Откуда: Buffalo, NY 2 Юзер Цитировать ![]() |
-------------------- Одно неосторожное движение, и ты уже отец "М.М.Ж."
|
[Dominant] |
![]()
Сообщение
#6
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
2
![]() О!!!! Спасибище, реальное!!! Попробую! ![]() Добавлено: Хе хе хе... Пока читал код как раз пришла мысль на подобии: "Лучше в Targ.xls на отдельном листе организовать счётчик строк," видимо еще не все потеряно... ![]() Спасибо еще раз. ![]() -------------------- Вороне Бог на вход подал 4 вольта...
|
[Dominant] |
![]()
Сообщение
#7
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
-------------------- Вороне Бог на вход подал 4 вольта...
|
Valky |
![]()
Сообщение
#8
|
Арт-директор ![]() ![]() ![]() ![]() ![]() ![]() Группа: Team RDA Сообщений: 2386 Регистрация: 04 Июля '01 Откуда: Russia 2 Юзер Цитировать ![]() |
QUOTE([Dominant) Ну тут, чувстуется, уже недалеко и до серии учебных пособий, типа "Visual Basic для Domi", "C++ для Domi", "Linux для Domi", "Free BSD для Domi"... ![]() |
dvo2000 |
![]()
Сообщение
#9
|
![]() Видеоман ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 3244 Регистрация: 28 Дек '05 Откуда: Buffalo, NY 2 Юзер Цитировать ![]() |
-------------------- Одно неосторожное движение, и ты уже отец "М.М.Ж."
|
shura51 |
![]()
Сообщение
#10
|
Опытный кинолюбитель ![]() ![]() ![]() Группа: Мемберы Сообщений: 250 Регистрация: 15 Июня '06 Откуда: Украина 2 Юзер Цитировать ![]() |
Лучше типа "Business @ the Speed of Thought Just for Fun"
Так дороже... -------------------- Мой_цвет = RGB(128; 128; 128)
|
janeway |
![]()
Сообщение
#11
|
![]() специалист по шредерам ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 2982 Регистрация: 21 Ноя '05 Откуда: Estonia 2 Юзер Цитировать ![]() |
QUOTE(dvo2000 @ там) А когда он Фсё, Фсё выучит, то сам начнёт писать книги-пособия, типа "Domi for ..." лучше это будет так "... from Domi" -------------------- (:
|
[Dominant] |
![]()
Сообщение
#12
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
У меня есть старые наброски книги, но она вам не понравится...
![]() http://users.livejournal.com/_dominant_/62684.html ![]() ![]() -------------------- Вороне Бог на вход подал 4 вольта...
|
dvo2000 |
![]()
Сообщение
#13
|
![]() Видеоман ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 3244 Регистрация: 28 Дек '05 Откуда: Buffalo, NY 2 Юзер Цитировать ![]() |
QUOTE([Dominant] @ Среда, 17 Января 2007, 20:56) Ну почему-же не понравиться?! Подход очень даже интересный! А продолжение будет?(Я к тому, сколько места на полке освобождать. Ведь я так понимаю, что если уж ты начнёшь писать, то тебя не остановить) ![]() -------------------- Одно неосторожное движение, и ты уже отец "М.М.Ж."
|
janeway |
![]()
Сообщение
#14
|
![]() специалист по шредерам ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 2982 Регистрация: 21 Ноя '05 Откуда: Estonia 2 Юзер Цитировать ![]() |
2
![]() аватар у тебя там стрёмный =))) -------------------- (:
|
[Dominant] |
![]()
Сообщение
#15
|
![]() Бесполезное ископаемое ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4108 Регистрация: 20 Мар '01 2 Юзер Цитировать ![]() |
-------------------- Вороне Бог на вход подал 4 вольта...
|
Bubble-Gum |
![]()
Сообщение
#16
|
![]() Танкист со стажем ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Админы Сообщений: 8012 Регистрация: 26 Сен '01 Откуда: Germany 2 Юзер Цитировать ![]() |
еще можно поиграться с такими вещами как
GetObject (если второй файл открыт) CreateObject (если второй файл закрыт) в данном случае у тебя доступ к объекту и всем его свойствам и функциям - мутить можно больше, чем в вышеописанном примере. -------------------- ![]() |
KuHO |
![]()
Сообщение
#17
|
![]() Видеоман ![]() ![]() ![]() ![]() ![]() ![]() Группа: Мемберы Сообщений: 2535 Регистрация: 16 Окт '05 Откуда: Тропики Эстонии 2 Юзер Цитировать ![]() |
-------------------- ![]() ![]() |
chiudak |
![]()
Сообщение
#18
|
Начинающий кинолюбитель ![]() ![]() Группа: Мемберы Сообщений: 186 Регистрация: 02 Сен '02 Откуда: ro 2 Юзер Цитировать ![]() |
есть знакомый редактор... не нужен?
![]() -------------------- Федя, иди к почкам.
© Жорж Милославский |
![]() ![]() ![]() |
Lo-Fi Версия | CMSBlog | Сейчас: Среда, 19 Февраля 2025, 2:08 |