- 帖子
- 29
- 主題
- 2
- 精華
- 0
- 積分
- 32
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- 專業版
- 閱讀權限
- 10
- 註冊時間
- 2014-3-31
- 最後登錄
- 2014-7-10
|
本帖最後由 GBKEE 於 2014-5-22 16:40 編輯
我最近又重新將程式拿出來練習，原本判斷式是判斷B10與B12，
我發現如果今天我想要多判斷C10與C12，甚至D10與D12，不知道該從哪邊插入IF判斷式，
For Each E In Sh.Range("B8,B10") 這邊好像沒辦法直接改成 For Each E In Sh.Range("B8,B10,C10,C12")
有辦法能多判斷C10與C12嗎??
付上原帖的連結 http://forum.twbts.com/viewthrea ... p;extra=&page=3
版主給的程式碼
Dim NewRow As Integer, E As Range, Sh As Worksheet
Set Sh = Worksheets("4-工作日誌OP COA AGR")
For Each E In Sh.Range("B10,B12")
If E.Address = "$B$10" Then
NewRow = Sh.Range("J34").Value
Else
NewRow = Sh.Range("J35").Value
End If
With Worksheets(E.Value)
.Cells(NewRow, 1) = Sh.Range("C7")
.Cells(NewRow, 2) = Sh.Range("C8").Value
.Cells(NewRow, 3) = Sh.Range("I14").Value
.Cells(NewRow, 4) = Sh.Range("I15").Value
.Cells(NewRow, 6) = Sh.Range("G24").Value
If E.Address = "$B$10" Then
.Cells(NewRow, 7) = Sh.Range("H32")
.Cells(NewRow, 5) = Sh.Range("J10").Value
Sh.Range("J34") = NewRow
Else
.Cells(NewRow, 7) = Sh.Range("H34")
.Cells(NewRow, 5) = Sh.Range("J12").Value
Sh.Range("J35") = NewRow
End If
End With
Next
MsgBox "New Data added", vbOKOnly, "Data"
End Sub |
|
發表於 2014-4-11 15:30
| 
