請問 vba 可以寫成 篩選後 拍攝照片存成圖檔嗎

vavashop

大大們
小弟有一個疑問
通常我們在篩選之後 如果要把現在的畫面拍成圖片 然後自動存檔
vba有這功能??


該怎麼寫呢?

GBKEE

回復 1# vavashop


    http://forum.twbts.com/viewthread.php?tid=11214

vavashop

大大請問 一下
我在跑 篩選的時候
因為篩選出來沒有任何一筆府合

他會跳出

[[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$1GZ$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

GBKEE

回復 3# vavashop
試試看

1. With Sheets("集合").Range("A1:GZ55586")
   
2.         .AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
   
3.         .AutoFilter Field:=5, Criteria1:=">=2"
   
4.         .AutoFilter Field:=6, Criteria1:=">=0"
   
5.         .AutoFilter Field:=7, Criteria1:=">=0"
   
6.         .AutoFilter Field:=23, Criteria1:=">=1"
   
7.         .AutoFilter Field:=25, Criteria1:="<>-1"
   
8.         .AutoFilter Field:=26, Criteria1:=">=3"
   
9.         If .Range("a1").End(xlDown).Row = .Parent.Rows.Count Then
   
10.             MsgBox "沒有資料"
    
11.             Exit Sub
    
12.         Else
    
13.             .Offset(1).SpecialCells(xlCellTypeConstants).Copy
    
14.         End If
    
15.     End With
    
16.     Worksheets("紀錄-周同軸").Select
    
17.     Cells(row_s1 + 1, 2).Select
    
18.     ActiveSheet.Paste
    
19.     Call A1_周同軸_寫入周模組

複製代碼

vavashop

大大 可以強迫 到 橫向gz欄位都要copy嗎
因為我中間有的欄位是 空的

vavashop

大大我想問關於篩選的問題
如果篩選 沒有 任何一筆符合
那可以把當分頁的篩選解除
不要貼上
直接跳到程式碼的結束嗎?