12
返回列表 上一主題 發帖

[發問] (已解決)使用自動篩選修改資料

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-26 13:30 | 只看該作者

[發問] (已解決)使用自動篩選修改資料

本帖最後由 freeffly 於 2012-2-22 16:59 編輯

如果我想用自動篩選的方式選出符合的條件然後再做修改
程式碼要如何寫?

Sheet1的資料是要修改的部份
條件就是符合Sheet2的品號(A欄)就將Sheet1 A欄符合的部份對應的B欄資料也要一樣
如果用迴圈資料多時會花很多時間
自己知道的方法目前還不知道如何用自動篩選的情況下修改




新增Microsoft Excel 工作表 (2).rar (1.5 KB)
收藏 分享
字典兩各字 還真難理解

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-2-10 16:32 | 只看該作者
回復 9# bgtsai
這一句會發生錯誤(此處需要物件)
   
  1. With 工作表2  '<- 物件在這裡
  2.    For Each a In .Range(.[A2], .[A2].End(xlDown))  '在A2以下儲存格做迴圈'
  3. '   
  4. ' d(a.Value) = a.Offset(, 1).Value  '以a的值作為索引，a的右側儲存格的值加入字典物件
  5.    Next
  6. End With
複製代碼

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
10#
發表於 2012-2-10 15:56 | 只看該作者
回復 9# bgtsai


    我使用是可以運作
   你要不要附上檔案看看
字典兩各字 還真難理解

TOP

bgtsai

帖子
3 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-11-30 
最後登錄
2020-11-20 
9#
發表於 2012-2-9 12:54 | 只看該作者
我使用後
For Each a In .Range(.[A2], .[A2].End(xlDown))
這一句會發生錯誤(此處需要物件)
請問是哪出了問題?
50 字節以內
不支持自定義 Discuz! 代碼

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
8#
發表於 2011-11-3 14:06 | 只看該作者
回復 7# Hsieh


    謝謝版主大人回覆
   雖然已經用中文解說
   但是有一些東西沒概念
   先收下學習
   感恩
字典兩各字 還真難理解

TOP

Hsieh

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

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


    Sub ex()
Dim Rng As Range
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")  '創建一個字典物件
With 工作表2
   For Each a In .Range(.[A2], .[A2].End(xlDown))  '在A2以下儲存格做迴圈
      d(a.Value) = a.Offset(, 1).Value  '以a的值作為索引，a的右側儲存格的值加入字典物件
   Next
End With
With 工作表1
If .AutoFilterMode = False Then .Range("A:B").AutoFilter  '假如工作表非自動篩選狀態，就執行A:B欄資料自動篩選
For Each ky In d.keys  '以字典物件的索引做迴圈
   .Range("A:B").AutoFilter 1, ky    'A:B欄自動篩選，以第一欄(A欄)，準則為字典物件索引值做篩選
   Set Rng = .AutoFilter.Range.Offset(1, 0).Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)  '自動篩選範圍向下一列的第2欄中所有可見儲存格並且是非空格的部分賦予變數Rng
   If Rng.Count > 0 Then Rng = d(ky)  '如果Rng這個範圍的儲存格數量大於零，表示有此準則資料，就將這些儲存格填入以ky為索引值的字典內容
Next
.Range("A:B").AutoFilter  '解除自動篩選
End With
Application.ScreenUpdating = True
End Sub
學海無涯_不恥下問

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
6#
發表於 2011-11-1 11:28 | 只看該作者
回復 3# Hsieh


    Selection.AutoFilter Field:=14, Criteria1:="<>1"
    Range("N5:N" & Range("C65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).ClearContents

   請問我用這種方式有達到我要的結果
  但是不確定是不是正確的用法
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2011-11-1 10:46 | 只看該作者
回復 3# Hsieh


    版主大人我查看了幾次有一些不太了解
   Set d = CreateObject("Scripting.Dictionary")   這各的意思是什麼 ()裡面的意思又是什麼?
     For Each a In .Range(.[A2], .[A2].End(xlDown)) 這句為什麼Range的前面要加.()裡面的[]前面也要加.?
    d(a.Value) = a.Offset(, 1).Value 這句不太懂

   If .AutoFilterMode = False Then .Range("A:B").AutoFilter  沒用過這種方式(.Range("A:B").AutoFilter)做自動篩選有沒有限制
   .Range("A:B").AutoFilter 1, ky 這句不懂

   Set Rng = .AutoFilter.Range.Offset(1, 0).Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants) 這句的意思?

   很抱歉拖這麼久才提問,而且還問了這麼多，希望版主幫忙回答依下
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2011-9-1 14:54 | 只看該作者
回復 3# Hsieh

     大大謝謝
    SpecialCells(xlCellTypeVisible)   重點是這各嗎 可見的儲存格
     
        其他的簡略方式還看不太懂
         
       先消化一下好進一步發問
字典兩各字 還真難理解

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-8-28 10:57 | 只看該作者
試看看
  1. Sub ex()
  2. Dim Rng As Range
  3. Application.ScreenUpdating = False
  4. Set d = CreateObject("Scripting.Dictionary")
  5. With 工作表2
  6.    For Each a In .Range(.[A2], .[A2].End(xlDown))
  7.       d(a.Value) = a.Offset(, 1).Value
  8.    Next
  9. End With
  10. With 工作表1
  11. If .AutoFilterMode = False Then .Range("A:B").AutoFilter
  12. For Each ky In d.keys
  13.    .Range("A:B").AutoFilter 1, ky
  14.    Set Rng = .AutoFilter.Range.Offset(1, 0).Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
  15.    If Rng.Count > 0 Then Rng = d(ky)
  16. Next
  17. .Range("A:B").AutoFilter
  18. End With
  19. Application.ScreenUpdating = True
  20. End Sub
複製代碼
回復 1# freeffly
學海無涯_不恥下問

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
12
返回列表 上一主題