- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
23#
發表於 2014-4-11 15:26
| 只看該作者
本帖最後由 GBKEE 於 2014-4-11 16:40 編輯
回復 21# willy1205
不需如此麻煩- Sub RoundedRectangle1_Click()
- Dim NewRow As Integer, E As Range, Sh As Worksheet
- Set Sh = Worksheets("Sheet1") '變數指定為工作表 **下面的程式碼如有更改 工作表 **改這變數可省麻煩
- NewRow = Sh.Range("J34").Value
- ' Worksheets("sheet1").Range("B8").Value '管他是 甲君,乙君,丙君 只要這工作表(名稱)有在活頁簿中,
- For Each E In Sh.Range("B8,B10") '導入B8,B10 的儲存格
- With Worksheets(E.Value) 'E.Value 的工作表
- .Cells(NewRow, 1) = Sh.Range("C5")
- .Cells(NewRow, 2) = Sh.Range("C6").Value
- .Cells(NewRow, 3) = Sh.Range("I12").Value
- .Cells(NewRow, 4) = Sh.Range("I13").Value
- .Cells(NewRow, 6) = Sh.Range("G22").Value
- If E.Address = "$B$8" Then '主辦
- .Cells(NewRow, 7) = Sh.Range("H30")
- Sh.Range("J34") = NewRow
- Else '協辦
- .Cells(NewRow, 7) = Sh.Range("H32")
- Sh.Range("J35") = NewRow
- End If
- End With
- Next
- MsgBox "New Data added", vbOKOnly, "Data"
- End Sub
|
|
發表於 2014-4-11 16:49
| 
