如何将excel数据其转换为正方形?
发布时间:2023-02-18 18:33:31
Q:我怎么知道工作表单元格的默认大小是多少?也就是说,在标准状态下,单元格的长和宽各是多少?如何将其变为正方形?
A:在工作表中,当我们将鼠标放置在列之间并变成双向箭头时,按下左键,将会显示单元格的大小,如下和所示,显示单元格的宽度是8.38磅(72像素),高度是13.5磅(18像素)。
可以看到,工作表单元格默认为矩形,但看起来很奇怪,行高小于列宽但行高的值却约是列宽的值的1倍。事实上,列宽的1个单位等于标准样式下1个字符的宽度;对于比例字体,使用字符的宽度;如果单元格区域中所有列有相同的宽度,那么ColumnWidth属性返回这个宽度值;如果单元格区域中的列具有不同的宽度,那么ColumnWidth属性返回该区域中第1列的宽度值。
好了,现在我们想将工作表中的单元格从默认的长方形转换为正方形,那该如何实现呢?
此时,需要以磅为基础的相应的像素值。简单地说,我们可以将列的列宽ColumnWidth(像素)除以宽度Width(磅),然后乘以行的高度Height(磅)的结果等于新的列宽ColumnWidth(像素),循环几次使其Width和Height相同。程序代码如下:
SubSquareCells()
Dim i As Long
Dim rng As Range
If MsgBox(“你想要将工作表中所有单元格转换成方形吗?”, _
vbYesNo, “所选列或者整个工作表?”) = vbYes Then
Set rng = ActiveSheet.Cells
Else
Set rng = Selection
End If
For i = 1 To 4
With rng
.Columns.ColumnWidth = _
.Columns(“A”).ColumnWidth/ _
.Columns(“A”).Width *.Rows(1).Height
End With
Next
End Sub
运行代码并选择整个工作表,结果如下所示。
猜你喜欢
- 有时候文档的字体太小,我们看起来很费眼睛,需要调大字体,但是如果把字体改大就会使原来的排版混了,所以我们需要使用放大工具。怎么要怎么设置wo
- 很多时候,我们需要将两页a4纸的word文档内容打印到一张a3纸上,最常见的就是学校出试卷啦。在不改变页面内容的情况下,如何将两页内容打印到
- 在查看word文档内容时,我们可以根据需要设置窗口中显示的元素内容,还可以根据需要调整窗口中文档的显示比例,按指定百分比缩放大小查看文档内容
- 如果你希望体验最新的预览版Office套件,那么现在机会来了。在一开始Office2016预览版只提供给部分报名参加内测的用户,现在微软已经
- Win10电脑回收站被清空的文件怎么恢复?用户为了保证电脑流畅的运行速度和空间,会在回收站中存在一些垃圾的时候,选择清理掉。但是有时候误删了
- 我们在编辑文档的时候,为了注明文档的出处,会在文档的页眉或者页脚处插入图片logo,那么我们该如何在文档的页眉或者页脚处插入图片呢?下面就跟
- 如何在Word 2013使用过程中插入指针?在Word 2013中启动许多技巧的关键是要知道如何将插入指针移动到所需的确切位置。文字处理程序
- excel表格怎么盖电子印章?excel表格中需要改印章,该怎么盖红色的电子印章呢?下面我们就来看看excel表格设计电子印章的教程,需要的
- 班主任工作繁杂琐碎,每到各种考试,向学生反馈成绩就是一件必须完成的事情。现在不主张把所有学生的成绩全部打出并直接张贴,又得让学生尽快知道自己
- 电脑蓝屏出现代码0x0000013a怎么办?当我们的电脑出现蓝屏,并提示错误代码0x0000013a该怎么办呢,怎么解决电脑蓝屏出现错误代码
- 为了查看各项数据的前后对照关系,可以通过拆分工作表窗口的方法将工作表拆分为2个或4个独立的单元格,在独立的单元格中查看不同位置的数据。一、拆
- Win10可以说是最常用的电脑系统之一,电脑使用时间久了,就会产生许多注册表垃圾。注册表垃圾会影响电脑运行速度,那么应该如何理注册表呢?下面
- 我们知道,在默认的设置里,word办公软件的页码顺序,是从第一页开始的。不过,对于一些从事图书排版的朋友,可能会遇到word中页码不从第一页
- word2007里文档结构图目录底色,都看不清目录了,怎么去掉。打开就有的。如下图回答:具体方法如下:1、点击开始-样式(样式的右下角扩展键
- excel隐藏列没办法显示怎么办?在打开excel的时候,发现有一列不见了,如图,没有显示B列,怎么解决呢?可能我们会首先想到的是不是这一列
- 我们在使用word的时候,可能会有配图。有时因为各种原因,我们想要将配图进行旋转。那我们应该怎么做呢?下面让小编为你带来Word2003如何
- word 2013将表格文字居中的步骤如下:步骤一:首先选中相应一个或多个单元格;如图:步骤二:单击“布局”菜单;如图:步骤三:在对齐方式里
- 我们在使用word办公软件时,会经常碰到一些word资料文档里面可能会有水印的存在。那么,我们该如何去除这些word水印呢?在下面就由小编给
- 有时候我们有PDF格式的表格,但是在PDF里面我们不能够进行类似EXCEL的操作,所以我们需要将PDF格式的转换成EXCEL格式的进行操作,
- 其实这个问题不算是大问题,但是网络信息的量实在是太大了,搜索excel批量替换,一大推的信息,我测试了一个下午,总算是找到了可以使用的代码了