Tag: excel 2007

如何运行和从服务器打开Excel文件？: 我有一个安装了加载项的Excel文件。如果我与其他人分享Excel表，工作表需要相同的加载项才能工作。是否有可能将我的excel放在公共存储库中，用户可以使用它？或者有没有其他办法可以做到这一点？在我的情况下，我已经从http://www.microsoft.com/en-in/download/details.aspx?id=22276添加了Office 2003加载项：Office Web Components 但是如果其他人访问工作表，他们也需要安装插件。他们没有pipe理员权限来安装它。或者有没有其他办法可以做到这一点？

如何看看在excel中的两个colums中是否存在重复的值，并使用vba进行合并: 我需要转换一个目前看起来像这样的表格： OI Buy Securities for UPP 100000 0.622 0.624 62381.05 OI Buy Securities for DIC 30000 1.57 1.575 47239.525 OI Buy Securities for DIC 26220 1.57 1.574 41278.605 OI Buy Securities for DIC 10000 1.57 1.574 15743.175 OI Buy Securities for DIC 30000 1.57 1.574 47229.525 OI Buy Securities for DIC 3780 1.57 1.574 5950.92 […]

Excel合并重复的列并删除不重复的列: 我在Excel中有3列，并希望1.合并基于另一列的重复列。 2.删除不属于重复列的单元格。 A栏 10 11 12 13 B栏大号中号 ñ P Q C栏中号 ñ 所需的输出列A | B列| C栏 11 M M 12 N N

结合两个潜艇变化的范围: 我想结合这两行代码，但不知道如何让它工作。他们都分开工作，但我希望第一行代码是第一个操作，然后第二个子是第二个操作。这些应该在工作表发生变化时执行。当“S”范围内的相应单元格在列A或B中更新的单元格所在的同一行中更新时，第一个例程应仅导致一个信息框。第二个操作应该查找范围“T7：T26”的任何更改并提示一个信息框。代码如下： Private Sub Worksheet_Change(ByVal Target As Range) Dim myRng As Range Dim lRow As Long If Target.CountLarge > 1 Then Exit Sub On Error GoTo Whoa Set myRng = Range("A7:B26") Application.EnableEvents = False If Not Intersect(Target, myRng) Is Nothing Then lRow = Target.Row If Range("S" & lRow).Value >= 16 Then […]

Excel表格数据连接在刷新时删除单元格引用: 我在Excel工作簿（2007）中有一个数据连接，它引用另一个Excel工作簿中的一个表。我有一个单元格在表格的最后一列标题内引用一个date值。每次外部工作簿被更新并且此date值更改时，我的工作簿中的单元格引用已损坏，单元格显示#REF ！如果它帮助我使用数据库查询。连接string：{replace的path和工作簿名称} DBQ=PATH\WORKBOOKNAME.xlsx;DefaultDir=PATH;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes; 命令文本：{replace的path} SELECT * FROM `PATH\WORKBOOKNAME.xlsx`.`Main$` `Main$` ORDER BY `Main$`.IP 这就是刷新之前H列中的单元格值：这就是刷新后列H中的单元格值：此表的最后一个列标题包含每次更新源工作簿时都会更改的date值（源工作簿中的“易失性date”）。技术上这个date字段不是其他工作簿表的一部分。但是，数据连接仍然将其拉入主工作表的表格中。我将无法修改其他工作簿表格和格式，而不会因为其他依赖项而更改其他一些内容。我不确定任何其他方式真正引用dynamic表头或正确引用此单元格，以便参考不被破坏… 我希望在单元格公式内部完成此操作，而不必使用macros（如果可能的话）。任何帮助是极大的赞赏。谢谢。

