itinich (Все сообщения пользователя)

Пропадает пароль при открытии файла Excel, Пароль на файл Excel

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 22.05.2023 11:02:13 Проверено, service pack 3 для офиса решает данную проблему. Версия Excel до: 12.0.4518.1014 после: 12.0.6611.1000 Версия Office до: 12.0.4518.1014 после: 12.0.6607.1000 Изменено: itinich - 22.05.2023 11:07:00
	Перейти

Пропадает пароль при открытии файла Excel, Пароль на файл Excel

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 22.05.2023 10:58:30
	Перейти

Пропадает пароль при открытии файла Excel, Пароль на файл Excel

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 22.05.2023 10:52:28 Вариант хороший, но вот есть нужна делать это без макросов. Есть предположение что sp3 для office 2007 исправляет данный баг, проверяю...
	Перейти

Пропадает пароль при открытии файла Excel, Пароль на файл Excel

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 22.05.2023 10:31:05 Аналогичная проблема!(( Как решили? Да и вообще имеет ли данный баг решение, кроме обновления excel до 2010 и выше?
	Перейти

как обнулить XMLHTTP от кешированных значений?

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 14.12.2022 19:32:51 Актуально?
	Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

31.05.2022 18:44:28

А всё же интересно как заставить wininet работать с русскими символами.
Повторюсь вот статья как это сделать на С++, но как сюда применить ума не приложу(((

кстати sokol92 примного Вам благодарен за включение головы, aka помощь, в вопросе!

Изменено: itinich - 31.05.2022 18:50:45 (дополнение)

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

31.05.2022 18:42:15

Цитата

написал:

Цитата
itinich написал: понять бы что здесь говорят и как это применить...

Говорят о том, что упомянутые выше Windows API не поддерживают кодировку utf-8, которая сейчас используется на подавляющем большинстве серверов.

Посмотрите на возможность использования утилиты ftp (входит в состав Windows). Ей можно передать в параметрах файл в кодировке utf-8, содержащий нужные команды. Утилиту можно вызвать из Excel.

Альтернатива - curl (входит в текущую версию Windows и может устанавливаться на предыдущие версии). Эта программа всё умеет делать.Ка

Вы прям меня прочитали удалённо))))
Значит точно верное решение раз двум людям не сговариваясь пришло в голову)

Изменено: itinich - 31.05.2022 18:45:28 (оформление)

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

31.05.2022 18:40:47

В общем уважаемые форумчане в итоге как обычно всё через известное место)))
Макрос делает следующее:
- создаёт в %AppData% скрытый каталог
- создаёт там батник и скрипт работы стандартной команды windows ftp
- запускает батник
- удаляет за собой скрытый каталог с содержимым
Зато работает с русскими символами и пробелами в именах)))
А ещё возможно и не требует адаптации к различным версиям ОС и офис
И ещё обнаруженный нюанс - FileZilla Server не поддерживает команду mput *.* (ну это так на будущее, мало ли кому-то пригодится)

Скрытый текст

Изменено: itinich - 31.05.2022 19:06:58

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

28.05.2022 16:58:11

вот так реагирует сервер FileZilla на эти манипуляции:
https://prnt.sc/GDpaS1e5ARjx - английские символы
https://prnt.sc/dleFWfATwolp - русские символы
https://prnt.sc/HOEoumACTebF - сделав всё руками через клиента FileZilla

а вот так реагирует уже другой FTPServer на попытку отработки скрипта с русскими символами:
[I] May 28 16:45:53 pure-ftpd: (?@192.168.169.180) [INFO] test is now logged in
[E] May 28 16:45:53 pure-ftpd: (test@192.168.169.180) [ERROR] Can't create directory: illegal byte sequence.
[E] May 28 16:45:53 pure-ftpd: (test@192.168.169.180) [ERROR] Can't open that file: illegal byte sequence.
[I] May 28 16:45:53 pure-ftpd: (test@192.168.169.180) [INFO] Logout.

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

28.05.2022 16:24:42

причём судя по всему строка с именем передаваемого файла/создаваемого каталога в переменной формируется нормально (как собственно и без использования 'W', LongPtr и StrPtr).
подозреваю ломается что-то дальше, на стадии передачи команды на FTPServer.
включил ftp на роутере, такая же история (чтобы исключить возможные глюки FileZilla).
понять бы что здесь говорят и как это применить...

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

28.05.2022 16:14:08

