betway体育珀尔帖效应科技博客

向用户询问一个范围

VBA提供了许多与用户交互的方式。对话框允许您向用户发送消息，并获得简单的响应(是/否或ok /cancel)。的InputBox您可以要求用户输入一些信息。你可以设计整个窗体作为一个自定义对话框。

我们将使用一个InputBox从用户那里获得一个范围。有两种的InputBox:普通的InputBox接受文本来自用户的输入，并Application.InputBox，它允许您要求用户提供某种类型的信息。因为我们需要一个范围，我们用Application.InputBox。所需的语法是:

提示符为String， [Title]， [Default]， _[左]，[上]，[HelpFile]， [helpcontext tid]， [Type])

您提供的提示告诉用户您需要什么标题为了的InputBox和一个默认值。剩下和最佳定位的InputBox但并没有在最近的记忆工作。帮助文件和HelpContextID如果你有帮助的内容使用的InputBox。最后,类型描述你想要的数据类型;对于我们的目的，类型8用于一个范围内。

这里是一个简单的VBA程序使用Application.InputBox。它采用简单的提示，标题和默认参数，再加上8范围内，而在参数之间的空白。当返回一个范围内，这些细胞都充满红色。

Sub GetUserRange1() Dim UserRange作为范围设置UserRange = Application。输入框("Prompt"， "Title"， "$A$1"，，，， 8)端子

当代码运行时，它是这样的。默认范围用黑色虚线轮廓突出显示。

当选择了另外的范围，其地址出现在的InputBox，新的范围突出一个黑暗的虚线轮廓。

然后单击OK，选中的单元格被填充为红色。

如果我们试图进入任何不是一个范围，我们得到了一个警告。

如果我们放弃并点击取消，我们会得到一个运行时错误。该声明称的InputBox被突出显示。

警告是好的，但是我们不想让可怜的用户承受运行时错误，所以我们将对代码做一些小修改。实际上,两个修改。首先，我们包装调用的InputBox在在错误继续下一步和对错误转到0。然后，如果用户已经取消了，UserRange不会被分配，是吗没有什么，如果是这样的话，我们会试图格式化一个不存在的范围，这将导致另一个错误之前保释出来。

Sub GetUserRange2() Dim UserRange作为Range在错误继续下一步设置UserRange =应用程序。的InputBox("Prompt", "Title", "$A$1", , , , , 8)对错误转到0如果UserRange是没有那么退出子UserRange.Interior。端子

执行也会在两个地方退出上面的子程序退出子如果UserRange什么或结束小组在最后。如果你像我一样有一点强迫症，你会希望代码总是在一个地方退出，所以我通常使用这个结构代替:

子GetUserRange2A（）昏暗UserRange作为范围上的错误恢复下一批UserRange = Application.InputBox（ “提示”， “标题”， “$ A $ 1”，，，，，8）对错误转到0如果不是用户范围，那么什么都不是UserRange.Interior。如果末端子，则末端子

让我们在代码中添加一些文本变量，并允许一个智能的默认范围(或者，如果这样做更有意义，您可以省略默认以留空)。

子GetUserRange3（）昏暗提示作为字符串提示=“选择范围”点心标题作为字符串标题=“选择范围”点心默认作为字符串默认如果TypeName(Selection) = "Range"，则为"$A$1"默认=选择。地址(真，真)结束如果暗淡UserRange作为范围在错误继续下设置UserRange =应用程序。inputbox (提示,标题,默认，，，， 8)错误转到0，如果不是UserRange是什么，那么UserRange. interior。如果末端子，则末端子

所以，现在我们知道如何从用户那里得到一个范围，让我们把它更好地利用不仅仅是格式化范围内有一个红色的背景。

选择范围并指定系列名称

在这个例子中，我们会要求用户提供包含系列名称的范围，我们将通过一个适用范围到活动图表的系列之一，直到我们在选定范围图表或单元串联用完。

由于我们活动图表上工作时，用户必须在运行代码之前选择一个图表。我们将使用这种结构，以确保有一个活动的图表：

子DoSomethingToActiveChart ()如果活动艺术什么都不是MSGBOX“选择图表，然后再试一次。”，vbExclamation，“不图中选择”别人的做我们的事在这里结束如果结束小组

通常我只是摆脱困境，如果没有活动图表，但它是很好的让用户知道为什么当他们点击一个按钮，什么都没有发生。

在下面的过程中，我们首先检查一个活动图表，然后我们要求含有系列名称的范围。然后，我们要确保的范围是单个行或列（不是绝对必要的，但除此之外，它得到复杂的），以及步骤通过一系列图表，使用每个小区的范围内作为该系列的标题。

