Tag: vba

Excel VBA selection.replace，如果被replace，把文本放在被replace的行的列a中: 我有一些macros： Columns("F:M").Select Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False 但是我想把当前date（甚至只是一串文本）放在发生replace的行的单元格A中。

循环遍历工作簿中所有表单中的所有单元格，如果为红色，则更改格式: 我正在尝试将所有单元格中的所有红色文本更改为黑色，以显示Excel工作簿的所有表单。我正在使用以下内容： Sub RedToBlack() Dim Current As Worksheet For Each Current In Worksheets For Each cell In Current If cell.Font.ColorIndex = 3 Then cell.Font.ColorIndex = 0 End If Next Next End Sub 我知道这是错误的，但是想知道我在做什么。谁能提供build议？感谢您的帮助，我对此很新。

使用VBA从Microsoft Excel中获取数据到Powerpoint图表: 我试图从Excel中使用VBA（将数据粘贴到Powerpointgraphics对象背后的数据表中）中将数据导入到Powerpointgraphics中。我使用这个代码作为例子（来源）： 'Code by Mahipal Padigela 'Open Microsoft Powerpoint,Choose/Insert a Graph type Slide(No.8), then double click to add a graph and click… '…outside the graph to close the Datasheet, then rename the Graph to "Mychart",Save and Close the Presentation 'Open Microsoft Excel, add some test data to Sheet1(This example assumes that you have […]

如何使用Excelmacros将Word中的一段文本复制到Excel？: 我需要使用Excelmacros将特定项目的文本（一个或几个单词）从Word（2007）复制到Excel（2007），以获得多个文档。到目前为止，我有Excelmacros，一次打开每个Word文档，并find我所需要的文字。我现在需要：移动到Word表格中的相邻单元格。我在想wdApp.Selection.MoveLeft Unit:=wdCell （或MoveRight ）其中wdApp是Word.Application 复制单元格的内容。我想wdApp.Selection.Copy和wdDoc.Word.Range其中wdDoc是Word.Document但我不能select整个单元格的内容。将其粘贴到Excel中的variables。在这里，我不知道如何将剪贴板复制到一个Excelvariables。

使用Excel 2010使用存储过程读取/写入到SQL Server 2008数据库: 我们有一个SQL Server 2008数据库存储过程来处理读取/写入等。这些程序在内部被各种应用程序使用。需要一个人直接更新一个名为Employee的数据库中的表。更新很简单，更新VARCHAR和INT（外键）字段。问题在于SharePoint 2010不易通过BCS支持这种更新; 浏览和更新不是最好的用户体验。有人build议，这很容易用Excel和VBA解决。打开时，Excel连接到SQL Server数据库并从Employee读取存储过程读取。它还执行外键引用的表的读取sprocs。用户更新一个字段，然后调用Employee update sproc。这样做的好处是没有网站界面需要build立/托pipe/等; 如果使用Active Directory进行身份validation，则DBA可以使用此方法。问题是，我无法findVBA程序员或任何有用的资源，或者一步一步走过来编写VBA。有没有人知道这样的在线资源和/或有一个替代的build议，如何快速获得pipe理界面和单个用户运行？

VBA循环与一些工作表: 我是一个初学者，我想在我的excel文件的所有工作表中做一个循环，除了第一个。但是，下面的代码只适用于第二个。你能解释我这个代码有什么问题吗？非常感谢 Sub MobileTCalculation() 'MobileTCalculation Macro Dim i As Integer For i = 1 To 40 Worksheets(1 + 1).Select Range("A20").Select On Error Resume Next Next i End Sub

Excel：select所有行直到空单元格: 我会select2个相邻列中的所有行，从标题下面的行开始（这是固定的），并以空白单元格的第一行之前的行结束。鉴于下面的例子… AB 1 Item Amount 2 Item1 1 3 Item2 4 4 2 5 我想select范围A2：B3。第一行始终是第2行，最后一行是第3行，因为它是第一行之前的行，其中有一个空白单元格。我的目标是使用这个select来自动sorting和添加边界到行之后，我已经完全填写当前行最下面的行。在这个例子中，我必须填入A4来使行的一部分，并应用上述行动。我希望任何人都可以帮助我..在此先感谢！编辑基于chris neilsen的解决scheme，我提出了一个解决scheme： Dim rng As Range With Worksheets("YourSheet") Set rng1 = .Range(.Cells(2, 1), .Cells(2, 2).End(xlDown)) Set rng2 = .Range(.Cells(2, 2), .Cells(2, 1).End(xlDown)) Set r = Application.Intersect(rng1, rng2) End With

从水平行或string中删除重复的值: 我有一个由大约50,000行组成的数据集，每行（或单元格）的值用逗号分隔。 item 1, item 2, item 1, item 1, item3, item 2, item 4, item3 目标输出很简单 item 1, item 2, item3, item 4 我可以使用Excel，开放式办公计算器，记事本++，或任何其他免费提供的程序（我find了一个JavaScript解决scheme，但它是一个单一的string，试图运行它5万次或者没有工作，或者会比我长有，我不知道足够的JS来调整它）有关如何做到这一点的任何build议？ < 编辑要注意的是有些项目将包含空格 >

为什么我的Excel电子表格将我的号码格式化为date？: 我们有很多自动化的电子表格提取数据，计算预测，发布网页等。这是一个非常混乱的系统，我很想重做它（用一个真正的web服务），但我们不有权这样做。我们运行Excel 2007，大部分电子表格都转换为.xlsm 。无论如何，出于某种原因我不知道，某些电子表格会将某些数字单元格式化为看起来随机的date。正如你所想象的那样，这个问题很难追查到，而且通常我只有在有人写了一封关于我们的数据阅读的恶意邮件时才发现它应该读为400 （显然，Excel认为这是一个闰年1900）。我已经明确地将有问题的单元格设置为数字格式几次，只是一个星期后才发现它们充满了date。我扫描了macros（很多是古老的Excel 4.0macros语言），它们看起来是干净的任何格式更改。所有的复制/粘贴都是按值完成的，不保留源单元格的格式。问题表中没有条件格式规则。在Auto_Open子例程中根据需要添加一点VBA格式化单元格似乎解决了这个问题。这个修复是否足够好，或者在一个星期内我会发现date格式出现在计算中？如果没有，根源是什么，我该如何解决？有一件事：我刚从这个源文件中读到，Excel'07可能自发地将Normal格式的单元格改为[$-409]m/d/yy h:mm AM/PM;@的格式。我改变的一些细胞绝对是Normal ，但显然不是全部。

使一个表中的所有数据透视表在模拟行中展开和折叠: 好吧，我是VBA新手，但我知道这一定是可能的。我花了一段时间编写Android应用程序，但我不会称自己几乎是一个专家，可能不是中间的说实话。不过，唉，excel不使用java。这是我的问题：我所需要做的就是在同一张纸上创build6个其他数据透视表，模仿我称之为主数据透视表的内容。它需要模仿的唯一特征是（现在我想是），当小学扩展/崩溃，其他人应该效仿。我猜测，代码将类似于java中的onclicklistener，当代码在主数据透视表中“听到”一个折叠或扩展的点击时，它只会将相同的折叠或扩展应用到其他六个。其他6个枢轴将始终具有相同的行标签，因此将点击从“主位置”传递给其他位置的错误不会成为问题。我试图在我的数据透视表中logging其中一个行标签的扩展，并得到这个代码。 ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").PivotItems("2005"). _ ShowDetail = True 我知道，这是执行扩展的代码（和ShowDetail = False会使它崩溃）。我想我所需要的就像我说的，一个倾听者可以“听到”主数据透视表的任何展开/折叠的点击，这是一种存储/传输点击行标签的信息的方法（“位置”的点击，如果你会），然后一个通用版本的上述代码来执行另一个6使用我猜测循环的种类。我在正确的轨道上斜线任何帮助家伙？非常感谢，一如既往。