- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
2#
發表於 2011-6-27 23:20
| 只看該作者
本帖最後由 luhpro 於 2011-6-27 23:24 編輯
回復 1# brabus
要確認總人數可以使用
Sheets("Sheet1").Cells(Rows.Count, 10).End(xlUp).Row
取得
因為你例子中的序號與列號有相對應關係,所以可以直接用
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 6 And .Row = 9 Then
.Cells(10, 6) = .Cells(.Cells(9, 6) + 1, 10)
.Cells(.Cells(9, 6) + 1, 10) = ""
End If
End With
End Sub
至於 Sheet3 中的列表,
則只要透過一個儲存列號的變數,
就可以確定下一個要放名字的儲存格了.
另外不知為何我的電腦跑你那個檔案,
會一直出現系統資源不足的警告訊息? |
|
