[發問] 限當【工作表】使用的變數

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2014-10-31 17:12 | 只看該作者

本帖最後由 mark15jill 於 2014-10-31 17:18 編輯

回復 1# 蝕光迴狼

如果只是單純在 sheet1內，要使用共通變數，就在最上方宣告
差別如下
1.若在功能區內(例如 label textbox ) 宣告，則該變數只限定在該功能區內使用，其他區域會找不到。 >>>區域變數
2.若在最上方宣告，則該變數屬於通用變數，其他功能區可以找的到。 >>> 全域變數

因只看到你的3行程式碼，故單純列以下程式碼做參考

Dim dm, ML1, ML2 As String
dm = "D:\測試用\" '搜尋主路徑
ML1 = Range("C3") '搜尋檔案資料夾目錄一
ML2 = Range("C4") '搜尋檔案資料夾目錄二
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-10-31 17:44 | 只看該作者

回復 2# mark15jill

感謝 mark15jill 大大說明，按照你的方式，出現異常不知要如何處理，可否教導解惑?

錯誤訊息.JPG (26.97 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2014-10-31 18:50 | 只看該作者

回復 3# 蝕光迴狼

= = 你不會直接把他貼上吧? 你貼在哪??
還是你要貼程式碼圖出來說明你錯誤的區域和怎貼上的?
或者想要得結果? 這樣才知道你想要得是啥...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2014-10-31 19:42 | 只看該作者

回復 4# mark15jill

Dear　mark15jill 大大：
檔案請附件，謝謝您，麻煩您費神了～

各式流程2.rar (12.76 KB)

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2014-10-31 20:12 | 只看該作者

回復 5# 蝕光迴狼

跟你確認一下

你要的是...  上傳 and 下載 and 確認檔案是否存在這三個功能對吧?

對的話...  我幫你改版完再po上來

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2014-10-31 21:21 | 只看該作者

回復 6# mark15jill

是的　mark15jill 大大，如你所述，再次感謝您的幫忙～

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2014-10-31 22:58 | 只看該作者

本帖最後由 mark15jill 於 2014-10-31 23:01 編輯

回復 7# 蝕光迴狼

我的excel怪怪的無法存檔... 只好貼代碼和圖給你= =""
改用呼叫副程式的方法...
因為如果放在同一個副程式，有可能會重複複製
所以複製的部份提出來另行處理
再者... 你的程式邏輯好亂... 跳來跳去跳來跳去... 跳到原本的程式錯亂...

Dim kk, te1, te2, te3, te4, te5 As String
Private Sub Frame1_Click()
End Sub
Private Sub UserForm_Activate()
Application.DisplayAlerts = False '提示視窗消失
Dim objFs As Object
Set objFs = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub CommandButton2_Click()
Call x
If Dir(tet4 & "\" & "*") <> "" Then fsd.copyfile tet4 & "\", ddm
Shell "explorer " & tet4, vbNormalFocus ' "explorer "空一格 + (連接上)要開啟的資料夾或檔案
End Sub
Private Sub CommandButton3_Click()
Call x
Dim sss As String
sss = Dir(te3)
If sss <> "" Then fsd.copyfile fd & sss, gb: Shell "explorer " & gb, vbNormalFocus: End If
End Sub
Private Sub CommandButton4_Click()
Shell "explorer " & "\\d1502111\暫存區\" & TextBox5.Text, vbNormalFocus '"explorer "空一格 + (連接上)要開啟的資料夾或檔案
End Sub
Function x()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True: .Show
For i = 1 To .SelectedItems.Count: TextBox4.Text = .SelectedItems(i): Next
tet4 = TextBox4.Text
End With
te1 = TextBox1.Text: te2 = TextBox2.Text: te3 = TextBox3.Text
dm = "C:\測試用\"
ddm = "C:\下載區\"
fd = dm & te1 & "\" & te2 & "\"
gb = "C:\" & te3
'用dir函數中的vbDirectory常數來判斷資料夾是否存在
CurrentFile = Dir(gb, vbDirectory)
'傳回空白，表示資料夾不存在
If CurrentFile = "" Then MkDir gb: End If
End Function
'Cells(i, 1) = .SelectedItems(i)
'MsgBox .SelectedItems(i)

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2014-11-1 01:48 | 只看該作者

回復 8# mark15jill

謝謝 mark15jill 大大這麼用心的幫我，

因為本身功力不足尚在學習，讓您勞心勞力了，再次感謝～

不過～我盡量不想做成那種視窗型態，是因為不好維護與日後修改，

所以才想盡量程式碼越簡潔越好．．．．．

再幫忙我一下，拜託～

我很笨,所以我很用心
　我學藝不精,但我渴求知識

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 2014-11-1 02:17 | 只看該作者

本帖最後由 mark15jill 於 2014-11-1 02:23 編輯

回復 9# 蝕光迴狼

不想做視窗化...

就把視窗化的變數改成儲存格的...

例如textbox1 改回你原本設定的

基本上除了變數更改外其餘的跟你程式一樣... 只是看起來比較雜...

有用了統合副程式... 相同的在副程式設定後不同的在額外處理

個人比較習慣用userform統整... 畫面比較乾淨整齊...雖然有可能文字大小比較小...
但好處可移出.. 當做零件用

ps...我睡覺了ˇˇ 晚安

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然