vba

0热度

1回答

因此，使用宏我可以创建新工作表，其中一些单元格将被锁定。我在宏中使用此方法： ActiveSheet.Protect UserInterfaceOnly:=False（对于整个新的工作表）然后在这个宏的一些细胞：locked = False 然后锁定属性，其他的宏切换特定细胞的使用真或假锁。例如，此表中的一个表被锁定，但是按钮的宏重新计算并重写表的值，并且在宏的开始处table.Locked =

0热度

1回答

VBA搜索列中的值之后特定图案

我有输入数据是这样的： gen,N,,,GONGD,,,N,,,KL,0007bd,,,,,,,,TAK, gen,N,,,RATEC,,,N,,,KP,0007bc,,,,,,,,TAZ, kap,N,,,EBFWE,N,,,,,,,,,KP,002bd4,,,KP,123000,,,,,N,,,,P kap,N,,,ST,WEIT,E3,EBFWEI,,,KP,002bd2,N,,,,,

1热度

1回答

Excel/Access VBA - 无法获取上次使用的行，因为查询刷新

我正在刷新Access上的查询并循环遍历表，但循环超出了刷新 - 所以我没有得到正确的最后一行。刷新后，a应等于2746，但它返回1478，这是刷新前的最后一行。 vPath = ThisWorkbook.Sheets(vHome).Range("LogTblFolder") vFile = ThisWorkbook.Sheets(vHome).Range("LogTblFile")

1热度

1回答

的Word 2013崩溃上Find.Execute

我使用VSTO的ThisAddIn和Word 2013年我想与其他使用Find.Execute更换一个字符串的所有出现，并标记定制这个动作撤销的消息。该代码是： application.UndoRecord.StartCustomRecord("Some Message"); var find = application.ActiveDocument.Content.Find; find.

0热度

1回答

Excel中：自动更新数据透视表不共享无需取消领域

我有一些非常简单的代码，当数据源更新为自动刷新我的数据透视表： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet2.PivotTables("PivotTable1").PivotCache.Refresh Sheet3.PivotTables("PivotTable2").PivotCache.Refres

0热度

1回答

MS Access中使用的基于角色的访问控制

我目前正在一个项目上工作，其中一个要求是使用用户的Windows登录作为他们的登录MS Access，然后他们会在那里点击角色以获得进入系统。我从来没有这样做过，但我已经在Access中建立了一个登录屏幕，它从表格中提取数据。我有成功拉动用户Windows登录的代码，但在此之后我遇到了麻烦。表名是tblUser，用户是普通用户，人力资源和管理员。目前，在该表中我有指定的号码与一般用户= 1，HR

0热度

2回答

如何打开新工作簿并使用VBA添加图像？

我试图让Excel 2007的宏打开一个文件夹，其中有一堆图像。然后创建一个新的工作簿并将图像嵌入其中。 “运行时错误‘434’：对象需要”如果我注释掉线Sheet.Shapes.AddPicture FileName:=F, linktofile:=msoFalse, savewithdocument:=msoCTrue, Left:=cell.Left + 5, Top:=cell.Top +

0热度

1回答

VBA：将分钟数改为hh：nn

对于VBA程序，我们制作了两个组合框。一个小时，一个几分钟。我们把时间转换成了几分钟。通过Spinner按钮，我们可以添加或减少小时。我们也将它们转换成了几分钟。现在，我们正在寻找一种方法来将我们留下的分钟数转换为具有hh：mm布局的消息箱。任何人都可以帮助我们？提前致谢！ --CODE --- Private Sub CalcRT_Click() UtcTime.Value = ((Hour

0热度

3回答

Instr函数，找到整个数字，所以12将不会返回为1

我想找到一种方法来搜索单元格可能已被输入的数字。所以B2的值是12.当使用Instr时，它会发现1,2和12.有没有办法让它只返回12？这里是我目前使用它的代码，如果我只使用1-9会很好，但是我需要更多选项。 Sub PRTLookup() Dim WsP As Worksheet Dim PRTval As String Dim MonCt As Long, DayCT As Long

0热度

1回答

命令按钮，使切片器的选择

我有一个命令按钮，使数据透视表的选择。我使用下面的VBA代码来进行选择。然而，它运行时间太长。有没有一种方法来优化代码，它不通过每一行...清除所有过滤器并选择SlicerItems("").Selected=True。 Sub HenkelOnly() ' ' HenkelOnly Macro ' ' ActiveWorkbook.SlicerCaches("Slicer_M