返回列表 上一主題 發帖

尋找(Find應用)題目

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
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  如何取得該位置的 欄/列 值 (可用來指定依這個儲存格的位置來應用到其他指令上)
收藏 分享
學習才能提升自己

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-4-14 14:11 | 只看該作者
回復 1# hugh0620


    檢查你的搜尋範圍
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 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

GBKEE

帖子
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
  1. Private Sub CommandButton1_Click()  '匯出資料
  2.     Dim Ed As Range, B As Range, S As Integer
  3.     Set Ed = Sheet2.Range("B3")
  4.     Set B = Sheet1.Range("C3:C34").Find(Ed)
  5.     If B Is Nothing Then MsgBox "找不到 " & Ed: Exit Sub
  6.     B.Offset(0, 1) = Ed.Offset(0, 1)
  7.     For Each C In Sheet1.Range("C3", B)
  8.         C.Offset(, 3) = S + C.Offset(, 1)
  9.         S = S + C.Offset(, 1)
  10.     Next
  11. End Sub
複製代碼

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題