[已解决]怎样指定某一单元格内容存档~谢

luckystarqing

怎样指定某一单元格内容存档
如在 A2单元格    E:\123\文件\工作表一
保存后的档案名为 (工作表一) 随着A2单元格位置及内容变化而变化!

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-24 07:26

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Address(False, False) Like "A2" And Len(Target.Value) > 0 Then
   
4.         If [a2] Like "*" & ThisWorkbook.Name & "*" Then Exit Sub
   
5.         On Error Resume Next
   
6.         Application.ScreenUpdating = False
   
7.         Application.DisplayAlerts = False
   
8.         ThisWorkbook.SaveAs Filename:=[a2], FileFormat:=xlWorkbookNormal
   
9.         Application.ScreenUpdating = True
   
10.         Application.DisplayAlerts = True
    
11.     End If
    
12. End Sub

复制代码

跳转到最佳答案楼层

csmctjg

1. 
   
2. Sub aa()
   
3.     ThisWorkbook.SaveAs [A2] & ".xls"
   
4. End Sub
   

复制代码

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Address(False, False) Like "A2" And Len(Target.Value) > 0 Then
   
4.         If [a2] Like "*" & ThisWorkbook.Name & "*" Then Exit Sub
   
5.         On Error Resume Next
   
6.         Application.ScreenUpdating = False
   
7.         Application.DisplayAlerts = False
   
8.         ThisWorkbook.SaveAs Filename:=[a2], FileFormat:=xlWorkbookNormal
   
9.         Application.ScreenUpdating = True
   
10.         Application.DisplayAlerts = True
    
11.     End If
    
12. End Sub

复制代码

luckystarqing

非常感谢俩位的热心解答!

luckystarqing

hwc2ycy 发表于 2013-4-24 07:26

大侠怎么有如下提示呢

编译错误:
缺少:行号或标签或语句或语句结束

luckystarqing

csmctjg 发表于 2013-4-24 07:20

大侠怎么有如下提示呢?
是操作不对吗?

编译错误:
缺少:行号或标签或语句或语句结束

hwc2ycy

luckystarqing 发表于 2013-4-28 23:10
大侠怎么有如下提示呢

编译错误:

你使用方法应该不对，我在本机测试过。

luckystarqing

hwc2ycy 发表于 2013-4-28 23:38
你使用方法应该不对，我在本机测试过。

是这样子操作的吗?

hwc2ycy

1.rar (8.24 KB, 下载次数: 2)

2013-4-29 00:30 上传

点击文件名下载附件

luckystarqing

hwc2ycy 发表于 2013-4-29 00:30

怎么用啊?
是用快捷键还是运行宏程序不会用啊!{:011:}