Board logo

標題: [發問] 請問有無共用Worksheet_Change的方法 [打印本頁]
作者: yanto913    時間: 2011-8-12 19:16     標題: 請問有無共用Worksheet_Change的方法

在VBA的Sheet1中貼 Private Sub Worksheet_Change(ByVal Target As Range) . . . End Sub 可達到儲存格變動後運算 但假設有10個Sheet(Sheet1~Sheet10) 能否不需每個Sheet都貼就能達到儲存格變動後運算的功能
作者: chin15    時間: 2011-8-12 23:46

Workbook_SheetChange事件
作者: yanto913    時間: 2011-8-14 01:01

請問是貼在This Workbook嗎?
Private Sub Workbook_SheetChange(ByVal Target As Range)
.
.
End Sub
我還是無法執行
作者: oobird    時間: 2011-8-14 10:16

本帖最後由 oobird 於 2011-8-14 11:06 編輯

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[attach]7445[/attach]
作者: yanto913    時間: 2011-8-14 17:18

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
oobird 發表於 2011-8-14 10:16



    請問版大
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
但內容我用的是Cells(i,j)
請問要怎麼修正
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Cells)會錯誤
作者: GBKEE    時間: 2011-8-14 18:15

回復 5# yanto913
但內容我用的是Cells(i,j)
你的內容只有你知道啊?你要說出來呀!
作者: yanto913    時間: 2011-8-14 19:45

回復 6# GBKEE


    已上傳檔案，改Range就可以，但想知道如果要用Cells怎麼解決!!
作者: Hsieh    時間: 2011-8-14 20:22

回復 7# yanto913
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. With Sh
  3. For i = 1 To 22
  4.     .ChartObjects("Chart 1").Activate
  5.     ActiveChart.SeriesCollection(1).Points(i).Select

  7.     If .Cells(i + 1, 7) = "Return" Then
  8.     j = 3 '紅
  9.     Else
  10.     If .Cells(i + 1, 7) = "Remove" Then
  11.     j = 21 '紫
  12.     Else
  13.     If .Cells(i + 1, 7) = "IDLE" Then
  14.     j = 6 '黃
  15.     Else
  16.     If .Cells(i + 1, 7) = "Prod" Then
  17.     j = 10 '綠
  18.     Else
  19.     j = 2 '白
  20.     End If
  21.     End If
  22.     End If
  23.     End If
  24.    
  25.     Selection.Interior.ColorIndex = j
  26.    
  27.     Next
  28.     End With
  29. End Sub
複製代碼
作者: GBKEE    時間: 2011-8-15 15:04

回復 7# yanto913
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2.     With Sh
  3.         For i = 1 To 22
  4.             .ChartObjects("Chart 1").Activate
  5.             ActiveChart.SeriesCollection(1).Points(i).Select
  6.             Select Case .Cells(i + 1, 7)
  7.                 Case "Return"
  8.                 j = 3 '紅
  9.             Case "Remove"
  10.                 j = 21 '紫
  11.             Case "IDLE"
  12.                 j = 6 '黃
  13.             Case "Prod"
  14.                 j = 10 '綠
  15.             Case Else
  16.                 j = 2   '白
  17.             End Select
  18.             Selection.Interior.ColorIndex = j
  19.         Next
  20.     End With
  21. End Sub
  22. ''''''''*************************************
  23. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  24.     With Sh
  25.         For i = 1 To 22
  26.             .ChartObjects("Chart 1").Activate
  27.             ActiveChart.SeriesCollection(1).Points(i).Select
  28.             If .Cells(i + 1, 7) = "Return" Then
  29.                 j = 3 '紅
  30.             ElseIf .Cells(i + 1, 7) = "Remove" Then
  31.                 j = 21 '紫
  32.             ElseIf .Cells(i + 1, 7) = "IDLE" Then
  33.                 j = 6 '黃
  34.             ElseIf .Cells(i + 1, 7) = "Prod" Then
  35.                 j = 10 '綠
  36.             Else
  37.                 j = 2   '白
  38.             End If
  39.             Selection.Interior.ColorIndex = j
  40.         Next
  41.     End With
  42. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)