Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3195|回复: 17

[已解决]修改代码生成新的宏

[复制链接]
发表于 2013-3-22 21:55 | 显示全部楼层 |阅读模式
见附件 对应写入数据.rar (11.83 KB, 下载次数: 18)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-3-22 22:18 | 显示全部楼层
公式的写法嘛,就像平时跨表引用的方式。
回复

使用道具 举报

发表于 2013-3-22 22:19 | 显示全部楼层
看不懂什么题意

建议就留4,5行数据,手工填完,好知道“改变”之后是什么样子
回复

使用道具 举报

 楼主| 发表于 2013-3-22 23:00 | 显示全部楼层
hwc2ycy 发表于 2013-3-22 22:18
公式的写法嘛,就像平时跨表引用的方式。

不要公式,直接写入可以的
回复

使用道具 举报

 楼主| 发表于 2013-3-22 23:04 | 显示全部楼层
hwc2ycy 发表于 2013-3-22 22:18
公式的写法嘛,就像平时跨表引用的方式。

NASDAQ Composite Index 还没有上补缺口
回复

使用道具 举报

 楼主| 发表于 2013-3-22 23:09 | 显示全部楼层
hwc2ycy 发表于 2013-3-22 22:18
公式的写法嘛,就像平时跨表引用的方式。

对不起,“NASDAQ Composite Index 还没有上补缺口”发错地方了,对不起。
回复

使用道具 举报

 楼主| 发表于 2013-3-22 23:53 | 显示全部楼层
爱疯 发表于 2013-3-22 22:19
看不懂什么题意

建议就留4,5行数据,手工填完,好知道“改变”之后是什么样子

见附件 对应写入数据.rar (9.74 KB, 下载次数: 7)
回复

使用道具 举报

发表于 2013-3-23 10:04 | 显示全部楼层    本楼为最佳答案   

  1. Sub test()
  2.     Dim A, B, d, i%

  3.     With Sheets("sheet1")
  4.         A = .Range("a4:c" & .Range("A65536").End(xlUp).Row)
  5.     End With
  6.     With Sheets("sheet3")
  7.         B = .Range("a10:c" & .Range("A65536").End(xlUp).Row)
  8.     End With

  9.     Set d = CreateObject("scripting.dictionary")
  10.     For i = 1 To UBound(A)
  11.         d(A(i, 1) & "") = A(i, 3)
  12.     Next i
  13.     For i = 1 To UBound(B)
  14.         B(i, 3) = d(B(i, 1) & "")
  15.     Next i
  16.         
  17.     With Sheets("sheet3")
  18.         .Range("a:c").NumberFormat = "@"
  19.         .Range("a10:c65536").ClearContents '自己决定
  20.         .Range("a10").Resize(UBound(B), UBound(B, 2)).Value = B
  21.     End With
  22. End Sub
复制代码
对应写入数据2.rar (12.4 KB, 下载次数: 22)

评分

参与人数 1 +3 收起 理由
759857387 + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2013-3-23 10:21 | 显示全部楼层
说明:附件中模块1是没有问题,是关于将表1股票代码写入表3 ,在将表3的对应价格写回表1.
    sheet3 是表3,还是 sheet1 是表3啊?
    你描述的问题不太容易理解哦,将 表1 代码写入表3,然后再将 表3 对应的价格写回表

那就是说你的 表3 本来是没 有股票代码的,是新写进去的,同样的价格也是不存在的
但是这样写的话,怎么对应价格呢?价格从网上更新?

既然是从网上更新,为啥又要这样绕一下呢??
电脑不是你自己的,想试试能不能累死 Cpu? 这样的话还真可以这么干

同样的,如果不是在网上更新,从其它地方更新也是一样的嘛,
跑出去绕一圈,练习跑步呀?现在 pm2.5 超标,还是少跑一点的好


问题附件中模块3是我正在改写的,有问题。将表A列股票的价格(在C列),与表3 A列对应,写入表3P列。
其实你这个问题既然是要用公式来返回,还不如直接就在表里输入公式,然后一下下拉就完事了,干嘛非得用代码来写公式呢??

难道你真想累死Cpu??还是放弃这念头吧,别还没累死Cpu,先把你自己整晕了!!这不已经有点晕了么!!
回复

使用道具 举报

 楼主| 发表于 2013-3-23 10:28 | 显示全部楼层
爱疯 发表于 2013-3-23 10:04

谢谢爱疯老师
原本是想在将附件中模块1的代码改写后看看代码差别的,现在得到老师的代码又有新收获,谢谢。

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 04:02 , Processed in 0.598541 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表