第七週程式設計學習進度
| 網頁 | VBA |
| 輸入金額： | textbox |
| 輸入金額：<input type="text" id="a"> | |
| button | |
| <input type="button" value="別懷疑按下去" onclick="alert('super')"> | |
| pigdogcat | 複選radio |
| pig<input type="radio">dog<input type="radio">cat<input type="複選radio"> | |
| pigdogcat | 單選raido |
| pig<input type="radio" name="pet">dog<input type="radio" name="pet">cat<input type="radio" name="pet"> | |
| hello world | |
| EXCEL 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, 5).Value = TextBox4.Text '地址
addnew.Offset(0, 3).Value = ComboBox1.Value '聯絡人職位 使用下拉式選單
If OptionButton1 Then addnew.Offset(0, 4).Value = "男"
If OptionButton2 Then addnew.Offset(0, 4).Value = "女"
If OptionButton3 Then addnew.Offset(0, 4).Value = "跨性別"
ListBox1.ColumnCount = 6 '在清單方塊 ListBox1 顯示輸入的資料，5 columns
ListBox1.RowSource = "A1:F65536"
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem ("董事長")
.AddItem ("總經理")
.AddItem ("副總經理")
.AddItem ("財務長")
.AddItem ("人資長")
End With
End Sub | |
就是要高調，非常好！在部落格標題寫上自己的名字，條列自己所學，要用英文寫出來，讓全世界認識你，讓機器認識你，也讓網路搜尋者認識你。
回覆刪除