- 帖子
- 162
- 主題
- 44
- 精華
- 0
- 積分
- 244
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-4-4
- 最後登錄
- 2022-10-3
|
3#
發表於 2016-6-15 19:05
| 只看該作者
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- ComboBox1.List = Array("aa", "bb", "cc", "dd", "ee")
- ComboBox2.List = Array("aa", "bb", "cc", "dd", "ee")
- ComboBox3.List = Array("aa", "bb", "cc", "dd", "ee")
- ComboBox4.List = Array("aa", "bb", "cc", "dd", "ee")
- ComboBox5.List = Array("aa", "bb", "cc", "dd", "ee")
- A = ComboBox1.Value
- B = ComboBox2.Value
- C = ComboBox3.Value
- D = ComboBox4.Value
- E = ComboBox5.Value
- [A1].Value = A
- [A3].Value = B
- [A5].Value = C
- [A7].Value = D
- [A9].Value = E
- With Sheets("工作表1")
- Dim MyDate, MyWeekDay
- MyDate = Now
- MyWeekDay = Weekday(MyDate)
- If MyWeekDay > 3 Then
- ContainerDay = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")
- Else
- ContainerDay = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
- End If
- .[F1,F3,F5,F7,F9] = ContainerDay
- End With
- End Sub
|
-
-
未命名-1.jpg
(115 KB)
|
