我有一张桌子:
+----+------+
| ID | NAME |
+----+------+
| 1 | A |
| 1 | B |
| 1 | C |
| 2 | A |
| 2 | P |
| 2 | D |
| 2 | X |
| 3 | F |
| 3 | 45 |
+----+------+
我想把它转化成这个。( ID将是唯一的,相同ID的每个重新出现的ID的名称将添加到一个新字段中。
+----+------+-------+-------+-------+
| ID | NAME | Name1 | N
我正在使用Excel生成电源点演示文稿。宏正在运行excel。它工作得非常好。问题是Excel宏用奇怪的格式粘贴了图片。我必须通过右击每张图片-->图片格式-->重置图片,手动使用“重置图片”命令
是否可以制作一个宏功率点,它可以自动为我执行重置图片命令?
THanking向你致以最美好的问候
'getting name of picture from Excel sheet cell
logopic = ThisWorkbook.Sheets("Jan 2015").Range("z" & CellNr).Value
api
我用a作为..。下一个循环将图片插入Excel工作表。图片的名称来自B列。有时,硬盘上没有相应的图片。在这种情况下,Excel将抛出错误消息并停止运行代码。首先,我尝试了“下一步恢复错误”。这并不好,因为错误发生后的所有代码都会被执行。因此,我尝试了以下代码,以避免运行代码时,图片是找不到的。然而,这只捕获了第一个错误。当第二次找不到图片时,Excel仍然抛出错误消息(“无法获得图片类的insert属性”)。我想要的是,如果出现错误,Excel将跳过其余代码,转到下一种情况。这是如何做到的呢?谢谢你的帮助。
......
On Error GoTo gotoNext
For Each cell
我需要帮助使宏移动图片到excel中的单元格。我可以上下左右移动图片。但我希望宏将图片移动到单元格(例如,移动到单元格B7),而不管它在excel工作表中的什么位置。
我试过使用
Selection.ShapeRange.IncrementLeft -474.7059055118
Selection.ShapeRange.IncrementTop -303.5293700787
End Sub
这会移动图片,只是没有移到正确的位置
我正在将Access数据库中的数据导出到Excel报表中,报表中需要包含的部分内容是与数据相对应的图片。图片存储在共享文件中,并插入到Excel文件中,如下所示:
Dim P As Object
Dim xlApp As Excel.Application
Dim WB As Workbook
Set xlApp = New Excel.Application
With xlApp
.Visible = False
.DisplayAlerts = False
End With
Set WB = xlApp.Workbooks.Open(FilePath, , Tru