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

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人尊貴會員無限使用任何功能安全提問(回答) 和 永久尊貴會員 事宜
無修波多野結cosplayfc2催眠名偵探柯overlord
水著彼女妖精姉妹tvxqkuzusweethom【live2d蘇清歌

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

[繁/無修正]魔都精兵

[繁]迷宮飯11-

[繁]肌肉魔法使-MASHL

✡ 斗破蒼穹 年番/鬥

[繁]香格里拉・開拓異

老媽沒收兒子的手機
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 1908|回復: 5

[求助] EXCEL 用VBA 如何可取得不同key值資料[複製鏈接]

帖子
14
積分
2 點
潛水值
1640 米
發表於 2019-12-8 11:35 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
請各位大大幫忙指點..感激不盡!
以下小弟只會取一種資料到另一工作表
各位大大..要如何才能把庫存資料同時將"未配" 及 "登記" 兩種KEY值資料同時取至另一工作表?

Sub add()
Dim datasht As Worksheet, ASHT As Worksheet
Dim Y As Integer
Set datasht = Sheets("庫存")
Set ASHT = Sheets("未配登記")
Sheets("未配登記").Select
...
瀏覽完整內容,請先 註冊登入會員
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2019-12-9 09:46 AM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
再寫一個"登記"用的
加在End Sub上面,這樣應該行吧?
  1. With datasht   
  2.     Selection.AutoFilter FIELD:=4, Criteria1:="登記"
  3.     .Range("A1:i" & Y).Copy ASHT.[A1]
  4. End With
複製代碼
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

帖子
14
積分
2 點
潛水值
1640 米
發表於 2019-12-9 08:24 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
感謝tryit244178回覆..
使用"登記"會從A1開始覆蓋"未配"的資料...
不知插入的方法該是如何使用..?
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2019-12-10 12:54 PM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
本帖最後由 tryit244178 於 2019-12-10 01:22 PM 編輯

假設你要複製到 B 列,就改為這個
  1.     .Range("A1:i" & Y).Copy ASHT.[B1]
複製代碼


噢!我後來去查了AutoFilter 方法
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

你也可以改成
  1. With datasht   
  2.    Selection.AutoFilter FIELD:=4, _
  3.                         Criteria1:="未配", _
  4.                         Operator:=xlOr, _
  5.                         Criteria2:="登記"
  6.    .Range("A1:i" & Y).Copy ASHT.[A1]
  7. End With
複製代碼
看你喜歡用哪個




...
瀏覽完整內容,請先 註冊登入會員
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 1

帖子
172
積分
147 點
潛水值
7128 米
發表於 2019-12-10 05:09 PM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
把這裡改為這樣試試
With datasht   
    Selection.AutoFilter FIELD:=4, Criteria1:=Array("未配", "登記"), Operator:=xlFilterValues
    .Range("A1:i" & Y).Copy ASHT.[A1]
End With




如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

帖子
14
積分
2 點
潛水值
1640 米
發表於 2019-12-13 07:59 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
本帖最後由 p034611941 於 2019-12-13 08:11 PM 編輯

tryit244178 跟 bigbrain 都好棒,二個vba都能用.有您們真好....不但解決問題,還讓小弟我學習的更多..在此由衷感謝二位。前二天比較忙也沒時間上網,現在才回應,請大人有大量,別介意喲!
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

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

Powered by Discuz!

© Comsenz Inc.

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