Board logo

標題: checkbox無法自動勾選 [打印本頁]
作者: imingho    時間: 2016-3-1 16:36     標題: checkbox無法自動勾選

我用excel VBA程式執行時.checkbox不會自動勾選.若是手動操作就可以.請問這可能是什麼原因造成的.
[attach]23356[/attach]
  1. Sub 整批列印()
  2.     Dim i, j, a, b As Integer
  3.     a = Sheet2.Range("F1").Value
  4.     b = Sheet2.Range("H1").Value
  5.    
  6.     For i = a To b
  7.         '將資料填到第2列
  8.         For j = 2 To 6
  9.             Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
  10.         Next
  11.         
  12.         '呼叫列印單筆
  13.        ' Call 列印

  15.    
  16.     Sheets("套表").Select

  18.     'ActiveWindow.SelectedSheets.PrintOut Copies:=1
  19.     MsgBox i
  20.    
  21.     Sheets("總表").Select
  22.    
  23.     Next


  26.    
  27. End Sub
複製代碼
作者: 准提部林    時間: 2016-3-2 13:57

將三個checkbox分別設定儲存格連結,$D$7,$E$7,$F$7
作者: imingho    時間: 2016-3-2 20:35

回復 2# 准提部林


    謝謝,我有設定,只是在迴圈中會沒有作用,今天又測了很久,最後在迴圈加上doevent就解決了.
  1. Sub 整批列印()
  2.     Dim i, j, a, b As Integer
  3.     a = Sheet2.Range("F1").Value
  4.     b = Sheet2.Range("H1").Value
  5.    
  6.     For i = a To b
  7.         '將資料填到第2列
  8.         For j = 2 To 6
  9.             Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
  10.             DoEvents
  11.         Next
  12.         
  13.     Sheets("套表").Select

  15.     ActiveWindow.SelectedSheets.PrintOut Copies:=1
  16.    
  17.    
  18.     Sheets("總表").Select
  19.    
  20.     Next


  23.    
  24. End Sub
複製代碼




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