子SelectRangeWithSeriesNames()如果ActiveChart不存在，则MsgBox“选择一个图表并重试”，vbexballot，“没有选择图表”，否则Dim提示符作为字符串提示=“选择一个包含活动图表系列名称的范围”。Dim Title As String Title = "Select Series Names" Dim SeriesNameRange As Range On Error Resume Next Set SeriesNameRange = Application.InputBox(Prompt, Title, , , , , , 8) On Error GoTo 0 If Not SeriesNameRange Is Nothing Then If SeriesNameRange.Rows.Count = 1 Or SeriesNameRange.Columns.Count = 1 Then With ActiveChart Dim iSrs As Long For iSrs = 1 To .SeriesCollection.Count If iSrs <= SeriesNameRange.Cells.Count Then .SeriesCollection(iSrs).Name = _ "=" & SeriesNameRange.Cells(iSrs).Address(, , , True) End If Next End With Else MsgBox "Select a range with one row or one column", vbExclamation, _ "Must be One Row or Column" End If End If End If End Sub

这里是一个图表。突出显示的数据的范围示出的Y的值是在C5：E10，和类别标签（X值）的B5：B10，但无系列名称被突出显示。该系列产品名称系列1等的传说也表明，没有一系列的名字已被指定。

让我们使用C2:E2中的标签来命名系列名称。运行代码:的InputBox正在等待一个范围被选择。

选择范围：它是用深色虚线轮廓突出。

单击确定，选择的范围是现在突出的系列名称，图表图例显示这些标签作为系列名称。

上面的过程可用于为没有名称的图表分配系列名称(图例条目)，或替换已有名称(条目)的图表。

如果没有足够的细胞在选定的范围内，有的系列没有得到分配新名称。如果有更多的细胞比系列，代码忽略多余的细胞。

选择范围和分配类别

在几乎相同的方式，我们可以问包含类别标签的范围内的用户（X轴的值），以分配给一个图表。betway体育

子SelectRangeWithCategoryLabels（）如果ActiveChart是没什么然后MSGBOX“选择图表，然后再试一次。”，vbExclamation，“不图中选择”否则昏暗提示符字符串提示=“选择包含类别标签将活动图表的范围。”昏暗的标题字符串标题=“选择类别标签”暗淡CategoryLabelRange为靶场上的错误继续下一步设置CategoryLabelRange = Application.InputBox（提示，标题，，，，，，8）对错误转到0如果不CategoryLabelRange是没有那么如果CategoryLabelRange。Rows.Count = 1或CategoryLabelRange.Columns.Count = 1，然后用ActiveChart如果CategoryLabelRange.Cells.Count = .SeriesCollection（1）.Points.Count然后.SeriesCollection（1）.XValues = CategoryLabelRange否则MSGBOX“选择与一个范围正确数量的点。“，vbExclamation，_‘的点’结束如果结束的ELSE MSGBOX‘打错了选择具有一行或一列的范围’，vbExclamation，_‘必须是一行或一列’如果结束如果结束如果END SUB

上面的过程可以用于为没有类别标签的图表分配类别标签(X轴值)，或者替换已有标签的图表中的现有标签。betway体育

选定的范围必须有一行多列或一列多行。(在某些情况下，图表可以有使用多行/多列的类别标签，但这比本例所需的复杂得多。)如果不满足此条件，代码将告诉用户再试一次。

这里是一个图表。突出显示的数据的范围示出的Y的值是在D3：F8，并且在D2中的系列名称：F2，但没有类别被突出显示。类别标签1，2，3等沿X轴也表示没有类别被指定。betway体育

让我们使用B3:B8中的标签来分类。运行代码:的InputBox正在等待一个范围被选择。

选择范围：它是用深色虚线轮廓突出。

单击OK，选中的范围现在突出显示为类别范围，水平轴将这些标签显示为类别。betway体育

上面的过程可以用于为没有类别的图表分配类别(X值)，或者替换已有类别的图表中的现有类别。

如果所选范围的单元格数与序列中的点的数目不一致，则过程将告诉用户选择具有正确数目标签的范围。

查找范围和分配系列名称

如果我们从理想形状的范围构造一个图表，那么工作表中的X值、Y值和系列名称的排列方式是可预测的。在这个图表中，系列数据是列式的。级数的Y值位于垂直范围内，级数名称位于这些Y值正上方的单元格中。类别标签(X值)位于第一个系列的Y值左边的列中。

在下一个图表中，系列数据是按行排列的。级数的Y值在水平范围内，级数名称在这些Y值的左边的单元格中。X值在第一个级数的Y值上面一行。

如果由于某种原因图表构建无系列名称或无类别标签，但缺少的元素是相对于Y值右对齐，我们可以发现使细胞与系列名称或类别标签并将其分配给图表。

查找范围和分配系列名称

