VBA 锁定有内容的单元格

Posted 2023-04-18

本次编辑增加内容后，锁定单元格无法修改，下次可增加内容，增加后再次锁定。就是每次增加完内容都锁定一次

你可以这样，先将工作表中所有无需修改或填写的单元，在设置单元格格式时，取消锁定，设置工作表保护，再用VBA的数值变动事件处理，每次数据有变动，解除工作表保护，再修改变动单元格式，再保护工作。这样做有一个麻烦，那就是录入错误，还得找你解除保护，才能修改单元格。 参考技术A 锁定单个很难做到，锁定整个工作表是可以的。。

用vba实现 从一组单元格中取出文本

要取出单元格A1到C2的内容(如图)：

要取出的文本为如下形式：
1 2 3
4 5 6
除了选定、复制再粘贴，还有什么不占用剪贴板的方法
用EXCEL VBA编写代码

Sub 转文本()
Dim rng As Range, Hrng As Range
endrow = ActiveSheet.UsedRange.Rows.Count
ipath = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & ActiveSheet.Name & ".txt"
Open ipath For Output As #1
For Each rng In ActiveSheet.UsedRange.Rows
arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng))
istr = Join(arr, " ")
Print #1, istr
Next
Close #1
End Sub 参考技术A Sub test()
Dim rn As Range, str As String
For Each rn In Sheet1.Range("A1:C3")
str = str & rn
Next rn
MsgBox str
End Sub