Microsoft Excel’de

İlk üç satırın ve ilk dört sütunun (sol üst köşedeki 12 hücre) yüksekliğini bu hücreler kareler olacak şekilde yapmak istiyorum. Bu nasıl yapılabilir?

Şaşırtıcı bir şekilde, Excel diyor ki:

Row height: 15
Column width: 8.43

Yani, bunlar aynı ölçekte değil.

İkisini de 8.43 yapmak bana şunu veriyor:

Şimdi ne yapmalıyım?

Bir yolu daha ... görünümünüzü Sayfa Düzeni olarak değiştirin. Bu, ızgara ölçeğini inç olarak değiştirir ve ardından hem yüksekliği hem de genişliği aynı değere (ör. 25 inç) özel olarak ayarlayabilirsiniz. IMO sayfa düzeni, elektronik tablonun görünümü üzerinde çalışmak için en iyi standart görünümdür.

Her iki görünüm için gerçek boyutlarla ilgili bir örnek:

Tümünü seçin (veya ihtiyacınız olan satırları / satırları), ardından istediğiniz boyuta getirmek için sürükleyin.

1. Sütun genişliğini yeniden boyutlandırmak için sütun başlığının kenarını sürükleyin. Tam piksel sayımıyla bir araç ipucu görünür.
2. Piksel değerini hatırla!
3. Satır yüksekliğini yeniden boyutlandırmak için satır başlığının kenarını sürükleyin, aynı şekilde çalışır.
4. Aynı piksel değerine sürükleyin.

Bitti!

Excel'in sütun genişliği, Normal stille hücreye sığabilecek sıfır (0) sayısıyla ölçülür. Noktalara dönüştürmek için (satır yüksekliği nasıl ölçülür), bkz.

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

Kesin olmana gerek yok, sadece göz küresi. Göz küresinden daha yakın olmanız gerekiyorsa, sayfadaki Çizim araç çubuğundan bir kare koyun ve boyutlandırın. 10 x 10 isterseniz, bunun gibi bir kod kullanın:

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

Ardından kareyi sığacak şekilde satırınızı ve sütununuzu manuel olarak boyutlandırabilir, yükseklik ve sütun genişliğini okuyabilirsiniz.

VBA, bu kadar basit bir sonuç için biraz overkill gibi görünüyor .. Satır / sütun boyutunu değiştirmek için sürüklemeye gittiğinde tıklar ve basılı tutarsanız, piksel cinsinden boyut parantez içinde gösterilir. Bu birimler ölçeklendirilmez ve satır ve sütun boyutlarını eşit piksellere ayarlarsanız kare olurlar. Tabii ki, bu manuel bir işlemdir .. ama eşdeğer boyutları bulabilir ve ardından bir sıra / sütun aralığı seçebilir ve tüm boyutlarını bir kerede ayarlayabilirsiniz.

Tüm sayfa için yapmak istiyorsanız, bu numarayı kullanabilirsiniz - ki bu yine de faydalı olabilir: Tüm hücreleri seçmek için A başlığının solundaki kutuyu tıklayın; sütun başlığı bölücülerinden birini tıklayıp istediğiniz boyuta sürükleyin, sonuçta ortaya çıkan hücre genişliği için piksel sayısını not edin (bunu gösteren Excel 2007 kullanıyorum); aynısını satır etiketi bölücülerinden biri için yapın, bunu sütun genişliğine piksel cinsinden eşleştirin. Bu, sayfa kutularındaki tüm hücreleri yapmalıdır. Elbette istediğin şey bu değildi, ama bu numaraların bir hücre alt kümesiyle çalışacağını umuyordum. Maalesef öyle değil.

Matematiksel olarak kare olanın ve görsel olarak kare olanın farklı olduğunun farkında olmalısınız. Bütün monitörler aynı şekilde yapılmaz. Tipik olarak pikseller boylarından daha geniştir.

Aşağıdaki resme bakın:

Her kırmızı, yeşil ve mavi alt piksel, tüm pikseli oluşturur. Gördüğünüz gibi, 3'ün birleşimi 1 alt pikselin yüksekliğinden daha geniştir. Çoğu durumda, fark incedir ve çoğu insan bunu fark etmeyebilir. Ancak, bazı durumlarda, insanlar yapar.

Sütun genişliği her 1.0 punto için 7.25 satır yüksekliği ile bir kare yapılabileceğini belirledim.

Aslında geçmişte de aynı sorunu yaşadım. Benim için en uygun olan aşağıdaki VBA kodudur. Doğrusal ilişkiyi sadece deneme yanılma ile buldum.

Kod, tek hücreler için, ancak aynı zamanda bir seçim için çalışır. İkinci durumda, kareler toplam seçim genişliğini veya yüksekliğini temel alır.

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

Bu makroyu bir Modüle koyabilir ve hızlı erişim araç çubuğunda bunlara düğmeler atayabilirsiniz.

