返回列表 上一主題 發帖

[發問] 依其他儲存格的條件取代字串

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 2013-10-11 14:09 | 顯示全部帖子
  1. Sub 取代()
  2.     For Each c In ActiveSheet.UsedRange
  3.         If c.Value Like "[A,B,C]" Then
  4.             If Weekday(Cells(1, c.Column), 2) > 5 Then
  5.                 c.Value = c.Value & "2"
  6.             Else
  7.                 c.Value = c.Value & "1"
  8.             End If
  9.         End If
  10.     Next
  11. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2013-10-11 16:29 | 顯示全部帖子
本帖最後由 oobird 於 2013-10-11 16:30 編輯

你得把要求說清楚才有辦法。
試試把If Weekday(Cells(1, c.Column), 2) > 5 Then
改為If Weekday(Cells(1, c.Column), 2) > 4 Then
看看是不是你的意思。

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題