У Microsoft Excel

Я хочу зробити висоту перших трьох рядків та перших чотирьох стовпців (12 комірок у верхньому лівому куті) такою, щоб ці комірки були квадратами. Як це можна зробити?

Дивно, але Excel каже:

Row height: 15
Column width: 8.43

Отже, це не в одному масштабі.

Створення обох 8.43 дає мені це:

Тепер, що мені робити?

Ще один спосіб ... змінити свій погляд на Макет сторінки. Це змінює масштаб сітки на дюйми, і тоді ви можете спеціально встановити і висоту, і ширину на одне значення (наприклад, 25 дюймів). Макет сторінки IMO - найкращий стандартний вигляд для роботи над зовнішнім виглядом електронної таблиці.

Ось приклад із фактичними розмірами для обох представлень даних:

Виберіть усі (або потрібні рядки / крапки), потім перетягніть, щоб змінити розмір до потрібного розміру.

1. Перетягніть край заголовка стовпця, щоб змінити розмір ширини стовпця. З'явиться підказка з точним числом пікселів.
2. Запам’ятайте значення пікселя!
3. Перетягніть край заголовка рядка, щоб змінити розмір висоти рядка, він працює так само.
4. Перетягніть до того ж значення пікселя.

Готово!

Ширина стовпця Excel вимірюється кількістю нулів (0), які можуть вміститися в комірці в стилі Normal. Щоб перетворити в точки (як вимірюється висота рядка), див

http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/

Якщо вам не потрібно бути точним, просто окулярі. Якщо вам потрібно бути ближче, ніж очне яблуко, покладіть квадрат на панелі інструментів «Малювання» на аркуші та розміріть його. Якщо ви хочете 10 x 10, використовуйте такий код:

sheet1.Shapes(1).Height = 10
sheet1.Shapes(1).Width = 10
sheet1.Shapes(1).Top = sheet1.Shapes(1).TopLeftCell.Top
sheet1.Shapes(1).Left = sheet1.Shapes(1).TopLeftCell.Left

Тоді ви можете вручну розмістити рядок і стовпець, щоб відповідати квадрату, і прочитати висоту та ширину стовпця.

VBA здається трохи надмірним для такого простого результату .. Якщо ви натискаєте і утримуєте, коли переходите, щоб змінити розмір рядка / стовпчика, розмір у пікселях відображається в дужках. Ці одиниці не масштабуються, тому, якщо встановити розміри рядків і стовпців рівними пікселями, вони будуть квадратними. Звичайно, це ручний процес .. але ви можете знайти еквівалентні розміри, а потім вибрати діапазон рядків / стовпців і встановити всі їх розміри одразу.

Якщо ви хотіли зробити це для всього аркуша, ви можете скористатися цим трюком - який у будь-якому випадку може бути корисним: натисніть поле зліва від заголовка A стовпця, щоб вибрати всі комірки; натисніть і перетягніть один із роздільників заголовка стовпця до потрібного вам розміру, зазначивши кількість пікселів для отриманої ширини комірки (я використовую Excel 2007, який це показує); зробіть те ж саме для одного з роздільників міток рядків, зіставивши його з шириною стовпця пікселями. Це повинно зробити всі клітинки в аркушах аркушів. Що, звичайно, не те, про що ви просили, але я сподівався, що цей трюк буде працювати з підмножиною комірок. На жаль, це не так.

Потрібно знати, що математично квадрат, а що візуально квадрат, є різними. Не всі монітори зроблені однаково. Зазвичай пікселі ширші, ніж високі.

Подивіться на наступне зображення:

Кожен червоний, зелений та синій субпікселі складають цілий піксель. Як бачимо, комбінація 3 ширша за висоту 1 піксель. У більшості випадків різниця непомітна, і більшість людей може цього не помітити. Однак у деяких випадках це роблять люди.

Я визначив, що квадрат може бути складений у співвідношенні 7,25 висоти рядка на кожні 1,0 точки ширини стовпця.

Власне, у мене було те саме питання і в минулому. Що найкраще для мене - це наступний код VBA. Я виявив лінійне відношення просто пробою та помилками.

Код працює для одиночних комірок, але також і для вибору. В останньому випадку квадрати базуються на загальній ширині вибору або висоті.

Sub MakeCellSquareByColumn()
    Selection.RowHeight = Selection.Width / Selection.Columns.Count
    Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub

Sub MakeCellSquareByRow()
    Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
    Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub

Ви можете розмістити ці макроси у модулі та призначити їх кнопкам на панелі інструментів швидкого доступу

Зауважте, що квадрати зникають (змінюючи ширину стовпця), коли ви змінюєте тип або розмір шрифту. Це пов'язано з тим, як Excel обчислює ширину стовпця. Дивіться: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel

Наступний код працював для мене

Sub Grid_Squares()
    With Cells(1, 1)
        Cells.RowHeight = .Width
        Cells.ColumnWidth = .ColumnWidth
    End With
End Sub

Результат:

Ось рішення VBA.

Private Sub MakeSquareCells()

