Tag: 格式化

如何使用EPPlus将电子表格单元格的内容设置为会计格式？: 我需要将某些列的内容设置为会计格式。这一尝试： public static readonly string NUMBER_FORMAT_ACCOUNTING = "$"; . . . bidPriceCell.Style.Numberformat.Format = NUMBER_FORMAT_ACCOUNTING; …只是给出“$”和“ – $”作为值。这一尝试： public static readonly string NUMBER_FORMAT_ACCOUNTING = "$0.00"; . . . bidPriceCell.Style.Numberformat.Format = NUMBER_FORMAT_ACCOUNTING; …给我的价值，如“$ 24.09”和“ – $ 0.91” 用户想要的是美元符号和价值之间的空间，以及诸如“$ 24.09”和“$（0.91）”之类的负值什么string，我需要分配的Numberformat.Format属性这个工作？

Excel 2013条件格式化NOT（）运算符似乎不起作用: 我感到困惑的以下。我一定是做错了什么，但看不到。这工作 =FIND(A$6,CONCATENATE($A$2,$B$2,$C$2,$D$2,$E$2,$F$2,$G$2,$H$2,$I$2,$J$2,$K$2,$L$2,$M$2)) 这不起作用 =NOT(FIND(A$6,CONCATENATE($A$2,$B$2,$C$2,$D$2,$E$2,$F$2,$G$2,$H$2,$I$2,$J$2,$K$2,$L$2,$M$2))) 一切都一样，范围相同，唯一不同的是NOT（）运算符应该将条件从TRUE更改为FALSE，并突出显示FIND（）结果不为TRUE的单元格。

如何使用条件格式来获得Excel中前10％的绝对值？: 我试图findExcel中指定范围值的前10％。我的负面价值不被认为比我的正面价值“低”。我的意思是这是差异值，所以即使是很大的负值仍然可以考虑在前10％。我试图在条件格式中应用这个公式，但它似乎突出了我的整个范围的值，而不是只有前10％。 =ABS(B37)>=PERCENTILE(ABS($B$37:$S$67),0.10) 有想法该怎么解决这个吗？

试图让VBA代码复制粗体格式？: 这是我目前的实现（这是一个更长的脚本的一小部分）： Dim j As Integer, q As Integer q = 2 For j = 1 To 300 If Sheet2.Cells(j, i).Value = "X" Then Sheet1.Cells(q, 4).Value = Sheet2.Cells(j, 3).Value If Cells(j, 3).Font.Bold = True Then Sheet2.Cells(j, 3).Copy Sheet1.Cells(q, 4).PasteSpecial (xlPasteFormats) End If q = q + 1 End If Next j 这段代码循环遍历一个范围，并find在另一列有X的值，这是为了别的。但我想也得到它来复制特别是粗体格式。这个实现“有效”，因为它运行起来，但是令人困惑的是，它有时只是粗体格式化，通常只是一组粗体条目中的第一个粗体条目。我不能只是复制每一个，因为虽然这样做，它也运行缓慢，通常是丑陋的。也许如果我包含一个DoEvents […]

excel数字格式 – 不同的十进制数字: 我试图用这些规则设置一个特殊的单元格数字格式：显示百分比最多显示3位数字（十进制+整数部分）所以我可以显示100％或99.3％或1.27％，但不是100.9％或100.27％或99.27％。当然，我可以有负数（-27.3％），这并不影响我的规则。我已经尝试使用单元格格式选项，但没有成功： [<1]0.00%;[<10]0.0%;0% 因为excel（2010）在cell格式中不支持超过2个条件（所以我不能扩展它来pipe理负数…）无论如何要做我想要的？谢谢

