A1用下拉菜單選月份，D1:D3是選項；A4搞個超鏈接，隨A1變來切換文件路徑，搞定~
-
-
需要上面文件實例，請附到163箱mijizili
Excel怎樣以一操百（批量自動標顏色）
-
用replace吧
-
其實用公式，然后通過一個單元格來選擇月份也行，弄個單元格存放路徑，大體是這么個意思
A1設置數據有效性，引用D1：D3
A4設置超鏈接，根據A1的選擇改變指向文件。 -
用replace語句就可以了
-
親，沒看懂為什么要用循環，也不理解用replace函數的意義，貌似一句話就可以了：
Sub °′按鈕3_Click()Range("A2").Hyperlinks(1).Address = "\\SHM-APP-002\Common\Manufacturing\在庫管理\財務在庫2015\出入庫報表\出入庫報表201502.xlsx]2月國外采購（團內AB）"End Sub -
參考代碼如下（請確保在工作表中添加的按鈕為表單控件，并修改每一個按鈕的文字為所要替換的內容）：
Public Sub ChangeFormula(ByVal Column As Variant) Dim varCaller As Variant On Error Resume Next varCaller = Application.Caller If Err.Number = 0 Then Dim strFind As String Dim strReplace As String Dim strMonth As String Dim rngColumn As Range Dim rngFormula As Range strMonth = ChrW$(&H6708) strReplace = "]" & ActiveSheet.Buttons(varCaller).Caption strFind = "]??" & strMonth Set rngColumn = ActiveSheet.Columns(Column) Set rngFormula = rngColumn.Find(strFind, , xlFormulas, xlPart) If rngFormula Is Nothing Then strFind = "]?" & strMonth Set rngFormula = rngColumn.Find(strFind, , xlFormulas, xlPart) End If If Not (rngFormula Is Nothing) Then rngColumn.Replace strFind, strReplace End If Set rngFormula = Nothing Set rngColumn = Nothing End IfEnd Sub
然后右擊按鈕選擇指定宏并輸入宏名：
'ChangeFormula 3'
或
'ChangeFormula "C"'
最新回答 更多>
相關問答
- qq飛車2011年9月10日和11日幾倍經驗幾倍榮耀車隊積分、還有在線兩小時得什么？說詳細點就采納
- 2010年2月22號晚上21：50分四川的地震是哪里的震中，有多少級
- 怎么樣在CAD2010中插入標題欄，就是套用cad本身帶的
- 三星456S價錢一臺啊????
- 跪求啊：云南2011年一專A類什么時間開始錄取？
- CAD2010放大線條變形
- 誰能找出2010年7月9號的遼寧臺大海熱線的重播視頻~~~急急用
- 使用WPS2010下載的數學試題運算符號都是亂碼怎么處理
- w ord 2010默認的視圖方式
- xp 32位 系統autocad2010怎么樣激活?
- 2010年春晚，劉謙手穿玻璃和紙牌的揭密！
- AUTOCAD2010腫么完全卸載
- excel2010文檔默認格式為什么
- 想買筆記本了，價格4000到5000之間的，2010產的配置好一點的，大家給我推薦幾個吧？
- 2010版CAD中怎么統計樹木(塊)的數量