返回列表 上一主題 發帖

請問一下要怎麼作

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 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 中的列表,
則只要透過一個儲存列號的變數,
就可以確定下一個要放名字的儲存格了.

另外不知為何我的電腦跑你那個檔案,
會一直出現系統資源不足的警告訊息?

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題