excel表格怎么修改坐标数值

1.如何更改excel表格中坐标轴的数值

1. 首先鼠标左键单击图表位置，使图表在选中状态下，然后点击 “格式”选项卡。

2. 在”大小'选项组中单击右边的“大小和属性”按钮。

3. 弹出“设置图表区格式”窗格，鼠标单击坐标轴数值区域。

4. 弹出“坐标轴选项”窗口，单击它，然后点击图表的图标，单击“坐标轴选项”。

5. 弹出“坐标轴选项”窗口，将 “主要”单位换算成--需要的数值，然后鼠标任意单击某一位置，“次要”单位也会自动换算，最后关闭“设置坐标轴格式“窗口。

6. 这样就完成了坐标轴的数值。

2.excel图表如何修改x坐标轴数值

解决excel图表如何修改x坐标轴数值的步骤如下：

1.拖动鼠标选中要建立图标的数据。

2.点击菜单栏上的：插入--柱形图，选择一种样式。

3.在插入的图表上，先点击纵坐标轴选中它，你可以看到这个坐标轴四周出现了四个小圆，也叫做控制点。

4.右键单击这个坐标轴，然后选择【设置坐标轴格式】。

5.在打开的坐标轴格式对话框中，我们看到坐标轴的最大值最小值等都是自动的，我们为了自己设定，必须先选中固定的，然后设定数值。这样就解决了excel图表如何修改x坐标轴数值的问题了。

3.EXCEL2007zhong怎么手动更改坐标值

复制以下代码 使用组合键ALT+F11打开VB编辑器 添加新模块—模块1 后双击并粘贴 ALT+F11切换到excel界面 在菜单栏右键—自定义—“命令”选项卡—宏—自定义按钮 拖动到菜单栏合适位置后放开 对新增加的按钮右键—指定宏 在弹出的对话框 找到 "DataLableChange" 确定 将你希望的刻度值输入在单元格内后 选中你自己做的xy散点模拟坐标轴 在菜单栏点击刚才新增的按钮 按照提示 选择刻度值区域 确定即可 如有问题请详述 ----------------------------------------------------开始复制---------------------------------------------------- Sub DataLableChange() Dim I%, LblCnt%, iRows%, iCols% Dim shnm$, sn$, Msg$ Dim rngLbl As Range Select Case TypeName(Selection) Case "DataLabel" sn = Selection.Parent.Parent.Name Case "DataLabels" sn = Selection.Parent.Name Case "Series" sn = Selection.Name Case Else MsgBox "请先选中一个系列或系列数据标签再开始使用工具."， vbOKOnly， "提示：选中系列或系列数据标签" Exit Sub End Select Err.Clear: On Error Resume Next Set rngLbl = Application.InputBox（"请输入标签所引用的区域，可以用鼠标选择区域."， "标签的引用区域"， ， ， ， ， ， 8） Err.Clear: On Error GoTo 0 If rngLbl Is Nothing Then Exit Sub iRows = rngLbl.Rows.Count iCols = rngLbl.Columns.Count LblCnt = ActiveChart.SeriesCollection(sn).Points.Count shnm = rngLbl.Parent.Name If Application.Max(iRows, iCols) < ActiveChart.SeriesCollection(sn).Points.Count Then Msg = MsgBox（"你所选择的引用单元格小于该系列需要的个数，" & Chr(10) &； " 选择""Yes""继续，" & Chr(10) &； " 选择""No""停止执行."， vbYesNo， "引用单元格数量不够"） Select Case Msg Case vbYes LblCnt = Application.Max(iRows, iCols) Case vbNo Exit Sub End Select End If Application.ScreenUpdating = False On Error Resume Next With ActiveChart.SeriesCollection(sn) For I = 1 To LblCnt Err.Clear .Points(I).ApplyDataLabels If Err.Number = 0 Then If iRows > iCols Then .Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(I, 1).Resize(1, iCols).Address(ReferenceStyle:=xlR1C1) Else .Points(I).DataLabel.Text = "='" & shnm & "'!" & rngLbl.Cells(1, I).Resize(iRows, 1).Address(ReferenceStyle:=xlR1C1) End If End If Next End With Err.Clear: On Error GoTo 0 Application.ScreenUpdating = True End Sub ----------------------------------------------------复制结束----------------------------------------------------。