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年春晚，刘谦手穿玻璃和纸牌的揭密！
- excel2010文档默认格式为什么
- AUTOCAD2010肿么完全卸载
- 想买笔记本了，价格4000到5000之间的，2010产的配置好一点的，大家给我推荐几个吧？
- 2010版CAD中怎么统计树木(块)的数量