возможно ли при наполнении ячейки отобразить путь к файлу
ace_porter
Дата: Понедельник, 17.06.2019, 16:30 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Доброго времени суток, уважаемые форумчане! Возникла такая задача Нужно что бы при наполнении ячейки в одном файле экселя отобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ?
Доброго времени суток, уважаемые форумчане! Возникла такая задача Нужно что бы при наполнении ячейки в одном файле экселя отобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ? ace_porter
SAS
Ответить
Сообщение Доброго времени суток, уважаемые форумчане! Возникла такая задача Нужно что бы при наполнении ячейки в одном файле экселя отобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ? Автор - ace_porter Дата добавления - 17.06.2019 в 16:30
Nic70y
Дата: Понедельник, 17.06.2019, 17:13 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
как этоотобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ?
да
как этоотобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ?
да Nic70y
ЮMoney 41001841029809
Ответить
Сообщение как этоотобразился путь к этому файлу в 5-ти других. Возможно ли это вообще ?
да Автор - Nic70y Дата добавления - 17.06.2019 в 17:13
_Igor_61
Дата: Понедельник, 17.06.2019, 17:21 |
Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
90
±
Замечаний:
0% ±
Excel 2007
Можно типа такого в модуль листа (здесь для двух файлов): [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:Z10")) Is Nothing Then With Application .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False Workbooks.Open Filename:=ThisWorkbook.Path & "\1.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With Workbooks.Open Filename:=ThisWorkbook.Path & "\2.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With .ScreenUpdating = True .DisplayAlerts = True .EnableEvents = True End With End If End Sub
[/vba]
Можно типа такого в модуль листа (здесь для двух файлов): [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:Z10")) Is Nothing Then With Application .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False Workbooks.Open Filename:=ThisWorkbook.Path & "\1.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With Workbooks.Open Filename:=ThisWorkbook.Path & "\2.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With .ScreenUpdating = True .DisplayAlerts = True .EnableEvents = True End With End If End Sub
[/vba] _Igor_61
Ответить
Сообщение Можно типа такого в модуль листа (здесь для двух файлов): [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:Z10")) Is Nothing Then With Application .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False Workbooks.Open Filename:=ThisWorkbook.Path & "\1.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With Workbooks.Open Filename:=ThisWorkbook.Path & "\2.xlsx" With ActiveWorkbook .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName .Save .Close End With .ScreenUpdating = True .DisplayAlerts = True .EnableEvents = True End With End If End Sub
[/vba] Автор - _Igor_61 Дата добавления - 17.06.2019 в 17:21
ace_porter
Дата: Понедельник, 17.06.2019, 17:25 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Хорошо! Я слабо в экселе разбираюсь. Можете пожалуйста на пальцах ? Как это и куда вставить ?
Хорошо! Я слабо в экселе разбираюсь. Можете пожалуйста на пальцах ? Как это и куда вставить ? ace_porter
SAS
Ответить
Сообщение Хорошо! Я слабо в экселе разбираюсь. Можете пожалуйста на пальцах ? Как это и куда вставить ? Автор - ace_porter Дата добавления - 17.06.2019 в 17:25
_Igor_61
Дата: Понедельник, 17.06.2019, 17:51 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
90
±
Замечаний:
0% ±
Excel 2007
Скачайте архив, распакуйте и откройте файл "Для_ввода_данных.xlsm". Сделайте то, что написано на листе 1 и потом посмотрите файлы "1" и "2". Чтобы посмотреть код - правый клик по ярлычку листа, пункт "Исходный текст". В этом примере все файлы должны находиться в одной папке. Если в реальности они будут в разных - нужно будет к каждому файлу прописать свой путь.
Скачайте архив, распакуйте и откройте файл "Для_ввода_данных.xlsm". Сделайте то, что написано на листе 1 и потом посмотрите файлы "1" и "2". Чтобы посмотреть код - правый клик по ярлычку листа, пункт "Исходный текст". В этом примере все файлы должны находиться в одной папке. Если в реальности они будут в разных - нужно будет к каждому файлу прописать свой путь. _Igor_61
Ответить
Сообщение Скачайте архив, распакуйте и откройте файл "Для_ввода_данных.xlsm". Сделайте то, что написано на листе 1 и потом посмотрите файлы "1" и "2". Чтобы посмотреть код - правый клик по ярлычку листа, пункт "Исходный текст". В этом примере все файлы должны находиться в одной папке. Если в реальности они будут в разных - нужно будет к каждому файлу прописать свой путь. Автор - _Igor_61 Дата добавления - 17.06.2019 в 17:51
ace_porter
Дата: Понедельник, 17.06.2019, 21:56 |
Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Отлично! А можно ли еще каждый раз при добавлении новой строки добавлять новую запись в файлы 1 и 2 ?
Отлично! А можно ли еще каждый раз при добавлении новой строки добавлять новую запись в файлы 1 и 2 ? ace_porter
SAS
Ответить
Сообщение Отлично! А можно ли еще каждый раз при добавлении новой строки добавлять новую запись в файлы 1 и 2 ? Автор - ace_porter Дата добавления - 17.06.2019 в 21:56
_Igor_61
Дата: Вторник, 18.06.2019, 05:24 |
Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
90
±
Замечаний:
0% ±
Excel 2007
А что значит "при добавлении новой строки"? На любом листе и в любом месте? И как быть тогда с этим:Нужно что бы при наполнении ячейки в одном файле .....
???
А что значит "при добавлении новой строки"? На любом листе и в любом месте? И как быть тогда с этим:Нужно что бы при наполнении ячейки в одном файле .....
??? _Igor_61
Ответить
Сообщение А что значит "при добавлении новой строки"? На любом листе и в любом месте? И как быть тогда с этим:Нужно что бы при наполнении ячейки в одном файле .....
??? Автор - _Igor_61 Дата добавления - 18.06.2019 в 05:24
Pelena
Дата: Вторник, 18.06.2019, 09:03 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация:
4419
±
Замечаний:
±
Excel 365 & Mac Excel
при добавлении новой строки добавлять новую запись в файлы
Вопрос не имеет отношения к данной теме, создайте новую
при добавлении новой строки добавлять новую запись в файлы
Вопрос не имеет отношения к данной теме, создайте новуюPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение при добавлении новой строки добавлять новую запись в файлы
Вопрос не имеет отношения к данной теме, создайте новуюАвтор - Pelena Дата добавления - 18.06.2019 в 09:03
ace_porter
Дата: Среда, 19.06.2019, 16:17 |
Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
_Igor_61 , Ну при добавлении новой cell ( ячейки ) в файл добавлять путь в файлы 1 и 2 При этом что путь что бы путь был вставлен в отдельную колонку > например d\music\eminen\eminem_show > каждый уровень в свою колонку и форматирован в шрифт Arial, 9-ым размером и покрашен в темно синий цвет !!! %) [moder]Что, выше Елена непонятно написала? Тема закрыта[/moder]
_Igor_61 , Ну при добавлении новой cell ( ячейки ) в файл добавлять путь в файлы 1 и 2 При этом что путь что бы путь был вставлен в отдельную колонку > например d\music\eminen\eminem_show > каждый уровень в свою колонку и форматирован в шрифт Arial, 9-ым размером и покрашен в темно синий цвет !!! %) [moder]Что, выше Елена непонятно написала? Тема закрыта[/moder]ace_porter
SAS
Сообщение отредактировал _Boroda_ - Среда, 19.06.2019, 16:23
Ответить
Сообщение _Igor_61 , Ну при добавлении новой cell ( ячейки ) в файл добавлять путь в файлы 1 и 2 При этом что путь что бы путь был вставлен в отдельную колонку > например d\music\eminen\eminem_show > каждый уровень в свою колонку и форматирован в шрифт Arial, 9-ым размером и покрашен в темно синий цвет !!! %) [moder]Что, выше Елена непонятно написала? Тема закрыта[/moder]Автор - ace_porter Дата добавления - 19.06.2019 в 16:17