Excel VBA установка колонок по ценам на DIN A4 - PullRequest
0 голосов
/ 24 сентября 2018

У меня маленькая проблема.В одном из моих листов Excel у меня есть данные в столбцах с 2 по 88. Теперь я хочу напечатать эти столбцы на листе DIN A4.На этом листе 8 квадратов в один ряд.Теперь мне нужно поместить 10 столбцов из моего листа Excel в один квадрат и иметь один запасной столбец между этими 10 столбцами и следующими 10. Таким образом, это означает, что 11-й столбец должен быть наполовину в первом и втором квадратах.Вот почему в столбце 1 нет данных для размещения первых 10 на квадрате.

Теперь моя проблема в том, что Excel почему-то не может установить правильное значение см для этих столбцов.Это всегда устанавливает это немного большим или маленьким.Одна колонна должна быть около 0,227 см с 0,55 см с каждой стороны в качестве края.Но если я сейчас попробую это:

Set ws = ActiveWorkbook.ActiveSheet
For i = 2 To 87
     ws.Columns(i).ColumnWidth = Application.CentimetersToPoints(0.0227)
Next i

почему-то 0,227 см не работает для функции, а 0,0227 работает почти для того, что я хочу.С этим я получаю 0,24, но это просто немного.Так есть ли у кого-нибудь решение этой проблемы?

...