請問 vba 可以寫成 篩選後 拍攝照片存成圖檔嗎
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
請問 vba 可以寫成 篩選後 拍攝照片存成圖檔嗎
大大們
小弟有一個疑問
通常我們在篩選之後 如果要把現在的畫面拍成圖片 然後自動存檔
vba有這功能??
該怎麼寫呢? |
|
|
|
|
|
|
|
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
6#
發表於 2015-5-31 01:04
| 只看該作者
大大我想問關於篩選的問題
如果篩選 沒有 任何一筆符合
那可以把當分頁的篩選解除
不要貼上
直接跳到程式碼的結束嗎? |
|
|
|
|
|
|
|
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
5#
發表於 2015-5-14 23:07
| 只看該作者
大大 可以強迫 到 橫向gz欄位都要copy嗎
因為我中間有的欄位是 空的 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2015-5-14 08:52
| 只看該作者
本帖最後由 GBKEE 於 2015-5-14 08:54 編輯
回復 3# vavashop
試試看- With Sheets("集合").Range("A1:GZ55586")
- .AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
- .AutoFilter Field:=5, Criteria1:=">=2"
- .AutoFilter Field:=6, Criteria1:=">=0"
- .AutoFilter Field:=7, Criteria1:=">=0"
- .AutoFilter Field:=23, Criteria1:=">=1"
- .AutoFilter Field:=25, Criteria1:="<>-1"
- .AutoFilter Field:=26, Criteria1:=">=3"
- If .Range("a1").End(xlDown).Row = .Parent.Rows.Count Then
- MsgBox "沒有資料"
- Exit Sub
- Else
- .Offset(1).SpecialCells(xlCellTypeConstants).Copy
- End If
- End With
- Worksheets("紀錄-周同軸").Select
- Cells(row_s1 + 1, 2).Select
- ActiveSheet.Paste
- Call A1_周同軸_寫入周模組
|
|
|
|
|
|
|
|
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
3#
發表於 2015-5-13 22:56
| 只看該作者
大大請問 一下
我在跑 篩選的時候
因為篩選出來沒有任何一筆府合
他會跳出
[[excel 無法已課用的資源完成工作 請以較小的資料貨關閉其他應用程式]]
請問 要如何不要讓他顯示呢？
巨集如下^^
ps：我在按完[[excel 無法已課用的資源完成工作 請以較小的資料貨關閉其他應用程式]] 之後他匯出現要不要[[偵錯]] 這個我都想直接跳過繼續執行到 結束 ...不知道這個 處理方式也是一樣嗎？
Sub 選股1A1()
Dim row_s1 As Integer
'檢查工作表1的B欄已有資料行數
row_s1 = Worksheets("紀錄-周同軸").Range("B65535").End(xlUp).Row
'B1無資料時，row_s1 =0
If row_s1 = 1 Then
If Cells(row_s1, 2) = "" Then
row_s1 = 0
End If
End If
'第一次選資料，並貼到紀錄-周同軸
'=========
'A1選股
'=========
Sheets("集合").Select
ActiveSheet.Range("$A$1 GZ$55586").AutoFilter Field:=2, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=5, Criteria1:=">=2"
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=6, Criteria1:=">=0"
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=7, Criteria1:=">=0"
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=23, Criteria1:=">=1"
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=25, Criteria1:="<>-1"
ActiveSheet.Range("$A$1GZ$100000").AutoFilter Field:=26, Criteria1:=">=3"
Range("a2:gz2").Select '第二欄a2~gz2
Range(Selection, Selection.End(xlDown)).Select '選擇到最後一欄
Selection.Copy
Worksheets("紀錄-周同軸").Select
Cells(row_s1 + 1, 2).Select
ActiveSheet.Paste
Call A1_周同軸_寫入周模組
Sheets("紀錄-周同軸").Select
ActiveSheet.ShowAllData |
|
|
|
|
|
|
|
