如何使用For Each循环查看一个工作表上的信息并在另一个工作表上生成形状？
使用For Each循环查看一个工作表上的信息并在另一个工作表上生成形状的步骤如下：
- 首先，打开Excel文件并选择要操作的工作表。
- 使用For Each循环遍历工作表上的每一行数据。可以使用VBA代码实现循环，如下所示：
Dim wsSource As Worksheet
Dim wsDestination As Worksheet
Dim rngSource As Range
Dim rngCell As Range
Dim shp As Shape
Dim i As Integer
Set wsSource = ThisWorkbook.Worksheets("源工作表") ' 替换为实际的源工作表名称
Set wsDestination = ThisWorkbook.Worksheets("目标工作表") ' 替换为实际的目标工作表名称
Set rngSource = wsSource.Range("A1:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row) ' 替换为实际的数据范围
i = 1 ' 用于在目标工作表上生成形状的计数器
For Each rngCell In rngSource
' 在目标工作表上生成形状
Set shp = wsDestination.Shapes.AddShape(msoShapeRectangle, 10, i * 20, 100, 20) ' 替换为实际的形状参数
' 设置形状的文本为源工作表上的数据
shp.TextFrame.Characters.Text = rngCell.Value
i = i + 1
Next rngCell- 运行VBA代码，循环遍历源工作表上的每一行数据，并在目标工作表上生成相应的形状。形状的位置和大小可以根据实际需求进行调整。
这样，你就可以使用For Each循环查看一个工作表上的信息并在另一个工作表上生成形状了。
对于这个问题，腾讯云没有直接相关的产品或服务。
相关·内容
我想从一个工作表中复制并粘贴几个文本框到新的工作表中。下面列出的宏在新的全新工作簿中运行良好：
Sub Move_controls()
Dim sh As Shape
Dim T, L As Integer
Sheets("MasterCopy").Select
For Each sh In ActiveSheet.Shapes
If sh.Type <> msoComment Then
T = sh.Top
L = sh.Left
For Each Sheet In
浏览 9提问于2018-02-11得票数 0
回答已采纳
我想从一个工作表中复制所有形状，然后将它们粘贴到另一个工作表的相同位置。形状可以是矩形标注或图片。
到目前为止，我知道如何遍历旧工作表中的所有形状：
Dim s As Shape For each s in Activesheet.Shapes ... Next
如何将形状复制并粘贴到另一个工作表中的相同位置，例如工作表(“新建”)？
浏览 0提问于2016-07-13得票数 3
回答已采纳
我有一个工作表，它组织、样式化和汇总数据，然后复制自己，并将另一个副本保存为.PDF。
在原始工作表上，有3个由形状组组成的“按钮”来运行不同的宏(“重置”、“修复失踪员工”、“打印和电子邮件摘要”)。问题是在拷贝中删除它们。--这是从一个录制的宏中删除的：
ActiveSheet.Shapes.Range(Array("Group 2")).Select
Selection.Delete
我要选择/删除所有形状。我不能使用"shapes.select“、"shapes.delete”或其他我找到帮助的东西。在上面列出的代码旁边的每一次尝试都会导致"Er
浏览 6提问于2016-05-05得票数 0
回答已采纳
2回答
我是VBA新手，我有一个工作表，其中的VBA宏指定给了形状。它在同一张工作表上工作得很好，但当我在下一张工作表中复制并粘贴形状，或者创建一个新形状并分配相同的宏时，它就不起作用了。请帮帮我。下面是代码。
ActiveSheet.Shapes("CTSnext").Fill.ForeColor.SchemeColor = Black
感谢您的回复!！
然而，让我来解释一下这个问题。
在工作表1中，我有4个形状，命名为1)取消服务2)下一个3)不感兴趣4)重置
所有3个形状(2,3,4)将在前色为白色，因此它将是不可见的。当用户点击“取消服务”时，会出现“下一步”(意思是前面的颜色
浏览 2提问于2016-05-19得票数 0
因此，我正在尝试编写一段代码，用于根据单元格值更改多个形状的颜色。
我使用了一种简单的方法，如果我运行代码，形状名称与单元格中写的名称相匹配，它将被突出显示，否则它将变灰。我有按国家命名的形状名称(基本上形状名称类似于“中国”、“德国”、“英国”等)；我使用的代码如下：
Sub Box_Colour()
Dim Shape_Name As String
Shape_Name = ActiveSheet.Range("N8").Value
ActiveSheets.Shapes(Shape_Name).Fill.ForeColor.RGB = RGB(237, 1
浏览 0提问于2020-06-29得票数 0
1回答
我正在创建一个日历，它从用户输入表中提取事件，并将一个文本框对象放在另一个工作表上(顶部是日期，左侧是不同部门)。当前将每个区段首行的事件(即人力资源区段首行的所有HR事件)分开。然后，我运行一个宏来检查重叠的对象，并将它们向下移动到下一行。
我用来移动对象的代码如下：
Sub MoveShapes()
'This Macro moves overlapping shapes down to the next row
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim sh As Worksheet
Set sh = wb.ActiveSh
浏览 1提问于2016-12-15得票数 0
我想循环遍历工作表上的形状，以确定它们是否是DropDown，然后如果某个下拉列表位于特定的行中。工作表包含许多复选框和下拉列表。我使用循环创建下拉列表，如下所示：
wsBank.DropDowns.Add(Range(AnsPositionAddress).Left, Range(AnsPositionAddress).Top, Range(AnsPositionAddress).Width, Range(AnsPositionAddress).Height).Select
With Selection
'.ListFillRange = AnsPositionRng.Of
浏览 10提问于2014-11-23得票数 1
回答已采纳
请让我解释一下我想做的事情：
(1)我已经创建了一个Excel工作簿，用户可以在其中编写流程的各个步骤。假设它写在一个名为"Process A“的工作表上。在每个步骤右侧的单元格中，用户可以指定该步骤是否需要圆形(用于连接符)、菱形(用于决策)或矩形(用于流程步骤)。
(2)对于工作表中称为"Process A“的每个步骤，我也有条件公式，指示我希望将形状放置在另一个工作表上的位置(左、上、宽、高)(让我们称之为”流程图A")。如果您想尝试这样做，我列出的坐标如下: LEFT > Connectors = 147；Processes and Decisions =
浏览 13提问于2018-07-31得票数 0
我希望这是问这个问题的正确地方，因为我快要发疯了。我是如此生疏，我对VBA没有任何经验(只对C++，java)。
问题：，我正在尝试将数据从一个工作簿复制到另一个工作簿。
假设我有一个工作簿(称为数据)，其中有几个充满数据的工作表。每一列数据都有一个唯一的标题(同一行中的所有标题)。
另一方面，我有另一个工作簿(称为REPORT)，其中一个工作表只包含数据的标题(在一行中)。它们与数据工作簿中的顺序不同。例如，我在报表工作表中有三个标题，可以在数据工作簿中的不同工作表中找到。
当找到相同的标题时，我需要循环遍历数据工作簿中的所有工作表，并将整个列复制到报表工作表。
这张图片可能有助于理解。
谢
浏览 4提问于2016-04-30得票数 0
我有一些代码，它们不断地导致
Error 70: Permission Denied
在我的VBA代码中。我找不出原因，因为我知道工作表是不受保护的，并且我可以对其进行更改。有问题的代码是
sh.Name = "square"
它尝试重命名从另一个工作表复制并粘贴到工作表中的形状-工作表中没有其他具有该名称的形状，因为在这些代码之前，我已经删除了具有该名称的所有形状。
对于可能导致此权限错误的原因有什么建议吗？
浏览 4提问于2009-06-04得票数 1
回答已采纳
我试图将每个工作表内容(文本框和形状，没有单元格内容)导出到word文档中。结果并不如我所料。如果有两个工作表，每个有一个文本框，一个文本框将被复制两次，而另一个将根本不会被复制！
Private Sub Export()
Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")
On Error Resume Next
WordApp.Documents.Add
WordApp.Visible = True
For Each ws In ActiveWorkbook.Work
浏览 2提问于2020-08-15得票数 1
回答已采纳
我有一个Excel宏，它在文件和工作表之间复制内容。它所做的事情之一是将内容从模板复制到新的工作表中，然后从其他文件中填充这些工作表上的信息。一切都如期而至。但没有达到预期效果的是删除从模板表转到信息表中的按钮和形状的代码。该代码位于在每个页面上工作的for循环中，但它只是从最后一个页面中删除这些形状，同时将它们保留在循环所触及的每一个其他页面上。循环中的其他所有内容都会像预期的那样影响每个页面。
我的宏的相关部分如下。masterWB和currentWB是两个独立的工作簿：
For k = 1 To masterWB.Sheets.Count
j = k + 1
'
浏览 0提问于2015-11-04得票数 1
回答已采纳
2回答
我的工作簿中有两个枢轴表，下面的代码可以动态地更改数据源和刷新数据透视表。代码运行良好，因为它循环通过第一个For Each pt循环和第一个数据透视表被刷新。但是，当第二个数据透视表被循环时，代码在pt.ChangePitvotCache上崩溃时会出错：
运行时错误= '5'：无效过程调用或参数“
当我在代码中有超过一个数据透视表的时候，有人能帮助我解释为什么这不能工作吗？
Dim ws As Worksheet
Dim pvtCache As PivotCache
Dim pt As PivotTable
Dim newRange As String
Set D
浏览 4提问于2017-03-21得票数 0
4回答
在我找到的代码之后，我试图计算工作表中的形状数，但是我得到了一个“溢出”错误。我使用的代码如下：
Sub tst()
Dim i As Integer
i = Sheets("DB_AL").Shapes.count
MsgBox i
End Sub
我认为问题在于工作表中有多少个形状。
我也不知道我怎么能删除它们。我还尝试用我找到的代码删除这些形状
Sub delShapes()
Dim shape As Excel.shape
For Each shape In Sheets("DB_AL").Shapes
浏览 0提问于2018-04-24得票数 0
回答已采纳
2回答
我有一个以形状显示数据的工作表，看起来很漂亮。这些形状只是引用数据临时表中的一个单元格。临时区域中的数据使用getpivotdata公式查找数据。
在我的包含向用户显示值的形状的显示工作表上，还有一个用于更改透视表的组合框。当数据透视表发生更改时，它会更新临时区域中的数据，而临时区域又会更改显示工作表上的形状中的数据。然后，我调用一个宏将形状设置为绿色(如果>0 )或红色(如果<0 )。
问题是，当轴心数据改变并重新计算时，我的形状不断地根据旧值更改它们的颜色，因为新字段还没有计算出来。
我尝试过DoEvents，但对它的功能几乎没有经验，也没有成功的机会。我不想延迟一个固定的时间
浏览 3提问于2013-04-24得票数 1
我有几个Powerpoint幻灯片，其中前3张幻灯片包含图表。现在，我需要进入每个图表，从这些图表中复制数据并将其粘贴到excel工作簿中。有没有办法使用VBA做到这一点？
Powerpoint图表不能从Excel中提取数据。我看到了另一个线程，它可以调整Powerpoint表格的数据，但不会显示在图表上。另外，我需要将数据复制并粘贴到excel中。
浏览 3提问于2016-10-25得票数 1
我正在尝试设置一个宏，它循环遍历工作簿中的所有工作表并更新它们上的表。所有的工作表都是同一个模板的副本，所以当创建新的工作表时，表名就会上升一个(Table3，Table4，Table5.)我不知道如何在For循环中设置它，以便在没有直接引用的情况下遍历表的每一行。
For Each Sheet in Workbook
Set tbl = ActiveSheets.ListObjects
For i = 13 To tbl.ListRows.Count
' Code to refresh
不知道在ListObjects之后放什么，这样它就会转到表上。这会
浏览 2提问于2019-10-24得票数 1
回答已采纳
2回答
在所有工作表中循环特定形状的问题
、、、、
我试图循环一个图片/标志，我想进入每一个工作表，其中包含一个矩形在左上角。
徽标成功地填充到矩形中，但是如果(矩形A")存在，我想检查每个工作表，然后粘贴包含图像的形状
我在循环中犯了一个错误，它被卡在一个无限的循环中，并粘贴在同一张纸上。
我能得到一些帮助吗？
Dim myshape As Shape
Set myshape = ActiveSheet.Shapes("Rectangle A")
myshape.Copy
For Each ws In ActiveWorkbook.Worksheets
浏览 9提问于2022-11-24得票数 1
回答已采纳
我使用下面的代码从工作表中复制第一行模板，并粘贴到所有其他工作表的第一行。第一行包含需要保持相同大小的形状。
运行宏时，“模板”中的形状将在所有其他工作表上调整大小。因此，我用这一行Shp.Placement = xlFreeFloating设置placement属性。
然而，在粘贴过程中，它们继续被调整大小。但是，在粘贴它们之后，如果更改了单元格大小，则不再调整大小。
如何防止形状在第一次粘贴时调整大小？
Dim ws As Worksheet
Dim HeaderRow As Range
Dim Shp As Shape
Set HeaderRow = W
浏览 3提问于2021-07-27得票数 0
回答已采纳
1回答
我目前正在尝试优化一些代码。目前，我使用的是ActiveWorkbook.RefreshAll，这大大降低了整个运行时间，实际上，我只需要刷新工作簿中的两个工作表。像Worksheet("Name").RefreshAll这样的函数存在吗？我知道.calculate，但我不认为它会更新我的枢轴表以及给定工作表中的计算。
问候
浏览 2提问于2017-12-14得票数 1
回答已采纳
我正在尝试删除幻灯片上的现有形状(图片)，并尝试了以下内容，但它们都没有工作。作为背景，这段代码在Excel中运行，但与powerpoint交互，这只是代码的一个片段。其他一切都很好( PPPres已经定义好了)。我也尝试过索引形状(尽管它是幻灯片上唯一的一个)并使用for循环，但仍然无法使它工作。
With PPPres.Slides(5).Shapes
If Shapes.Type = msoPicture Then
.Delete
End If
End With
*错误-方法或数据成员找不到(在.Delete上)。我知道".Delete“只在&#
浏览 7提问于2013-09-09得票数 0
回答已采纳
我试图在VBA (Excel)中编写一个分配给复选框的宏。每当单击复选框时，"autoshape“将将其”订单“从”发送到后退“更改为”发送到前线“。
基本上，我正在尝试创建一个带有多个面板的仪表板，这样用户就可以访问信息而不必在工作表之间移动。每个面板将有一个矩形的自动对撞机作为其背景和组件的面板将“分组”内的自动哈普。
这能办到吗？我非常感谢任何关于编写代码的想法。
谢谢,
浏览 6提问于2010-04-09得票数 0
1回答
当用户从下拉列表中选择“是”或“否”时，我要移动形状。我认为这会很简单，即使用VBA剪切和粘贴形状，但它似乎不是这样工作的。 下面的图像作为视觉表示： ? 这样做的目的是在选择是时将形状带到视图中(单元格CC18)，而在选择否时将形状带出视图(理想情况下在另一个工作表上，但也可以移动到同一工作表)。 我运行了Macro Recorder，得到了以下代码： Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Shapes.Range(Array("shpAPEX")).Select
浏览 7提问于2020-04-07得票数 0
回答已采纳
我可以改变字体，颜色，字号的形状。但只适用于形状表的VisSectionIndices.visSectionCharacter中已经存在的行。
我不能为本节创建新行，也不能更改每种格式的字符数。
任何解决办法都适合我。任何黑客，任何想法。
我已经摔断了头，我不知道该怎么处理。
如何在一个形状内更改文本的颜色？(例如黑色、绿色、红色？)
浏览 1提问于2021-03-22得票数 0
回答已采纳
我正在开发一个应用程序，它输出一个包含数据的表。我有正常的数据输出正确，但我有一个值，返回为‘Win’/ 'WLDWD‘(字母表示赢/抽签/输)。我在底部上传了一个图像，它显示了我的表，包括第一个#each循环之外的每个循环，该循环按预期工作。
我有一张桌子，如下所示
位置俱乐部赢了败北GF GA GD积分表
我有一个# recentForm循环并输出这些字段的值，然后在第一个#每个字段中有另一个#，我希望它输出index.js，这是在我的index.js上分割的(如下图所示)。
它返回数据，如下所示：[ [ 'W', 'W', 'W',
浏览 0提问于2018-09-13得票数 0
回答已采纳
1回答
我正在尝试为我的个人银行账户执行一个基于Excel的工具。我已经在具有3列(Date，Information，Amount)的工作表Import中导入了一些银行操作。我想将Import中的each行与另一个工作表Data中已经建立的集合进行比较。
我已经创建了一个函数来测试(根据日期，如果需要，再根据信息，如果需要，再根据数量)每一行，如果操作在数据集合中不存在，则返回0，并返回数据集合中的行号。
Function CompareRows(SingleRng As Range, CollectionRange As Range) As Integer
'SingleRange
浏览 1提问于2012-08-24得票数 1
我正在尝试使用宏将所有形状(图像)从一个工作表复制到另一个工作表。我使用了record宏来做这件事，但是它总是给形状起一个随意的名字，当我们不知道形状的名字时，它就不可能重现了。
浏览 0提问于2018-02-23得票数 1
回答已采纳
完全不熟悉VBA，如果您能帮助解决以下问题，我将不胜感激： 当前在模块中使用Sub GoFC()将工作表(“菜单”)上的形状超链接到其他隐藏工作表(形状和工作表文本匹配) 我想对多个工作表中的形状使用Sub GoFC()，但是代码只按名称引用了一个工作表。换句话说，我希望工作表"Menu“和工作表"Menu2”允许它们中的所有形状运行相同的宏。 我真心希望这是有意义的。 以下是模块中的代码： Sub GoFC()
shtName=Sheets("Menu").Shapes(Application.Caller).TextFrame2.TextRange
浏览 12提问于2019-04-04得票数 0
1回答
实体框架奇怪行为
、、、
最近，我向数据库表中添加了一个新的字段("Category")。更新了数据库中的模型。当我进行查询并获得此表的集合时，我尝试向该字段添加一个值。在这一点上，我并不是在拯救它。程序运行起来就像在无限循环中一样。当我停止调试器时，它位于模型设计器代码的ReportPropertyChanged("Category")上。如果我进入代码，它会进入另一个字段的Get部分，只会被困在这个Get循环中--非常奇怪。我已经清理/重建了解决方案，删除了模型，并重新附加了剩余的行为。我过去成功地添加了字段，没有这个奇怪的结果，有什么想法吗？
Winforms，EF 4.0。
代码
浏览 5提问于2014-04-22得票数 1
回答已采纳
1回答
我的代码在整个工作表中搜索与输入的短语匹配的文本框。按“是”到下一个响应时，该短语“否”将复制当前文本框。我的问题是，它不会搜索整个工作表，而是被困在一个工作表上，直到我按“否”来复制为止。我是新来的VBA，所以请任何帮助都会感谢。
Sub FindResponse()
Dim rStart As Range
Dim shp As Shape
Dim sFind As String
Dim sTemp As String
Dim Response
Dim obj As New DataObject
Dim ws As Worksheet
浏览 2提问于2015-04-09得票数 0
回答已采纳
1回答
我有下面的代码，触发自动给出数字形状范围内的单元格。
Sub numShape()
Dim masqueA As Range
Dim cpt As Integer
Dim shapeTemp As shape
Set masqueA = Range("b33:l42")
cpt = 1
For Each shapeTemp In ActiveSheet.Shapes
If Not Intersect(masqueA, shapeTemp.TopLeftCell) Is Nothing Then
shapeTemp.TextFrame.Characte
浏览 2提问于2018-10-12得票数 0
回答已采纳
我有一个excel工作表，其中绑定到按钮的宏根据工作表中的用户输入参数绘制动态形状。
我正在尝试编写一个新宏来清理工作表，或者换句话说，删除工作表中的所有形状。
我尝试使用下面的代码，它确实删除了所有的形状，但是按钮窗体控件在这个过程中也会被删除。有没有一种简单的方法来摆脱形状(箭头，文本框，椭圆等)在工作表中？非常感谢！
Sub DeleteAllShapes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub
浏览 0提问于2012-10-09得票数 14
回答已采纳
我的一个客户正在使用XSLT样式表。这不是一个真正的问题，但我在一个点上我被卡住了。
我在试着创建一张桌子。表中的行应同时包含父元素和子元素(如果有)。每个(parent和childs)都应该有自己的行。
首先，我使用For-each循环解决了这个问题，该循环首先遍历父元素。对于具有子元素的指定父元素，另一个For-each循环遍历子元素。
现在我遇到了这样的问题: position()不能从子循环返回到父循环，并且我不能确定行中的奇数和偶数。奇数和偶数由"mod 2“决定。
因此，每隔一行就会获得用于css样式的odd类。
XML看起来像这样：
<note>
<
浏览 0提问于2014-02-22得票数 0
我在工作簿中有三个单独的工作表，其中包含数千行信息，并且经常添加新信息。我希望能够使用宏和VBA创建单独的报告，以便在需要报告时打印到另一个工作表上。
例如，报告一将包括2014年所有已完成的工作。如果完成了？等于“是”，“年”等于“2014年”，在空白工作表上打印整行。但是，我需要使用VBA，这样它就可以通过三个工作表并将它们全部打印在一个单独的工作表中。我该怎么做？
说明:基本上，如果这两个单元格相等于这个和这个，那么将行打印在不同的工作表上。
浏览 0提问于2015-01-23得票数 0
回答已采纳
1回答
我有一个Excel工作表，其中有一列具有复选标记或空白透明图像的形状(图像)。这是为了确定是或否。如何在VBA中比较一个形状以查看它是否与另一个形状相等。
由于我将在代码中完成所有这些操作，因此我需要根据单元格中的形状/图像来确定行/列是yes还是no。
浏览 2提问于2013-11-04得票数 0
我在一个网站上工作，每个网页上都有很多表格。我想在顶部添加一个滚动条。我搜索并发现：现在，我尝试调整它，以便每个表得到它自己的滚动条。这就是我到目前为止所做的：
jQuery( document ).ready(function(index) {
var base ='thescroll wpt'
var thediv ='thedivfix thediv'
var counter=0;
var theclass= base+counter;
var theinnerdiv = thediv+counter;
jQuery('table.tablepre
浏览 0提问于2014-07-10得票数 0
回答已采纳
我想从powerpoint演示文稿中创建excel工作表，在其中我可以保留powerpoint幻灯片的格式，并能够调整某些值。有人知道怎么做吗？
我听说过在excel工作表中创建powerpoint幻灯片，但我需要走另一条路，因为我想保留powerpoint幻灯片的格式，但需要能够调整某些值。有人知道怎么做吗？
我基本上需要一个Excel工作表，它看起来和我的powerpoint幻灯片很像。
这是我到目前为止所知道的：
Dim PowerPointApp As Object
Dim myPresentation As Object
.
.
.
'Adds a slide to the
浏览 1提问于2019-08-20得票数 0
2回答
隐藏行，循环工作表
、、、
我的目标是在A:A和1:1中输入公式，它们要么是空白的，要么是' HIDE‘--当HIDE is there is is是隐藏行/列的时候。我的目标是编写vba代码来循环遍历每个工作表，并执行所有隐藏命令。
我已经写了以下代码，但它不工作，它只在一个工作表上执行隐藏命令。你能帮上忙吗？
Sub hide()
Dim Ver As Range, Hor As Range
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Set Ver = Range("A2:A300")
S
浏览 2提问于2015-02-02得票数 0
3回答
我正在尝试使用VBA按名称选择形状。在我的工作表中，我有10个形状，命名为1到10，并想要一个特定的形状。由于某些原因，excel使用我的代码选择的形状似乎不是我告诉它选择的形状的名称。据我所知，它选择的形状是随机的。下面是我的代码(x值用于检索我输入的从1到10的数值)：
Sub FindTheShape()
Sheets("Fleet 1").Select
Dim x As Long
x = ActiveSheet.Range("$A$1000").End(xlUp).Value
ActiveSheet.Shapes(x).Select
End Sub
浏览 3提问于2018-07-03得票数 2
回答已采纳
我正在Excel中创建日历/日程工作簿。它每个月都有一份工作表。
现在，我需要创建一个CommandButton，它带我到包含当前日期的单元格。只有一个单元格具有当前日期，但它可以出现在工作簿的任何工作表上。
我已经找了好几天了，但找不对！
我一直在尝试的事情：
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
Dim Loc As Range
For Each Sh In ThisWorkbook.Worksheets
With Sh.UsedRange
Set Loc = .Cells.Find(Wha
浏览 4提问于2016-07-09得票数 1
回答已采纳
1回答
我写了一个PowerPoint 2010插件，允许用户创建形状对。这些对是同步的(例如位置、颜色、文本...)。这些对存储为以下类的对象：
class Pair
{
Shape LeftShape { get; set; }
Shape RightShape { get; set; }
}
如果修改了一个形状，其中有一对包含该形状的形状，则会更新另一个形状。
可以在主布局上定义配对。同步在主服务器上工作。如果该对由两个占位符组成，并且我基于母版创建了一张幻灯片，那么新形状当然不会同步。有没有办法找到形状的等价物，反之亦然？那么算法将是：
s1's modifica
浏览 2提问于2012-09-11得票数 0
回答已采纳
我有两个循环在excel文件和工作表上循环的SSIS。我在每个工作表循环中都有一个数据流任务，其变量名为sheetname，源是excel和odbc目标。数据库中的表有我需要的所有列，如userid、username、productname、supportname。但是，有些工作表可以有列用户名、产品名，还有一些有用户and、用户名、产品名、支持名。
如何加载excel文件？我是否可以将列添加到派生列任务中，该任务检查列是否存在，如果不使用默认值添加列，则将其映射到目标？
谢谢
浏览 5提问于2022-11-22得票数 0
1回答
使用Shapes.AddPicture(.)将图片插入Excel工作表时方法，Excel自动将其命名为"Picture 1“、"Picture 2”等。
此名称可用于在形状集合(如Shapes.Item(“图1")中获取对此形状对象的引用。如果在Excel中使用name Box更改名称，则有两个不同的名称(或者其中一个是键/标题)，通过它们可以引用Shape对象。因此，如果我将名称更改为"MyPic“，我可以使用其中的任何一个来引用形状集合中的形状：
Shapes.Item("Picture 1")
OR
Shapes.Item("MyP
浏览 3提问于2010-09-19得票数 9
我需要做一个VBA来复制一个单元格到另一个工作表的单元格。(相同的工作簿)。
之后，我必须创建一个pdf (我有VBA为此)。
在pdf创建后，我需要做所有这一切自动，我希望有一个VBA这一点。因为我需要制作200个pdf
因此，我的问题是：
我如何创建一个VBA，它将一个单元格从列表I sheetB复制到SheetA中的一个单元格，并在创建pdf后，使用sheetB中的下一个单元格值重新创建？我猜是和“循环”工具有关吧？
浏览 0提问于2017-10-30得票数 0
2回答
在Microsoft Visio Professional 2010中，我已经隔离了我在此小代码片段中遇到的错误。在页面上是一个包含2个形状的容器，我想在另一个循环中迭代这些形状。但我一直收到无效参数错误。
我尝试的解决方案是顶层块，但它只适用于内部循环的相同定义。在外部循环的第二次迭代中，似乎有一些东西发生了变化，但我不确定。我觉得这与定义For Each循环的方式有关。
Sub Nested_Loop_Error()
Dim a As Variant
Dim b As Variant
Dim lngs() As Long
'This Works
浏览 0提问于2013-08-14得票数 0
1回答
我试图重新创建一个工业过程，通过移动设备的图片，并将它们与箭头连接起来，以建立我的过程的连接和顺序。
我能够插入新的设备，点击他们的图片，它复制和粘贴图片，一个用户表单弹出，我设置图片的名称和其他参数。
设备库存以及它看起来是如何连接的
我使用宏在工作表上列出图片或形状，但没有找到任何东西来列出连接。
我知道这些连接是“记录”的，因为我记录了一个显示它的宏。
两幅图片之间的连接
我将如何在工作表上列出这些连接，并确定什么与什么以及在什么之前有关联？
记录连接
Sub connection_stack()
ActiveSheet.Shapes.Range(Array(
浏览 19提问于2022-04-22得票数 1
回答已采纳
我可能只是做错了什么。
我试图遍历工作簿中的每个工作表，而在每个工作表上，我希望它预先形成另一个循环。问题是，我没有转移到下一个工作表，而只在活动的工作表上工作。任何帮助都将不胜感激。
Sub Hours()
Dim ws As Worksheet
Dim I As Integer
For Each ws In ActiveWorkbook.Worksheets
For I = 6 To 21
k = I + 1
If Cells(k, 7).Value =
浏览 2提问于2017-06-28得票数 1
回答已采纳
因此，无论出于什么原因，我都无法让我的VBA代码遍历工作表上的表单控件复选框，以便有一个“全选”复选框。我遇到了以下两种不同的方法，这两种方法都可以做到这一点：
方法1：
Sub SelectAll_Click()
Dim CB As CheckBox
For Each CB In ActiveSheet.CheckBoxes
If CB.Name = ActiveSheet.CheckBoxes("cbSiteAll").Name Then
MsgBox CB.Name & ": " & CB.Value, vbOKOnly
浏览 12提问于2017-08-21得票数 1
回答已采纳
我在一个子程序中使用Application.Caller，该子程序以编程方式绑定到我在工作表中找到的所有形状的OnAction属性。Application.Caller返回发起调用的形状的名称，这样我就可以获得要处理的适当的shape对象。
所有这些都很好，除非工作表上有多个具有相同名称的形状，因此无法确定哪个是调用方。Excel管理在工作表中手动插入、复制和粘贴形状时的命名，但是这些工作表是通过外部应用程序填充的，这会导致命名冗余。
我目前正在通过第一次扫描和重命名冗余形状来管理这些形状，这样我就可以用Application.Caller函数来识别它们。但是，我不想给它们重新命名。
我试过的
浏览 2提问于2017-04-29得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