'//  Create graph paper in Excel see    http://www.erlandsendata.no/english/index.php?d=envbawssetrowcol  if you want cm or inches


    Set Cursheet = ActiveSheet

    'don't drive the person crazy watching you work
    UpdateScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    With wksToHaveSquareCells
        .Columns.ColumnWidth = 5 '// minimum 2, max 400 ; above 7 --> zoom doesn't work nice
        .Rows.EntireRow.RowHeight = .Cells(1).Width
        '// ActiveWindow.Zoom = true
    End With

    Application.ScreenUpdating = UpdateScreen
    Cursheet.Activate           '// Reactivate sheet that has been active at entrance of this subroutine

End Sub

Спочатку виберіть комірки, які ви хочете змінити. Потім на Homeвкладці перейдіть до Cellsполя та натисніть на Formatопцію. Тут ви можете змінити Row Heightі Column Widthвибрані комірки, як вам потрібно.

Я хотів зробити ідеальну квадратну сітку для швейного проекту і постійно отримував всілякі дивні відповіді на це питання, тому вирішив сам пограти з ним, щоб розібратися. Я виявив, що неможливо отримати ідеальну площу, але я підійшов так близько, як ви можете дістатись, просто засуньте.

1. Виділіть квадрати, які потрібно відформатувати.
2. Перейдіть на вкладку формату.
3. Відформатуйте ширину стовпця на 12.43
4. Потім відформатуйте висоту комірки до 75,00.

Використовуючи лінійку, я виявив, що я був лише фракцією в довжину 7 і 10 дюймів. Сподіваюсь, це допомагає.

Я використовую співвідношення 5-1 / 3, висота рядка до ширини стовпця.

Наприклад, зробіть ряд 53.33 у висоту, а ширина стовпця - 10, або 106,66 та 20 відповідно, і ви будете досить близькими для роботи уряду.

Я вважаю, що це найпростіші рішення ...

Цей метод використовує лінійку Excel, таким чином, більш зрозумілі / простіші та точніші розміри рядків і стовпців.

• Виберіть Перегляд на стрічці
• У розділі "Перегляди робочої книги" виберіть " Макет сторінки"
• Якщо лінійка не відображається, установіть прапорець Лінійка в групі Показати.
• Натисніть кнопку Вибрати все (верхній лівий кут під книгою імен)
• Клацніть правою кнопкою миші рядок, виберіть параметр регулювання розміру та введіть потрібне значення вимірювання. Клацніть правою кнопкою миші та повторіть стовпець.

Це справді. Результат - це візуально ідеальні квадрати. Існує навіть можливість змінити одиниці вимірювання в групі "Дисплей" на вкладці "Додаткові" в Параметри Excel. Сподіваюсь, це буде найбільш корисно! :)

Клацніть та перетягніть межу між рядками. Щоб змінити розмір стовпця / рядка за один раз, виберіть їх усі, клацніть правою кнопкою миші та натисніть «Висота рядка ...» та встановіть її на ту саму висоту, що й рядки широкі.

• Виберіть стовпці (натисніть стовпець A, потім утримуйте shift і натисніть інший кінець)

• Клацніть правою кнопкою миші один із стовпців, натисніть Ширина стовпця та введіть нове значення.

• Можна зробити те ж саме з рядком, а потім натиснути Висота рядка, щоб отримати висоту рядка.

Якщо ви хочете, щоб рядки та стовпці виглядали квадратними, виберіть усі клітинки, які ви хочете зробити квадратними, і змініть висоту рядка на 28,8 І змініть ширину стовпця на 4,56.

Просте рішення

• виберіть усі комірки
• перетягніть стовпці до потрібного розміру пікселів (ви побачите розмір стовпця в обох точках та пікселях під час перетягування та зміни розмірів стовпців)
• повторити для рядків (вибравши однакову кількість пікселів)
• це повинно дати вам ідеальні клітини квадратного розміру на робочому аркуші

Excel 2010 Настроювання в режимі перегляду сторінки та повернення до звичайного перегляду не працює. Мені вдалося перевірити, скориставшись інструментами малювання та зробивши ідеальний квадрат у звичайному поданні. Це найпростіший спосіб зробити квадрати будь-якого розміру.

Ширина стовпця = 2,71 Висота рядка = 18.

• Виберіть Усі - Ctrl + A
• Клацніть правою кнопкою миші будь-який заголовок стовпця та виберіть Ширина стовпця
• Введіть значення = 4> Добре
• Там ви побачите всі клітини в ідеальній квадратній формі.

Це робить трюк досить акуратно за допомогою VBA. Встановіть рівномірний rowHeight, потім скористайтеся Widthвластивістю (повертає розмір стовпця в балах) і розділіть RowHeightйого, щоб отримати співвідношення висоти / ширини без одиниць. Зробіть нове, ColumnWidthщо часів оригінальне, ColumnWidthщоб все було квадратним.

Sub makeSquares() 
Cells.RowHeight = 20
With Cells(1, 1)
W = .ColumnWidth
HWratio = .RowHeight / .Width
Cells.ColumnWidth = W * HWratio
End With
End Sub