找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人伊莉需要你的贊助和支持認識好友、聊天,分享生活趣事
人妻fc2催眠人妖中文adobe無碼 ge
小宵虎南白河花清百科陳香菱林子祥とある冒mvsd 581

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

Hololive 5th fes. Ca

✡ 斗破蒼穹 年番/鬥

[繁]肌肉魔法使-MASHL

[繁]我獨自升級11-

[繁]最強肉盾的迷宮攻

[簡]北海道辣妹金古錐
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5429|回復: 6

[求助] 相對欄位迴圈判斷問題[複製鏈接]

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
發表於 2016-1-20 02:02 AM|顯示全部樓層
本帖最後由 v03586 於 2016-1-20 02:04 AM 編輯

請問一下我有一個跑報表程式...遇到一個問題

Q1.我針對程式碼修改至我自己的程式報表(FMC), 發現欄位Substrate 與 B/D No 欄位 就是取 『-』 好像切得不是很乾淨 , 不知道是不是程式判斷有錯誤 (X與Y欄位) , 此欄位在ONHAND2HR_Ist_Flow 中是在<AD/AE欄位>...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
發表於 2016-1-22 01:57 AM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
本帖最後由 v03586 於 2016-1-22 07:40 AM 編輯

已經將功能4問題解決...剩下求助[size=13.3333px]

更正功能3問題
3. 功能3
    3-1. 報表中的AA欄位QTY ,能比對 P欄位 STEP 帶入,H欄~U欄位相對製程欄位嗎?   
          EX: ( F9欄位=DB) AA數字70 ,  則帶入對應欄為 U欄(DB) U9顯示AA欄數字70

...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
發表於 2016-1-23 02:06 AM|顯示全部樓層
功能3我能想到的呈現方式就是
如果F欄未 [STEP] = TBG1 則就從AA欄位剪下貼上, 請問如何寫成多判斷
  1. For h = 9 To 3500
  2.         If .Cells(h, "F") = "TBG1" Then
  3.             .Cells(h, "AA").Select
  4.             Selection.Cut
  5.             .Cells(h, "H").Select
  6.             ActiveSheet.Paste
  7.         End If
  8.     next
複製代碼
我在下面在新增一個if  就跑不出來了
還有什麼辦法呢?或者如何修改?
  1. For h = 9 To 3500
  2.         If .Cells(h, "F") = "TBG1" Then
  3.             .Cells(h, "AA").Select
  4.             Selection.Cut
  5.             .Cells(h, "H").Select
  6.             ActiveSheet.Paste
  7.         End If
  8.         If .Cells(h, "F") = "PGH1" Then
  9.             .Cells(h, "AA").Select
  10.             Selection.Cut
  11.             .Cells(h, "I").Select
  12.             ActiveSheet.Paste
  13.         End If
  14.       Next
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
發表於 2016-1-23 09:11 AM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
  1. With ActiveSheet
  2.   For h = 9 To 3500
  3.    Select Case .Cells(h, "A").Value
  4.     Case "TBG1"
  5.      .Cells(h, "AA").Select
  6.      Selection.Cut
  7.      .Cells(h, "H").Select
  8.      ActiveSheet.Paste
  9.     Case "PGH1"
  10.      .Cells(h, "AA").Select
  11.      Selection.Cut
  12.      .Cells(h, "I").Select
  13.      ActiveSheet.Paste
  14.    End Select
  15.   Next
  16. End With
複製代碼
多重條件要確定是多選一,則用Select Case語法會比較適當。...
瀏覽完整內容,請先 註冊登入會員
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
發表於 2016-1-23 11:41 AM|顯示全部樓層
本帖最後由 v03586 於 2016-1-23 12:10 PM 編輯
rr09192084 發表於 2016-1-23 09:11 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

多重條件要確定是多選一,則用Select Case語法會比較適當。

...
瀏覽完整內容,請先 註冊登入會員





附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

使用道具檢舉

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
發表於 2016-1-23 01:32 PM|顯示全部樓層
本帖最後由 rr09192084 於 2016-1-23 01:38 PM 編輯

我記得以前這個問題就已經出現過了,要使用With就要把Sheet切換到那一張工作底稿上。
如:
  1. Set RepSht = Sheets("FMC")
  2. RepSht.Select
複製代碼
程式的最後再切換回來,不然就要用直接指定Sheet的方式。
另外,寫程式有點類似數學方程式的解法,相同的元素可以提出來,這個程式中每一個Case都會有這一段:
  1. .Cells(h, "AA").Select
  2. Selection.Cut
複製代碼
那麼就把這一段提出來,就像這樣:
  1. '把這一段提出來,如果沒有符合的條件,是不會執行貼上的動作的。
  2. .Cells(h, "AA").Select
  3. Selection.Cut
  4. Select Case .Cells(h, "F").Value
  5.     Case "TBG1"
  6.      .Cells(h, "H").Select
  7.      ActiveSheet.Paste
  8.     Case "PGH1"
  9.      .Cells(h, "I").Select
  10.      ActiveSheet.Paste
  11.     Case "SLS1"
  12.      .Cells(h, "J").Select
  13.      ActiveSheet.Paste
  14.     Case "DE01"
  15.      .Cells(h, "L").Select
  16.      ActiveSheet.Paste
  17. End Select
複製代碼
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
發表於 2016-1-24 12:29 AM|顯示全部樓層
本帖最後由 v03586 於 2016-1-24 12:30 AM 編輯
rr09192084 發表於 2016-1-23 01:32 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

我記得以前這個問題就已經出現過了,要使用With就要把Sheet切換到那一張工作底稿上。
如:程式的最後再切換 ...
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部