返回列表 上一主題 發帖

[發問] VBA如何依指定2個條件成立後,再去做尋找與取代欄位內容

o939120931

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
來自
臺灣 
註冊時間
2014-9-4 
最後登錄
2014-11-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-18 23:18 | 顯示全部帖子

[發問] VBA如何依指定2個條件成立後,再去做尋找與取代欄位內容

請問一下：
　1. 巨集執行是依第一個工作表，A1欄位【底色】+【內容】，2個條件為依據再去做變動
　2.原只是想更改欄位數字1就好
　2. 但原來數字10的欄位，卻也會被更改成120的數值

是否有方法解決，謝謝∼

1.jpg (21.33 KB)

1.依據A1欄位

1.jpg

2.jpg (33.93 KB)

2.變成12

2.jpg

3.jpg (27.47 KB)

3.結果原數值10，卻也會被更改成120的數值

3.jpg

尋找取代.rar (12.59 KB)

收藏 分享
蝕光迴狼

o939120931

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
來自
臺灣 
註冊時間
2014-9-4 
最後登錄
2014-11-21 
2#
發表於 2014-9-18 23:20 | 顯示全部帖子
補上巨集寫的內容：

----------------------------------------------------------------------------------------------------------------------------------

Public Sub 指定顏色與Bin別改成指定Bin_A1欄位輸入版()
     
    colorx = Sheet1.Range("A1").Interior.ColorIndex    '獲取單格A1背景色
   
    BinX = Sheet1.Range("A1")  '【原本的Bin別】宣示原本的Bin別

    BinY = Application.InputBox("【請問要改成什麼Bin別(數字)】", "請輸入要取而代之的Bin別(數字)", Type:=1)
    '【要取代的Bin別】宣示取代的Bin別
   
    For Each S In Sheets
   
      shtname = S.Name
   
      Sheets(shtname).Select  '切換【工作表】
      
      Application.FindFormat.Clear  '清除格式設定
        
      Application.FindFormat.Interior.ColorIndex = colorx  '尋找【欄位顏色】與【原本的Bin別】並取代成【指定Bin別】

      Cells.Replace What:=BinX, Replacement:=BinY, SearchFormat:=True
      
      Range("A1").Clear '徹底清除A1至D4單格區域的內容，包括格式
   
    Next

End Sub
蝕光迴狼

TOP

o939120931

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
來自
臺灣 
註冊時間
2014-9-4 
最後登錄
2014-11-21 
3#
發表於 2014-9-22 12:57 | 顯示全部帖子
回復 3# luhpro


   謝謝 luhpro 大大你的回覆，終於可以了:loveliness:
蝕光迴狼

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題