　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-4-14 11:44 | 只看該作者

尋找(Find應用)題目

Dear 大大

   小弟為了學好find的使用~ 設計一些可能會撰寫VBA時遇到的情況~
   請各位大大來指導~ 好讓小弟與其他使用者能夠針對一些指令使用上~ 更了解與使用方便~

   如附檔

尋找題目(Find應用).rar (9.01 KB)

   是一個很簡單的題目~
   1. 利用Find 找到相同日期的位置 (用B.Sheet的日期去找到A.Sheet中相對應的位置)
       q:小弟依之前跟大大請教的方式寫入~ 但卻是得到nothing的結果~ 不知道哪邊產生錯誤
2. 將資料帶入 (A欄位)
3. 計算當月份累計 (B欄位)

   延伸問題~
   1. 利用Find 找到相同日期的位置
   1.1  如何取得該位置的欄/列值 (可用來指定依這個儲存格的位置來應用到其他指令上)

樓主熱帖

學習才能提升自己

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-4-20 16:11 | 只看該作者

回復 5# hugh0620

Private Sub CommandButton1_Click() '匯出資料
Dim Ed As Range, B As Range, S As Integer
Set Ed = Sheet2.Range("B3")
Set B = Sheet1.Range("C3:C34").Find(Ed)
If B Is Nothing Then MsgBox "找不到 " & Ed: Exit Sub
B.Offset(0, 1) = Ed.Offset(0, 1)
For Each C In Sheet1.Range("C3", B)
C.Offset(, 3) = S + C.Offset(, 1)
S = S + C.Offset(, 1)
Next
End Sub

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-4-20 14:57 | 只看該作者

回復 4# john2006168

Hsieh大大的提醒~ 檢查後了解範圍問題
obird 大大的方式也是ok的
加上自己find的練習~ 透過find 與相關指令的簡單應用~
完成如附檔

尋找題目(Find應用)_寫法.rar (10.88 KB)
1.對應相對的位置儲存資料
2.對應相對的位置刪除資料
相信這只是無限多種寫法的其中之一~ 僅供參考~
若有其他針對find的應用~ 可貼上來研究討論~ ^^

學習才能提升自己

TOP

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

4^#

發表於 2011-4-15 01:12 | 只看該作者

回復 3# oobird
好像不行

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-4-14 20:11 | 只看該作者

st = Sheet1.Range("C3")
ed = Sheet2.Range("B3")
Set A = Sheet1.Range("c3:c34").Find(st, LookIn:=xlFormulas)
Set B = Sheet1.Range("c4:c34").Find(ed, LookIn:=xlFormulas)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-4-14 14:11 | 只看該作者

回復 1# hugh0620

檢查你的搜尋範圍

學海無涯_不恥下問

TOP