12
返回列表 上一主題 發帖

有條件取代儲存格內容

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
7# 跳轉到 »
發表於 2011-7-2 11:12 | 只看該作者
GBKEE :
我目的是將"NO"和"YES"兩頁合併在一頁執行取代,可能兩頁各有不同條件取代而變得複雜了,請看看附件中我在"POSIT"中的說明是否明白一些. MM2.rar (34.52 KB)

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-7-1 18:30 | 只看該作者
回復 5# mmggmm
是這樣嗎?
  1. Sub Ex()
  2.     Dim Ay(1), Y
  3.     With Sheets("POSIT")
  4.         Ay(0) = Application.Transpose(.Range("O2:O" & .Range("O" & Rows.Count).End(xlUp).Row))
  5.         Ay(1) = Application.Transpose(.Range("P2:P" & .Range("P" & Rows.Count).End(xlUp).Row))
  6.     End With
  7.     For Each A In ActiveSheet.[H3:AL400]
  8.         Y = Application.Match(A, Ay(0), 0)
  9.         If IsError(Y) Then
  10.             A.Value = "X"
  11.         ElseIf Y > 0 And Cells(A.Row, "G") <> Ay(1)(Y) Then
  12.             A.Value = "X"
  13.         End If
  14.     Next
  15. End Sub
複製代碼

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
5#
發表於 2011-7-1 12:53 | 只看該作者
NNN.rar (38.22 KB) 其實我原是用兩表分別執行,現想兩表一次執行巨集完成

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-7-1 09:28 | 只看該作者
回復 3# mmggmm
"如果在SHEET"POST"G:G為"NO"則屬"YES"保留其他用"X"取代"
這句話可以再白話些嗎?

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
3#
發表於 2011-6-30 16:27 | 只看該作者
MM.rar (33.18 KB)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2011-6-28 22:54 | 只看該作者
回復 1# mmggmm
1. 你的程式有設密碼, 所以看不到原始碼, 不能參照原始碼做修改
2. 敘述中的 :

請問可否改為SHEET"POST"O2:O10名單保留
SHEET"POST"O11:O45名單設定有"NO"和 "YES"
如果在SHEET"POST"G:G為"NO"則屬"YES"保留其他用"X"取代

中看不出來 "NO"和 "YES" 兩者有什麼不同.

而你所舉範例的 H7:AL7 只有 E08、O 與 A 三種值,
A 與 O 是你說要 "保留" 的部份,
而 E08 則屬於 "NO" 的部份,
其中沒有 "YES" 部分的範例資料.

所以無從下手修改.

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
12
返回列表 上一主題