Tag: excel 2003

Excel中的数据没有正确删除

我正在使用一个Excel VBA，它需要一个给定的时间表，抽取数据，除去某些参数之外的额外数据，然后通过机器“Riveter 01 – Riveter 22”对数据进行sorting。 然后用sorting后的数据创build图表。 当我有一个用户点击提交button，所有的数据应该被删除。 当表单closures时，并且每次重新打开数据都被清除。 （我已经做了这个冗余来尝试清除剩余的数据）。 但是因为某些原因，当我打开表单时，在错误的列中有剩余的数据，我的图表有一个超过41000的数据。 我正在粘贴我的代码，希望有人能够给出答案。 我是VBA的新手，所以我敢肯定，我没有做任何事情，所以请随时告诉我，如果我input的东西是愚蠢的或不必要的。 Private Sub Submit_Button_Click() Dim cn As Object Dim rs As Object Dim strFile As String Dim strCon As String Dim strSQL As String Dim s As String Dim i As Integer, j As Integer ''Access database strFile = "S:\IT\Databases\Main_BE.mdb" ''This is the […]

如何删除excel列中的特殊空格？

我正在使用Windows XP专业版下的Office 2003 我从ms access 2003数据库复制并粘贴大量列表到excel中，这样我就可以对列表执行各种function。 我现在面临的一个问题是如何在数字或文本之后去除空间（我认为它被称为空白，但似乎并非如此）。 example: [1234 ] [1234 ] [1234 ] [1234 ] [34 ] [12ABC ] （请注意，如果您复制/粘贴，上面的示例将起作用，我只是在视觉上给出示例。） 在Excel中， =trim()不会删除它们。 此外，（search/replace“”并保留为空）不会删除它们。 我也尝试过在其他情况下使用的技巧，复制/粘贴到记事本，然后search/replace，并没有删除它们。 这就是为什么我叫这个词，特别的。 但是可能有一个实际的术语 – 我不介意正式地知道它的名字。 我不是在excel中寻找一个custom = function（）来运行 。 这在每天的复制/粘贴中都不太实用，因为这些都是直接进入某人的excel报告。 我正在添加我的信息，并由不擅长Excel的人进一步处理。

Excel中的excel文件 – 引用

我发现这个问题 ，看起来和我的问题很相似，但是我认为他们有足够的独立性来提出我的问题。 （我很高兴做错了）。 我有2个Excel电子表格。 电子表格1是一个常用的电子表格，我的办公室的一些部门，所以不能修改，但我希望使用其中包含的一些数据来运行电子表格2.我想在Excel中有机地做到这一点。 当我最初构build电子表格2时，我有一个“离线”电子表格1的副本，放在我的用户文件夹中，以便快速进行testing和debugging。 现在我来试着使用“在线”版本，我可以初步设置好引用。 当我closures电子表格2并重新打开时，我会被问到是否要像往常一样更新引用，但现在会引发错误，无法在sharepoint中find文档。 我认为我的问题是这样的 – 当我最初引用单元格时，引用指向某个临时位置，这是我在打开电子表格1时产生的。 所以只要我closures电子表格链接被打破。 这听起来像是一个可行的解释发生了什么？ 如果是这种情况：如何获得指向位于共享点的电子表格1中的单元格的引用？ 欢呼的帮助

将信息附加到现有的Excel文件时发生java.lang.NullPointerException

