दरअसल, मेरा अतीत में भी यही मुद्दा था। मेरे लिए सबसे अच्छा काम करने वाला निम्नलिखित 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
आप इन मैक्रो को एक मॉड्यूल में डाल सकते हैं और क्विक-एक्सेस टूलबार में उन्हें बटन असाइन कर सकते हैं
ध्यान दें कि जब आप फ़ॉन्ट प्रकार या आकार बदलते हैं तो वर्ग गायब हो जाते हैं (कॉलम की चौड़ाई बदलकर)। यह उस तरह से है जिस तरह से एक्सेल कॉलम की चौड़ाई की गणना करता है। देखें: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel