Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение книг Экселя / 17 сообщений из 17, страница 1 из 1
22.09.2004, 11:15
    #32705874
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Проблема в следующем....
Обновляю данные объедененных книг.
При присутствии отличий - изменения заносяться, и отражаются примечания (системы) когда и кто их внес.
Как обратиться к этим примечаниям, как их записать в какой-нибудь диапазон ???
Спасибо...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 12:44
    #32706149
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
не совсем понятно что хочется...
примерчик бы небольшой на пальцах

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Comment Is Nothing Then
    Target.AddComment
    Target.Comment.Visible = False
    Target.Comment.Text Text:=Target.Text
  Else
    Target.Comment.Text Text:=Target.Text & Chr(10), overwrite:=False
  End If
End Sub
запихать в диапазон... видимо проще будет
Код: plaintext
1.
For Each r in Target.Range
Next
вроде так пишется?

P.S. ктож если не вы будете всем объяснать как что делать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 13:08
    #32706251
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Подробно (к сожалению файлы приложить не могу) :
Есть книга Экселя (1.xls), в ней данные (любые). Делаем енту книгу общим доступом, затем сохраняем как 2.xls в той же папке , где и 1.xls. Затем во второй меняем данные и закрываем её с сохранением. В книге 1.xls Сервис-> Сравнить и объединить книги-> указываем на книгу 2.xls . При этом отражаются все изменения с примечаниями в ячейках кто/когда и что на что изменил....
Так вот именно енти примечания мне нада выписать....

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 13:10
    #32706261
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
ну и напоследок
Как обратиться к этим примечаниям
Код: plaintext
Range("A1:A1").Comment.Shape.OLEFormat.Object.Caption
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 13:15
    #32706275
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
ХХА... а как сделать книгу с общим доступом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 13:29
    #32706323
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Алексей2003.ХХА... а как сделать книгу с общим доступом?
Ты издеваешься или серьёзно...
Сервис->Доступ к книге->флаг к Разрешить совместный доступ...
А ентот код Range("A1:A1").Comment.Shape.OLEFormat.Object.Caption у меня не проходит
З.Ы.Твоё предложение (код) - это же отражение в примечании на изменение "ручками", а не при объединении...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 14:03
    #32706461
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
прошу прощения, если мой последний вопрос показался издевательством... я никада не работал с книгами, имеющими общий доступ...

теперь по поводу всей этой фигни...
может поможет такая весч как исправления?
Сервис->Исправления->Выделить исправления
там время с последнего посещения... создастся лист новый и в нем все исправления, из которых и можно получить те самые примечания???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 14:39
    #32706618
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Вот, вот - теперь ты ближе к теме (в принципе енти исправления тоже самое), но вот как ети заметки по исправлениям отразить где-нибудь пропичатанными ???
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 14:57
    #32706680
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
что значит гденибудь?
Код: plaintext
1.
2.
3.
  Dim wb As Workbook, ws As Worksheet, r As Range
  Set wb = Application.Workbooks("test1")
  Set ws = wb.Sheets("Журнал")
  Set r = ws.Range("A1:A1")
вопрос где это гденибудь?
и в каком виде? можно ведь просто скопировать тот лист и не мучиться... а можно добавить комментарии...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2004, 15:18
    #32706733
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Алексей2003.
Код: plaintext
1.
2.
3.
  Dim wb As Workbook, ws As Worksheet, r As Range
  Set wb = Application.Workbooks("test1")
  Set ws = wb.Sheets("Журнал")
  Set r = ws.Range("A1:A1")
и в каком виде? можно ведь просто скопировать тот лист и не мучиться... а можно добавить комментарии...
В том-то и дело, что лист "Журнал" не виден и не опознается до тех пор, покане сделать Исправления-> Флаги на запись на отдельном листе....
Мне нада сразу же после обновления иметь данные по старым-новым данным для их отбработки в других файлах...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 07:25
    #32707732
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
а самому запустить такую фишку?
Код: plaintext
1.
2.
3.
4.
    With Wordbook  'открыть ту книгу самому, и запустить этот код... 
        .HighlightChangesOptions When:=xlAllChanges
        .ListChangesOnNewSheet = True
        .HighlightChangesOnScreen = True
    End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 08:45
    #32707772
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
У меня тобой предложенный код не работает...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 09:33
    #32707840
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
вот пример... у меня работает все вродебы ;о)
файлы test2 и test1_1 все относятся к файлу test1
он самый главный :)
а файл test_ открываешь, там наверху менюшка должна появиться "запуск" вот ее кликаешь и вперед ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 12:18
    #32708176
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Большое спасибо, адаптировал к своим файлам - работает...
Были небольшие шероховатости с применением файла test1////
и немного изменил для наглядности:
t = wssrc.Cells(i, 1) & Chr(41) & " от " & wssrc.Cells(i, 2) & " " & Format(wssrc.Cells(i, 3), "hh:mm") & "; " & Chr(10) & " автор: " & wssrc.Cells(i, 4) & Chr(10) & " что: " & wssrc.Cells(i, 5) & " с: " & wssrc.Cells(i, 9) & " на: " & wssrc.Cells(i, 8) & " " & Chr(187)
If r.Comment Is Nothing Then
r.AddComment t & Chr(10)
Else
r.Comment.Text Text:=t & Chr(10), Overwrite:=False
Исчо раз спасибо.
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 12:37
    #32708223
Алексей2003.
Алексей2003.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
слава богу :)
P.S. я не стремился к наглядности :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2004, 13:10
    #32708272
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
Да тебе ентого и не надо было - главное идея и процедура, а остальное - моё извращение

Ещё раз спасибо...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
21.03.2011, 12:21
    #37175104
Only ray j sex tape
Only ray j sex tape
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение книг Экселя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение книг Экселя / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 617ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177065]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 345ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 196ms
total:  617ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]