如何用VBA语句让EXCEL里某单元格不能被输入或更改?(比如说要让A1单元格不被输入)请诸路VBA高手赐教,谢谢!! 在Excel里如何用VBA实现向任意一个单元格输入内容，再进...
excel\u4e2d\u600e\u4e48\u4f7f\u7528VBA\u63d2\u5165\u4e00\u4e2a\u6309\u94ae \u4f7f\u5176\u70b9\u51fb\u6309\u94ae\u5b9e\u73b0\u5728\u67d0\u5355\u5143\u683c\u8f93\u5165\u7684\u529f\u80fd\u6b65\u9aa4\u5982\u4e0b\uff1a
1.\u5f00\u53d1\u5de5\u5177\uff0c\u63d2\u5165\uff0c\u6309\u94ae
2.\u62d6\u52a8\u7ed8\u5236\u6309\u94ae\uff0c\u5728\u5f39\u6846\u4e2d\u9009\u62e9\uff0c\u65b0\u5efa
3.\u5728\u65b0\u754c\u9762\u4e2d\u8f93\u5165\u5982\u4e0b\u4ee3\u7801
4.\u8fd9\u6837\uff0c\u6bcf\u6b21\u70b9\u51fb\u6309\u94ae\uff0c\u5c31\u4f1a\u5728\u9009\u4e2d\u5355\u5143\u683c\u4e2d\u8f93\u5165\u5185\u5bb9\u4e86
\u4ee3\u7801\u4e0d\u96be\u3002\u4f46\u662f\uff0c\u6709\u4e00\u4e2a\u95ee\u9898\u9700\u8981\u4f60\u8003\u8651\uff1a
\u5f53\u4f60\u539f\u6765\u7684\u6570\u636e\u662f\u201cXYZ\u201d\uff0c\u5728\u4f60\u9009\u4e2d\u8fd9\u4e2a\u5355\u5143\u683c\uff0c\u7136\u540e\u53c8\u8f93\u5165\u201dXYZ\u201c\u65f6\uff0c\u4f60\u600e\u4e48\u5224\u65ad
\u8fd9\u662f\u3010\u518d\u6b21\u8f93\u5165\u201dXYZ\u201c\u4ece\u800c\u5f97\u5230\u201dXYZ/XYZ\u201c\u3011\uff1b
\u8fd8\u662f\u5355\u5143\u683c\u6ca1\u6709\u53d8\u5316\u4f9d\u7136\u662f\u539f\u672c\u7684\u3010\u201cXYZ\u201d\u3011\uff1f
\u4e0b\u9762\u8fd9\u6bb5\u4ee3\u7801\u662f\u4e3a\u4f60\u7684\u8bbe\u60f3\u5236\u4f5c\u7684\u3002
Public oldValue As VariantPrivate Sub Worksheet_Change(ByVal Target As Range)If Target(1) = "" Or oldValue = "" Then Exit SubApplication.EnableEvents = FalseTarget(1) = oldValue & "/" & Target(1)Application.EnableEvents = TrueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)oldValue = Target(1)End Sub\u4fdd\u7559\u4e86\u6e05\u9664\u5355\u5143\u683c\u7684\u9009\u62e9\u3002\u3002\u4e0d\u8fc7\u6ca1\u6709\u5bf9\u4f5c\u7528\u533a\u57df\u505a\u8bbe\u5b9a
Range("1:65536").Locked = False '解除全部锁定
Range("A1").Select '设置新锁定
Selection.Locked = True '开启锁定
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
这个用vba实现和你单元格锁定没什么区别的，也是要锁定你的单元格，然后把其他不用的单元格解锁，然后锁定整个表格，才能达到你要求的目的。
Private Sub Worksheet_Activate()
Dim A As String
A = Cells(1, 1)
Cells(2, 1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = A Then
Else
MsgBox "此单元格保护！不能改写操作！"
Cells(1, 1) = A
End If
End Sub
绛旓細Range瀵硅薄鎴愬憳涓嶅惈浣犳墍璇寸殑杩欑鏂规硶鐨勩傝В鍐虫柟娉曪細鍙互鍙彇鍊硷紝濡傦細Range("A1").Value 涔熷彲浠ュ厛澶嶅埗锛岀劧鍚庣矘璐翠负鍊笺傚锛歊ange("A1").CopyRange("B1").PasteSpecial xlPasteValues
绛旓細鍦ㄤ唬鐮佺獥鍙涓锛岃緭鍏ヤ互涓VBA浠ｇ爜鏉ュ垱寤烘柊鐨Excel鏂囦欢锛vba 澶嶅埗Sub CreateNewExcelFile()Dim newWorkbook As Workbook Set newWorkbook = Workbooks.Add ' 鍦ㄦ柊宸ヤ綔绨夸腑杩涜鍏朵粬鎿嶄綔 ' ...' 淇濆瓨鏂板伐浣滅翱 newWorkbook.SaveAs "C:\璺緞\鏂囦欢鍚.xlsx" ' 灏璺緞鍜屾枃浠跺悕鏇挎崲涓烘偍鎯宠淇濆瓨鐨勪綅缃拰鍚嶇О ...
绛旓細Excel寮瑰嚭鈥滄偍璇曞浘鏇存敼鐨勫崟鍏冩牸鎴栧浘琛ㄥ彈淇濇姢锛屽洜鑰屾槸鍙鐨勩傝嫢瑕佷慨鏀瑰彈淇濇姢鍗曞厓鏍兼垨鍥捐〃锛岃鍏浣跨敤鈥樻挙娑堝伐浣滆〃淇濇姢鈥欏懡浠(鍦ㄢ樺闃呪欓夐」鍗＄殑鈥樻洿鏀光欑粍涓)鏉ュ彇娑堜繚鎶ゃ傚彲鑳戒細鎻愮ず鎮ㄨ緭鍏ュ瘑鐮併傗濆嚭鐜拌繖绉嶆儏鍐碉紝搴旇鎬庝箞瑙ｅ喅鍛紵缁忚繃鐮旂┒锛屾壘鍒颁簡涓绉嶇牬瑙xcel宸ヤ綔琛ㄤ繚鎶ょ爜鐨勬柟娉曘傜涓姝ワ細鎵撳紑璇ユ枃浠讹紝...
绛旓細浠ｇ爜濡備笅, 璇﹁闄勪欢鐨勭ず渚嬫枃浠躲係ub MergeData() '灏嗗叾浠杝heet鐨勫悓鍒楁暟鎹悎骞跺埌绗竴寮爏heet Dim i As Integer, N As Integer Dim j As Long, k As Long N = Sheets.Count '濡傛灉宸ヤ綔绨夸腑鍙湁涓寮犲伐浣滆〃锛屽垯閫鍑 If N = 1 Then Exit Sub '纭畾宸ヤ綔琛ㄧ殑鍒楁暟(鍋囧畾鍏朵粬...
绛旓細绛旓細鐓т笅鍥炬墦寮浠ｇ爜绐楀彛 鐒跺悗鎶涓嬮潰浠ｇ爜澶嶅埗杩涘幓鍗冲彲锛歅rivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then Exit Sub If VBA.IsNumeric(Target.Value) Then Target = Target + 1 End IfEnd Sub ...
绛旓細杩欏彲鍚硦涓嶅緱鐨勶紝闇瑕佺殑鏄簿纭尮閰嶏紝鎵浠ュ～鍏モ0鈥濓紙璇锋敞鎰忥細Excel甯姪閲岃鈥滀负0鏃舵槸澶ц嚧鍖归厤鈥濓紝浣嗗緢澶氫汉浣跨敤鍚庨兘璁や负锛屽井杞湪杩欓噷鍙兘寮勯敊浜嗭紝涓0鏃跺簲涓虹簿纭尮閰嶏級锛屾鏃剁殑鎯呭舰濡傚浘4鎵绀恒傛寜[纭畾]鎸夐挳閫鍑猴紝鍗冲彲鐪嬪埌C2鍗曞厓鏍煎凡缁忓嚭鐜颁簡姝ｇ‘鐨勭粨鏋溿3.鎶奀2鍗曞厓鏍煎悜鍙虫嫋鍔ㄥ鍒跺埌D2鍗曞厓鏍硷紝杩欐椂浼...
绛旓細Private Sub Worksheet_Change(ByVal Target As Range)Dim i As Long Dim s As String If Target.Column = 2 And Target.Count = 1 Then' 鎸囧畾B鍒椾换鎰忎竴涓崟鍏冩牸杈撳叆 s = Target.Value With Sheet2 For i = 1 To .Range("B65536").End(xlUp).Row'浠庤〃2绗1琛屽惊鐜埌B鍒楁渶鍚庝竴涓潪绌...
绛旓細鏂规硶/姝ラ濡備笅锛1銆佸弻鍑绘墦寮妗岄潰鐨EXCEL锛2銆佸崟鍑诲彸涓婅鐨凮FFICE鍥炬爣锛屾壘鍒癊XCEL閫夐」锛屽崟鍑绘墦寮锛3銆佸嬀閫夊湪鍔熻兘鍖烘樉绀衡滃紑鍙戝伐鍏封濋夐」鍗★紝鍗曞嚮纭畾鎸夐挳瀹屾垚淇敼銆4銆佸崟鍑昏彍鍗曟爮鐨勫紑鍙戝伐鍏凤紝鐒跺悗鎵惧埌Visual Basic鍗曞嚮鎵撳紑渚垮彲浠ヨ繘琛岀浉鍏崇殑VBA缂栫▼銆
绛旓細Option Base 1 鎸囧畾鏁扮粍鐨勭涓涓笅鏍囦负1銆(2) On Error Resume Next 蹇界暐閿欒缁х画鎵цVBA浠ｇ爜,閬垮厤鍑虹幇閿欒娑堟伅銆(3) On Error GoTo ErrorHandler 褰撻敊璇彂鐢熸椂璺宠浆鍒拌繃绋嬩腑鐨勬煇涓綅缃(4) On Error GoTo 0 鎭㈠姝ｅ父鐨勯敊璇彁绀恒(5) Application.DisplayAlerts=False 鍦ㄧ▼搴忔墽琛岃繃绋涓娇鍑虹幇鐨勮鍛...
绛旓細鏈枃鏁欎綘濡備綍浣跨敤VBA鍒ゆ柇璇彞銆1锛塈f鈥hen鈥lse璇彞 If condition Then [statements][Else elsestatements]濡1锛欼f A>B And C<D Then A=B+2 Else A=C+2 濡2锛欼f x>250 Then x=x-100 鎴栬咃紝鍙互浣跨敤鍧楀舰寮忕殑璇硶锛欼f condition Then [statements][ElseIf condition-n Then [elseif...
