細胞增值與膠印

-3

Dim storenum As Integer, cellval As Range, cellval1 As Range 
cellval = Range("A6").Select 
cellval1 = Range("A7").Select 
Select Case cellval 
    Case Is = Range("A6").Activate 
    Range("A6").Value = 1 

    End Select 
Select Case cellval1 
    Case Is = Range("A7").Activate 
    Range("A7").Value = 2 


End Select

當命令按鈕被點擊A6將有值1然後移動到A7，如果按一下按鈕再次將遞增1，將給予2細胞增值與膠印

編輯：如何使價值即使一個單元格被刪除，保持不變。我認爲使用靜態，但我不知道如何把它以正確的方式，我不斷收到錯誤。

來源

2014-10-13 Anon231125

確定。你有什麼問題？ – ApplePie

因此，每次點擊按鈕，您想要將A6的值添加到A7？ –

嘗試使用公共變量這樣的：

Public n As Long '~~> Declare a public variable at the top of the module

然後在你的子嘗試這樣的事：

With Sheets("Sheet1").Range("A6").Offset(n, 0) '~~> change to suit 
    If n = 0 Then 
     .Value = 1 
    Else 
     .Value = .Parent.Range(.Address).Offset(-1, 0) + 1 
    End If 
    n = n + 1 
End With

來源

2014-10-13 05:48:23 L42

這工程兄弟但如果我選擇一個單元然後刪除它然後如果我再次單擊按鈕值應該是以前一樣。 – Anon231125

@ Anon231125啊，這將是一個不同的方法。上面的代碼將繼續增加您單擊時正在評估的單元格。 – L42

一旦我刪除最後一行的單元格值，然後單擊按鈕重置爲1，然後偏移1,0。我該如何製作類似的東西？ – Anon231125

細胞增值與膠印

回答

相關問題