我试图追加信息到现有的Excel文件，但我不断收到java.lang.NullPointerException。 请参阅下面的代码和例外信息。 代码 ： private WritableSheet appendingSheet; private static File report; public void AppendToDoc (String path) throws IOException, WriteException, BiffException { this.inputFile = path; report = new File(inputFile); Workbook appendingWorkbook = Workbook.getWorkbook(new File(inputFile)); WritableWorkbook copy = Workbook.createWorkbook(new File("output.xls"),appendingWorkbook); appendingSheet = copy.getSheet("Sheet 1"); } public void WriteToDoc (int option, String testName, String execDate, String time, boolean […]

arrays周数

我有一个电子表格，我们用作销售点。 它使用此公式计算按月销售额。列B是交易date。 按月份sorting1 – 1月 – 日不空白 – Cac如果D＃有X从列H =SUMPRODUCT(–(MONTH(B5:B9999)=1),–(B5:B9999<>""),–(D5:D9999="x"),H5:H9999) 就像是 =SUMPRODUCT(–(WEEKDAY(B5:B9999)=1),–(B5:B9999<>""),–(D5:D9999="x"),H5:H9999) 我需要这个相同的公式，但是我需要周薪（按周薪）为52个工资周。 我发现的是周末（1-7） 提前致谢

excel基于范围的格式string

所以我有长文本的A列，其中提到了几个名字。 列中的每个单元格都是一个小型文章。 一些重要的名字在每个单元格中都重复出现，我需要用不同的颜色突出显示这些名称。 所以，一个当它find这些名字时有条件地格式化的macros。 我能够做到这一点，当我正在寻找的名称是固定的，但我一直在试图find一种方法来search名单的名单（在表B），以便我可以添加到这个名单列表并在必要时。 我一直在寻找谷歌和这里，但我只find方法find基于1）一个特定的文本string，或2）单个单元格。 我不知道如何将发现映射到可变范围的单元格。 使用Excel 2003。 按名字： Sub FormatTest() Dim g As Range For Each g In Selection.Cells FormatCell g Next End Sub Sub FormatCell(g As Range) Dim pos1 As Integer, pos2 As Integer pos1 = 1 pos2 = InStr(pos1, g.Text, "Alicia") v = Len("Alicia") pos3 = pos2 + v g.Characters(Start:=pos2, Length:=pos3 […]

在Excel中删除空格，不正确地更改范围？

我问昨天如何删除空白（在一个Excel 2003文件），并收到了很好的回应，以及一个示例： http://wikisend.com/download/497760/Sample%201.xls 当我用自己的方式尝试时，我得到了不同的结果： http://wikisend.com/download/439730/Sample%202.xls 我在哪里错了？ 从昨天开始： 我如何重新排列excel值？ 对不起，很难解释没有例子

如何让一个macros把最后一个相关的数据从一个标签拖到另一个标签？

我有一些正在相互合作的macros将数据分类并整理到相关的选项卡中，并且似乎遇到了一个问题，一旦数据到达行2500左右，macros就不能正常工作。 第一个运行的是一个sorting（Sort）macros，它接收所有数据并将其分类到我根据其类别调用“macrolist”的选项卡中的相关列中： Dim LastRow As Integer ', LastCell as String ' ' This is the visual basic to sort the data sheet for excel 2003 Range("B2:S5002").Select Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range("B3") _ , Order2:=xlAscending, Key3:=Range("E3"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _ xlSortNormal 'Go to the macrolist sheet and run each […]

在Excel 2013中保存好，但在2003年忽略文件名

我有一个在Excel VBA中的代码，它保存了一个工作簿的编码path和文件名，这完全可以在我的电脑上运行Windows 8和Office 2013.当我尝试使用它在我的工作电脑上运行Windows XP和Office 2003的时候忽略编码的path和文件名，并打开默认为My Documents目录的另存为对话框。 目的是让工作的用户单击保存，文件将自动转到具有个性化文件名的networking驱动器。 他们不应该select一个path或文件名。 我一直在testingpathC:\Temp\并保存一个普通的.XLS文件，它应该可以在两个版本的Excel上工作。 我试过了，没有禁用警报，也没有给出为什么忽略path和文件名的线索。 我也试过fileformat:=xlnormal等没有运气。 为什么会发生这种情况，我该如何解决？ 这里是代码： Sub FeedBackSave() ' Save the Feedback worksheet created by the user to the network drive using the path copied from ' the Management workhseet cell A11, the resource name copied from cell A1 and todays date as the filename. Dim wsh […]

excel vba – 如果满足条件，则将特定的复制/粘贴行粘贴到具有各种形状的另一张纸上

我有相当具体的情况。 如果该行的“AD”列在单元格“NOK”标记“x”或“X”中，我需要将sheet1（ot.2）中的每一行复制到sheet2（odch.l.2）。 形状必须保留数据。 到目前为止，我设法复制所有的形状，无论是否有X或X，而数据取决于是否有X或X – 但数据和形状不粘在一起 – 数据按顺序排列，形状复制位置在源表单 我不知道如何进行，我是这个新手，我会很感激每一种帮助。 如果你需要更多的信息，请让我知道，我会一直看这个线程:-D谢谢 这里是我的代码： Sub test150929() Application.ScreenUpdating = False Dim DestSheet As Worksheet Dim Destsheet2 As Worksheet Set DestSheet = Worksheets("odch.l.2") Set Destsheet2 = Worksheets("ot.2") Dim sRow As Long 'row index on source worksheet Dim dRow As Long 'row index on destination worksheet Dim sCount As Long Dim […]