VBA 中的一个语句

Posted 2023-03-19

当工作表被保护了以后，在 locked=TRUE 的单元格内无论是用户还是宏都无法写入数据。
我记得在VBA中有一个语句（属性），可以让VBA向被保护的单元格里面写入数据。这个语句是什么？
首先，感谢两位朋友。
我的意思没有说清楚。我是说 有一个状态，工作表被保护，但是VBA依然可以写入数据。

参考技术A workbook或worksheet的unprotect方法，两者是不同的。
具体请自己参考帮助文件。
写入数据后再用相应的protect方法恢复保护即可。 参考技术B 可以在写数据前先去除保护，等写好数据后再加上保护。
Private Sub worksheet_activate()
sheet(1).Unprotect password:="密码"
写数据语句
sheet(1).Protect password:="密码"
End Sub

工作表保护时不可能写入数据的。

VBA-TRANSFORM 语句中的语法错误

【中文标题】VBA-TRANSFORM 语句中的语法错误

【英文标题】：VBA- Syntax error in TRANSFORM statement

【发布时间】：2016-12-20 11:56:48

【问题描述】：

我在 VBA 中有一个错误，此查询作为交叉表正常运行，但是当我尝试切换 VBA 时，在 TRANSFORM 语句中抛出一个语法错误有人可以帮助我吗？谢谢。

     "TRANSFORM Str(Count([Prijava].[id]))AS O, Str(Count([Prijava].[datumSmrti])) AS U" & _
     "SELECT MKB10.id, IIf([pol].[id]=1,'M','Ž') AS pol, MKB10.NazivLatinski" & _
     "FROM Pol INNER JOIN ((Opstina INNER JOIN Pacijent ON Opstina.id = Pacijent.opstinaID) INNER JOIN (MKB10 INNER JOIN Prijava ON MKB10.id = Prijava.mkb10ID) ON Pacijent.id = Prijava.pacijentID) ON Pol.id = Pacijent.polID" & _
     "GROUP BY MKB10.id, IIf([pol].[id]=1,'M','Ž'), MKB10.NazivLatinski" & _
     "ORDER BY MKB10.id" & _
     "PIVOT starosnoDoba2([starost]) In ('<1','1','2','3','4','5','6','7-9','10-14','15-19','20-29','30-39','40-49','50-59','60-69','70>')"

【参考方案1】：

 "TRANSFORM Str(Count([Prijava].[id]))AS O, Str(Count([Prijava].[datumSmrti])) AS U " & _
     "SELECT MKB10.id, IIf([pol].[id]=1,'M','Ž') AS pol, MKB10.NazivLatinski " & _
     "FROM Pol INNER JOIN ((Opstina INNER JOIN Pacijent ON Opstina.id = Pacijent.opstinaID) INNER JOIN (MKB10 INNER JOIN Prijava ON MKB10.id = Prijava.mkb10ID) ON Pacijent.id = Prijava.pacijentID) ON Pol.id = Pacijent.polID " & _
     "GROUP BY MKB10.id, IIf([pol].[id]=1,'M','Ž'), MKB10.NazivLatinski " & _
     "ORDER BY MKB10.id " & _
     "PIVOT starosnoDoba2([starost]) In ('<1','1','2','3','4','5','6','7-9','10-14','15-19','20-29','30-39','40-49','50-59','60-69','70>') "

连接字符串时需要空格，否则您的文本会一起运行...您正在阅读 "TRANSFORM..... AS USELECT..."

【参考方案2】：

我发现答案很愚蠢，一切都很好，当然它可以工作，但有一些事情需要纠正，逗号应该站在 & "" "" & 之后，因为它出现在一个字符串之后继续& _ 在此之前应该像 pollID 一样站立空间“ 所以，看起来像这样`

"TRANSFORM Str(Count([Prijava].[id]))&"" ""& Str(Count([Prijava].[datumSmrti])) " & _
"SELECT MKB10.id &"" ""& IIf([pol].[id]=1,'M','Ž') &"" ""& MKB10.NazivLatinski " & _
"FROM Pol INNER JOIN ((Opstina INNER JOIN Pacijent ON Opstina.id = Pacijent.opstinaID) INNER JOIN (MKB10 INNER JOIN Prijava ON MKB10.id = Prijava.mkb10ID) ON Pacijent.id = Prijava.pacijentID) ON Pol.id = Pacijent.polID " & _
"GROUP BY MKB10.id, IIf([pol].[id]=1,'M','Ž'), MKB10.NazivLatinski " & _
"ORDER BY MKB10.id " & _
"PIVOT starosnoDoba2([starost]) In ('<1','1','2','3','4','5','6','7-9','10-14','15-19','20-29','30-39','40-49','50-59','60-69','70>') "