Tag: 格式

select多个列并将格式设置为date: 我试图select列I，K，Q，R和格式从第2行作为date（mm / dd / yyyy）的整个列我知道这段代码将select我不需要的所有列。任何人都可以帮助我与VBA代码？谢谢！我包含了一部分代码，询问是否可以在第一部分代码中包含date格式。 wsMain是你的信息表 With wsMain .Columns("A:AO").AutoFit .Cells.ClearFormats .Rows(1).Font.Bold = True .Cells.Font.Name = "Georgia" .Cells.Font.Color = RGB(0, 0, 225) .Cells.Resize(.Rows.Count – 1).Offset(1).Interior.Color = RGB(216, 228, 188) Sub SelectColumn() Dim xColIndex As Integer Dim xRowIndex As Integer xIndex = Application.ActiveCell.Column xRowIndex = Application.ActiveSheet.Cells(Rows.Count, xIndex).End(xlUp).Row Range(Cells(2, xIndex), Cells(xRowIndex, xIndex)).Select

如何在Excel自定义格式中dynamic设置货币符号？: 我的电子表格中的数字使用以下自定义格式： €#,###.##,, "M" 因此，数字以百万为单位，以欧元符号为前缀，小数点后两位，数百万为M。我的工作簿将需要转换为其他货币，我不想在任何地方改变自定义格式。是否可以dynamic设置自定义格式的货币符号，以便我不必硬编码€符号，而且每个工作簿可以设置一次货币？

win32com模拟执行在Excel中select所有两次: 在win32com中， cells = worksheet.UsedRange 类似于在Excel中单击一次cntl-a。什么是win32com等同于做cntl-a两次？用例是当你使用格式画家后按cntl-a两次，它将粘贴所有的格式，包括列的宽度。

Excel条件格式化程序: 我在Excel中使用条件格式来比较两组数据（在列A中设置1，在列D中设置2）。条件格式是在列F中，所以如果列A = D，那么列F将变成绿色，如果A / = D，那么列F将变成红色。问题是，当我删除A和D中的第一个单元格，并将所有单元格向下移动时，整个条件格式化将被擦除。有没有办法保持永久的条件格式？ [由于某种原因，我无法上传照片…如果可以的话，我会包括一张照片，这样就可以更容易理解上面的内容]

将另一个系列添加到Excel图表时如何修复格式？: 我原来的Excel条形图看起来像：我想为2014年的数据添加另一个系列，如下所示：我希望2014年的系列作为重叠在原始条形图上的分散点。但是，当我将2014系列添加到图表并将其图表types更改为Scatter时，我获得了以下图表：如何将条形图更改为原始图表中不同颜色的调色板，并将“当前”轴标签更改为其列出不同类别的原始格式？理想情况下，我想要一个省时的解决scheme，因为我不得不用一些类似的图表来重复这个过程。

如何增加时间2小时30分钟: 单元格A1的值为Sat 10/17/2015 3:46 PM 。我想加2小时30分钟，所以B1单元格的值应该是： Sat 10/17/2015 6:16 PM 。我试过在B1中使用这个公式： =A1+TIME(2,30,0) 但它返回#VALUE! 。我需要做些什么来实现Sat 10/17/2015 6:16 PM ？

为什么我的VBA脚本格式化Excel表格非常慢？: 我在Excel-VBA中创build应用程序，但是当我有超过50,000条logging时，代码运行非常慢，格式化大约需要33秒。 Application.Interactive = False Application.EnableEvents = False Application.ScreenUpdating = False '————— Tao Bien —————————————— Dim Dulieu() As Variant Dim lastrow As Integer Dim lastrowSC As Integer Dim i, j As Integer Dim NoDk, CoDk As Double Dim PSNo As Double Dim PSCo As Double Dim NoCk As Double Dim CoCk As Double Dim TempArray() As […]

电子表格ExcelReader在parsing时不显示秒数: 我有一个Excel文件，显示date格式dd/mm/yyyy hh:mm:ss 。当我parsing该表并在网页上打印结果时，Spreadsheet excelReader以这种格式显示一个date： yyyy-mm-dd hh:mm 。在99％的时间里，这不是一个问题，但在这种情况下，我还需要显示秒。我试图修改configuration文件，但没有改变。以下是关于该文件的一些信息： * A class for reading Microsoft Excel Spreadsheets. * * Originally developed by Vadim Tkachenko under the name PHPExcelReader. * (http://sourceforge.net/projects/phpexcelreader) * Based on the Java version by Andy Khan (http://www.andykhan.com). Now * maintained by David Sanders. Reads only Biff 7 and Biff 8 […]

文本到列: 我的Excel文件有一个SQL连接，它运行一个存储过程并输出三列，每一列都是时间格式。输出是“hh：mm：ss”格式，Excel不会把它作为一个时间。我发现如果我手动使用默认设置的“文本到列”工具，Excel将“0:03:05”转换为“12：03：05 AM”。我使用VB代码来复制文本到列，但它只是如果它是唯一的代码在一个工作。目前，这个作品= Sub textToColumns() Sheets("Main Data").Visible = True Sheets("Main Data").Select Sheets("Main Data").Select Columns("Z:Z").Select Selection.textToColumns Destination:=Range("Z:Z"), _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _ :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _ Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True Sheets("Main Data").Visible = False End Sub 但是这不= Sub textToColumns() ActiveWorkbook.RefreshConnections Sheets("Main Data").Visible = True Sheets("Main Data").Select Sheets("Main Data").Select Columns("Z:Z").Select Selection.textToColumns Destination:=Range("Z:Z"), […]

Excel VBA拒绝以正确的语言在单元格中input/定义date: 我很久以前就放弃了这个，但是决定重新开始。我有一个程序，从另一张表中取出date并重新格式化，然后将它们input到另一张包含发票的表单中。所以，如果我有2015年12月21日，我的代码应该输出2015年12月21日。问题是我使用法语电脑，它不会粘贴在英语，这是我所需要的。如果你想进一步帮助我，我也必须在法国，美国和意大利的计算机上运行这个程序，我一直在寻找在工作簿打开但没有骰子的情况下临时改变计算机的语言环境的方法。有任何想法吗？ 'This is how I used to input the dates, but it only allowed the text to 'output "DECEMBER-21-2015" 'ActiveCell = _ "=UPPER(TEXT(Select!I5,""[$-409]MMMM-JJ-AAAA""))&"":""" 'I got my hopes up here, this code works but is the one that is stuck in French ActiveCell = UCase(Format(SecurityDepositDate, "[-$409]MMMM d, yyyy")) 'This I just tried […]