回復 29# GBKEE

版主我最近重新練習又發現了一個問題，就是如果我想要多判斷C10 與 C12 ,也就是同時可能兩個主辦兩個協辦，
能在'For Each E In Sh.Range("B10,B12")' 這邊直接插入'For Each E In Sh.Range("B10,B12,C10,C12") 嗎??'
那我在下面IF判斷式該如何修改??
顯示的位子都不變只是多判斷儲存格C10與C12

TOP

willy1205

小學生 Rank: 1

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

17^#

發表於 2014-5-13 17:35 | 顯示全部帖子

回復 32# willy1205

試了一下好像沒辦法直接加入C10 C12,且下面判斷式會卡死...

TOP

willy1205

小學生 Rank: 1

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

18^#

發表於 2014-5-16 15:03 | 顯示全部帖子

版主有方法可以解決嗎!?

TOP

willy1205

小學生 Rank: 1

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

19^# 倒序看帖

打印

字體大小: tT

發表於 2014-5-19 16:31 | 顯示全部帖子

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

本帖最後由 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