使用VBA保存在不同單元中的進貨市場進貨

從9.30-3.30開始，我有特定庫存的進貨市場進貨。這個值會通過tick來改變每個tick。我必須在單元格中捕獲單元格中的值，並在不同的單元格中打印。我今天剛開始使用VBA，所以我們將不勝感激。使用VBA保存在不同單元中的進貨市場進貨

變量聲明：

Dim X As Range 
Dim Y As Range 
Dim F As Integer 
Set Y = Worksheets("Equity").Range("F158")

選擇小區的情況下更改值每秒：

Set X = Worksheets("Equity").Range("F152").Value

運行循環：如果不知道這是正確的：

For F = 0 To 10000 Step 1 
     Y = X 
    Next 
    Y = Y + 1 
End Sub

請如果錯誤請糾正。提前感謝

來源

2013-06-21 Gopi

我不知道你想通過這個來完成什麼代碼...你只是想將「F158」的值「同步」到「F152」嗎？ – Passerby

您可以使用Worksheet_Change事件。將下面的代碼放在圖表代碼部分。一旦範圍F158的變化值，是從3.3到9.3，從以前的值其不同的那麼它將粘貼範圍值G158

Dim oldVal As Double 

Private Sub Worksheet_Change(ByVal Target As Range) 

    On Error Resume Next 
    Application.EnableEvents = False 


    If Not Intersect(Target, Range("F158")) Is Nothing Then 
     If Target.Value >= 3.3 And Target.Value <= 9.3 Then 
      If oldVal <> Target Then Target.Offset(0, 1).Value = Target 
     End If 
    End If 

    oldVal = Range("F158").Value 

    Application.EnableEvents = True 
End Sub

來源

2013-06-21 06:42:20 Santosh

謝謝，但上午9.30到下午3:30是時間..我試了這一個，它似乎確定我相信Sub play（） Dim xxx As Long，yyy As Long ThisWorkbook.Sheets（「Equity」）。Range（「F78」）.Activate 的do while ActiveCell.Value <> 「」的DoEvents ActiveCell.Copy 對於XXX = 2至350步驟1 YYY = XXX + 1 工作表（「公平」）。激活隨着ActiveSheet .Range（細胞（XXX，2），細胞（YYY，2））。PasteSpecial的xlPasteValues 結束隨着接着XXX ThisWorkbook.Sheets（「公平」）。選擇 ActiveCell.Offset（100，0）.Activate 嚕p Application.ScreenUpdating = True End Sub – Gopi

使用VBA保存在不同單元中的進貨市場進貨

回答

相關問題