[Excel VBA] 請問怎樣把資料橫放到適當的儲存格上？

MyChat 數位男女

»
程式設計

手機版

地圖

簡體

您是第 6764 個閱讀者

可列印版加為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.019459 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言