Имеется:

   - таблица **Таблица35** расположенная на  **Лист1**;

   - таблица **Таблица3** расположенная на  **Лист2**.

Как сделать:

   -  если значение `**Таблица35.Значения** = **Таблица3.Значения**`,

   -  то  `**Таблица35.Сортировка** = **Таблица3.Сортировка**`

Примечание.

**Таблица3**

Левый верхний угол таблицы находится в ячейке `D6`

| Сортировка | Значения  |

| ---------- | --------- |

| 1          | Значение1 |

| 2          | Значение2 |

| 3          | Значение3 |

**Таблица35**

Левый верхний угол таблицы находится в ячейке `D6`

| Сортировка | Значения  |

| ---------- | --------- |

|           | Значение1 |

|           | Значение2 |

|           | Значение3 |

Как в ListObjects подключить событие SelectionChange?
Цель: отобразить в ячейке выбранный текст в ListObjects.

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Set lo = ws.ListObjects("Table4") '
    
    ' AddHandler lo, "SelectionChange", AddressOf Table4_SelectionChange
       
End Sub

Sub Table4_SelectionChange(ByVal Target As Range)
    MsgBox "The selection in the list object has changed."
End Sub

Цель: подключить CSV файл к Excel и проанализировать его.

Пример анализа DateTime:
1. Группировки;
2. Сортировки;
3. Фильтры;
4. Построение графиков;
5. Вычисления DateTime. (предположително)

1. ДатаВремя хранить

       - Вар-1. в одном поле: DateTime
или
- Вар-2. в разных полях: Date, Time, Миллисекунды, часовой пояс?

Или применять Вар-1 и Вар-2 в зависимости от обстоятельств и допускается оба варианта?
Чтобы можно было подключить CSV в Excel без дополнительных настроек?
Или с минимальными настройками: например изменить в Excel формат поля таблицы.
Ну или в PowerQuery что-нибудь "подкрутить" по мелочи.

Т.е. чтобы данные прошли путь CSV -> PowerQuery -> Excel.

Под максимальный DateTime я понимаю : yyyy-MM-dd HH:mm:ss.MS +zone
Пример: 2024-03-19 13:18:31.395 +03:00.

2. Для примера я сделал несколько столбцов с различными вариантами представления DateTime.

Рассмотрел несколько вариантов столбцов:
- Column1: 2024-03-21 15:24:36,897 +03:00 - ДатаВремя,Миллисекунды +зона;
- Column2: 2024-03-21 15:24:36,897 - миллисекунды отделены ",";
- Column3: 2024-03-21 15:24:36.897 - миллисекунды отделены ".";
- Column4: 2024-03-21 15:24:36 - ДатаВремя;
- Column5: 2024-03-21  - Дата;
- Column6: 15:24:36 - Время;
- Column7: 897  - милимсекунды;
- Column8: +03:00 - зона.



3. Мои опасения.
3.1 Если использовать Column1(или Column2).
PowerQuery распознал тип поля как Текст.

Я боюсь, что если буду строить сводную таблицу или использовать таблицу полученную из запроса в других таблицах, то данные не будут распознаны как ДатаВремя.

3.2 Если использовать Column3.
В Column3 не отображаются милисекунды и часовй пояс.

Тогда Column3 нужно использовать вместе с полями Column7(миллисекунды), Column8(часовой пояс).

CSV

                         Coll1 |                   Coll2 |                   Coll3 |               Coll4 |      Coll5 |    Coll6 |Coll7|  Coll8 |Coll9| Coll10 
2024-03-21 15:24:36,897 +03:00 | 2024-03-21 15:24:36,897 | 2024-03-21 15:24:36.897 | 2024-03-21 15:24:36 | 2024-03-21 | 15:24:36 | 897 | +03:00 | INF | Messaeg-i - 0
2024-03-21 15:24:38,192 +03:00 | 2024-03-21 15:24:38,192 | 2024-03-21 15:24:38.192 | 2024-03-21 15:24:38 | 2024-03-21 | 15:24:38 | 192 | +03:00 | INF | Messaeg-i - 1
2024-03-21 15:24:39,490 +03:00 | 2024-03-21 15:24:39,490 | 2024-03-21 15:24:39.490 | 2024-03-21 15:24:39 | 2024-03-21 | 15:24:39 | 490 | +03:00 | INF | Messaeg-i - 2
2024-03-21 15:24:40,821 +03:00 | 2024-03-21 15:24:40,821 | 2024-03-21 15:24:40.821 | 2024-03-21 15:24:40 | 2024-03-21 | 15:24:40 | 821 | +03:00 | INF | Messaeg-i - 3
2024-03-21 15:24:40,949 +03:00 | 2024-03-21 15:24:40,949 | 2024-03-21 15:24:40.949 | 2024-03-21 15:24:40 | 2024-03-21 | 15:24:40 | 949 | +03:00 | INF | Messaeg-i - 4

let
    Источник = Csv.Document(File.Contents("E:\Projects\39\01_pr\01\2024-03-21_15-24-36.csv"),
                    [Delimiter="|", 
                    Columns=10, 
                    Encoding=1251]),
    #"Измененный тип" = Table.TransformColumnTypes(Источник,
                    {
                        {"Column1", type text}, 
                        {"Column2", type text}, 
                        {"Column3", type datetime}, 
                        {"Column4", type datetime}, 
                        {"Column5", type date}, 
                        {"Column6", type time}, 
                        {"Column7", Int64.Type}, 
                        {"Column8", type text}, 
                        {"Column9", type text}, 
                        {"Column10", type text}
                    }
                    )
in
    #"Измененный тип"

Сейчас.

Csv
DateTime|Level|Message
2024-03-19 13:18:31.395 +03:00 | INF | Start === === === ===

Excel
DateTime Level Message
19.03.2024 13:18 INF Start === === === ===


Мне удалось ответить на ваш вопрос?

Сейчас я получаю такое

Как сделать чтобы формат датаВремя в запросе соответствовал подключённому csv файлу?
С помощью настроек  или VBA.

Сейчас.
Csv
DateTime|Level|Message
2024-03-19 13:18:31.395 +03:00 | INF | Start === === === ===

Excel
DateTime Level Message
19.03.2024 13:18 INF Start === === === ===

Ожидание
Csv
DateTime|Level|Message
2024-03-19 13:18:31.395 +03:00 | INF | Start === === === ===

Excel
DateTime Level Message
2024-03-19 13:18:31.395 +03:00 INF Start === === === ===

--------

Предполагается к Excel подключать разные файлы "*.csv".
Не хотелось бы каждый раз настраивать дату.

Если для Excel "2024-03-19 13:18:31.395 +03:00" такой формат не совсем удобен, то какой лучше?

Пример.
1. Сделать чтобы в "*.csv" была датаВремя по отдельным столбцам - |2024-03-19 | 13:18:31.395 | +03:00
2. Отказаться от "+03:00"

Другие рекомендации.