[發問] comBobox如何同時也能取出已變更定義後的參照範圍呢？

各位大大好：

  有一MULTIPAGE表單，其名稱為
員工基本資料。並配有comBobox6
其用途為供使用者可選取員工姓名之用。

  現小弟之問題為在新增員工時，選取“新增”按鈕
新增員工；並同時設有直接變更定義名稱
的參照範圍。之後選取comBobox6發現其內的參照範圍
並未改變；其結果也就無法取得已新增的
員工姓名。請問comBobox6應如何修改才
可成功取得實際參照範圍呢？
其語法如下：

Private Sub ComboBox6_Change()
Dim mAr1 As Variant
Dim mStr1$, mStr1a$
Dim mSht1 As Worksheet
Dim mRng1 As Range, mRng1a As Range

Set mSht1 = Worksheets("員工基本資料")
mSht1.Select

With mSht1

      Set mRng1 = Range("員工基本資料")

      With mRng1

         mAr1 = mRng1.Offset(1, 1).Resize(.Rows.Count - 1, 1).Value
         mAr1 = WorksheetFunction.Transpose(mAr1)

         With ComboBox6
            .Width = .Width * 1
            .ColumnCount = 1
            .List = mAr1
            .Value = .List(.ListIndex)
            mStr1 = .Value
            '.SetFocus
         End With
      End With

      Set mRng1a = mRng1.Columns(2).Find(what:=mStr1, lookat:=xlWhole, searchorder:=xlByRows)
      If Not mRng1a Is Nothing Then

         'MsgBox mRng1a.Value
         TextBox1.Value = mRng1a.Offset(, -1).Value
         TextBox2.Value = mRng1a.Value
         TextBox3.Value = mRng1a.Offset(, 1).Value
         TextBox4.Value = mRng1a.Offset(, 2).Value
         TextBox5.Value = mRng1a.Offset(, 3).Value
         TextBox6.Value = mRng1a.Offset(, 4).Value
         TextBox7.Value = mRng1a.Offset(, 5).Value
         TextBox8.Value = mRng1a.Offset(, 7).Value

         mStr1a = mRng1a.Offset(, 6).Value


         If mStr1a = "在職" Then
            OptionButton1.Value = True
         ElseIf mStr1a = "離職" Then
            OptionButton2.Value = True
         End If

         mRng1a.Offset(, -1).Select
      End If

End With

Set mSht1 = Nothing
Set mRng1 = Nothing
Set mRng1a = Nothing

End Sub

感恩大大！

