程式設計心得與分享

 9/7

老師示範

9/14

<label>顏色:</label>
  <label>黑色<input type="radio" name="color"></label>
  <label>紅色<input type="radio" name="color"></label>
  <label>綠色<input type="radio" name="color"></label>
  <label>藍色<input type="radio" name="color"></label><br>
  <input type="button" value="2020年每天通貨走勢" onclick="draw()">

<input type="button" value="2020年每天通貨走勢" onclick="draw()">

9/21

位元組與變數


10進位

16進位

位元組Byle的2進位表示

 

2進為對應的10進位

7

6

5

4

3

2

1

0

　

　

128

64

32

16

8

4

2

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

1

1

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0

0

255

FF

1

1

1

1

1

1

1

1

=SUMPRODUCT($C$3:$J$3,C18:J18)

           =DEC2HEX(A18)

      Decimal 十進位  Hexadecimal 十六進位

9/28


10/05

第五週程式設計課程
(1)練習定義區塊Division格式
<head>
<style>
.Takming {
border: 20px outset red;
background-color: green;
color: white;
text-align: center;
}
</style>
</head>
(2)瀏覽器開發人員模式下的除錯，Function 12鍵
IE 中文介面，但Chrome僅有英文介面
(3)製作OFFICE VBA表單，比較HTML的表單




第六週上課


網頁指令VBA指令
聯絡人職稱: UserForm_Initialize()'起始表單事件設定
聯絡人職稱:<select id="ComboBox1">
<option>董事長</option>
<option>總經理</option>
<option>副總經理</option>
<option>財務長</option>
<option>人資長</option>
</select>		With ComboBox1
.Additem("董事長")
.Additem("總經理")
.Additem("副總經理")
.Additem("財務長")
.Additem("人資長")
End With
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 Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem ("董事長") ComboBox1.AddItem ("總經理") ComboBox1.AddItem ("副總經理") ComboBox1.AddItem ("財務長") End Sub

第七周
表格命令對照

htmlvba
輸入國庫劵面額:textbox
輸入國庫劵面額:<input type="text" id="a">vba
commandbutton
<input onclick="alert('你是豬頭!')" type="button" value="按下我" />vba
豬狗<input type="radio" />貓<input type="radio" />鼠<input type="radio" />vba
<input type="radio" />vba
豬狗貓
vba
豬<input type="radio" name="pet"/>狗<input type="radio"  name="pet"/>貓<input type="radio" name="pet" />vba
vba
<select><option>董事長</option><option>總經理</option><option>財務長</option>vba
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, 4).Value = TextBox4.Text '地址 addnew.Offset(0, 3).Value = ComboBox1.Value '聯絡人職位 使用下拉式選單 ListBox1.ColumnCount = 5 '在清單方塊 ListBox1 顯示輸入的資料，5 columns ListBox1.RowSource = "A1:E65536" End Sub Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem ("董事長") ComboBox1.AddItem ("總經理") ComboBox1.AddItem ("副總經理") ComboBox1.AddItem ("財務長") End Sub

EXCEL VBA

檔案=>選項=>自訂功能區=>選取「開發人員」
選取「開發人員」=>插入=>自訂表單=>

新增「下拉式選單」



留言

張貼留言