- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
本帖最後由 yen956 於 2016-1-14 20:40 編輯
1.Sorry, 忘了請你刪除上次 Worksheet_Change(自動執行) 的VBA
Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub
2.『sheet2!A1 不接受sheet1G12計數(數值) 無法自動複製 只能用手動輸入 數字 按Enter 才會複製一次』
ANS:所以才改用按鈕, 手動啟動下列VBA
Private Sub CommandButton1_Click()
Dim Rng As Range, Lst As Integer
If [A1] > 1 Then
Set Rng = [B$1:K$1]
Rng.Copy
Rng.Offset([A1] - 1, 0).PasteSpecial Paste:=xlPasteValues '只貼上值, 公式格式等不會貼上
End If
End Sub
3. 連[A2]=-1也改成手動, 所以要兩個按鈕
4. 你 9# 的VBA連試試都沒試吧!! |
|
發表於 2016-1-14 20:39
| 