Tag: 标签

添加散点图数据标签如果XValue>值: 我有一个100 +系列散点图，我想添加一些数据标签的水平值大于垂直值的系列 – 即XValue>价值。我使用下面的代码将数据标签添加到所有系列： Dim mySeries As Series Dim seriesCol As SeriesCollection Dim i As Integer Set seriesCol = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection For Each mySeries In seriesCol Set mySeries = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(j) With mySeries .ApplyDataLabels .DataLabels.ShowSeriesName = True .DataLabels.ShowValue = False .DataLabels.Font.Size = 6 End With j = j + 1 Next 我会假设我会在“With”命令之前添加一个“If”命令，如下所示： If ActiveSheet.ChartObjects("Chart […]

禁用框架后更改所有标签的颜色: 禁用后，我需要一些帮助将帧的标签颜色转换为灰色。启用和禁用框架是很容易的，但我如何得到属于该框架的所有标签，并将颜色更改为灰色。我试图标记所有的框架文本框与他们各自的标签，并在文本框级工作，但它只是不工作。这是我的代码： Private Sub cbxCSENetworkDeseign_Click() Dim Tbox As MSForms.TextBox If cbxCSENetworkDeseign.Value = True Then 'Check box that will disable / enable the frame frmCustomerDetails.Enabled = False For Each Tbox In frmCustomerDetails.Controls Controls(Tbox.Tag).ForeColor = vbGrayText Next Tbox Else frmCustomerDetails.Enabled = True For Each Tbox In frmCustomerDetails.Controls Controls(Tbox.Tag).ForeColor = vbBlack Next Tbox End If End […]

VBA – 通过标签属性提取值: 我一直在使用下面的代码来从网页中提取值。 Private Sub Update() Dim IE As New InternetExplorer IE.Visible = False IE.navigate "cisco.com/" & Range("srNum").Value Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Dim Doc As HTMLDocument Set Doc = IE.document Dim sTag As String sTag = Doc.getElementById("caseheader").innerText Sheets.Add ActiveCell.Value = sTag End Sub 我现在正在一个新的页面，我需要通过属性“标题”拉值。在下面的例子中，我需要find属性“标题”的值“优先”，然后返回“P3”的值。 <div class="con-LFloat con-RAlign con-Priority Width25"> Priority […]

为什么我的Excel文件不能在href标签中下载？: 这里是一些href标签。 <td style="font-weight: bold;" class="auto-style10" headers="Sample Forms">  Sample Forms  <a href="../../Skin/faq_help/help%20Library/PSM%20templates/Oilandnh3Log.xlxs" target="_blank">Ammonia Loss and Oil Log</a> <a href="../../Skin/faq_help/help%20Library/PSM%20templates/Leak Calculator.xls" target="_blank">Ammonia Loss Calculator <a href="../../Skin/faq_help/help%20Library/PSM%20templates/CONTRACTORS On- Site Safety Review Form.docx" target="_blank">Contractor On-Site Safety Review 所有的docx文件工作正常，但不是Excel文件。我试图改变他们.xls（旧版本），但我仍然得到这个错误： 404 – 找不到文件或目录。您正在查找的资源可能已被删除，名称已更改或暂时不可用。我知道该文件在那里，path是正确的

VBA：在添加使用它的对象之前设置默认的NumberFormat: 我有一种情况是我经常从图表中添加和删除趋势线。在某些时候，我必须从数据标签中捕捉趋势线的方程。为了准确和重要的数字和一致性，我希望数据标签是科学的格式。（即“0.0000E + 00）当我想捕获数据标签时更改DataLabel.NumberFormat是非常令人沮丧的，因为我必须插入一个等待时间，以便数据标签可以在捕获之前进行更新。有没有什么我可以改变图表对象，使所有新的趋势线已经有了科学的数字格式？或者也许在Workbook_Open（）子我可以将NumberFormat的默认值更改为我的格式？这是我的代码的一个相关的例子部分。 Sub AddLinear() ActiveChart.SeriesCollection(1).Trendlines.Add Type:=xlLinear, Forward:=0, _ Backward:=0, intercept:=0, DisplayEquation:=1, DisplayRSquared:=0, Name:="Linear" End Sub Sub TrendlineEqn() Dim t As Trendline Dim eqn As String Set t = ActiveChart.SeriesCollection(1).Trendlines(1) t.DataLabel.NumberFormat = "0.0000E+00" Application.Wait (Now + TimeValue("0:00:01")) eqn = t.DataLabel.text eqn = Replace(eqn, "y= ", "") Range("A1").Value = […]

我怎么能把多个QR码在MS字？: 我是老师和跑步教练，我真的可以用你的帮助。我正在尝试使用Excel格式的数据（跑步者名称，学校，年级的列，以及使用相同信息生成该特定QR代码图像的URL的QR生成器的链接。）。这将馈送到MS Word中的标签的邮件合并。我正在寻找的最终产品是一组带有跑步者名字，学校和QR码的艾利标签。这样，每个跑步者都戴上特定的标签，在比赛中穿过终点线后，我可以用手机上的QR码应用扫描他们的信息。这对我们学校的许多老师也有很多用处：我们可以跟踪学生用品，如平装书，文件夹和这些QR代码的作业。感谢您的帮助，您可以提供！最好，戴夫

Excel VBA – 获取UserForm标签标题属性的值: 我有一个标签和文本框的用户窗体。我想遍历Lables，得到他们的Caption属性的值，并input该值作为我的列标题。这里是我的代码片段： Dim element As Control For Each element In WQTR_Form.Controls If TypeName(element) = "Label" Then For Each Cell In Range.Rows(1).Cells Cells.Value = ***Label.caption*** Next Cell End If Next element 我想弄清楚的是如何获得***Lable.Caption*** 。我尝试了element.Caption但是自动完成列表并没有显示Caption作为元素的属性，因为在当前的上下文元素中的types是Controls。我需要的是如何获得我的表单上的每个标签typesLabel.Caption的值。当然，我的整个做法可能是错的！如果你有另一种方法来做到这一点的build议，请告诉我。在此先感谢您的帮助。更新：* 首先谢谢你所有的答案。现在，我有其他奇怪的。我在回应Kostas K的评论时提到了这个，但是我想把它加到这个问题上。 For Each Cell in Range.Rows(1).Cells Cell中出现编译错误“variables未定义”。所以，作为一个总新手，我尝试添加Dim Cell as Range 。那么我得到一个编译错误，说该参数For […]

使用ssconvert从.xlsx创buildTAB分隔的值: 由于单元格值内的逗号，我无法使用.xls(x)的ssconvert实用程序进行csv转换。是否有可能使用ssconvert （命令行电子表格格式转换器）直接从xlsx创build制表符分隔值？ ssconvert infile.xlsx outfile.tsv引发Unable to guess exporter to use错误。因此，我试图在一些导出选项的规范下生成一个原始文本文件，特别是分隔符： ssconvert -O 'separator=\t format=raw' infile.xlsx outfile.txt 这导致输出如value1\tvalue2\tvalue3 ，即string\t不会被转换成tabulator。有什么build议么？

Excel VBA图表，只显示最后一点的数据标签: 我想添加数据标签只有在我的线图上的最后一点，在我使用下面的时刻，这工作正常，但只有当我知道最后一点是什么数字。我已经做了很多search，并发现在Excel中的points（points.count）对象的帮助，但我似乎无法使它为我工作。请你可以build议一种方法，只显示我的图表上的最后一点或（理想情况下）工作表上的所有图表。 Sub Data_Labels() ' ' Data_Labels Macro ActiveSheet.ChartObjects("Menck Chart").Activate ActiveChart.SeriesCollection(1).DataLabels.Select Selection.Delete ActiveSheet.ChartObjects("Menck Chart").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(59).Select ActiveChart.SeriesCollection(1).Points(59).ApplyDataLabels ActiveChart.SeriesCollection(1).DataLabels.Select Selection.Format.TextFrame2.TextRange.Font.Size = 9 End Sub

Excel图表同时将所有数据标签从值更改为系列名称: 我在Excel中尝试更改标签时在堆叠柱形图中出现此问题。我的graphics在每列中有多个列和数百个堆栈值（系列）。通过select图表然后从布局 – >数据标签 – >更多数据标签选项 – >标签选项 – >标签包含 – >（select）系列名称，我只能得到一个系列名称replace其各自的标签值。对于超过一百个系列堆积的列，我希望它们全部一次被改变，有没有什么出路？为什么它不能一次全部改变它们？