作者lag1056 (Bai)
看板Office
標題[問題] VBA整理股票代號
時間Thu Mar 14 19:24:04 2019
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
版上的高手們好
小弟有問題想請教
我用VBA去串連幾個表單
例如：
A表單(主要輸出表單)
B表單(股票代碼、收盤價)
C表單(股票代碼、持有成本)
D表單(股票代碼、單價成本)
串聯的標準是把B、C、D的股票代碼整理在A表單，然後刪除重複
之後用for跟if去找其他表單對應的數字
例如：
for i = 1 to N
for j = 1 to N
if worksheets("A").cells(i,1)=worksheets("B").cells(j,1) then
worksheets("A")cells(i,2)=worksheets("B").cells(j,2)
end if
next j
next i
一般的股票代碼都沒有問題(Ex:2330)
但是遇到一些比較特殊的股票代碼就會沒辦法串起來(Ex:00636)
在這邊卡了很久 一直都想不通
懇求各位高手能幫我解答
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.51.217.56
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1552562646.A.4D9.html
1F：→ soyoso: 提供一下範例檔，會比較清楚原文所述的問題？如串起來是什 03/14 19:32
2F：→ soyoso: 麼意思？cells(..)=cells(..)判斷的意思？ 03/14 19:33
3F：→ lag1056: 依照A表單的股票代碼 去找對應的B(C, D)表單其他數字填在 03/14 19:35
4F：→ lag1056: A表單的股票代碼後面 03/14 19:35
5F：→ soyoso: 嗯那提供一下檔案嘛 03/14 19:36
6F：→ lag1056: ㄜ...我不知道怎麼提供表單...但應該能拍照... 03/14 19:39
7F：→ soyoso: 拍照、截圖是無法正確提供實際的資料是什麼的 03/14 19:40
9F：→ soyoso: 資料，a1和b1，a2和b2來判斷，回傳為假false 03/14 19:41
10F：→ soyoso: 為什麼？有可能是資料內有無法列印字元、也有可能顯示的資 03/14 19:41
11F：→ soyoso: 料是從儲存格式調整來的 03/14 19:42
12F：→ lag1056: 對對對 就是這樣 我用表單內If函數試過 他說兩個是不一 03/14 19:42
13F：→ lag1056: 樣的東西 03/14 19:42
14F：→ soyoso: 所以才要請提供檔案，上傳雲端空間，貼上連結(太長請找縮 03/14 19:43
15F：→ soyoso: 網址)，有需要開共用(如google雲端)的話不要忘記 03/14 19:44
16F：→ lag1056: 公司檔案有加密 我請主管解密後在上傳 03/14 19:45
17F：→ soyoso: 個人覺得開新活頁簿copy幾筆有問題的到工作表內(如這樣不 03/14 19:48
18F：→ soyoso: 用還要解密)，就如我回文那樣，a欄和b欄應就可看出資料上 03/14 19:50
19F：→ soyoso: 的不同 03/14 19:50
20F：→ lag1056: 我把資料格式都轉成文字就解決這個問題了 所以應該是VBA 03/14 20:02
21F：→ lag1056: 在複製資料的時候造成資料型態不一樣 所以if認為他們是 03/14 20:02
22F：→ lag1056: 不同的東西？ 03/14 20:02
23F：→ soyoso: 應如原po回文所述 03/14 20:11
24F：→ lag1056: 感謝S大 真的幫了我大忙～ 03/14 20:16