12
返回列表 上一主題 發帖

2個vba問題

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-7 10:58 | 只看該作者

2個vba問題

1.  我寫了一個  列印1次.   但如何加多1句  if 找不到列印機 就出 msgbox找不到列印機 end.

2. 如何寫  a1=2010/8/7   b1=11:45   當a1和b1=電腦的時間 時  excel就會發出music 和彈出  msgbox 時間到 (excel 最細化時,可以令msgbox在桌面右下角見到)

請大大門指導><
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-8-7 19:46 | 只看該作者
本帖最後由 Hsieh 於 2010-8-7 23:45 編輯

回復 1# basarasy
  1. Sub NN()
  2. If IsNumeric(Application.Match(Split(ActivePrinter, " on")(0), Printer_List, 0)) Then
  3. ActiveSheet.PrintOut
  4. Else
  5. MsgBox "找不到印表機"
  6. End If
  7. End Sub
  8. Function Printer_List() As Variant
  9. '設定引用項目Microsoft Shell Controls And Automation
  10. Dim MySh As Shell32.Shell
  11. Dim MyPrinter As Shell32.FolderItem
  12. Dim Ar()
  13. Set MySh = CreateObject("Shell.Application")
  14. For Each MyPrinter In MySh.Namespace(ssfPRINTERS).Items
  15.   If MyPrinter.Name <> "新增印表機" Then
  16.      ReDim Preserve Ar(s)
  17.        Ar(s) = MyPrinter.Name
  18.        s = s + 1
  19.   End If
  20. Next
  21. Printer_List = Ar
  22. End Function
複製代碼
問題2應該是由Windows來控制可從API函數去找答案
學海無涯_不恥下問

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
3#
發表於 2010-8-7 21:01 | 只看該作者
回復 2# Hsieh

謝謝大大
但不知放在那裡><

可以這樣寫嗎?
Sheet2.Select
if  找不到列印機 then
msgbox 沒有列印機
end
else
ActiveSheet.PrintOut from:=1, To:=1, copies:=1

紅色那句我不知如何寫><
50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-8-7 23:46 | 只看該作者
執行NN看看
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2010-8-8 11:24 | 只看該作者
回復 1# basarasy
第2個問題 請試試 附檔



巨集需求.rar (17.35 KB)

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
6#
發表於 2010-8-8 13:33 | 只看該作者
回復 5# GBKEE

用了之後不能關音樂><

jhh.JPG (79.48 KB)

jhh.JPG

50 字節以內
不支持自定義 Discuz! 代碼

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2010-8-8 13:48 | 只看該作者
回復  GBKEE

用了之後不能關音樂>
basarasy 發表於 2010-8-8 13:33



   您貼錯圖..問到第一個列印機的問題
學如逆水行舟 不進則退

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2010-8-8 14:08 | 只看該作者
回復 6# basarasy
Hsieh 板主的程式碼 要先 '設定引用項目Microsoft Shell Controls And Automation

登出WINDOWS 後再進入就可以關閉
請再重新開啟EXCEL 進入 VBA 視窗中
有兩處  ' IE.Visible = True     請刪掉  '
執行 IE.Visible = True  的程式碼   如此程式有錯誤 就可以關閉

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2010-8-8 14:39 | 只看該作者
回復  basarasy
Hsieh 板主的程式碼 要先  '設定引用項目Microsoft Shell Controls And Automation

登 ...
GBKEE 發表於 2010-8-8 14:08


版主請問您照您的步驟後
    登出WINDOWS 後再進入就可以關閉
請再重新開啟EXCEL 進入 VBA 視窗中
有兩處  ' IE.Visible = True     請刪掉  '
執行 IE.Visible = True  的程式碼   如此程式有錯誤 就可以關閉

程式碼不能執行 步驟有不對的地方嗎?謝謝您

學如逆水行舟 不進則退

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-8-8 14:47 | 只看該作者
本帖最後由 GBKEE 於 2010-8-8 14:56 編輯

回復 9# PD961A
我有時也會碰到 可能是系統的關係
重新下載檔案存檔後 試試看

我想起來了
設定引用的項目中 ->取消 遺漏的專案

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
12
返回列表 上一主題