Tag: 工作表

使用SQL Server Report Builder 2008 2.0重命名Excel表: 我知道你可以使用Report Builder 2008 2.0 R2来命名excel表格，但是我想知道在Report Builder 2008 2.0中有这种方法吗？任何工作？

从.XLSX的VBA复制工作表并将其插入.XLA文件: 我试图从一个.XLSX文件复制工作表作为隐藏工作表.XLA文件。我只设法从.XLA -> XLSX复制，而不是XLSX -> XLA 。看看我的两个function： Sub copyFromXLAtoXLSX() temp.Sheet1.Copy Workbooks(1).Sheets(1) End Sub Sub copyFromXLSXtoXLA() ' It gives me the error: Run-time error '1004': Application-defined or object-defined error Workbooks(1).Sheets(1).Copy temp.ThisWorkbook.Sheets(1) End Sub 任何帮助真的很受欢迎。谢谢！

将数据复制到添加的工作表: 以下代码为其他两个工作簿中的每个分页添加了一个新的工作表到一个摘要工作簿。我想将其他工作簿中的数据复制到摘要工作簿中的每个添加的工作表。所有的数据都只复制到sheet1。预先感谢您的任何帮助。 For n = 1 To Workbooks(file1name).Worksheets("Sheet1").HPageBreaks.Count i = i + 1 'integer that tracks the pages being added 'SourceRange is a the range of data being copied Set SourceRange = Workbooks(file1name).Worksheets("Sheet1").Range("A" & pgBreak, "Q" & Workbooks(file1name).Worksheets("Sheet1").HPageBreaks(n).Location.Row – 1) SourceRange.Copy summary.Sheets.Add 'summary is the summary workbook I would like to copy the […]

如何在不同的Excel表格中search范围内的单元格内容: 我正在为以下schemesearch公式（如果存在）：在工作簿中，在单元格“A1”的表单“A”和单元格“B”中，我有“罗杰斯” “B”，在单元格“B1”：“B20”我有一系列的“FirstName LastNames” 我要查找的是如果在该范围内find单元“A1”的内容，则在书“B”的范围“B1：B2O”的范围内的书“A”中search单元“A1”返回“是”，如果没有find，返回“否”。我已经尝试了SEARCH，FIND，ISNUMBER，IF，IF ERROR等几种组合，但是没有一个为我工作，导致我相信，我可能没有input正确的公式。任何帮助，高度赞赏。

VBAmacros编码: 我一直在试图制作一个macros，但我很难找出它。这是它应该做的。 macrosfunction：当使用macros时，只有在当前标签不是“产品”选项卡的情况下，它才应该切换到名为“产品”的工作表，如果当前标签是“产品”标签，则应该转到先前访问的标签。使用：比方说，我在表索引3和使用macros – 它应该激活“产品”选项卡，如果我再次按它应该返回到表索引3。我一直在尝试使用ActiveSheet.Index和Sheets("Products").Index以某种方式，但我想我需要使用的东西超出了我目前的Visual Basic知识。在声明全局variables和传递信息时，我还没有使用Public函数。有人能指引我正确的方向吗？还是告诉我应该使用什么？这在VBA中甚至可能吗？

Worksheet_Deactivate（）不能使用活动工作表函数: 我在项目中有50个数据表，没有人记得去另一个工作表时运行保存macros。明智的想法是使用私人子Worksheet_Deactivate进行必要的计算时，他们select另一个工作表。除了50个数据表之外，工作簿中还有两个工作表，其计算不得运行。如果这个子文件可以放在“工作表”中而不是在单个工作表中复制50次，但是另外两个工作表需要从处理中排除，那将会很好。问题是，该子默认为停用工作表（例如macros代码中的非限定“Range.Value =”），但活动工作performance在是正在导航到TO的工作表。所以任何ActiveXXXXX语句指向错误的工作表。 Worksheet.Name是不允许的。数据表编号为1到50.需要的是在停用子版本中的一个声明类似于如果DeactivatingWorksheet（X）=“BasicInfo”或“Constants”然后GoTo EndSub其中X是取消激活工作表的值。当然，X在处理的时候只被Excel知道。我似乎无法弄清楚如何引用macros的IF语句中的停用工作表。有任何想法吗？

Worksheet_change事件不会在一段时间后触发: 我有一个非常简单的工作表更改事件 – 这曾经工作得很好，在一个书中有很多其他的代码。我使用它来格式化表格的颜色scheme中与数据透视表相邻的范围。现在突然间，代码只是开了一会儿，这本书是开放的。只有closuresExcel 2010实例才能解决问题。 Private Sub Worksheet_Change(ByVal Target As Range) Dim EndRow As Integer Dim StartRange As Range Set StartRange = ActiveCell EndRow = Sheet8.Range("A7:A9999").Find(vbNullString, , xlValues).Row If IsNumeric(EndRow) Then If Target.Column = 1 Then With Sheet8 .Range("AC8:AO9999").ClearFormats .Range("C7:O" & EndRow – 1).Copy .Range("AC7:AO" & EndRow – 1).PasteSpecial (xlPasteFormats) End With Application.CutCopyMode […]

如何将工作表和范围传递给variables？: 我想在子程序之间传递表单和范围的名字。以下引发“下标超出范围”错误： Sub This() x = "Sheet1" y = "D3" MsgBox (x.Range(y).Value) End Sub 这是我的项目资源pipe理器的一个样本。

如何将值附加到Excel范围: 我有一个Excel工作簿，它有3个工作表，每个工作表都有一个为地址A1：F10定义的命名范围，并有一些值。我想要定义一个范围，并将所有3个工作表范围值设置为此。例 TempRange = Test1Range + Test2Range + Test3Range 任何帮助，将不胜感激

如何使用VBA将文件中的图像插入多张图纸: 我有一个工作簿有54张。 “Master”“Total”和“Week1”到“Week52” 我试图从文件中插入一张图片到“Week1”到“Week52”的单元格中。我已经尝试了很多代码，并能够正确地放置图像和大小下面的代码放置图像，我能够操纵他们得到正确的位置和正确的大小的图像。但我不能让他们通过其他工作表（周1到周52） Set oPic = Application.ActiveSheet.Shapes.AddPicture("C:\Users\Public\Documents\Cranes\MinerPic.wmf", False, True, 1, 1, 1, 1) oPic.ScaleHeight 0.3, True oPic.ScaleWidth 0.3, True oPic.Top = Range("p2").Top oPic.Left = Range("p2").Left .OnAction = "FC4.xlsm!MineSheet" 要么 pPath = "C:\Users\Public\Documents\Cranes\MinerPic.wmf" With ActiveSheet.Pictures.Insert(pPath) .Left = Range("p2").Left .Top = Range("p2").Top .ShapeRange.Height = 50 .ShapeRange.Width = 50 .OnAction = "FC4.xlsm!MineSheet" 在一个阶段，我能够把52张图片放在一起。我怀疑这与Activesheet命令有关。我非常新的VBA，并会感谢任何帮助。 […]