- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试将我的直方图设置为具有最大和最小比例,因为对于我的一些直方图,它们在开始和结束时有很多零。我正在使用
With Activechart.Axes(xlCategory)
.MaximumScale = Application.WorksheetFunction.RoundUp(Bnum, -1)
.MinimumScale = Application.WorksheetFunction.RoundDown(Snum, -1)
End With
Snum
的位置是最小的数,
Bnum
是所选范围内的最大值。
Run-time error '-2147467259 (80004005)': Method of 'MaximumScale' of object 'Axis' failed
Sub MakeHistogram()
Dim src_sheet As Worksheet, Graph_sheet As Worksheet
Dim selected_range As Range
Dim title As String
Dim r As Integer
Dim percent_cell As Range
Dim num_percent As Integer
Dim count_range As Range, bin_range As Range
Dim new_chart As Chart
Dim lRow As Long, lCol As Long, glRow As Long
Dim xStr As String
Dim RngToCover As Range, Chtob As ChartObject
Dim Snum As Long, Bnum As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayStatusBar = False
End With
With Sheets("Data")
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
lCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
End With
For i = 5 To lCol
With Sheets("Data")
Set selected_range = .Range(.Cells(6, i), .Cells(lRow, i))
End With
Set src_sheet = Sheets("Data")
Set Graph_sheet = Sheets("Graphs")
title = src_sheet.Cells(2, i).Value
With Graph_sheet
glRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If glRow = 2 Then glRow = glRow - 1
.Cells(glRow + 1, 1) = title
.Cells(glRow + 1, 1).Font.Bold = True
End With
xStr = src_sheet.Cells(5, i).Value
If xStr = "%" Then xStr = "Percentage %"
num_percent = selected_range.Count
' See how many bins we will have.
Const BIN_SIZE As Integer = 5
Dim num_bins As Integer
num_bins = 150 \ BIN_SIZE
' Make the bin separators.
Graph_sheet.Cells(1, 2) = "Bins"
For r = 1 To num_bins - 1
Graph_sheet.Cells(r + 2, 2) = r * BIN_SIZE - 1
Next r
' Make the counts.
Graph_sheet.Cells(1, 1) = "Counts"
Set count_range = Graph_sheet.Range("A" & glRow + 2 & ":A" & num_bins + glRow)
Set bin_range = Graph_sheet.Range("B" & 3 & ":B" & num_bins)
count_range = WorksheetFunction.Frequency(selected_range, bin_range)
' Make the range labels.
Graph_sheet.Cells(1, 3) = "Ranges"
For r = 1 To num_bins - 1
Graph_sheet.Cells(r + 2, 3) = "'" & _
5 * (r - 1) & "-" & _
5 * (r - 1) + 4
Graph_sheet.Cells(r + 2, 3).HorizontalAlignment = _
xlRight
Next r
r = num_bins
Graph_sheet.Cells(r + 1, 3) = "'" & _
5 * (r - 1) & "-150"
Graph_sheet.Cells(r + 1, 3).HorizontalAlignment = xlRight
' Make the chart.
Set new_chart = Charts.Add()
With new_chart
.ChartType = xlColumnClustered
.SetSourceData Source:=Graph_sheet.Range("A" & glRow + 2 & ":A" & _
num_bins + glRow + 1), _
PlotBy:=xlColumns
.Location where:=xlLocationAsObject, _
Name:="Graphs"
End With
'Get the largest and smallest number
Snum = 100
Bnum = 0
For Each cell In selected_range
With cell
If .Value < Snum Then Snum = .Value
If .Value > Bnum Then Bnum = .Value
End With
Next cell
With Graph_sheet
Set RngToCover = .Range(.Cells(glRow + 5, 5), .Cells(glRow + 22, 11))
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = title & " Histogram"
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = xStr
End With
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Count"
' Display percentage ranges on the X axis.
.SeriesCollection(1).XValues = "='" & _
"Graphs" & "'!R3C3:R" & _
num_bins + 1 & "C3"
Set Chtob = .Parent
Chtob.Height = RngToCover.Height
Chtob.Width = RngToCover.Width
Chtob.Top = RngToCover.Top
Chtob.Left = RngToCover.Left
With .Axes(xlCategory)
'Error starts here
.MaximumScale = Application.WorksheetFunction.RoundUp(Bnum, -1)
.MinimumScale = Application.WorksheetFunction.RoundDown(Snum, -1)
End With
End With
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.Overlap = 0
.GapWidth = 0
.HasSeriesLines = False
.VaryByCategories = False
End With
Next i
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayStatusBar = True
End With
End sub
最佳答案
根据Microsoft Docs MaximumScale
和 MinimumScale
不适用于 x 轴 (xlCategory),而仅适用于 y 轴 (xlValue)。所以你需要改变范围。
关于excel - 如何设置直方图x轴的最大和最小比例?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59384453/
“用 Haskell 进行函数式思考”中的练习之一是使用融合定律使程序更加高效。我在尝试复制答案时遇到了一些麻烦。 部分计算要求您将 maximum (xs++ map (x+) xs) 转换为 ma
我正在尝试获得 R 中最大/最小的可表示数字。 输入“.Machine”后 我有: $double.xmin [1] 2.225074e-308 $double.xmax [1] 1.797693e+
有没有办法更改浏览器验证消息 请检查所附图片。 我目前正在使用 wooCommerce 目前它显示小于或等于 X 个数字,我想更改为请求超过 X 个项目的报价。 请多多指教 最佳答案 您需要使用oni
我正在尝试将解决方案从 Excel 求解器复制到 R 中,但不知道从哪里开始。 问题: 每小时选择 5 个选项(5 行),以最大化“分数”的总和,而无需在多个小时内选择同一组 2 次。 换句话说: 最
Haskell 中是否有这样的功能: max_of_type :: (Num a) => a 所以: max_of_type :: Int == 2 ^ 31 - 1 // for example,
我有这两个表示时间范围(秒)的输入字段,我需要这样设置,以便“from/min”字段不能高于“to/max”,反之亦然。 到目前为止我得到了这个: jQuery(document).ready(fun
我有一个看起来像这样的表: http://sqlfiddle.com/#!9/152d2/1/0 CREATE TABLE Table1 ( id int, value decimal(10,
我会尝试尽可能简单地解释它: 首先是一些带有虚拟数据的数据库结构。 结构 tb_spec_fk feature value ----------------- 1 1 1
我有两个表。 表 1: +---------+---------+ | Lead_ID | Deal_ID | +---------+---------+ | 2323 | null |
我的数据库中有一个字段可以包含数字,例如8.00 或范围编号,例如8.00 - 10.00。 如果您将每个数字作为单独的数字,我需要从表中获取 MIN() 和 MAX()。例如当范围为 8.00 -
max(float('nan'), 1) 计算结果为 nan max(1, float('nan')) 计算结果为 1 这是预期的行为吗? 感谢您的回答。 max 在 iterable 为空时引发异常
我想问一下如何在 CSS 中创建一个页脚栏,它具有最小宽度(比如 650 像素),并且会根据窗口大小进行拉伸(stretch),但仅限于某个点(比如 1024 像素)。 我的意思是当窗口大小为例如 1
我尝试调整表格列宽(下一个链接上的“作者”列 http://deploy.jtalks.org/jcommune/branches/1?lang=en)。我已将最小/最大属性添加到 .author-c
在 C# 中,是否有用于将最小值和最大值存储为 double 值的内置类? 此处列出的要点 http://msdn.microsoft.com/en-us/library/system.windows
问题: 每个任务队列是否可以每秒处理超过 500 个任务? 每个 GAE 应用是否可以每秒处理超过 50,000 个任务? 详细信息: Task queue quota文档说: Push Queue
我想知道是否允许最大或最小堆树具有重复值?我试图仅通过在线资源查找与此相关的信息,但一直没有成功。 最佳答案 是的,他们可以。您可以在“算法简介”(Charles E. Leiserson、Cliff
首先,我是 .NET 开发人员,喜欢 C# 中的 LINQ 和扩展方法。 但是当我编写脚本时,我需要相当于 Enumerable extension methods 的东西 任何人都可以给我任何建议/
这是一个检查最大 malloc 大小的简单程序: #include std::size_t maxDataSize = 2097152000; //2000mb void MallocTest(vo
我想找到我的数据的最小值和最大值。 我的数据文件: 1 2 4 5 -3 -13 112 -3 55 42 42 而我的脚本: {min=max=$1} {if ($1max) {max=$1}
我想查询我的Elastic-Search以获取仅具有正值的最低价格价格。我的价格也可以为零和-1;所以我不希望我的最小聚合返回0或-1。我知道我应该向查询(或过滤器)添加脚本,但是我不知道如何。我当前
我是一名优秀的程序员,十分优秀!