Сообщения

Скажу больше - если увеличить масштаб просмотра, то размер в пикселях станет еще больше)) Не говоря уж о том что Экс плохо дружит с размерами, размер в пикселях это вообще относительная величина и при разном разрешении монитора она будет разной. Если хочется поглубже вникнуть, поищите в гугле pixel to points.
P.S. а вообще традиционно ширина столбца измеряется в неких шаблонных символах, в таком случае относительность пропадает.

Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=97675&TITLE_SEO=97675-sravnenie-dannykh-v-massivakh

http://www.programmersforum.ru/showthread.php?t=313704
http://forum.msexcel.ru/index.php/topic,11785.0.html
http://www.excelworld.ru/forum/10-35879-1#235589

Код (vb) Выделить Развернуть

Sub Get_Value_From_Close_Book()
   Dim vData
   Application.ScreenUpdating = False
   With Workbooks.Open(ThisWorkbook.Path & "\игорь.xlsx")  '"C:\Users\i.s.chernov\Documents\игорь.xlsx"    '"
       vData = .Sheets(1).ListObjects(1).Range.Value
       .Close False
   End With
   ThisWorkbook.Sheets(1).[A2].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
   Application.ScreenUpdating = True
End Sub

Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=97278&TITLE_SEO=97278-perekhod-po-knigam-bez-ucheta-skrytykh-okon

Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97283&TITLE_SEO=97283-sokhranenie-fayla-iz-shablona-v-formate-xlsx&MID=804297
http://www.programmersforum.ru/showthread.php?t=313504

Оформляйте код тегами, как у меня. Кнопка vbcode.

Код (vb) Выделить Развернуть

    For i = 1 To n
        If Windows(i).Visible Then s = s & Chr(10) & i & ") " & Windows(i).Caption
    Next
    s = s & Chr(10) & "Enter a number from 1 to " & n
    v = Application.InputBox(prompt:=s, Type:=2)
    i = Val(v)
    If i >= 1 And i <= n Then
        If Windows(i).Visible Then Windows(i).Activate
    End If

Да.

Форум msexcel.ru заработал.

Кросс:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=96590&TITLE_SEO=96590-validatsiya-activex-controls-na-liste-i-zapolnenie-tablitsy

Дим, привет. Что-то мне не приходят уведомления с форума. Совсем. Что со мной не так? 

Исправил ошибку в формуле, исправил макрос. Гораздо больше времени ушло чтоб понять, что Вам требуется. Комментировать я не мастак, сам пользуюсь клавишей F1 и Вам настоятельно совеую

Для начала - то что Вы намакрорекордили, мона одной строкой:

Код (vb) Выделить Развернуть

Sub www()
   Range(Sheets("Лист2").[d4].Text).Value = Sheets("Лист2").[B3]
End Subа формула в d4 пишется так:

=АДРЕС(ПОИСКПОЗ($B$1;Лист1!$A$1:$A$7;0);ПОИСКПОЗ(A3;Лист1!$B$1:$G$1;0);4;1;"Лист1")

[ст]

И тут появилась загвостка!

 
"Ничто не предвещало беды"(с)
Мой Вам совет, опишите свою задачу, а не Ваше видение ее решения. Может получите гораздо более эффективный результат. И пишите пожалуйста, грамотно. Это ж издевательство над языком.

Valetnina, это Вы печатать учитесь? В некротеме более чем трехлетней давности?
P.S. если что - тема решалась еще раньше:
http://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=32829
и даже еще раньше:
https://www.mrexcel.com/forum/excel-questions/57813-vbe-reset-windows-view-post268902.html?s=c893bfde0ad6657bc02f23d2e290968e#post268902