~ 發現一個新的問題關於IF判斷式 - Excel程式區

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

21^# 跳轉到 »

發表於 2014-5-21 17:14 | 顯示全部帖子

如果將原本的
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

該如何修改?

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

22^#

發表於 2014-5-22 17:32 | 顯示全部帖子

回復 38# willy1205

excercise.zip (64.56 KB)

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

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

23^#

發表於 2014-5-28 10:25 | 顯示全部帖子

回復 39# willy1205

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

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

24^#

發表於 2014-5-30 11:43 | 顯示全部帖子

回復 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一組。

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

25^#

發表於 2014-6-5 10:44 | 顯示全部帖子

回復 43# GBKEE

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

excercise.zip (63.14 KB)

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

26^#

發表於 2014-6-5 13:40 | 顯示全部帖子

回復 45# GBKEE

yes 謝謝版主我在試試看~

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

27^#

發表於 2014-7-10 15:46 | 顯示全部帖子

回復 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")了，這種情況的話該怎麼改??

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

28^#

發表於 2014-7-10 15:53 | 顯示全部帖子

回復 GBKEE

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

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

TOP

[發問] ~ 發現一個新的問題關於IF判斷式

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] ~ 發現一個新的問題 關於IF判斷式

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] ~ 發現一個新的問題關於IF判斷式