Tag: 排

dynamic打印重新调整行高

我正在尝试重新设置行高，以便修复使用自动重新尺寸时出现的打印间隙。 例： 在excel中： 在打印预览中： 我尝试了很多事情来解决这个问题，但没有运气。 手动修复问题的示例： 在excel中： 在打印预览中： 我不能手动修复这个问题，因为这个程序是用于创build多个工作簿，当这个问题发生时，所有的工作簿都将被改变。 它似乎发生与任何单元格跨越3行以上，这个问题仍然发生在单间隔和常规字体。 我已经尝试使用字符比例来自动适应vba的高度，但是这并没有奏效，还有一些其他的想法不足。 在这一点上im受难。 如果您想重新创build我的场景，请使用54pt列宽，8号calibri字体，单词换行，自动填充行高以及足够长的填充文本。

excel 2007使用apache poi（.xlsx）无法读取的内容

我有问题使用apache poi为Excel 2007使用XSSF 我有两个代码片段（胖指）。 第一个似乎工作，因为工作簿在Excel 2007中正确打开，并有一些变化。 如果我运行第二个代码片段，然后在Excel 2007中打开，我得到关于不可读内容的错误。 我必须点击一个确认框，然后Excel打开我的文件。 为什么第二个代码片段导致这个错误？ 唯一的区别是在第二个我试图从第2行（零索引）上移两行的所有行… 我真正想要做的是删除一些标题行，并从文件中得到了一些页脚行后。 我没有做任何事情。 我在猜测我误解了这个API，但是现在我一直在为此而战。 有任何想法吗？ 我也应该移动行，或删除它们，或两者的组合？ String filename = "C:\\file.xlsx"; FileInputStream file = new FileInputStream( new File(fileName) ); XSSFWorkbook wb = new XSSFWorkbook(file); XSSFSheet sheet = wb.getSheetAt(0); int lastRow = sheet.getlastRow(); sheet.shiftRows(1, lastRow, -1); file.close() FileOutputStream out = new FileOutputStream(fileName); wb.write(out); out.flush(); out.close(); String filename […]

查找显示内容太小的文本单元格

我有一个单元格可能包含有时超过单元格的宽度和高度的文本的工作表。 如果我没有注意到并调整行高，文本显示为截止。 有没有人有一个VBA片段或工具，可以find这些细胞，所以我可以调整它们？ 谢谢！

使用VBA删除行的最有效的方法

我目前有一个macros，我用来删除一个logging，如果ID不存在于我从一个XML文档创build的ID列表中。 它的工作方式就像我想要的那样，但是我在电子表格中有超过1000个列（一年中的每一天一个，直到2015年底），因此需要时间来删除行，并且只能在1或2之前“Excel耗尽资源，不得不停止”。 下面是我正在使用的macros的代码，是否有另一种方法，我可以做到这一点，使Excel不运行的资源？ Sub deleteTasks() Application.ScreenUpdating = False Dim search As String Dim sheet As Worksheet Dim cell As Range, col As Range Set sheet = Worksheets("misc") Set col = sheet.Columns(4) ActiveWorkbook.Sheets("Schedule").Activate ActiveSheet.Range("A4").Select ActiveSheet.Unprotect ActiveSheet.Range("A:C").EntireColumn.Hidden = False Do While ActiveCell.Value <> "" search = ActiveCell.Value Set cell = col.Find(What:=search, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ […]

从Delphi程序中删除Excel中的行

我想用Delphi7程序从Excel中删除行。 这引发了一个exception： Excel := CreateOleObject('Excel.Application'); … Excel.ActiveWorkBook.Rows(row).Delete; 我究竟做错了什么？

当数百个被设置为0时，改变excel中行的高度

我有一个有数百个用户列表的Excel电子表格。 很多行已被设置为高度0.我想将它们全部设置为相同的值，以便我可以看到所有这些。 我宁愿不必经过每一行，拖下高度为0的那些，这样我就可以看到它们了。 我该怎么办？

使用Powershell删除Excel中的前四行

我有一个PowerShell脚本打开一个Excel文件，重新分配一个空白的密码，然后保存该文件。 我想在脚本中添加一个任务，在保存之前删除excel文件的前4行。

VBAmacros快速删除行

我有几个非常大的ex​​cel数据文件，我需要通过它们，并删除T列中单元格的值为1的所有行。现在我的代码如下所示： Sub test() Dim cell As Range For Each cell In Worksheets("Sheet1").Range("T5", "T900000") If cell.Value = 1 Then cell.EntireRow.Delete End If Next cell End Sub 这似乎是工作，但需要永远跑，我将不得不这样做了很多次。 有没有更好的方法来做到这一点，或者有什么办法来优化我已经有的运行速度？