excel吧 关注：282,098贴子：1,557,623
- 23回复贴，共1页
不感兴趣
开通SVIP免广告
大家新年好！祝大家猴年大吉大利，运气猴赛雷，财源滚滚、步步高升！
Ok，here's the question：
工作需要的原因，要在好几个excel文件中建立相互的取值，比如我的文件存放是这样的：
D:\报告\分类报告.xlsx 、D:\报告\汇总报告.xlsx
而我要将 ‘【分类报告】sheet1！C31’ 中的数值引用到 ‘【汇总报告】sheet2！B1’ 中，我用的是直接取值（输入=然后单击另外一个文件的相应单元格），此时并没有什么问题。
但是当我将【报告】文件夹复制到另外一台电脑编辑时，【汇总报告.xlsx】里面 B1 单元格的内容是：='D:\报告\[分类报告].xlsx'Sheet1!C31。
所以我的问题是，怎样更改Excel2013 跨文件引用时默认采取绝对引用的问题？
我目前有7个Excel文件，共计68个工作簿，有近百个跨文件取值的单元格。这个问题让我很头疼，想趁年假好好学学，再上班时好轻松面对2016。谢谢大家！
而我目前的做法是：先将整个【报告】文件夹复制到电脑上，然后打开所有的Excel文件，再手动将绝对路径“='D:\报告\[分类报告].xlsx'Sheet1!C31” 改成 ：=\[分类报告].xlsxSheet1!C31
方法很笨，所以力求大家的意见，希望能有好的方法解决。
P.S.：经过对比发现，Excel2003、Excel2007、Excel2010均没有这个问题，而只要是在Excel2013上面更改且保存过，单元格的 相对路径 全部变成 绝对路径 。由于工作要求，常常将这些Excel放在U盘中，需要用时就地使用电脑，所以没办法不用Excel2013.
Ok，here's the question：
工作需要的原因，要在好几个excel文件中建立相互的取值，比如我的文件存放是这样的：
D:\报告\分类报告.xlsx 、D:\报告\汇总报告.xlsx
而我要将 ‘【分类报告】sheet1！C31’ 中的数值引用到 ‘【汇总报告】sheet2！B1’ 中，我用的是直接取值（输入=然后单击另外一个文件的相应单元格），此时并没有什么问题。
但是当我将【报告】文件夹复制到另外一台电脑编辑时，【汇总报告.xlsx】里面 B1 单元格的内容是：='D:\报告\[分类报告].xlsx'Sheet1!C31。
所以我的问题是，怎样更改Excel2013 跨文件引用时默认采取绝对引用的问题？
我目前有7个Excel文件，共计68个工作簿，有近百个跨文件取值的单元格。这个问题让我很头疼，想趁年假好好学学，再上班时好轻松面对2016。谢谢大家！
而我目前的做法是：先将整个【报告】文件夹复制到电脑上，然后打开所有的Excel文件，再手动将绝对路径“='D:\报告\[分类报告].xlsx'Sheet1!C31” 改成 ：=\[分类报告].xlsxSheet1!C31
方法很笨，所以力求大家的意见，希望能有好的方法解决。
P.S.：经过对比发现，Excel2003、Excel2007、Excel2010均没有这个问题，而只要是在Excel2013上面更改且保存过，单元格的 相对路径 全部变成 绝对路径 。由于工作要求，常常将这些Excel放在U盘中，需要用时就地使用电脑，所以没办法不用Excel2013.
不感兴趣
开通SVIP免广告
Public Class Form1
Structure NumberValue
Public s As String
Public stringcount As Integer
Public stringIndex As Integer
End Structure
Private Sub NumberInputbox_TextChanged(sender As Object, e As EventArgs) Handles NumberInputbox.TextChanged
If Not IsNumeric(NumberInputbox.Text) Then
NumberOutBox.Clear()
Else
NumberOutBox.Text = GetString(NumberInputbox.Text)
End If
End Sub
Private Function GetString(t As String) As String
'统计字频
Dim D As New List(Of NumberValue), nv As NumberValue
For i As Byte = 0 To 9
If t.Contains(i.ToString) = False Then Continue For
nv = New NumberValue
nv.s = i.ToString
Dim g As CharEnumerator = t.GetEnumerator
While g.MoveNext
If g.Current = i.ToString Then nv.stringcount += 1
End While
nv.stringIndex = t.IndexOf(i)
D.Add(nv)
Next
'排序输出
Dim NewNum = From MyNumber In D
Order By MyNumber.stringcount Descending, MyNumber.stringIndex
Select MyNumber.s
Dim sb As String = ""
For Each t In NewNum
sb = sb & t
Next
Return sb
End Function
End Class
链接：http://pan.baidu.com/s/1sjWJnFf 密码：f4hn
基于.net framework 4.0封装
Structure NumberValue
Public s As String
Public stringcount As Integer
Public stringIndex As Integer
End Structure
Private Sub NumberInputbox_TextChanged(sender As Object, e As EventArgs) Handles NumberInputbox.TextChanged
If Not IsNumeric(NumberInputbox.Text) Then
NumberOutBox.Clear()
Else
NumberOutBox.Text = GetString(NumberInputbox.Text)
End If
End Sub
Private Function GetString(t As String) As String
'统计字频
Dim D As New List(Of NumberValue), nv As NumberValue
For i As Byte = 0 To 9
If t.Contains(i.ToString) = False Then Continue For
nv = New NumberValue
nv.s = i.ToString
Dim g As CharEnumerator = t.GetEnumerator
While g.MoveNext
If g.Current = i.ToString Then nv.stringcount += 1
End While
nv.stringIndex = t.IndexOf(i)
D.Add(nv)
Next
'排序输出
Dim NewNum = From MyNumber In D
Order By MyNumber.stringcount Descending, MyNumber.stringIndex
Select MyNumber.s
Dim sb As String = ""
For Each t In NewNum
sb = sb & t
Next
Return sb
End Function
End Class
链接：http://pan.baidu.com/s/1sjWJnFf 密码：f4hn
基于.net framework 4.0封装
