返回列表 上一主題 發帖

[發問] 求救~無限迴圈~

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-14 14:01 | 顯示全部帖子

[發問] 求救~無限迴圈~

  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Application.DisplayAlerts = False
  4.     If Target.Address(0, 0) = "A1" Then
  5.    
  6.         Dim Bo As Workbook, Save_Name  As String, E As Object
  7.         
  8.         With ActiveWorkbook
  9.                                             
  10.             Save_Name = "D:\" & [A1] & ".xls"
  11.                 .Sheets("工作表1").Copy
  12.         End With
  13.         
  14.         With ActiveWorkbook
  15.             For Each E In .VBProject.VBComponent
  16.                 E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
  17.             Next
  18.             .SaveCopyAs Save_Name
  19.             .Close False
  20.         End With
  21.         
  22.         [A1].Select
  23.     End If
  24.    
  25.     Application.DisplayAlerts = True
  26. End Sub
複製代碼
我在 [A1].Select 下方新增一行 Selection.ClearContents
結果變成無限迴圈~不知道為什麼會這樣~懇求大大們幫忙~謝謝!
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2013-3-14 15:00 | 顯示全部帖子
回復 2# GBKEE


    謝謝G大~完成
是否可以再詢問一下
我下了這個判斷[A1].Select
是希望輸入以後~依然維持在A1

但是當我滑鼠點到A2就不會跳到A1了
因為判斷有改變才執行

請問是否可以在滑鼠指到A1以外的儲存格
讓他自動跳到A1呢?不知道有沒有這種判斷?再次感謝!

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題