willy1205

如果將原本的
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
改成
For Each E In Range("B10,B12,C10,C12")
    Select Case E.Address(0, 0)
    Case "B10"
        NewRow = 1
    Case "B12"
        NewRow = 2
    Case "C10"
        NewRow = 3
   Case "C12"
NewRow = 4
    End Select
下面的With Worksheets(E.Value)會變成out of range

該如何修改?

willy1205

回復 38# willy1205

excercise.zip (64.56 KB)

下載次數: 7

2014-5-22 17:30

如練習這個檔案，原本是判斷B10與B12(A君與B君)然後按下按鈕匯入資料進去A君與B君的SHEET，
現在想在C10與C12，D10與D12分別加入C君 D君 F君 E君的話，該怎麼插入進去判斷式呢??

willy1205

回復 39# willy1205


  請問版主有建議嗎?? 謝謝

willy1205

回復 41# GBKEE


    可是版主只有在上面For Each E In Range("B10,B12,C10,C12")這邊加入C10與C12下面才會OUT OF RANGE,
原本只有B10與B12的話是沒問題的，
那如果上面加入C10與C12，下面的If E.Address = "$B$10" Then 這邊要怎麼加 入C10進入判斷式???

就是B10與C10他們導出的結果是一樣，然後B12與C12導出的結果一樣。

P.S. 因為原本的程式只判斷B10與B12，想再加入C10與C12，讓B10與C10一組，B12與C12一組。

willy1205

回復 43# GBKEE


  版主~就像這個檔案裡面一樣，原本只有A君與B君，我想新增輸出結果到C君與D君
然後A君與C君都是主辦所以輸出相同數字，C君與D君都是協辦輸出相同數字，
我在檔案裡面標是紅色的地方就是新增的部份
excercise.zip (63.14 KB)

下載次數: 2

2014-6-5 10:43

willy1205

回復 45# GBKEE


    yes 謝謝版主 我在試試看~

willy1205

回復 45# GBKEE


    版主在程式第四行那邊Set Sh = Worksheets("4-工作日誌OP COA AGR")，假設今天我想要開50個工作日誌sheet，即4-工作日誌OP COA AGR  , 4-工作日誌OP COA AGR(2)........~ 4-工作日誌OP COA AGR(50)，
但我如果是複製工作表的話，變成每個巨集設定sh那邊都是Set Sh = Worksheets("4-工作日誌OP COA AGR")，這樣就變成除了4-工作日誌OP COA AGR這個工作表可以正常運作以外其他49個都無法，
因為sh被卡死在Worksheets("4-工作日誌OP COA AGR")了，這種情況的話該怎麼改??

willy1205

回復  GBKEE


    版主在程式第四行那邊Set Sh = Worksheets("4-工作日誌OP COA AGR")，假設今天我想要 ...
willy1205 發表於 2014-7-10 15:46

我試了下是不是將名稱改成Activesheet.name ??