Tag: 格式

Excel中单元格的自定义属性/属性？: 我有兴趣使Excel单元格格式的macros，允许我滚动不同的选项（不同的字体/单元格颜色，不同的边框types等）。我知道我可以通过检查条件来实现这一点 – 如果我改变字体颜色，那么我可以通过使用条件逻辑来“滚动”（如果color1，然后改变为color2;如果color2，则改变为颜色3;等等）。我想知道是否有更好的方法来实现这一点 – 具体来说，有没有办法在VBA中存储单元格的自定义属性？例如，如果我将单元格B3设置为某种边框样式（细线为上，左，右，而底部为双线），是否有创build和设置Cell.CustomBorderStyle = 1的VBA属性的方法？否则，我相信我将不得不build立逻辑到我的macros的精确格式（如果顶部，左，右=薄和底部=双，然后改变第二种风格等）。我不确定在VBA中创build一个自定义的类是否允许我这样做，或者有什么办法可以做到这一点。请让我知道如果我的问题不清楚 – 谢谢！

如何格式化Microsoft Excel数据标签，而不在循环值上结束小数？: （不知道这是否是这个问题的最佳堆栈）。什么是格式有14500读为14.5万美元，但有3000读只有$ 3K没有尾随小数点？我似乎无法理解手册中的正确expression。

Coldfusion电子表格设置数据格式（h：mm）: 我正在使用Coldfusion 10，我有一个testing代码来创build一个电子表格并设置一个值为“8:30”的格式来格式化“h：mm”。代码如下： <cfset sObj = spreadsheetNew("true")> <CFSET SpreadsheetFormatCell(sObj,{dataFormat="h:mm", alignment="right"}, 1, 2)> <CFSET timehmm = "8:30"> <cfset spreadsheetSetCellValue(sObj,"#timehmm#", 1, 2)> <cfset SpreadSheetSetColumnWidth(sObj, 2, 11)> <cfspreadsheet action="write" name="sObj" filename="..\TEST.xlsx" overwrite="true"> <cflocation url="EXCEL/TEST.xlsx" addtoken="no"> 问题是，在excel文件中，我点击值为8:30的列，插入functioninput框中显示的值是8:30，应该是'8:30:00 AM'，因为我已经格式化了这个细胞。如果我input同一个单元格的值为'8:30'，然后再次单击单元格。我可以看到插入function框中的值是'8:30:00 AM'正确的。请帮忙指出我的代码有什么问题，因为我需要将此格式设置为单元格，以便稍后进行总结。目前这个单元格好像已经被识别为文本格式，不能被求和。谢谢。

使用VBA根据数据点发送电子邮件: 我基本上是试图发送一封电子邮件，如果某个数据点分别大于或小于最大值和最小值在纸上。事情是我设立了“If，Then”的声明，但并没有给我想要的结果。有些文字甚至出现，我想只显示“E”列中的数字。我想知道我哪里错了。我将在代码中指定我认为我会出错的地方。另外，我将Max和Min分别与“K26”和“K25”进行比较。感谢您的帮助！ Option Explicit Public Sub OutofControl() Dim lRow As Long Dim lstRow As Long Dim toList As String Dim ccList As String Dim bccList As String Dim eSubject As String Dim EBody As String Dim vbCrLf As String Dim data As Variant Dim ul As Variant Dim ll As […]

做while循环不适用于大数据文件: 我在excel上有大数据文件，文件有6930行和8列，8列有百分数（0％，4％，16％，18％，19％等）。我试图做一个macros来绘制所有的行，其中百分比大于18％的行，它不起作用。该文件从第3行开始，因此第1行和第2行是空的 macros： Sub Test_4 Dim i As Long Dim countErr As Long countErr = 0 i = 2 Do While Cells(i, 1) = "" If Cells(i, 8).Value > 0.18 And IsNumeric(Cells(i, 8)) Then Range(Cells(i, 1), Cells(i, 8)).Interior.ColorIndex = 3 countErr = countErr + 1 End If i = i + 1 Loop If […]

VBA Excel将数字格式化为string: 在工作表1中的值是45所以我想在工作表RESULTADO像这样的格式： 0045 Worksheets("RESULTADO").Range("B" & row_counter) = Format(Worksheets(1).Range("B" & row_counter).Value, "0000") 为什么这不起作用？我也试过这个，但都没有成功： Worksheets("RESULTADO").Range("B" & row_counter) = CStr(Format(Worksheets(1).Range("B" & row_counter).Value, "0000"))

使用单元格格式显示数字右侧的数字符号: 我需要为数字创build格式，同时保持其实际值：如果input的是负数，则减号需要出现在数字的右侧。如果input正数，加号也需要在数字的右侧。如果input1或-1 ，则只显示符号。例如2变成2 2+ ， -3变成3- 。

Excel 2013：隐藏“0小时00分钟”的时间: 我正在自定义Excel的内置时间卡模板来计算每天的加class时间。我将时间格式定制为[h]“小时”毫米“分钟”。但是问题出现在没有加class时间的一天，所以我在单元格中得到“0小时00分钟”。我想在这些单元格中显示“ – ”。我怎么做？谢谢。

兑换金钱的价值: 我似乎无法find这个或我不是在寻找正确的术语。我只是想把钱换成长串。例如，被拉到D单元的数据有$7.5K 。我想删除美元符号，并将小数点写入长格式，所以将$7.5K改为7500 。一些注意事项： – 数据是在$ 1K以上，所以没有什么会低于这个数额。 – 货币没有一个或十个值，所以这些都是00 。不确定是否可以自动执行此操作，或者使用查找/replacefunction可以更轻松地转换这些值。

自定义hh：mm：ss到十进制秒: 我有一些已经导入到Excel中的数据。例如，单元格将具有： 10:01:55 AM 格式是自定义为hh:mm:ss AM/PM 。我想把它转换成秒，所以我可以运行一些计算。我试过玩格式无济于事。我也试过这个，但是结果是0。 = HOUR(A1)*3600 + MINUTE(A1)*60 + SECOND(A1) 任何想法将不胜感激！