[發問] 如何引用儲存格內容(=表單名稱)顯示表單?

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 13
主題: 2
精華: 0
積分: 57
點名: 0
作業系統: xp
軟體版本: office2010
閱讀權限: 20
註冊時間: 2011-4-10
最後登錄: 2012-2-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-10 17:31 | 只看該作者

[發問] 如何引用儲存格內容(=表單名稱)顯示表單?

[C1]=台南市
[C2]=中西區

是否能直接引用C1,C2 叫出 userform台南市中西區?
例如 :
Sub 顯示路街巷()
"userform"&[C1]&[C2].show
End Sub

無須如目前逐一列舉。

kimbal

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2011-4-10 21:08 | 只看該作者

Public Sub subShowUserForm(strFormName As String)
Dim intNumOfForms As Integer
Dim intNumOfFormsCounter As Integer
intNumOfForms = UserForms.Count
If UserForms.Count > 0 Then
      For intNumIfFormsCounter = 1 To intNumOfForms
         If UserForms(intNumIfFormsCounter - 1).Name = strFormName Then
            UserForms(intNumIfFormsCounter - 1).Show
            Exit Sub
         End If
      Next
End If
End Sub

用法:
subShowUserForm([C1]&[C2])

估計每個USERFORM的分別,在於只有小許LABEL?
其實弄這麼多個USERFORM, 不如把所有的統一,再在FORM裡面分控件

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

帖子: 13
主題: 2
精華: 0
積分: 57
點名: 0
作業系統: xp
軟體版本: office2010
閱讀權限: 20
註冊時間: 2011-4-10
最後登錄: 2012-2-8

3^#

發表於 2011-4-10 21:50 | 只看該作者

感謝版大指導，這就試試。

帖子: 13
主題: 2
精華: 0
積分: 57
點名: 0
作業系統: xp
軟體版本: office2010
閱讀權限: 20
註冊時間: 2011-4-10
最後登錄: 2012-2-8

4^#

發表於 2011-4-10 23:02 | 只看該作者

本帖最後由 e123chen 於 2011-4-11 09:43 編輯

照辦了，沒反應。
能否勞煩版大幫忙看一下? 謝謝!

001.zip (645.63 KB)

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-4-12 10:35 | 只看該作者

回復 4# e123chen

   樓主下述為依您要的結果設計~ 僅供參考~
   這不是一個好的方式(針對市與區結合多的時候時,會寫很常)
   請將程式碼貼到你需要的sheet中~
   select 的 case 依您需要的笤整~

Private Sub Worksheet_Change(ByVal 變數 As Range)
If 變數.Row = 1 And 變數.Column = 3 And 變數 <> "" And 變數.Offset(1, 0) <> "" Then
A = 變數 & 變數.Offset(1, 0)
ElseIf 變數.Row = 2 And 變數.Column = 3 And 變數 <> "" And 變數.Offset(-1, 0) <> "" Then
A = 變數.Offset(-1, 0) & 變數
Else
Exit Sub
End If
Select Case A
Case "台南市中西區"
      UserForm1.Show
Case "台南市東區"
      UserForm2.Show
Case "台南市南區"
      UserForm3.Show
End Select
End Sub

學習才能提升自己

帖子: 13
主題: 2
精華: 0
積分: 57
點名: 0
作業系統: xp
軟體版本: office2010
閱讀權限: 20
註冊時間: 2011-4-10
最後登錄: 2012-2-8

6^#

發表於 2011-4-12 11:53 | 只看該作者

本帖最後由 e123chen 於 2011-4-20 14:26 編輯

回復 5# hugh0620
感謝大大指導。

我希望 C1輸入"台北市"，C2輸入"大安區"，就能顯示 "userform台北市大安區" 表單。
目前是用 Select Case，台灣有368個郵遞區號，得寫368個Case。

能不能只寫一行，例如 "userform" & [C1] & [C2].show，自動依據C1,C2內容顯示對應表單。