返回列表 上一主題 發帖

checkbox無法自動勾選

imingho
　暱稱: 彰化一整天

中學生Rank: 2

帖子
56 
主題
11 
精華
0 
積分
115 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
20 
性別
男 
註冊時間
2013-3-13 
最後登錄
2023-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-1 16:36 | 只看該作者

checkbox無法自動勾選

我用excel VBA程式執行時.checkbox不會自動勾選.若是手動操作就可以.請問這可能是什麼原因造成的.
  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
複製代碼

通知單.zip (28.37 KB)

收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2016-3-2 13:57 | 只看該作者
將三個checkbox分別設定儲存格連結,$D$7,$E$7,$F$7

TOP

imingho
　暱稱: 彰化一整天

中學生Rank: 2

帖子
56 
主題
11 
精華
0 
積分
115 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
20 
性別
男 
註冊時間
2013-3-13 
最後登錄
2023-7-13 
3#
發表於 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
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題