[已解决]vba代码求指教

下雨天跑的快

Sub AutoGenerateHyperlinks()
     Dim nIndex As Integer
     Dim oRange As Range
     For nIndex = 2 To Sheets.Count
         Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
         oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
     Next
End Sub
以上实现将一个工作簿中在第一个工作表添加其他工作表的超链接
Sub ab()
      Dim nIndex As Integer
      Dim bg As Integer
      Dim oRange As Range
      For nIndex = 2 To Sheets.Count
          Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
          oRange.Value = Worksheets(nIndex).Range("G1").Value
      Next
End Sub
这个想在第一个工作表中引用后面工作中G1单元格的内容  
第一个代码（填加超链接的）能用，第二个不能用，运行不报错，没任何输出 求解如何改啊？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-20 12:56

1. Sub ab()
   
2.       Dim nIndex As Integer
   
3.       Dim bg As Integer
   
4.       Dim oRange As Range
   
5.       For nIndex = 2 To Sheets.Count
   
6.           Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
   
7.           Debug.Print oRange.Address(False, False)
   
8.           oRange.Value = Worksheets(nIndex).Range("G1").Value
   
9.           Debug.Print Worksheets(nIndex).Name & "!g1=" & worksheets(nIndex).Range("g1")
   
10.       Next
    
11. End Sub

复制代码

看本地窗口的输出。

跳转到最佳答案楼层

hwc2ycy

你加个DEBUG.PRINT看看就知道错在哪了。

hwc2ycy

1. Sub ab()
   
2.       Dim nIndex As Integer
   
3.       Dim bg As Integer
   
4.       Dim oRange As Range
   
5.       For nIndex = 2 To Sheets.Count
   
6.           Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
   
7.           Debug.Print oRange.Address(False, False)
   
8.           oRange.Value = Worksheets(nIndex).Range("G1").Value
   
9.           Debug.Print Worksheets(nIndex).Name & "!g1=" & worksheets(nIndex).Range("g1")
   
10.       Next
    
11. End Sub

复制代码

看本地窗口的输出。

hwc2ycy

你得保证后面两个SHEET的G1单元格里填上东东嘛。

下雨天跑的快

加上你给的那条 程序居然能用了，我发的附件里面忘了填数字了 汗，加上数字就可以了

下雨天跑的快

hwc2ycy 发表于 2013-1-20 12:58
你得保证后面两个SHEET的G1单元格里填上东东嘛。

在之前上传的附件简单数据上能正常显示了但是换了一个文件就不行了 我汗 怎么办，大神

hwc2ycy

你的要求都不一样了嘛，一个是汇总了。

hwc2ycy

多用用DEBUG.PRINT，这个收货会大的。
调试程序本身就是一个很好的学习过程。
先把自己的需求弄清楚。

下雨天跑的快

hwc2ycy 发表于 2013-1-20 13:43
多用用DEBUG.PRINT，这个收货会大的。
调试程序本身就是一个很好的学习过程。
先把自己的需求弄清楚。

需求很清楚啊，就是提取一个excel文件下所有工作表同一个单元格的数据，在那个成庄项目部的附件里只能提取汉字，如果要提取的内容是数字就不能显示，乱啊

下雨天跑的快

hwc2ycy 发表于 2013-1-20 13:43
多用用DEBUG.PRINT，这个收货会大的。
调试程序本身就是一个很好的学习过程。
先把自己的需求弄清楚。

之前的附件 引用数据那个实现的功能和这个不一样吗？都一样吧。