Tag: 单元格格式

Excel文件（来自DataGridView）不显示值为<1的“零”: 我正在将DataGridView导出到Excel文件。 DGV包含一个带有货币（€）的列，所以我使用此代码格式化Excel表格列： With xlSheet .Range(.Cells(1, C + 1), .Cells(1, C + 1)).EntireColumn.NumberFormat = "€ #,###,###.00" End With 但是，当我打开保存的Excel文件，如果值是<1（即0,25），我得到： 25欧元代替 €0.25 我该如何解决？

无法从excel文件中以正确的格式读取date时间值，并使用python将其保存在数据库中: 我有一段代码在Python中读取一个Excel文件并保存到红移数据库。 import psycopg2 def from_redshift(): book = xlrd.open_workbook("excelfile.xlsx") sheet = book.sheet_by_index(0) con = psycopg2.connect(dbname='dbname', host='something.com', port=portnum, user='username', password='password') cursor=con.cursor() query = """INSERT INTO table_name (col1, col2, col3, start_date, update_date) VALUES (%s, %s, %s, %s, %s)""" for r in range(1, sheet.nrows): col1 = sheet.cell(r,0).value col2 = sheet.cell(r,1).value col3 = sheet.cell(r,2).value start_date = sheet.cell(r,3).value update_date = sheet.cell(r,4).value […]

Excel VBA：保留在工作表中macros写公式，所以用户可以手动更改工作表中的公式: 我正在使用macros来生成报告。我从结构中获取信息，并用公式计算在工作表中填充单元格的各种数字。这些工作表也是在macros中创build的。我必须做些什么来确保当用户单击单元格时，用于计算单元格中填充的数字的公式将保留在单元格中？即用户可以决定在报告后更改单元格的公式。下面是我如何在函数createTS()创build新的单元格： Function createTS(ByRef index As Integer, ByRef wBStruct As wBStruct, ByRef gcBStruct As gcBStruct) As Worksheet '1) set up worksheet Set createTS = ThisWorkbook.Worksheets.Add(, ActiveSheet, 1, xlWorksheet) With createTS ThisWorkbook.VBProject.VBComponents(.CodeName).Name = cnDic(index) .Name = wBStruct.wTumorCellLine & "_" & wBStruct.wTypeBlock(index).projNum & "(" & gcBStruct.typeName & ")" End With '…lots of code… […]

如何在Excel中格式化单元格以input24小时的时间？: 当我input一个值为13.25时，值应该更改为13:25而不是06:00。如何格式化单元格？

在左边vba设置一个单元格值为0: 我试图引入一个像“0001”价值的单元格与VBA，但我所设置的是1没有000 这是我的代码 Dim iRow As Long Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST) With ws .Range("A" & iRow).Value = "0001" End With Set ws = Nothing

格式化由XSLT生成的XSLX文件中的单元格: 我正在使用XSLT生成包含date列的报表。在电子表格XLSX文件中，如果我将date作为string传递，当使用电子表格软件包（如Excel）打开它时，它将假定它是一个date（这是正确的），然后将其格式化为MM/dd/yyyy我们实际上想要的是dd/MM/yyyy 。这似乎是造成这种情况的电子表格软件包，但是我想知道是否可以从XSLT定义单元格格式？这里是我用来做到这一点的代码： <xsl:template match="SomeTemplate"> <Row> … <Cell> <xsl:value-of select="ms:format-date(StartTime, 'dd/MM/yyyy')" /> <xsl:text> </xsl:text> <xsl:value-of select="ms:format-time(StartTime, 'HH:mm:ss')" /> </Cell> … </Row> </xsl:template> 我试图用其他方法来解决这个问题，比如用'但是奇怪的是这不起作用！以下是与上述XSLT相关的XML示例： … <Destination> <StartTime>2013-03-07T00:01:09</StartTime> <EndTime>2013-03-07T10:41:09</EndTime> … </Destination> …

Excel VBA：“太多不同的单元格格式” – 有没有办法在macros中删除或清除这些格式？: 所以，我做了一个有趣而简单的macros，它随机selectR，G和B值，直到它使用每种可能的组合（跳过重复），并用每种新颜色设置10×10平方的颜色值。唯一的问题是，我已经遇到了单元格格式数量的限制。微软表示，这个限制应该在64000左右，但是我发现它在Excel 2013的空白工作簿中恰好是65429。我已经包含了一个清晰的格式代码，但它似乎没有影响： Cells(X, Y).ClearFormats 微软列出了一些解决scheme，但是其中的4个基本上是“不要制造太多格式”，而第四种格式是使用第三方应用程序。 VBA中真的没有什么可以做的吗？ A1：J10会打印一个新的颜色 K1会打印完成的百分比 L1将打印使用的颜色数量 M1将打印一个颜色组合重复的次数 Dim CA(255, 255, 255) As Integer Dim CC As Long Dim RC As Long Dim R As Integer Dim G As Integer Dim B As Integer Dim X As Integer Dim Y As Integer CC = 0 RC = 0 X […]

VBA运行时错误 – 尝试在粘贴值后格式化或删除单元格时出现1004错误: 我正在尝试使用VBA使我的生活更轻松，但是我一直在遇到一个我无法解决的问题。基本上我想要的是从几个输出CSV文件，我有一些不错的格式化的Excel文件复制一些值。然后根据一些基数删除值或格式化单元格。但是我不断收到相同的错误消息运行时错误'1004'应用程序定义或对象定义的错误。我这样做，使用许多输出文件和粘贴值在同一个表格文件，但在不同的工作表（10.2a，10.2b，10.2c，…）通过每个工作表的macros。我使用另一个macros运行所有的macros，其中包含所有其他macros，我看了很多其他的post，但不明白错误来自哪里。任何帮助将非常感激。下面我们以一张纸的代码为例。 Sub Table_10_2a() ' ' Copy Data from one file to another ' Dim Output As Workbook Dim Table As Workbook Dim i As Integer 'Open workbooks Set Output = Workbooks.Open("O:\…\Output.csv") Set Table = Workbooks.Open("O:\…\Table.xlsx") 'Copy paste data from output file to Table Output.Sheets("Output1").Range("B3:E7").Copy Table.Sheets("10.2a").Range("B11").PasteSpecial xlValues Output.Sheets("Output1").Range("B9:E13").Copy Table.Sheets("10.2a").Range("B17").PasteSpecial […]

将date转换为文本而不会丢失Excel中的格式？: 我在Excel工作表中有一个列，其中包含自定义dd-mm-yyyy格式的所有date。我需要将所有这些date转换为文本，而不会丢失格式。如果我将单元格格式更改为文本，则会丢失格式。我试图复制单元格值作为值，但没有奏效。我在互联网上search了很多，但没有find任何有用的资源。什么是可能的解决scheme？

如何复制单元格格式和样式: 伙计们，如果我使用下面的代码： dim Defaultcol As Long Defaultcol = Sheets("Whatever").Cells(1, 1).Interior.Color 我可以从单元格中获取颜色格式。我也可以写些类似的东西吗？ dim FullFormat as object (Or dim FullFormat as cellformat) set FullFormat = Sheets("Whatever").Cells(1, 1).formats 并获得一个单元格的所有格式在一个对象？或者可能 dim sourcecell as cell set sourcecell = Sheets("Whatever").Cells(1, 1) 然后有我可以使用的属性sourcecell.formats ？提前致谢。