作者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/cn.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