- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 149
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-21
               
|
10#
發表於 2011-12-27 08:46
| 只看該作者
回復 9# 笨小孩 - Sub 按鈕0_Click()
- Application.Calculation = xlCalculationManual
- For i = 1 To 26
- Cells(i, "B").Value = Cells(i, "D").Value
- Cells(i, "F").Value = Cells(i, "H").Value
- Cells(i, "J").Value = Cells(i, "L").Value
- Cells(i, "N").Value = Cells(i, "P").Value
- Cells(i, "R").Value = Cells(i, "T").Value
- Cells(i, "V").Value = Cells(i, "X").Value
- Cells(i, "Z").Value = Cells(i, "AB").Value
- Next i
- Application.Calculation = xlCalculationAutomatic
- End Sub
複製代碼 |
|