12
返回列表 上一主題 發帖

vba 依據textbox中所需入的值篩選出相對的筆數

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
11# 跳轉到 »
發表於 2015-10-26 09:17 | 顯示全部帖子
回復 16# 准提部林

感謝版主
測試成功
讓我學習到很多細節
謝謝

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
12#
發表於 2015-10-26 17:25 | 顯示全部帖子
回復 17# t591nm

版主不好意思
我又有個笨問題了
Private Sub CommandButton1_Click()
fileToOpen = Dir(Application.GetOpenFilename("Excel File(*.xls),*.xls"))
a = Split(fileToOpen, "/")
b = a(UBound(a))
MsgBox Left(b, InStr(b, ".") - 1)
End Sub
以上是我run過確定可以執行的程式碼

Private Sub CommandButton4_Click()
    Dim Arr3 As Variant

    Arr3 = Array("PASS名單", "DATA")
    Sheets(Arr3).Copy
    Arr3 = Application.GetSaveAsFilename(fileFilter:="*.xls, *.xls")
End Sub
以上程式碼中我就有問題了
我想讓CommandButton1_Click()中的b可以被CommandButton4_Click()來使用
由於觀念不清楚所以不知道怎麼引用
我所要的是另存新檔時檔名為該筆所匯入的檔名且不含副檔名
本來想說在CommandButton1_Click()中已經可以run出來要的檔名了
卻沒想到後期無法直接引用...
而且還有一個問題...可能是因為另存新檔中有兩個工作表...所以要按兩次存檔才可以
以上不知道如何排解
感謝大大

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
13#
發表於 2015-10-27 13:07 | 顯示全部帖子
已解決

Private Sub CommandButton4_Click()
   Dim nm As String, FileFolder As String
   nm = Sheets("DATA").Range("G1").Value
   Arr3 = Array("PASS名單", "DATA")
   Sheets(Arr3).Copy
   FileFolder = Application.GetSaveAsFilename(nm & "-", "(*.xls),*.xls")
   Sheets("DATA").Range("G1").Clear
   Sheets("PASS名單").Range("G1").Clear
   ActiveWorkbook.SaveAs FileFolder
End Sub

這樣就可以達到我要的目的了

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題