如何在不同sheetl里执行VBA语句，同sheet可以，换个sheet就不行

n6x1u3v6

如题，我这段代码可以在sheet"1月趋势监控1#"中于运行，EXCEL在打开同工作簙中其它sheet时就无法运行，请教如何修改


Sub tubiao1()
Dim cht As ChartObject
Dim col As Long
  On Error Resume Next
ActiveSheet.ChartObjects.Delete
ActiveSheet.DataLabels.Delete
ActiveSheet.Charttitles.Delete
On Error GoTo 0

Set sh = Worksheets("1月趋势监控1#")
   With sh
col = .Range("xfd1").End(xlToLeft).Column
End With

With Worksheets("1月趋势监控1#").Range("B1", "xfd3")
   Set cht = Worksheets("1月趋势监控1#").ChartObjects.Add(10, 200, 800, 400)

   With cht
    .Name = "results"
         With .Chart
         .ChartType = xlLineMarkers
        .SetSourceData Source:=Worksheets("1月趋势监控1#").Range(Range("B1"), Cells(3, col)), PlotBy:=xlRows
        .SetElement msoElementChartTitleCenteredOverlay
       .ApplyDataLabels ShowValue:=True
       .HasTitle = True
       .ChartTitle.Text = Range("A2") & "投入趋势图"
        End With
   End With
End With

End Sub

iwangyi

把代码放在ThiSWorkbooK的vE里试试

02761752696

Set sh = Worksheets("1月趋势监控1#")   
你已经指定了工作表 "1月趋势监控1#"  所以只有这个表有效

gdw831001

Worksheets("1月趋势监控1#")在其他工作表内运行你要改名字Worksheets("1月趋势监控2#")，Worksheets("1月趋势监控3#")

gdw831001

直接把这句去掉Worksheets("1月趋势监控1#")

lolo_haha

没有指定是哪个workbook，加上ThisWorkBook

n6x1u3v6

iwangyi 发表于 2018-8-22 11:57
把代码放在ThiSWorkbooK的vE里试试

不可以，还是只能在同sheet中运行

n6x1u3v6

02761752696 发表于 2018-8-22 12:07
Set sh = Worksheets("1月趋势监控1#")   
你已经指定了工作表 "1月趋势监控1#"  所以只有这个表有效

我是希望在打开其它sheet的情况下运行需要在这个“Worksheets("1月趋势监控1#") ”执行的代码

n6x1u3v6

gdw831001 发表于 2018-8-22 12:13
直接把这句去掉Worksheets("1月趋势监控1#")

我主要目的还是这个做成之后，在其它sheet里面继续执行同样的代码，所以如果不指定worksheet 那我再在同个工作簙中的其它sheet就没法运行了

n6x1u3v6

我知道问题出在哪里了，感谢各位的帮助，虽然没有给出答案的，但是提供了思路，问题出在这一句。
SetSourceData Source:=Worksheets("1月趋势监控1#").Range(Range("B1"), Cells(3, col))
在range("b1")和 Cells(3, col) 前加上Worksheets("1月趋势监控1#")，就可以了。