麻辣家族討論版版 » Excel程式區 » checkbox無法自動勾選

返回列表下一主題上一主題發帖

checkbox無法自動勾選

　暱稱: 彰化一整天

中學生 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不會自動勾選.若是手動操作就可以.請問這可能是什麼原因造成的.

Sub 整批列印()
Dim i, j, a, b As Integer
a = Sheet2.Range("F1").Value
b = Sheet2.Range("H1").Value
For i = a To b
'將資料填到第2列
For j = 2 To 6
Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
Next
'呼叫列印單筆
' Call 列印
Sheets("套表").Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
MsgBox i
Sheets("總表").Select
Next
End Sub

複製代碼

通知單.zip (28.37 KB)

樓主熱帖

收藏

　暱稱: 彰化一整天

中學生 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就解決了.

Sub 整批列印()
Dim i, j, a, b As Integer
a = Sheet2.Range("F1").Value
b = Sheet2.Range("H1").Value
For i = a To b
'將資料填到第2列
For j = 2 To 6
Sheet2.Cells(2, j) = Sheet2.Cells(i, j)
DoEvents
Next
Sheets("套表").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("總表").Select
Next
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-3-2 13:57 | 只看該作者

將三個checkbox分別設定儲存格連結,$D$7,$E$7,$F$7

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題