[Excel VBA] 请问怎样把资料横放到适当的储存格上？

MyChat 数位男女

»
程式设计

手机版

地图

繁体

您是第 6805 个阅读者

可列印版加为IE收藏收藏主题上一主题 | 下一主题

dreamhill

级别: 小人物

▼

[求助] [Excel VBA] 请问怎样把资料横放到适当的储存格上？

不知怎样问，不如看图吧？ ..

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


x0 [楼主] From：香港网上行 \| Posted：2009-09-07 01:51 \|

totsi

级别: 小人物

x53

▲ ▼

最简单的作法就是扫描适当的列(Column)，例如在已缴的地方输入好日期后。

就去搜寻D列内的资料，然后根据sheet2的房门号码对应B列找出对应的行号(Row），都符合的话在把所需要的资料抓出来塞给你要显示的cell就可以噜。

简易范例如下
复制程式

'输入已缴日期完成后

'TotalRowNum = 你的总资料数目
Dim nCurNoRow As Integer
Dim nCurNoCol As Integer

nCurNoRow = 4 '初始行号
nCurNoCol = 2 '初始列号

For i = 3 To TotalRowNum
  If ( Sheet1.Cell(i, 4) = Sheet2.Cell(2,2) )                                 '找到符合日期的资料
    If ( Sheet1.Cell(i, 2) = Sheet2.Cell(nCurNoRow, nCurNoCol) )   '找到符合的房门号码
        '做你想做的事情
    EndIf    

    nCurNoCol= nCurNoCol+2 '不论有没有找到都要找下一个位置
  EndIf  
Next i

先玩玩看吧

[ 此文章被totsi在2009-09-09 09:51重新编辑 ]

此文章被评分,最近评分记录

财富:50 (by 三仙) | 理由: ^^ 因为您的参与，让程式设计更容易!!

恩...
x1 [1 楼] From：台湾中华电信HINET \| Posted：2009-09-09 09:45 \|

dreamhill

级别: 小人物

▲ ▼

多谢大大回答，先拿程式去慢慢研究。
感恩！


x0 [2 楼] From：香港网上行 \| Posted：2009-09-10 03:16 \|

dreamhill

级别: 小人物

▲ ▼

totsi大大,
我想请问怎样把Sheet1里寻找到的资料放到Sheet2里的B4至P4，若P4有资料就由B6至P6继续自动填上;
若P6也填上了就换到下一行继续自动填上。

简单的说就是从左至右，由上而下的逐一填上Sheet2的方格。
万分感谢！


x0 [3 楼] From：香港网上行 \| Posted：2009-09-12 02:49 \|

fox3000

级别: 初露锋芒

x324

▲

Sub tt()
Dim rngTemp As Range

'定义作用范围为 B4:P10 (依需要做适当的修改)
For Each rngTemp In Range("B4:P10")
'由于有合并储存格，以例子来看，刚好是偶数列 + 偶数栏，所以再加上「偶数列 + 偶数栏」的判断
If rngTemp.Row Mod 2 = 0 And rngTemp.Column Mod 2 = 0 Then
'判断此储存格是否为空值，是才可填入资料
If rngTemp.Value = "" Then
rngTemp.Value = "1513" '填入资料
End If
End If
Next
End Sub

此文章被评分,最近评分记录

财富:50 (by 三仙) | 理由: ^^ 因为您的参与，让程式设计更容易!!


x1 [4 楼] From：台湾凯擘 \| Posted：2009-09-26 07:47 \|



MyChat 数位男女 » 程式设计

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