返回列表 上一主題 發帖

可以請問Hsieh大大嗎

可以請問Hsieh大大嗎

出處

你所回復的公式是陣列公式

可以麻煩看看我的附件裡

我的附件資料

可以用一般公式編寫嗎

本帖最後由 Hsieh 於 2010-12-16 22:53 編輯

回復 1# gn00487767

建議使用進階篩選
學海無涯_不恥下問

TOP

本帖最後由 gn00487767 於 2010-12-17 07:56 編輯

回復 2# Hsieh

謝謝大大的回覆

但是進階篩選我無法在另一個工作表顯示
我有看到您回覆別人的問題
如下
這裡

因為小弟還無法下載
leiru大大的資料做參考
我有照你的方法試
結果excel顯示
只能在作用工作表上複製篩選範圍
是我的方法錯誤嗎
還是我只能在該工作表篩選後再把資料複製到另一個工作表呢

TOP

本帖最後由 gn00487767 於 2010-12-17 11:52 編輯

回復 2# Hsieh

感謝Hsieh 大大不厭其煩的為我解答
小弟董了

另外可否再請教一個問題
出處
我的問題跟yang3814大大的問題大同小異
我的問題是要印表格 我只能夠做到 只要在表格內輸入編號 其餘資料 會自己跑到表格內
我也一樣要做一個按鈕 就可以把 所有有編號的資料通通印出來
該如何設一按鈕就可以執行的程式碼
我的附件

補充一點 我的資料是陸續增加 所以要列印的東西也一樣

煩請 Hsieh 大大幫幫小弟

TOP

回復 4# gn00487767
  1. Sub Ex()
  2. Dim A As Range
  3. With Sheets("資料表")
  4. For Each A In .Range(.[A2], .[A2].End(xlDown))
  5.    With Sheets("表格")
  6.      .[E1] = A
  7.      .[C3] = A.Offset(, 1)
  8.      .[G3] = A.Offset(, 2)
  9.      .[C5] = A.Offset(, 3)
  10.      .[G5] = A.Offset(, 4)
  11.      .[C7] = A.Offset(, 5)
  12.      .[C9] = A.Offset(, 6)
  13.      .PrintOut '列印
  14.     End With
  15. Next
  16. End With
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 5# Hsieh

再次感謝Hsieh大大 小弟再自行研究研究 有問題再跟您討教

TOP

本帖最後由 gn00487767 於 2010-12-20 10:27 編輯

回復 5# Hsieh

Hsieh大大 抱歉
小弟直接複製代碼
製作出來的按鍵 可是執行下去都沒動作呢
可以幫小弟查詢看看嗎
或是可以請您做一個可以使用的EXCEL檔案讓我做參考
小弟的信箱
gn00487767@yahoo.com.tw
麻煩您了

TOP

回復 5# Hsieh


感謝Hsieh大大
您寄給我的範例我收到了
測試過 可以正常使用了
原來是我直接複製代碼後直接貼上
跟您寄給我的範例裡
第一行代碼不一樣的問題
所以無法正常使用

TOP

本帖最後由 gn00487767 於 2010-12-26 06:06 編輯

回復 2# Hsieh


Hsieh大大抱歉
小弟又要麻煩您了
我的問題有2個
第一個問題在附件裡
我的附件
第二個問題 就是您之前回覆我的列印表格的問題
01.Sub Ex()
02.Dim A As Range
03.With Sheets("資料表")
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
05.   With Sheets("表格")
06.     .[E1] = A
07.     .[C3] = A.Offset(, 1)
08.     .[G3] = A.Offset(, 2)
09.     .[C5] = A.Offset(, 3)
10.     .[G5] = A.Offset(, 4)
11.     .[C7] = A.Offset(, 5)
12.     .[C9] = A.Offset(, 6)
13.     .PrintOut '列印
14.    End With
15.Next
16.End With
17.End Sub


其中
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
紅色的A 是什麼意思 或是怎麼來的呀
因為我直接用你給我附件測試可以直接列印
但是我自己做一個新的工作表 複製您的程式碼 但是不能用呢
其他的我都弄清楚代表什麼意思或是該怎麼使用(修改)
就只有其中的A我無法理解
我也從您給我的附件中把A作修改 還是可以使用
就我自己做出來的工作表中的A無法辨別
還是說我做的是因為我把您的資料中[A2] 到[A2] 的儲存格參照放在C欄位的儲存格並且還有合併儲存格的關西呢

對了 他傳給我錯誤訊息 忘了是450還是405
可以幫幫小弟嗎

再次麻煩大大了

TOP

回復 3# gn00487767
"但是進階篩選我無法在另一個工作表顯示"   可以使用 vba  
參照你在 http://forum.twbts.com/viewthread.php?tid=2190&extra= 的附檔
Sheets("資料表").Range("A1").CurrentRegion  資料庫->獨自一個工作表
Sheets("表格").[K1:L2]                                   篩選準則 ->獨自一個工作表
Sheets("Sheet3").[A1]                                   複製列的目標範圍 ->獨自一個工作表
  1. Sub Ex()
  2.     Sheets("Sheet3").[A1].CurrentRegion = ""
  3.     Sheets("資料表").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("表格").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]
  4. End Sub
複製代碼

篩選準則 (CriteriaRange) Sheets("表格").[K1:L2] 如圖




For Each A In  .Range(.[A2], .[A2].End(xlDown)) ( 物件的集合 )
A  為 物件的集合的元素
在此為   依序 [A2] ->[A3]->[A4]....

TOP

        靜思自在 : 知識要用心體會,才能變成自己的智慧。
返回列表 上一主題