繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻發表文章前請先閱讀相關版規尊貴會員無限看帖不用回覆
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › 相對欄位迴圈判斷問題
蘿莉三上悠亞無修gd母乳vrkkbox
全球進化twzp1157saba 032summer本鄉愛 しはい ツンデレ
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]新人大叔冒險者，
(10月新番)[繁]魔王陛
(10月新番)[繁]孤單一

[繁／無修正]比基尼戰
(10月新番)[繁]嘆氣的
[繁]靠廢柴技能【狀態
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 5510|回復: 6
打印上一主題下一主題

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

v03586

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
跳轉到指定樓層
樓主
發表於 2016-1-20 02:02 AM|只看該作者|倒序瀏覽
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。
本帖最後由 v03586 於 2016-1-20 02:04 AM 編輯

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

Q1.我針對程式碼修改至我自己的程式報表(FMC), 發現欄位Substrate 與 B/D No 欄位 就是取 『-』 好像切得不是很乾淨 , 不知道是不是程式判斷有錯誤 (X與Y欄位) , 此欄位在ONHAND2HR_Ist_Flow 中是在<AD/AE欄位>...
瀏覽完整內容，請先 註冊 或 登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
分享分享0收藏收藏0支持支持0
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

v03586

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
頭香
發表於 2016-1-22 01:57 AM|只看該作者
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。
本帖最後由 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

...
瀏覽完整內容，請先 註冊 或 登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

v03586

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
3樓
發表於 2016-1-23 02:06 AM|只看該作者
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。
功能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。

使用道具檢舉

rr09192084

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
4樓
發表於 2016-1-23 09:11 AM|只看該作者
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。
  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語法會比較適當。...
瀏覽完整內容，請先 註冊 或 登入會員
若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

v03586

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
5樓
發表於 2016-1-23 11:41 AM|只看該作者
伊莉影片
本帖最後由 v03586 於 2016-1-23 12:10 PM 編輯
rr09192084 發表於 2016-1-23 09:11 AM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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





附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

使用道具檢舉

rr09192084

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
6樓
發表於 2016-1-23 01:32 PM|只看該作者
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。
本帖最後由 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
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
所有積分大於負-100的壞孩子，將可獲得重新機會成為懲罰生，權限跟幼兒生一樣。

使用道具檢舉

v03586

Rank: 2Rank: 2

帖子
336
積分
480 點
潛水值
17671 米
7樓
發表於 2016-1-24 12:29 AM|只看該作者
上傳頭像立即獲得 1 點積分。
本帖最後由 v03586 於 2016-1-24 12:30 AM 編輯
rr09192084 發表於 2016-1-23 01:32 PM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我記得以前這個問題就已經出現過了，要使用With就要把Sheet切換到那一張工作底稿上。
如：程式的最後再切換 ...
...
瀏覽完整內容，請先 註冊 或 登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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