- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-3-20
- 最後登錄
- 2014-12-23
|
各位版友大家好，我想請教一個關於vba暫停的問題，
請見附件 t1.zip
 t1.zip (249.84 KB)
在TXFA這一頁的儲存格上雙擊會跳出圖表，兩秒後圖表會被刪除。
我想改成雙擊跳出圖表後，暫停，點一下左鍵才刪掉圖表，
請問這個暫停與按左鍵該怎麼寫呢？
感謝~
目前程式碼如下
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = Val(Target.Row)
Range("B" & i - 3 & ":E" & i + 3).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlStockOHLC
ActiveChart.SetSourceData Source:=Worksheets("txpic").Range("B" & i - 3 & ":E" & i + 3)
ActiveChart.Legend.Select
ActiveChart.ChartArea.Select
Application.ScreenUpdating = True
Application.Wait Now + TimeValue("00:00:02")
'Stop
'Application.Stop
'pause
ActiveChart.Parent.Delete
End Sub |
|
發表於 2012-3-24 10:40
| 