下面的步骤处理活动图表中的每个系列。首先查找级数公式，并将其参数提取到数组中。代码在第三个参数中找到Y值的地址，并定位相关的范围。然后，它确定数据是按列还是按行，用系列名称标识单元格，并使用该单元格的地址作为系列的名称。

Sub FindAndApplyNamesToSeries()如果没有ActiveChart是什么，那么用ActiveChart Dim srs作为.SeriesCollection中每个srs的系列“系列式昏暗sFmla作为字符串sFmla = srs.Formula“刚才的论点sFmla =中$（左$（sFmla，LEN（sFmla） -  1），InStr函数（sFmla， “（”）+ 1）'分裂成阵列模糊vFmla作为变体vFmla =分裂(sFmla， "，")'Y值是第三参数为管柱的暗量= vFmla(LBound(vFmla) + 2)'Y值范围设置rYVals =范围(sYVals)“通过行或列？如果rYVals.Rows。然后计数> 1'通过柱，所以使用上述Y值的列单元设置rName = ryval . offset (-1). resize (1) ElseIf ryval . columns。然后计数> 1“按行，所以用电池左边的Y值设置rName = rYVals。抵消(,1)。调整(1)“一个单元只：谁知道？设置RNAME =无结束如果如果不RNAME是没有那么srs.Name = “=” ＆rName.Address（，，，真）结束如果下一页结束结束如果END SUB

下面图表的数据范围是完整的，但是系列名称与它没有关联。

选择图表并运行过程，它将应用系列名称。

如果图表中的系列已经有名称，则此过程将用在工作表中找到的名称覆盖这些名称。

查找范围并分配类别

下面的过程处理活动图表中的第一个系列。首先查找级数公式，并将其参数提取到数组中。代码在第三个参数中找到Y值的地址，并定位相关的范围。然后，它确定数据是按列还是按行，确定与类别(X值)的平行范围，并使用这个范围作为第一个系列的类别，从而作为图表的类别。

subfindandapplycategories estochart()如果不ActiveChart是什么，那么使用ActiveChart Dim srs作为系列设置srs = .SeriesCollection(1)“系列式昏暗sFmla作为字符串sFmla = srs.Formula“刚才的论点sFmla =中$（左$（sFmla，LEN（sFmla） -  1），InStr函数（sFmla， “（”）+ 1）'分裂成阵列模糊vFmla作为变体vFmla =分裂(sFmla， "，")'Y值是第三参数为管柱的暗量= vFmla(LBound(vFmla) + 2)'Y值范围设置rYVals =范围(sYVals)“通过行或列？如果rYVals.Rows。然后计数> 1“通过柱，所以使用列左边的Y值昏暗rXVals作为范围设定rXVals = rYVals.Offset（，-1）elseif的rYVals.Columns.Count> 1然后'按行计算，所以使用Y值上面的行设置rXVals = ryves . offset (-1) Else“一个单元只：谁知道？设置rXVals =无结束如果如果不rXVals是没有那么srs.XValues = rXVals结束如果结束结束如果END SUB

下面图表的数据范围是完好的，但不知何故，类别没有连接到它。

选择图表并运行过程，它将类别应用于图表。

如果图表中的系列已经有类别，则此过程将用在工作表中找到的新标签覆盖这些类别。

选择图表源数据区域

为了完整起见，在这里的是，让用户选择为活动图表的图表源数据的例程。

子SelectChartSourceDataRange()如果ActiveChart不存在，则MsgBox“选择图表并重试”，vbexballot，“未选择图表”，否则Dim提示符为String Prompt =“选择包含活动图表源数据的范围”。Dim Title As String Title = "Select Chart Source Data Range" Dim ChartSourceData As Range On Error Resume Next Set ChartSourceData = Application.InputBox(Prompt, Title, , , , , , 8) On Error GoTo 0 If Not ChartSourceData Is Nothing Then ' if a range was selected If ChartSourceData.Rows.Count >= ChartSourceData.Columns.Count Then Dim DataOrientation As XlRowCol DataOrientation = xlColumns Else DataOrientation = xlRows End If ActiveChart.SetSourceData ChartSourceData, DataOrientation End If End If End Sub

乔恩的工具箱

如果你密切关注这个博客，你可能听说过乔恩的工具箱，一个新的Excel插件，我最近发布的。我已经从像你的读者对此做出实用一些变化，这要归功于建议。

乔恩的工具箱已经有一个特点，使得它很容易选择图表的新的源数据范围。虽然完成了这篇文章，我意识到，这些功能应包括在软件中。

该功能只被添加到我的计算机上的软件的开发人员版，但在一个星期左右我会释放出一个新的版本，其中包括这些新的功能。如果你已经有乔恩的工具箱，订阅我的通讯听到当新版本是活的。如果你没有Jon的工具箱，你可以在我的文章的底部得到它乔恩的工具箱 - 一种新的珀尔帖实用技术betway体育。