[算表] vba暫停~500p

看板Office作者topgunguy (上面的槍手)時間14年前 (2012/03/23 22:24)推噓1(1推 0噓 4→)

留言5則, 3人參與討論串1/1

軟體:excel 版本:2010 各位版友大家好，我想請教一個關於vba暫停的問題，我試了至少兩星期還是弄不出來，現在有點急..望有高手能指點一下，獻上500p 以下是我的檔案， http://www.uploadstation.com/file/2TZh6C2/t1.xlsm 在TXFA這一頁的儲存格上雙擊會跳出圖表，兩秒後圖表會被刪除。我想改成雙擊跳出圖表後，點一下左鍵才刪掉圖表，請問程式碼該怎麼寫呢？感謝~ 程式碼如下 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Integer Dim s As String 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") ActiveChart.Parent.Delete End Sub -- 錢會變薄，資產會縮水。通通花光才有100%的享受，這就是活在當下。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.131.214.86 ※ 編輯: topgunguy 來自: 220.131.214.86 (03/23 22:27)

推

bulldog

03/24 16:38, , 1^F

03/24 16:38, 1^F

box每次彈出來都在圖的正中央，都要再移開orz 這裡好像有把box移到角落的方法，但一堆函數都無效。 http://www.vbforums.com/showthread.php?t=329373 ※ 編輯: topgunguy 來自: 220.131.213.151 (03/24 23:23)