0

外部 DDE/OPC リンクによってセル値が変更されたときに、マクロを実行する必要があります。Worksheet_Change 関数を使用していくつかの例を試しましたが、これはユーザーが値を入力した場合にのみ機能するようです (それでも、一度しか機能しません)。

これがコード全体です（「計算」メソッドに変更した後）：

Private Sub Worksheet_Calculate()  'Calculate command will execute the macro when any value change the spreadsheet to recalculate
   Dim ctr As Integer, n1 As String, v1 As Single, trigger As Long

   'Application.EnableEvents = False
   'Workbooks("Data Save.xls").Select
   Sheets("Sheet1").Select
   trigger = Range("b5").Value  'data save trigger cell linked to PLC
   If trigger = 1 Then
      Dim fn1 As String
      fn1 = "C:\11047 RR\" & Range("B4") & ".csv"   'build a filename

      Open fn1 For Output As 1
      Print #1, Range("a1"); ","; Range("B1") 'batch number
      Print #1, Range("a2"); ","; Range("B2") 'part number
      Print #1, Range("a3"); ","; Range("B3") 'pass number
      Print #1, Range("a4"); ","; Range("B4") 'filename
      Print #1, "Date & Time:,"; Date$; ","; Time$
      For ctr = 7 To 69
         n1 = Sheets("Sheet1").Cells(ctr, 2).Value
         v1 = Sheets("Sheet1").Cells(ctr, 3).Value
         Print #1, ctr; ","; n1; ","; v1
      Next ctr
      Close 1
      Sheets("Sheet1").Cells(5, 4) = 0   'put a zero into cell D5 in the spreadsheet
      RSIchan = DDEInitiate("RSLinx", "Upsetter_11047")
      DDEPoke RSIchan, "DataSaveFlag", Range("D5") 'write cell D5 out to the trigger word
      DDETerminate (RSIchan)
      MsgBox "Data saved"
      Application.EnableEvents = True


   End If
End Sub
4

1 に答える 1

1

Calculateイベントを使用できます。セル A1 が DDE 経由で更新されるとします。別のセル (B1 など) に次のように入力します。

=A1

A1 が更新されると、B1 が再計算され、Calculateイベントが発生します。

編集＃1：

ブックを開くとすぐにブックが計算されます。つまり、ワークブックが開かれると、イベント マクロもトリガーされます。ここで、B5 が最初に数値ではなくテキストを含むか、空の場合、表示されるエラー メッセージが表示されます。

たとえば、空白のワークシートから始めて、B5 にスペースを 1 つ配置して、次のコマンドを実行します。

Sub dural()
    Dim t As Long
    t = Range("B5").Value
End Sub

エラー 13 が表示されます。

編集＃2：

投稿されたコードで、次を置き換えます。

trigger = Range("b5").Value

と：

 Dim V As Variant
    V = Range("B5").Value
    If IsNumeric(V) Then
        trigger = CLng(V)
    Else
        Application.EnableEvents = True
        Exit Sub
    End If
于 2013-11-06T14:49:47.170 に答える