"не выходит каменный цветок"((

Скрытый текст

Код

'Open the Internet object
 Private Declare PtrSafe Function InternetOpen _
   Lib "wininet.dll" _
     Alias "InternetOpenA" _
       (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long
  
'Connect to the network
 Private Declare PtrSafe Function InternetConnect _
   Lib "wininet.dll" _
     Alias "InternetConnectA" _
       (ByVal hInternetSession As Long, _
        ByVal sServerName As String, _
        ByVal nServerPort As Integer, _
        ByVal sUsername As String, _
        ByVal sPassword As String, _
        ByVal lService As Long, _
        ByVal lFlags As Long, _
        ByVal lContext As Long) As Long
  
'Get a file using FTP
 Private Declare PtrSafe Function FtpGetFile _
   Lib "wininet.dll" _
     Alias "FtpGetFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszRemoteFile As String, _
        ByVal lpszNewFile As String, _
        ByVal fFailIfExists As Boolean, _
        ByVal dwFlagsAndAttributes As Long, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
  
'Send a file using FTP
 Private Declare PtrSafe Function FtpPutFile _
   Lib "wininet.dll" _
     Alias "FtpPutFileW" _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As LongPtr, _
        ByVal lpszRemoteFile As LongPtr, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
         
'Create directory using FTP
 Private Declare PtrSafe Function FtpCreateDirectory _
   Lib "wininet.dll" _
     Alias "FtpCreateDirectoryW" _
       (ByVal hFtpSession As Long, _
        ByVal lpszDirectory As LongPtr) As Boolean
  
'Close the Internet object
 Private Declare PtrSafe Function InternetCloseHandle _
   Lib "wininet.dll" _
     (ByVal hInet As Long) As Integer
      
Sub UploadFTP()

  Dim ServerName As String
  Dim UserName As String
  Dim Password As String
  Dim hostFile As String
  Dim INet As Long
  Dim INetConn As Long
  Dim SuccessDir As Long
  Dim SuccessFile As Long
  Dim RetVal As Long

   
  On Error Resume Next
  ThisWorkbook.Save
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
  CreateObject("Scripting.FileSystemObject").CreateFolder (ThisWorkbook.Path & "\_2ftp_")
  ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name)
     
  ServerName = "127.0.0.1"
  UserName = "test"
  Password = "test"
  localFile = ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name
  hostFile = "//Тест/" & ThisWorkbook.Name
   
  RetVal = False
  INet = InternetOpen("---", 0, "", "", 0)
  If INet > 0 Then
   INetConn = InternetConnect(INet, ServerName, 0, UserName, Password, 1, 0, 0)
   If INetConn > 0 Then
    SuccessDir = FtpCreateDirectory(INetConn, StrPtr("Тест"))
    SuccessFile = FtpPutFile(INetConn, StrPtr(localFile), StrPtr(hostFile), 0, 0)
    RetVal = InternetCloseHandle(INetConn)
   End If
   RetVal = InternetCloseHandle(INet)
  End If
   
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
  
End Sub

ScreenShot

При этом также и осталось - если русские символы отсутствуют, то всё работает.

Возможно вообще не в этом дело?

Перейти

загрузка файла через VBA на FTP сервер

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 26.05.2022 18:44:56 нашёл нечто похожее, но не понимаю как это применить https://ru.stackoverflow.com/questions/969677/%d0%9f%d1%80%d0%be%d0%b1%d0%bb%d0%b5%d0%bc%d0%b0-%d1%8...
	Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

26.05.2022 14:30:08

Вот так работает:

Скрытый текст

Код

'Open the Internet object
 Private Declare PtrSafe Function InternetOpen _
   Lib "wininet.dll" _
     Alias "InternetOpenA" _
       (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long
 
'Connect to the network
 Private Declare PtrSafe Function InternetConnect _
   Lib "wininet.dll" _
     Alias "InternetConnectA" _
       (ByVal hInternetSession As Long, _
        ByVal sServerName As String, _
        ByVal nServerPort As Integer, _
        ByVal sUsername As String, _
        ByVal sPassword As String, _
        ByVal lService As Long, _
        ByVal lFlags As Long, _
        ByVal lContext As Long) As Long
 
'Get a file using FTP
 Private Declare PtrSafe Function FtpGetFile _
   Lib "wininet.dll" _
     Alias "FtpGetFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszRemoteFile As String, _
        ByVal lpszNewFile As String, _
        ByVal fFailIfExists As Boolean, _
        ByVal dwFlagsAndAttributes As Long, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
 
'Send a file using FTP
 Private Declare PtrSafe Function FtpPutFile _
   Lib "wininet.dll" _
     Alias "FtpPutFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
        
'Create directory using FTP
 Private Declare PtrSafe Function FtpCreateDirectory _
   Lib "wininet.dll" _
     Alias "FtpCreateDirectoryA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszDirectory As String) As Boolean
 
'Close the Internet object
 Private Declare PtrSafe Function InternetCloseHandle _
   Lib "wininet.dll" _
     (ByVal hInet As Long) As Integer
     
Sub UploadFTP()
 
  Dim hostFile As String
  Dim INet As Long
  Dim INetConn As Long
  Dim Password As String
  Dim RetVal As Long
  Dim ServerName As String
  Dim SuccessDir As Long
  Dim SuccessFile As Long
  Dim UserName As String
  
  On Error Resume Next
  ThisWorkbook.Save
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
  CreateObject("Scripting.FileSystemObject").CreateFolder (ThisWorkbook.Path & "\_2ftp_")
  ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name)
    
  ServerName = "127.0.0.1"
  UserName = "test"
  Password = "test"
  localFile = ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name
  hostFile = "//TestFolder/" & ThisWorkbook.Name
  
  RetVal = False
  INet = InternetOpen("---", 0, "", "", 0)
  If INet > 0 Then
   INetConn = InternetConnect(INet, ServerName, 0, UserName, Password, 1, 0, 0)
   If INetConn > 0 Then
    SuccessDir = FtpCreateDirectory(INetConn, "TestFolder")
    SuccessFile = FtpPutFile(INetConn, localFile, hostFile, 0, 0)
    RetVal = InternetCloseHandle(INetConn)
   End If
   RetVal = InternetCloseHandle(INet)
  End If
  
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
 
End Sub

А вот так нет:

Скрытый текст

Код

'Open the Internet object
 Private Declare PtrSafe Function InternetOpen _
   Lib "wininet.dll" _
     Alias "InternetOpenA" _
       (ByVal sAgent As String, _
        ByVal lAccessType As Long, _
        ByVal sProxyName As String, _
        ByVal sProxyBypass As String, _
        ByVal lFlags As Long) As Long
 
'Connect to the network
 Private Declare PtrSafe Function InternetConnect _
   Lib "wininet.dll" _
     Alias "InternetConnectA" _
       (ByVal hInternetSession As Long, _
        ByVal sServerName As String, _
        ByVal nServerPort As Integer, _
        ByVal sUsername As String, _
        ByVal sPassword As String, _
        ByVal lService As Long, _
        ByVal lFlags As Long, _
        ByVal lContext As Long) As Long
 
'Get a file using FTP
 Private Declare PtrSafe Function FtpGetFile _
   Lib "wininet.dll" _
     Alias "FtpGetFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszRemoteFile As String, _
        ByVal lpszNewFile As String, _
        ByVal fFailIfExists As Boolean, _
        ByVal dwFlagsAndAttributes As Long, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
 
'Send a file using FTP
 Private Declare PtrSafe Function FtpPutFile _
   Lib "wininet.dll" _
     Alias "FtpPutFileA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszLocalFile As String, _
        ByVal lpszRemoteFile As String, _
        ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Boolean
        
'Create directory using FTP
 Private Declare PtrSafe Function FtpCreateDirectory _
   Lib "wininet.dll" _
     Alias "FtpCreateDirectoryA" _
       (ByVal hFtpSession As Long, _
        ByVal lpszDirectory As String) As Boolean
 
'Close the Internet object
 Private Declare PtrSafe Function InternetCloseHandle _
   Lib "wininet.dll" _
     (ByVal hInet As Long) As Integer
     
Sub UploadFTP()
 
  Dim hostFile As String
  Dim INet As Long
  Dim INetConn As Long
  Dim Password As String
  Dim RetVal As Long
  Dim ServerName As String
  Dim SuccessDir As Long
  Dim SuccessFile As Long
  Dim UserName As String
  
  On Error Resume Next
  ThisWorkbook.Save
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
  CreateObject("Scripting.FileSystemObject").CreateFolder (ThisWorkbook.Path & "\_2ftp_")
  ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name)
    
  ServerName = "127.0.0.1"
  UserName = "test"
  Password = "test"
  localFile = ThisWorkbook.Path & "\_2ftp_\" & ThisWorkbook.Name
  hostFile = "//ТестовыйКаталог/" & ThisWorkbook.Name
  
  RetVal = False
  INet = InternetOpen("---", 0, "", "", 0)
  If INet > 0 Then
   INetConn = InternetConnect(INet, ServerName, 0, UserName, Password, 1, 0, 0)
   If INetConn > 0 Then
    SuccessDir = FtpCreateDirectory(INetConn, "ТестовыйКаталог")
    SuccessFile = FtpPutFile(INetConn, localFile, hostFile, 0, 0)
    RetVal = InternetCloseHandle(INetConn)
   End If
   RetVal = InternetCloseHandle(INet)
  End If
  
  CreateObject("Scripting.FileSystemObject").DeleteFolder (ThisWorkbook.Path & "\_2ftp_")
 
End Sub

Во втором случае имя создаваемого каталога написано на русском.

Есть предположение что "собака порылась" в кодировках (ANSI / Unicode), но вот куда смотреть ума не приложу, помогите пожалуйста.

FTPServer это FileZilla, если к нему цепляться "руками" любым из клиентов, каталоги с русскими символами работают норм.

Такая же проблема если файл имеет русские символы в имени.

Изменено: itinich - 26.05.2022 19:23:19

Перейти

загрузка файла через VBA на FTP сервер

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

23.05.2022 20:35:43

Цитата

написал:
источник
Понравился тем, что нет ни подключения OCX ни ….

Скрытый текст

Код

    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88      'Open the Internet object       Private   Declare   Function   InternetOpen _         Lib   "wininet.dll"   _           Alias   "InternetOpenA"   _             (  ByVal   sAgent   As   String  , _              ByVal   lAccessType   As   Long  , _              ByVal   sProxyName   As   String  , _              ByVal   sProxyBypass   As   String  , _              ByVal   lFlags   As   Long  )   As   Long       'Connect to the network       Private   Declare   Function   InternetConnect _         Lib   "wininet.dll"   _           Alias   "InternetConnectA"   _             (  ByVal   hInternetSession   As   Long  , _              ByVal   sServerName   As   String  , _              ByVal   nServerPort   As   Integer  , _              ByVal   sUsername   As   String  , _              ByVal   sPassword   As   String  , _              ByVal   lService   As   Long  , _              ByVal   lFlags   As   Long  , _              ByVal   lContext   As   Long  )   As   Long       'Get a file using FTP       Private   Declare   Function   FtpGetFile _         Lib   "wininet.dll"   _           Alias   "FtpGetFileA"   _             (  ByVal   hFtpSession   As   Long  , _              ByVal   lpszRemoteFile   As   String  , _              ByVal   lpszNewFile   As   String  , _              ByVal   fFailIfExists   As   Boolean  , _              ByVal   dwFlagsAndAttributes   As   Long  , _              ByVal   dwFlags   As   Long  , _              ByVal   dwContext   As   Long  )   As   Boolean       'Send a file using FTP       Private   Declare   Function   FtpPutFile _         Lib   "wininet.dll"   _           Alias   "FtpPutFileA"   _             (  ByVal   hFtpSession   As   Long  , _              ByVal   lpszLocalFile   As   String  , _              ByVal   lpszRemoteFile   As   String  , _              ByVal   dwFlags   As   Long  , _              ByVal   dwContext   As   Long  )   As   Boolean       'Close the Internet object       Private   Declare   Function   InternetCloseHandle _         Lib   "wininet.dll"   _           (  ByVal   hInet   As   Long  )   As   Integer       Sub   UploadFTP()           Dim   hostFile   As   String        Dim   INet   As   Long        Dim   INetConn   As   Long        Dim   Password   As   String        Dim   RetVal   As   Long        Dim   ServerName   As   String        Dim   Success   As   Long        Dim   UserName   As   String               Const   ASCII_TRANSFER = 1        Const   BINARY_TRANSFER = 2             ServerName = ThisWorkbook.Sheets(1).Cells(1, 1)          UserName =   "UserName"          Password =   "Password"          localFile = ThisWorkbook.Sheets(1).Cells(1, 2)   ' "C:\TEMP\File.ext"          hostFile = ThisWorkbook.Sheets(1).Cells(2, 2)   ' "//Folder/Folder/File.ext"               RetVal =   False            INet = InternetOpen(  "MyFTP Control"  , 1&, vbNullString, vbNullString, 0&)              If   INet > 0   Then                INetConn = InternetConnect(INet, ServerName, 0&, UserName, Password, 1&, 0&, 0&)                  If   INetConn > 0   Then                    Success = FtpPutFile(INetConn, localFile, hostFile, BINARY_TRANSFER, 0&)                    RetVal = InternetCloseHandle(INetConn)                  End   If               RetVal = InternetCloseHandle(INet)              End   If       '      If Success <> 0 Then    '        MsgBox ("Upload process completed")    '      Else    '        MsgBox "FTP File Error!"    '      End If       End   Sub

как заставить это работать с русскими символами?

Перейти

Средний процент, почему так?

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 27.03.2022 01:05:40 на гуглить конечно на гуглил, как правильно считать и даже на физическом примере посчитал (*подсказка) но вот почему именно так нужно считать всё равно осталось пока ещё загадкой
	Перейти

Средний процент, почему так?

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 26.03.2022 22:38:31 Если посчитать средние значения для диапазонов чисел з1 и з2 и затем уже посчитать отношение то получится первая цифра.
	Перейти

Средний процент, почему так?

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

26.03.2022 14:56:17

что касаемо примера №2 всё выглядит вот так:
- из 100 учеников задание 1 выполнили 30 человек - это 30% от общего числа
- далее для всех задания рассчитан процент выполнивших из общего кол-ва участвовавших
- если посчитать процент общего кол-ва сдавших от общего числа сдававших, получается 37%
- но если посчитать среднее значение отношения сдавших к сдававшим - получается иное значение

Перейти

Средний процент, почему так?

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

26.03.2022 14:45:02

Цитата
написал: "B8" - это не среднее

а это и есть не среднее, это отношение сумм значений 2 к значению 1 всех чисел

Перейти

Средний процент, почему так?

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

26.03.2022 14:42:07

Это определённо разные понятия, но в данном случае вес всех чисел одинаков.
Как Вы поняли что он разный?
Возможно что-то не так описал?
Тогда дополню:
- есть число 1 оно имеет 2 значения, далее берём какой процент значения 2 есть в значении 1, и так далее для множества чисел, в данном случае для четырёх.
- затем берём среднее значение этих отношений и получаем число выделенное зелёным
при этом если считать отношение сумм значений 2 к сумме значений 1 получается иная цифра, почему?

Перейти

Средний процент, почему так?

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

24.03.2022 20:58:05

Доброго вечерочку уважаемые форумчане и форумчанки!
Никак не могу разобраться почему именно так происходит.
Т.е. как именно правильно считать понимаю, но почему одно из двух чисел не верное не понимаю.
Помогите пожалуйста разобраться в головоломке...
Итак почему же красное и зелёное числа разные?
ЗЫ: на скриншоте приведено 2 примера с формулами, оба идентичные, просто кому как удобнее для понимания.

Изменено: itinich - 24.03.2022 21:04:47 (добавление описания изображения)

Перейти

совмещение нескольких таблиц

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 13.06.2019 19:09:04 Dyroff, спасибо большое это именно то что мне нужно было - сводная таблица сделанная по промежуточной. Во вложении окончательный вариант для дальнейшего наполнения.
	Перейти

совмещение нескольких таблиц

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 13.06.2019 16:29:41 Dyroff спасибо за совет, действительно попробую развернуть таблицу из 2d в плоскую.
	Перейти

совмещение нескольких таблиц

itinich Пользователь Сообщений: 24 Регистрация: 13.06.2019	# 13.06.2019 15:24:13 второй столбец исходника. пример более, чем реальный. Изменено: itinich - 13.06.2019 20:44:22
	Перейти

совмещение нескольких таблиц

itinich

Пользователь

Сообщений: 24 Регистрация: 13.06.2019

13.06.2019 14:50:20

здравствуйте уважаемые форумчане!
никак не могу сообразить как получить конечный результат и прошу помощи.

суть задачи такая:
есть таблица в файле excel по продажам (пример исходник.jpg), в этом же файле на основе первоначальной нужно получить результирующую таблицу (пример результат.jpg).
желательно всё сделать стандартными формулами, без vba и макросов, если возможно.

в файле приведено то что уже наработано:
изначальная таблица разделена на несколько по видам продуктов
вопрос как их совместить в одну?

Перейти