VBA在Excel中合并单元格: 我有一个像下面的Excel表。将Excel的编号看作是sno列。因此除了DateTime之外的所有列都被合并。我想要合并date时间单元格，并希望删除空logging。我尝试了几个没有成功的公式。这可能吗我试着下面的公式，但它给我们奇怪的结果becozdate时间值我认为。 =INDEX($A$1:$A$<ENDROW>,(B1-1)*2+1,1)&" "&INDEX($A$1:$A$<ENDROW>,(B1-1)*2+2,1) 我有这个： ╔═════╦════════╦══════════╦═════════╦═════════════╗ ║ sno ║ Action ║ DateTime ║ User ID ║ Name ║ ╠═════╬════════╬══════════╬═════════╬═════════════╣ ║ 1 ║ INSERT ║ 8-Nov-13 ║ childsk ║ Keri Childs ║ ║ 2 ║ ║ 16:06:43 ║ ║ ║ ║ 3 ║ INSERT ║ 8-Nov-13 ║ childsk ║ Keri Childs […]

Excel – 自动更改input单元格值并将输出单元格导出到新的工作簿: 我有一个电子表格，可以input参考号码，Excel根据与参考号码相关的数据生成表格。不是单独input每个参考号并手动复制结果表，是否可以自动迭代input参考号（从现有列表中）并分别输出结果的过程？

计数的文本字段丢失大总值 – 错误/ fixable，或我的错误？: 我遇到了一个奇怪的地方，那就是当我的数据透视表错过了文本字段上的总计数时，它与另一个字段的最小值或最大值一起使用。我解释如何重现下面。这是一个Excel错误，或者我做错了什么/有没有一个已知的修复或解决方法？要重现，请在Sheet1上放置以下数据： ID VRC A1 0 B 1 A2 0 B 3 A3 0 A 3 A4 0 A 1 A5 0 B 3 A6 0 A 2 select全部四列; 插入数据透视表，新build工作表，按确定。将ID Σ Values框 – 留下显示“ID的计数” – 数据透视表显示6 （正确）。将R Row Labels “ Row Labels框中 – 数据透视表显示Count of ID正确”的总数为6 。将V拖动到Σ Values box – […]

复制并粘贴错误: 我的配方有什么问题吗？我正在尝试使用一个公式来使我能够在继续进行之前或者msgbox提示继续或者找不到工作簿/工作表之前，让我对gotoreference(Ie f5)单元格进行validation，以确认单元格是否正确。有时候这个人因为是季度数据而留下空白，我想自动提取最新的数据（最远的）列。我有两个工作簿：一个是我正在运行macros的当前工作簿（Currentworkbook.xlsx）。另一个是'Mysheettab'的Jedata.xlsx和其他一些没有在这里列出的工作簿，将把信息提供给'Sheet1'的Currentworkbook.xlsx。 Option explicit Sub Macro3() ' Macro3 Macro ' ' Keyboard Shortcut: Ctrl+q ' Dim wb As Workbook Dim ws As Worksheet On Error Resume Next Set wb = ActiveWorkbook("Jedata") Set ws = ActiveWorkbook.Sheets("Mysheettab") On Error GoTo 0 If ws Is Nothing Then MsgBox "Data sheet not found" Else Activate.Windows […]

Excel VBA：右键单击一个形状，并添加一个新的菜单项: 我在Windows XP计算机上使用Excel 2007。在我的工作表上，我有很多'形状'（矩形）。我已经将macros分配给形状，以便他们执行一个任务，当有人点击它们。我想要做的是以下，但我读过的post说这是不可能的。当某人右键单击某个形状时，是否可以添加新的菜单项？当有人右键单击单元格时，很容易做到这一点，但形状看起来不同。我知道这个工作表有一个名为“Worksheet_BeforeRightClick”的事件，但是当我右击一个形状时，我无法得到这个工作。下面是我的代码的开始，但是它对我的菜单没有任何影响。提前谢谢了 With Application.CommandBars("Shapes") With .Controls.Add .Caption = "My New Menu Item" .BeginGroup = True .OnAction = "MyNewMacro" End With End With