摘要：Dim tg As Range Dim FreeInput As Boolean Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Debug.Print "Not tg Is Nothing "; (Not tg Is Nothing) If Not tg Is Nothing Then ... 阅读全文

摘要：Sub MainProc() Dim Sht As Worksheet Dim Wb As Workbook Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets(1) Sht.Cells.Clear Sht.Range("A1:D1").Value = Array("中文标题", "英... 阅读全文