草庐IT

vba - 复制行内容和格式(到另一张纸)

我想要的是将整行的内容和格式复制到另一张纸上。目前我不得不将旧单元格内容设置为新单元格内容,这样做只会复制内容而不是格式。(我的细胞有不同的颜色需要携带)目前我有以下内容:(这适用于同一工作表中的单元格)Range(Cells(45,2),Cells(45,3)).CopyRange(Cells(50,2),Cells(50,3))但是,我正在尝试从一张纸到另一张纸。(从工作表“Front_Page”复制到“vg”)。我尝试使用以下方法,显然它不起作用,但是有人可以告诉我我做错了什么吗?Range.Worksheet("Front_Page").Range(Cells(45,2),Ce

vba - 更改单元格中某些字符的颜色

我在单元格A1中有句子“我想要其中的50个,请”。我想让任何数字字符变成红色文本(只是数字字符)。我该怎么做呢?这是我所拥有的框架......SubRedText()DimiAsIntegerFori=1ToLen(Cells(1,1).Value)IfIsNumeric(Mid(Cells(1,1).Value,i,1))=TrueThen'makethecharacterredtextEndIfNextEndSub任何帮助将不胜感激。 最佳答案 您可以使用characters(start,length)属性来执行此操作。您还可以

excel - 如何通过VBA代码获取Excel 2012条件格式的色标制作的颜色

我需要知道:如何通过VBA代码获取Excel2010条件格式的色标生成的颜色。VBA随后将根据下图将这些颜色分配为图表背景:www.lnkm.cz/Slozka/Example.jpghttp://www.lnkm.cz/Slozka/Example.jpg我对各种网络方面进行了研究,并且:大多数人建议如何通过方法读取条件格式的颜色.FormatConditions(indexthatisactive).Interior.ColorIndex但在我的情况下它不起作用,因为错误“对象不支持此属性或方法”有些人建议编写自己的颜色计算(基于单元格值)。我找到了各种方法,但没有一种方法可以计算

excel - 使用VBA将单元格值从一个单元格复制到另一个单元格

在excel中,我试图将文本从一个单元格复制到另一个工作表中的另一个单元格。源单元格包含格式化文本(粗体、下划线、不同颜色)。但是当我使用VBA将文本复制到另一个单元格时,格式会丢失。我知道这是因为excel只复制文本值。有没有办法我们可以从单元格中读取HTML文本(而不是纯文本)?我用谷歌搜索了这个并没有得到任何答案。我知道如果我们使用复制和粘贴方法,我们可以复制格式。例如Range("F10").SelectSelection.CopyRange("I10").SelectActiveSheet.Paste但我不想复制和粘贴,因为我的目标是一个合并的单元格,并且与我的源单元格的大小

excel - 即使第一个数字是 0 vba,也将数字格式化为两位数

我希望能够使用VBA将1-24之间的任何数字显示为2位数字。显然,唯一有问题的是1-9,我希望显示为01、02、03等。有没有办法执行此操作? 最佳答案 不能格式化整型变量,需要用字符串变量格式化。您可以使用Day函数从日期中提取日期编号,然后使用Format将日期的日期部分转换为带有前导零的格式"00"格式的函数在必要时添加前导零Format(Day(myDate),"00")myDate是一个包含完整日期值的日期变量以下宏可用作工作示例SubMacro1()DimmyDateAsDatemyDate="2015-5-1"Dimd

excel - 如何在 VBA 中检索工作表中格式化的 Excel 单元格值?

我需要在数字列表中保留前导零。数字是这样添加的(在循环中,但这只是使用(1,1)的示例:Setcel=Sheet.worksh.Cells(1,1)cel.ColumnWidth=10cel.Value=e.Namecel.NumberFormat="0000"e.Name是数字,类似于“0720”。这在工作表上显示得很好,但如果我这样做:MsgboxSheet.worksh.Cells(1,1).Value我得到“720”。我需要它是“0720”,我知道我可以使用Len()检查并以这种方式添加零,但我想知道Range对象是否有更直接的方法可以做到这是给我的。

web-services - 是否有适用于 VB6/VBA 的 JSON 解析器?

我正在尝试使用VB6中的Web服务。我控制的服务目前可以返回SOAP/XML消息或JSON。我很难弄清楚VB6的SOAP类型(版本1)是否可以处理返回的object-而不是像string、int等。到目前为止,我无法弄清楚我需要做什么才能让VB6使用返回的对象。所以我想我可以将Web服务中的响应序列化为JSON字符串。VB6是否存在JSON解析器? 最佳答案 查看JSON.org获取许多不同语言的JSON解析器的最新列表(参见主页底部)。在撰写本文时,您将在那里看到几个不同JSON解析器的链接,但只有一个用于VB6/VBA(其他的是

web-services - 是否有适用于 VB6/VBA 的 JSON 解析器?

我正在尝试使用VB6中的Web服务。我控制的服务目前可以返回SOAP/XML消息或JSON。我很难弄清楚VB6的SOAP类型(版本1)是否可以处理返回的object-而不是像string、int等。到目前为止,我无法弄清楚我需要做什么才能让VB6使用返回的对象。所以我想我可以将Web服务中的响应序列化为JSON字符串。VB6是否存在JSON解析器? 最佳答案 查看JSON.org获取许多不同语言的JSON解析器的最新列表(参见主页底部)。在撰写本文时,您将在那里看到几个不同JSON解析器的链接,但只有一个用于VB6/VBA(其他的是

vba - 删除图表系列但保留其格式

这是我用来在VirtualBasic中动态创建图表的代码:DimChartAsObjectSetChart=Charts.AddWithChartIfbIssetSourceChartThenCopySourceChart.PasteType:=xlFormatsEndIfForEachsIn.SeriesCollections.DeleteNexts.ChartType=xlColumnClustered.LocationWhere:=xlLocationAsNewSheet,Name:=chartTitleSheets(chartTitle).MoveAfter:=Sheets(S

vba - 删除图表系列但保留其格式

这是我用来在VirtualBasic中动态创建图表的代码:DimChartAsObjectSetChart=Charts.AddWithChartIfbIssetSourceChartThenCopySourceChart.PasteType:=xlFormatsEndIfForEachsIn.SeriesCollections.DeleteNexts.ChartType=xlColumnClustered.LocationWhere:=xlLocationAsNewSheet,Name:=chartTitleSheets(chartTitle).MoveAfter:=Sheets(S