發表文章

目前顯示的是 10月, 2020的文章

第七周進度

網頁 VBA 輸入金額: VBA 輸入金額:<input id="a" type="text" /> VBA 網頁 VBA VBA <input type="button" value="許單身狗狗" onclick="alert('一輩子!')">  VBA 豬 狗 貓 VBA 豬 狗 貓 VBA VBA Private Sub CommandButton1_Click() Dim addnew As Range '定義 變數 addnew 是工作表的一個範圍 If Range("A1").CurrentRegion.Rows.Count = 1 Then Set addnew = Sheets("DataTable").Range("A1").Offset(1, 0) Else Set addnew = Sheets("DataTable").Range("A1").End(xlDown).Offset(1, 0) End If addnew.Offset(0, 0).Value = TextBox1.Text '統一編號 addnew.Offset(0, 1).Value = TextBox2.Text '公司 addnew.Offset(0, 2).Value = TextBox3.Text '聯絡人 addnew.Offset(0, 4).Value = TextBox4.Text '地址 addnew.Offset(0, 3).Value = ComboBox1.Value '聯絡人職位 使用下拉式選單 ListBox1.ColumnCount = 5 '在清單方塊 ListBox1 顯示輸入的資料,5 columns ListBox1.RowSource = "A1:E65536" End Sub Pr...