我想創建一個列值編號將隨著按鈕單擊而增加。
假設表是Cust_Table，它有列Cust Name和Total Contacting。
每次單擊按鈕時，我都想用“ 1”添加所有值。
例子：
- 客戶 A：總接觸 1
- 客戶 B：總接觸 2
- 客戶 C：總接觸 5
- 客戶 D：總接觸 3
單擊按鈕后，這些值將增加 1：
- 客戶 A：總接觸 2
- 客戶 B：總接觸 3
- 客戶 C：總接觸 6
- 客戶 D：總接觸 4
感謝@Tim Williams，代碼有效......
Private Sub CommandButton1_Click()
Dim lo As ListObject, c As Range, v As Long
v = ActiveSheet.Range("D2").Value 'cell with value to be added
Set lo = ActiveSheet.ListObjects("Cust_Table")
For Each c In lo.ListColumns("Total Contacting").DataBodyRange.Cells
c.Value = c.Value v
Next c
End Sub
uj5u.com熱心網友回復：
一旦你參考了一個串列物件，你就可以訪問給定列標題的范圍，如下所示：
Dim lo as listobject, c as range, v as long
v = ActiveSheet.Range("D2").value 'cell with value to be added
Set lo = ActiveSheet.ListObjects("Cust_Table")
for each c in lo.listcolumns("Total Contacting").DataBodyRange.Cells
c.value = c.value v
next c
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/485930.html
下一篇：事件變化-什么是“記錄模式”？