广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 10743 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
dreamhill
数位造型
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x6
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[求助] Excel vba 比对资料后列出所需资料
Excel vba 比对资料问题:

以下是Sheet 1 的资料


在Sheet 1 工作表中有这几栏资料 ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



献花 x0 回到顶端 [楼 主] From:香港网上行 | Posted:2008-10-11 00:56 |
三仙 会员卡
个人头像
个人文章 个人相簿 个人日记 个人地图
头衔:以马内利 以马内利
版主
级别: 版主 该用户目前不上站
版区: 程式设计
推文 x17 鲜花 x370
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用dreamhill于2008-10-11 00:56发表的 Excel vba 比对资料后列出所需资料:
Excel vba 比对资料问题:

以下是Sheet 1 的资料
[attachment=436938]

在Sheet 1 工作表中有这几栏资料,
我想把有完工日期及未交单的资料在sheet2显示出来。

以下是sheet 2 的格式:
[attachment=436939]

若果完工日期为 Cancelled 就在 Cancelled栏上填上1
其它资料则对号入座。

请各位大大指点一下, 感恩!


程式码大致是如此
请自行修改
并加入其他的判断
与带出其他资料

Dim i As Integer
i = 0
Do
    i = i + 1
    If Sheet1.Cells(i, 6) = "" Then
        Sheet2.Cells(i, 1) = Sheet1.Cells(i, 1)
        Sheet2.Cells(i, 2) = Sheet1.Cells(i, 2)
        Exit Do
    End If
Loop


挖出答案的难度,取决提问的深度!
献花 x0 回到顶端 [1 楼] From:台湾中华HiNet | Posted:2008-10-11 15:03 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.016474 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言