麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] comBobox如何同時也能取出已變更定義後的參照範圍呢？ [打印本頁]

作者: dechiuan999 時間: 2010-10-17 22:23 標題: 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

感恩大大！

作者: GBKEE 時間: 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

複製代碼

作者: dechiuan999 時間: 2010-10-18 20:29

謝謝版主大大。

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

感恩大大！

作者: GBKEE 時間: 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

作者: dechiuan999 時間: 2010-10-19 03:17

版主大大。

小弟已測試成功了。
真感謝版主大大的相助。
讓小弟能放下心中的一塊
石頭了。

感恩大大！

作者: 7777 時間: 2015-2-16 11:34

回復 4# GBKEE

能請版主大大幫忙

comBobox 如何同時 [同步參照]

將隱藏工作表的 Sheet1 cbFAccounts ComboBox
能同步參照到 Sheet12 ComboBox

如圖的綠色方式

[attach]20262[/attach]
因不同於
LinkedCell
ListFillRange
方式

還請版主大大幫忙

附檔

[attach]20263[/attach]

作者: GBKEE 時間: 2015-2-20 14:42

回復 6# 7777

Sheet1, Sheet12,工作表上的ComboBox控制項都無法編輯

導致下面的程式碼錯誤

Private Sub ComboBox1_Change()
Sheet1.cbFAccounts.Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
Sheet1.ComboBox1.Value = ComboBox2.Value
End Sub

複製代碼

請將 Sheet1, Sheet12,工作表上的ComboBox控制項全刪掉
重新置入新的ComboBox控制項

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)