mTest.rar (92.12 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-18 08:58 | 只看該作者

本帖最後由 GBKEE 於 2010-10-18 09:01 編輯

回復 1# dechiuan999
問題在Private Sub CommandButton5_Click()
         With Range("員工基本資料")
         mStr1a = TextBox1.Text
         Set mRng1b = Range("員工基本資料").Columns(1).Find(what:=mStr1a, lookat:=xlWhole, searchorder:=xlByRows)
         If Not mRng1b Is Nothing Then
            MsgBox "你輸入的員工編號重覆" & vbCrLf & vbCrLf & "請重新輸入員工編號"
            Exit Sub
         End If
         mRow1 = Range("員工基本資料").Rows.Count    '計算出定義名稱的列數
      If TypeName(Selection) = "Range" Then
            .Cells(1).End(xlDown).Offset(1).Select             '請加入這一段
            If Intersect(Selection, Range("員工基本資料").End(xlDown).Offset(1)) Is Nothing Then
                        'MsgBox "請先選取輸入資料指定位置"
                  Exit Sub
            Else
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''
CommandButton5_Click() 新增資料的防呆措施少了姓名的防呆
防呆之後  新增資料直接用不用理會selection的事如下

Private Sub CommandButton5_Click()
Dim Sh As Worksheet, Rng As Range
Set Sh = Worksheets("員工基本資料")
Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1)
With TextBox1
If Application.CountIf(Sh.Columns(1), .Text) > 0 Then
MsgBox "你輸入的員工編號重覆" & vbCrLf & vbCrLf & "請重新輸入員工編號"
Exit Sub
ElseIf Len(.Text) = 5 Then
If IsNumeric(.Text) Then Rng.Cells(1, 1).NumberFormatLocal = "@"
Else
MsgBox "員工編號為五個字元"
Exit Sub
End If
End With
With TextBox2
If Application.CountIf(Sh.Columns(2), .Text) > 0 Then
MsgBox "你輸入的姓名重覆" & vbCrLf & vbCrLf & "請重新輸入員工姓名"
Exit Sub
ElseIf Len(.Text) = 0 Then
MsgBox "你沒有輸入姓名 " & vbCrLf & vbCrLf & "請重新輸入員工姓名"
End If
End With
With TextBox3 '身份證宇元為 10 個宇元
If Application.CountIf(Sh.Columns(3), .Text) > 0 Then
MsgBox "身份證宇號重複" & vbCrLf & vbCrLf & "請重新輸入身份證宇號 "
Exit Sub
ElseIf Len(.Text) = 10 Then
If Not IsNumeric(.Text) Then Rng.Cells(1, 3).NumberFormatLocal = "@"
Else
MsgBox "身份證宇元為 10 個宇元"
Exit Sub
End If
End With
With TextBox5 ''立帳局號元為 7 個宇元
If Len(.Text) = 7 Then
If IsNumeric(.Text) Then Range("員工基本資料").Cells(mRow1a, 5).NumberFormatLocal = "@"
Else
MsgBox "立帳局號元為 7 個宇元"
Exit Sub
End If
End With
With TextBox6 '存簿帳號字元為 7 個宇元
If Len(.Text) = 7 Then
If IsNumeric(.Text) Then Range("員工基本資料").Cells(mRow1a, 6).NumberFormatLocal = "@"
Else
MsgBox "存簿帳號字元為 7 個宇元"
Exit Sub
End If
End With
With Rng
.Cells(1, 1) = TextBox1.Value
.Cells(1, 2) = TextBox2.Value
.Cells(1, 3) = TextBox3.Value
.Cells(1, 4) = TextBox4.Value
.Cells(1, 5) = TextBox5.Value
.Cells(1, 6) = TextBox6.Value
.Cells(1, 7) = TextBox7.Value
.Cells(1, 9) = TextBox8.Value
If OptionButton1.Value = True Then
.Cells(1, 8) = "在職"
ElseIf OptionButton2.Value = True Then
.Cells(mRow1a, 8) = "離職"
End If
End With
MsgBox "資料新增完畢"
Set Sh = Nothing
Set Rng = Nothing
End Sub

複製代碼

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2010-10-18 20:29 | 只看該作者

謝謝版主大大。

小弟試著依版主大大的方式，
目前還是沒能達成小弟的須求。
其comBobox6依然一樣無法
取得定義名稱修正後的參照範圍。
不知是否另有可突破的方式呢？

感恩大大！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-10-18 22:41 | 只看該作者

本帖最後由 GBKEE 於 2010-10-18 22:44 編輯

謝謝版主大大。
小弟試著依版主大大的方式，
目前還是沒能達成小弟的須求。
其comBobox6依然一樣無法 ...
dechiuan999 發表於 2010-10-18 20:29

Private Sub CommandButton5_Click()
'
'
If OptionButton1.Value = True Then
            .Cells(mRow1a, 8) = "在職"
         ElseIf OptionButton2.Value = True Then
            .Cells(mRow1a, 8) = "離職"
         End If
         Names("員工基本資料").RefersTo = mSht1.Range("A3:I" & mRow1a + 2)
          ComboBox6.List = [員工基本資料].Columns(2).Value       '**設定要重設才會看到**
         .Cells(mRow1a, 1).Select
         End If

TOP

dechiuan999