Как в экселе сделать квадратные ячейки?
Действительно, иногда требуется сделать в экселе файл, в котором будут все ячейки квадратные. Кажется, это сделать просто, но у многих людей все-таки возникают в этом вопросе трудности. Поэтому рассмотрим подробную инструкцию, как в программе эксель сделать квадратные ячейки:
Первый шаг. Откроем чистый лист в программе эксель. Нам необходимо сделать квадратными ячейки первых четырех столбцов.
Второй шаг. Выделим первые четыре столбца. Наводим курсор мыши между двумя шапками столбцов «А» и «В», чтобы на экране появилась двойная стрелочка (направо и налево) и выравниваем ширину до 50 пикселей.
Третий шаг. Выделяем пять строк (с 1 по 5), снова наводим курсор между двух цифр шапки «1» и «2», после чего выравниваем длину ячеек до 50 пикселей.
В итоге мы получили небольшую таблицу с квадратными ячейками. Если вам требуется выровнять большее число ячеек, то вы выполняете данный алгоритм до нужных параметров.
Как сделать квадратные ячейки в excel
Квадратные ячейки, Как сделать квадратные ячейки. Square Cells. Для этого достаточно всего лишь. Читать дальше))
Пользователь
Сообщений: 7 Регистрация: 23.12.2019
26.04.2022 10:43:18
Всем привет.
Понимаю, что область применения такой ерунды не велика, но вот понадобилось. Долго искал и не нашел. Поэтому пишу Ответ, который сочинил сам (на оригинальность не претендую).
Sub SquareCells() Dim i As Integer Dim ws As Worksheet i = InputBox("Размер квадратиков") 'Размер квадратов в буквах Set ws = ActiveSheet With ws.Range("A1") .Clear .Value = String(i, "a") .EntireColumn.AutoFit .Orientation = -90 .EntireRow.AutoFit .Parent.Cells.ColumnWidth = .EntireColumn.ColumnWidth .Parent.Cells.RowHeight = .Height .Clear End With End Sub
Пользователь
Сообщений: 11696 Регистрация: 07.11.2014
OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome
26.04.2022 11:07:54
Seregin, здравствуйте
Вспомнил классику Великолепный план. Большой Лебовски
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Пользователь
Сообщений: 7 Регистрация: 23.12.2019
26.04.2022 11:19:13
| Цитата |
|---|
| написал: Seregin , здравствуйте Вспомнил классику Великолепный план. Большой Лебовски |
К сожалению, так. Там ж проблема в том, что ширина измеряется в одних единицах, а высота в других. И прямой связи между ними в VBA нету.
Сообщений: 22254 Регистрация: 28.12.2016
Excel 2013, 2016
26.04.2022 11:32:20
| Цитата |
|---|
| Seregin написал: ‘Размер квадратов в буквах |
для Monospace шрифтов это еще звучит адекватно, а вот для остальных
просто ж текст
просто ж текст
просто ж текст
По вопросам из тем форума, личку не читаю.
Пользователь
Сообщений: 7 Регистрация: 23.12.2019
26.04.2022 12:24:38
| Цитата |
|---|
| написал: для Monospace шрифтов это еще звучит адекватно, а вот для остальных |
А при перевороте на 90 градусов строки из однотипных символов это должно как-то сыграть?
Пользователь
Сообщений: 4566 Регистрация: 10.09.2017
26.04.2022 15:57:26
Можно так попробовать подогнать ширину столбца:
Sub TestWidth() Dim i As Long With Range("A1") For i = 1 To 3 .EntireColumn.ColumnWidth = .EntireColumn.ColumnWidth * .Height / .Width Next i End With End Sub
Ёxcel — моксель!
Простая математика, Excel. Как минимум. Но не только.
Страницы
пятница, 17 декабря 2010 г.
Квадратные ячейки в Excel
Иногда бывает нужно задать точные размеры таблицы или пропорции.
Но в отличие от MS Word в Excel нет вертикальной и горизонтальной линеек, причем высота строки отображается в пунктах, а ширина столбца — в символах. Это если задавать через пункт меню «ФОРМАТ».
Но если необходимо сделать высоту и ширину ячейки одинаковыми, то можно сделать так.
Если потянуть границу заголовка столбца при настройке ширины, на всплывающей подсказке отобразится ширина столбца в символах, а в скобках будет указана ширина столбца в пикселах.
Аналогично и для высоты, только она отобразится в пунктах, а в скобках будет указана высота в пикселах.
Подобрав высоту и ширину по 100 пикселей, получим квадратную ячейку.
Я думал чтобы подсчитать размеры в сантиметрах при печати обязательно нужно знать разрешение экрана и размеры. У меня разрешение 1280 * 1024, а высота приблизительно 27 см. Получаем в одном сантиметре 1024 / 27 = 38 пикселей.
Но вот натолкнулся на интересную статью «Размер ячейки в Excel в сантиметрах».
Смысл в том, что размеры автофигур панели инструментов «Рисование» можно задавать в привычных единицах измерения миллиметрах или сантиметрах. Этим и можно воспользоваться.
VBA Excel. Квадратные ячейки (тетрадные клетки)
В этой статье мы рассмотрим создание квадратных ячеек с помощью кода VBA на рабочем листе Excel по аналогии с тетрадным листом в клетку:
Кнопка «Размер ячейки» предназначена для выбора ширины и высоты тетрадных клеток (стороны квадрата) в пикселях.
Создание тетрадных клеток
Чтобы создать квадратные клетки в Excel по аналогии с тетрадным листом, необходимо задать ячейкам рабочего листа равные высоту и ширину.
Но проблема заключается в том, что высота строк и ширина столбцов задаются разными единицами измерения, и выражение ActiveCell.ColumnWidth = ActiveCell.RowHeight не сделает активную ячейку квадратной.
Для организации программного создания тетрадных клеток мы вручную создадим несколько равносторонних ячеек, ориентируясь на пиксели, и запишем их размеры в пунктах (высота) и символах (ширина):
Получилась следующая таблица:
| Сторона квадрата в пикселях | Высота ячейки в пунктах | Ширина ячейки в символах |
|---|---|---|
| 10 | 7.5 | 0.83 |
| 15 | 11.25 | 1.43 |
| 20 | 15 | 2.14 |
| 25 | 18.75 | 2.86 |
| 30 | 22.5 | 3.57 |
Форма и элементы управления
Для выбора размера квадратных ячеек в пикселях создадим пользовательскую форму UserForm1, на которой разместим поле со списком ComboBox1 и кнопку CommandButton1.
Размеры и надписи формы и элементов управления зададим в процедуре инициализации пользовательской формы, размещенной в ее модуле: