Hsieh

回復 1# apao2000

把輸入的內容存在工作表內就可記憶住已輸入過的內容
只是不清楚你要這些內容的用處何在?

Hsieh

回復 3# apao2000

1. Private Sub UserForm_Initialize() '表單初始化時觸發
   
2. TextBox1 = Sheets(1).[A1] '將A1的值寫入
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '表單關閉時觸發
   
6. Sheets(1).[A1] = TextBox1 '將文字方塊內容寫入A1儲存格
   
7. End Sub

複製代碼

Hsieh

回復 11# apao2000
只有片段程式碼，無法知道你的用意，如果單純結束這程序，加上exit sub即可
 If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
exit sub
  End If