Yazı tipi türünü veya boyutunu değiştirdiğinizde karelerin kaybolduğunu (sütun genişliğini değiştirerek) unutmayın. Bunun nedeni Excel'in sütun genişliğini hesaplamasıdır. Bakınız: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel

Aşağıdaki kod benim için çalıştı

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

Sonuç:

İşte bir VBA çözümü.

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

İlk önce, yeniden boyutlandırmak istediğiniz hücreleri seçin. Sonra Homesekmede, Cellskutuya gidin ve Formatseçeneğe tıklayın . Burada , seçilen hücrelerin Row Heightve istediğiniz gibi değiştirebilirsiniz Column Width.

Bir dikiş projesi için mükemmel bir kare ızgara yapmak istedim ve bu soru için her türlü garip cevabı almaya devam ettim. Mükemmel bir kare elde etmenin imkansız olduğunu keşfettim, ama alabildiğin kadar yakın geldim, sadece bir şerit.

1. Biçimlendirmek istediğiniz kareleri vurgulayın.
2. Biçim sekmesine gidin.
3. Sütun genişliğini 12.43'te biçimlendirin
4. Ardından, hücre yüksekliğini 75.00 olarak biçimlendirin.

Bir cetvel kullanarak, 7 ila 10 inç uzunluğunda bir kesir olduğumu öğrendim. Bu yardımcı olur umarım.

5-1 / 3 oranını, satır yüksekliğini sütun genişliğine göre kullanırım.

Örneğin, bir satır 53.33 ve sütun genişliği 10 veya sırasıyla 106.66 ve 20 yapın; devlet işleri için yeterince yakın olacaksınız.

Bunun en basit çözümler olduğuna inanıyorum ...

Bu yöntem Excel cetvelini kullanarak daha anlaşılır / kolay ve doğru satır ve sütun boyutlarını kullanır.

• Seç Görünüm şeridinde
• Çalışma Kitabı Görünümleri içinde Sayfa Düzeni'ni seçin
• Cetvel görüntülenmezse, Göster grubundaki Cetvel onay kutusunu seçin.
• Tümünü Seç düğmesine basın (isim kitabının sol üst köşesi)
• Bir Satır'a sağ tıklayın, boyut ayarlama seçeneğini seçin ve ardından istediğiniz ölçüm değerini girin. Bir Sütun için sağ tıklayın ve tekrarlayın.

Bu gerçekten. Sonuç, görsel olarak mükemmel kareler olarak görünen şeydir. Excel Options'da Advanced (Gelişmiş) sekmesinin Display grubunda ölçüm birimlerini değiştirme seçeneği de bulunmaktadır. Umarım bu en yararlı olacaktır! :)

Satırlar arasındaki sınırı tıklayın ve sürükleyin. Bir defada birden fazla sütun / satırın boyutunu değiştirmek için hepsini seçin, sağ tıklayın ve "Satır Yüksekliği ..." seçeneğini tıklayın ve satırların genişliğiyle aynı yüksekliğe ayarlayın.

• Sütunları seçin (A sütununa tıklayın, daha sonra Shift tuşunu basılı tutun ve diğer ucu tıklayın)

• Sütunlardan birine sağ tıklayın, Sütun Genişliği'ne tıklayın ve ardından yeni bir değer girin.

• Aynısını bir satırla da yapabilirsiniz, ardından satırın yüksekliğini almak için Satır Yüksekliği'ni tıklayın .

Satır ve sütun kare görünmek istiyorsanız, lütfen kare yapmak istediğiniz tüm hücreleri seçin ve satırın yüksekliğini 28.8 olarak değiştirin VE sütun genişliğini 4.56 olarak değiştirin.

Basit bir çözüm

• tüm hücreleri seç
• sütunları istediğiniz piksel boyutuna sürükleyin (sütunları sürükleyip yeniden boyutlandırırken, hem noktalarda hem de piksellerde sütun boyutunu görürsünüz)
• satırlar için tekrarla (aynı sayıda piksel seçerek)
• bu, çalışma sayfasında size mükemmel kare boyutlu hücreler vermelidir

Excel 2010 Sayfa Düzeni görünümünde ayarlama ve ardından Normal görünüme geçme çalışmaz. Normal görünümde çizim araçlarını kullanarak ve mükemmel bir kare yaparak doğrulamayı başardım. Bu herhangi bir boyutta kareler yapmak için en kolay yöntemdir.

Sütun Genişliği = 2.71 Satır Yüksekliği = 18.

• Tümünü Seç - Ctrl + A
• Herhangi bir sütun başlığını sağ tıklayın ve Sütun genişliğini seçin
• Değeri girin = 4> Tamam
• Orada tüm hücreleri mükemmel kare şeklinde göreceksiniz.

Bu, numarayı VBA kullanarak oldukça düzgün bir şekilde yapar. Bir bütün birimini rowHeightdaha sonra kullanmak, Widthözelliği (döner sütunda boyutu) ve bölme RowHeightbir birimsiz yükseklik / genişlik oranı elde etmek onun tarafından. Yeni olun ColumnWidtho zamanlar orijinal ColumnWidthmake make her şey kareye.

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