excel2003表格 自动换行

发布网友 发布时间：2023-05-17 22:18

我来回答

共5个回答

热心网友 时间：2023-09-17 12:06

打开Excel。

将需要进行换行的单元格用鼠标拖成如图颜色区域，为了比较，仅对部分单元格进行换行处理。

按“ctrl+1”召唤出设置单元格的窗口。

点击设置单元格窗口的“对齐”子栏目，进行下一步的设置。

在“对齐”页下，勾选“自动换行”，并点击确认。

现在再来输入内容，为了比较效果，分别在两个单元格内输入相同的文字内容，就可以看出这两者的差异。

热心网友 时间：2023-09-17 12:06

你已经设置了自动换行，只要把列宽设置成只能放下五个数字就行了。

热心网友 时间：2023-09-17 12:07

1、单元格格式设置为自动换行
2、调整列宽到刚好能排开5个字符追问不行呢，光标还是不能自动跳到下一行，如果不按方向键 所有的数都挤在一个单元格

追答检查一下是否所有的单元格的格式的对齐里都设置了自动换行？
最后能整列的设置单元格格式
光标不会自动跳到下一行，你输完所有数据后，单元格会自动排列换行的

热心网友 时间：2023-09-17 12:08

能另类地做到，比较繁琐：
Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub
Private Sub Worksheet_Deactivate()
Unload UserForm1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Label1 = Target.Row
UserForm1.Label2 = Target.Column
UserForm1.Label3 = "当前位置为第 行第 列"
End Sub

Private Sub TextBox1_Change()
If Label1 = "" Or Label2 = "" Then Exit Sub
If Len(TextBox1.Text) > 3 Then
If Sheet1.Cells(Val(Label1), Val(Label2)) <> "" Then
If MsgBox("当前单元格有内容,要复盖吗？", vbYesNo, "提示") = vbNo Then Exit Sub
End If
Sheet1.Cells(Val(Label1), Val(Label2)) = TextBox1.Text
Label1 = Label1 + 1
TextBox1.Text = ""
End If
End Sub

Private Sub UserForm_Initialize()
If Label1 = "" Or Label2 = "" Then
Label3 = "请选中要输入内容的单元格"
Else
Label3 = "当前位置为第 行第 列"
End If
End Sub

热心网友 时间：2023-09-17 12:08

你要打的数字是否有规律呢 有规律的话可以的