আসলে, আমার আগেও একই সমস্যা ছিল। আমার জন্য যা সবচেয়ে ভাল কাজ করে তা হ'ল নিম্নলিখিত ভিবিএ কোড। আমি কেবল পরীক্ষা এবং ত্রুটির দ্বারা লিনিয়ার সম্পর্কটি পেয়েছি।
কোডটি একক কোষের জন্য কাজ করে তবে একটি নির্বাচনের জন্যও কাজ করে। পরবর্তী ক্ষেত্রে স্কোয়ারগুলি মোট নির্বাচনের প্রস্থ বা উচ্চতার উপর নির্ভর করে।
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