VBA代码 – 保留格式化数据复制到不同的工作表: 作为Excel中的VBA的新用户，我正在尝试完成以下操作： 1）检查一个名为“索引”的工作表中的一列中的多行，作为条件（我的条件是在J列的单元格中查找字母Y） 2）将满足条件的每行中的选定列复制到VBA代码中编程的另一个表格，例如“Sheet2” 3）保留被复制的单元格的格式，特别是公式和粗体字体。我之前在VBA代码中问过一个问题，将符合条件的行中的选定列复制到另一个表中，并被ATl LED友好地给出以下代码，它工作并复制值而不是格式（我忘了在我的问题中包括这个）我试验了代码并调整了IF语句中的.FormulaR1C1值。公式被复制，并在工作表复制，即工作表2，但我不能让格式工作。我错过了什么？ Sub try3() Dim i, x As Long Dim Y as String Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets("Index") Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Sheet2") x = 5 Y = "Y" For i = 2 To 500: If ws1.Cells(i, 10) = Y Then […]

使用R将新数据附加到格式化的xlsx工作表: 我正在尝试使用xlsx包来帮助清理复杂的数据集，因为有新数据出现。我正在寻找一个如下所示的工作stream程：将数据导入R，做一些编码的数据清理。将数据写入一个xls文件，将其保存到一个保pipe箱文件夹然后，不具备R语言能力的同事（和我自己）可以进行手动数据清理随着更多的数据进入，我重复步骤1，然后将其附加到现有的XLS文件，保留格式，如突出显示，注释或粗体。最后，我很好奇，如果我希望能够在LibreOffice（在我使用的Linux）和Excel（在同事使用的Windows中）中工作，这是相关的。目前，我无法find将数据追加到现有电子表格的方法，而没有完全重写（并因此丢失任何格式）。下面是一个我希望能够使用预加载的iris数据集的例子： #Import data, do some coded cleaning: data = iris[1:10,] data$Sepal.Ratio = with(data, Sepal.Length/Sepal.Width) data$Sepal.Length = NULL data$Sepal.Width = NULL data$Species = as.character(data$Species) #Write to excel… write.xlsx(data,file="ss.xls") #Manually make some changes system('soffice /path/to/ss.xls') （见截图） #Load and clean more data… data = iris[11:20,] data$Sepal.Ratio = with(data, Sepal.Length/Sepal.Width) […]

尝试将所有单元格中的格式从一个Excell表单复制到另一个表单中，特别是使用VBA保持填充和文本颜色: 我有一个工作的VBA脚本，完全复制我需要的格式除外。我至less需要它来复制填充和文本颜色。这是我目前的代码。 Private Sub Workbook_Open() Application.DisplayAlerts = False Cells.Select Range("A1").Activate Selection.ClearContents Selection.UnMerge Selection.ClearContents Range("A1").Select Workbooks.Open Filename:= _ "Photo\Studio\\DAILY_REPORT_BACKUPS\DIGI_Review_Terry.xlsm" Range("A1:XFD70").Select Range("A1:XFD70").Activate Selection.Copy ActiveWindow.Close Range("A1").Select Sheets("Terry").Paste ActiveWorkbook.Save End Sub>

使用下面一行中的格式插入Excel行，而不是上面的行: 我需要使用C＃将一行插入到现有的Excel工作表中，但保留现有的格式。在Excel中的默认行为是使用上面的行的格式，这在某些情况下是我不想要的，因为这可能是不同的。我相信我已经看到，有一种方法来指定使用下面的行的格式，而不是从上面的行，但我现在找不到它。有谁知道如何指定这个？这是我正在使用的代码： sheet.Range[string.Format("{0}:{0}", row)] .EntireRow .Insert( Excel.XlInsertShiftDirection.xlShiftDown);

在“分页”后保留原始表格格式: 所以这是完成的产品，带有工作对账单的账目报表和老化分析：一切都很好。它基本上是用来自另一个表的数据逐行填充的。这里是示例代码： j = 21 'First row on the statement of accounts workbook For k = 1 To TSOA.ListRows.Count 'TSOA is the original data table If Not TSOA.DataBodyRange.Rows(k).Hidden Then 'excludes the filtered entries SOAwb.Worksheets(1).Cells(j, 4) = TSOA.DataBodyRange(k, 6) 'Debit SOAwb.Worksheets(1).Cells(j, 5) = TSOA.DataBodyRange(k, 7) 'Credit SOAwb.Worksheets(1).Cells(j, 1) = TSOA.DataBodyRange(k, 3) 'Date <some other […]