当用户在sharepoint上的excel表格中输入数据后,有没有办法锁定单元格?我可以在excel上锁定单元格,但不能锁定sharepoint。基本上,它不会像在excel应用程序上输入数据那样锁定sharepoint上的单元格。
有什么办法可以解决这个问题吗?我已经尝试过VBA代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:G800"), Target)
为了对我的文件进行版本控制,我希望能够运行一个脚本,在运行脚本时将工作表VC上的单元格A1与Sharepoint上存储的版本的相同单元格/工作表进行比较。相当新手使用VBA,不知道怎么做,也找不到我在谷歌上寻找的答案。 我想使用的代码如下: Public Sub version_control()
Sheets("VC").Calculate
If Sheets("VC").Range("A1").Value <> (this is where I want it to check cell A1 sheet VC on the
我正在尝试使用VBA从SharePoint打开一个Excel文件。因为每次运行宏时,我要查找的文件可能是不同的,所以我希望能够查看SharePoint文件夹并选择我需要的文件。
当我想在网络驱动器上查找一个文件时,下面的代码工作得很好,但是当我用一个SharePoint地址替换它时,我会得到“运行时错误76:路径未找到”。
Sub Update_monthly_summary()
Dim SummaryWB As Workbook
Dim SummaryFileName As Variant
ChDir "http://sharepoint/my/file/path"
S
我是Outlook VBA新手,正在尝试比较来自两个不同已关闭工作簿的同一单元格中的值。
我在收到来自电子邮件的附件时创建了一个Excel对象,该对象将附件另存为CSV文件。
然后,我想检查文件中的标题行是否与第一行中具有相同标题的主副本匹配,但我不确定如何引用表名或使用对象的单元格。我尝试过使用VBA for Excel的许多方法,但它在Outlook中似乎不起作用。
如果有人能帮助我,我将不胜感激。
Function ConvertXls2CSV(sXlsFile As String)
On Error Resume Next
Dim oExcel As Object
Dim oExc
使用VBA向数千个单元格(500000个单元)添加后缀(在本例中仅为"ID")的有效方法是什么?
VBA中的简单和通常的'for循环‘花费的时间太长了。(例如,For Each Cell In Selection.Cells等细胞的数量需要数十分钟)。
我写了以下(基于互联网搜索),工作在Excel 365,但不是在Excel 2016。相反,在2016年,它采用左上角的单元格,并将其粘贴到所有选定的单元格中。关于如何纠正这个问题,有什么想法吗?非常感谢。
Sub AddTextToEndOfCellValue()
Dim Suffix As String
Suffix
我已经通过VBA访问打开了一个Excel文件,并且可以在Excel单元格中读写。如何勾选Excel Ckeck Box?
我的代码:
Dim Excel_App As Object
Dim strExcel As String
Set Excel_App = CreateObject("Excel.Application")
Excel_App.Visible = True
Excel_App.Workbooks.Open fready
With Excel_App
.CheckBox3.Value = True 'This line is used in V
我有一个VBA,连同许多其他东西,将一个excel工作簿保存到SharePoint (我认为是企业2010 ),它大部分时间运行良好,但在用户运行VBA时,Excel会冻结,弹出显示“获取可用内容类型和属性的列表.”。如果用户选择取消另一个弹出,则出现“运行时错误'1004':对象'_Workbook‘的方法'SaveAs’失败。如果用户选择”Debug“,则VBA的最后一行突出显示为创建错误。
Dim fileName As String
Dim excelDirName As String
fileName = [c9]
excelDirName = [c
我希望将excel中的工作表命名为"Control“选项卡中单元格"C6”中的值。我是VBA的新手,我尝试的是在一个模块上输入这个。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
' Macro2 Macro
'
'
Dim month As String
month = Sheet2.Range("C5")
Sheets("Month").Name = month
End Sub
此外,我不知道名称是否会自
恐怕我误解了excel的VBA文档,我有这一行似乎是一个错误:
Range a = Selection.SpecialCells(xlCellTypeConstants, 23)
但这个很好:
Set a = Selection.SpecialCells(xlCellTypeConstants, 23)
这些文件要求:
返回一个Range 对象,它表示与指定类型和值匹配的所有单元格。
但是它实际上返回一个byRef对象,这就是我必须使用Set的原因。
我在这里错过了什么?
下面是Excel中的Range.SpecialCells方法帮助: