- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
2#
發表於 2015-4-17 20:13
| 只看該作者
- Private Sub CommandButton1_Click()
- AOAend = Sheets("AOA").Columns(3).Find("*", , , , , xlPrevious).Row
- Sheets("AOA").Cells(AOAend + 1, "C") = [b6]
- Sheets("AOA").Cells(AOAend + 1, "F") = [b7]
- Sheets("AOA").Cells(AOAend + 1, "G") = [b8]
- Sheets("AOA").Cells(AOAend + 1, "J") = [b9]
- Sheets("AOA").Cells(AOAend + 1, "M") = [b10]
- Sheets("AOA").Cells(AOAend + 1, "O") = [b12]
- End Sub
複製代碼 回復 1# john711101 |
|