[發問] 使用VBA自訂範圍資料驗證失敗

PKKO

想請教大大們為何會失敗呢~?
'自訂區域
With Sheets("轉換表")
        myRange = .Range("s2:s" & .Range("s65536").End(xlUp).Row) '資料驗證用
end With

'資料驗證選單
'試過兩種方式
'第一種
    For Each e In myRange
        arr = arr & "," & e
    Next
    arr = Split(Mid(arr, 2, 10000), ",")
    With Range("d2:d" & allr).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=arr
    End With
'第二種是直接將Arr換成myRange

PKKO

想請教大大們為何會失敗呢~?
'自訂區域
With Sheets("轉換表")
        myRange = .Range("s2:s" & .Ran ...
PKKO 發表於 2015-1-2 18:21

    高手大大們~求助求助~

owen06

回復 2# PKKO


    改這樣試試

1. Dim myrange As Range
   
2. With Sheets("轉換表")
   
3.      Set myrange = .Range("s2:s" & .Range("s65536").End(xlUp).Row) '資料驗證用
   
4. End With

複製代碼

PKKO

我改成以下,仍無法使用

1. With Sheets("轉換表")
   
2.         cc = .Rows(1).Find("所有單位", Lookat:=xlWhole).Column '代號的Column
   
3.         Set myRange = .Range("T2:T" & .Range("T65536").End(xlUp).Row) '資料驗證用
   
4.         For Each e In myRange
   
5.             ARR = ARR & "," & e
   
6.         Next
   
7.         ARR = Split(Mid(ARR, 2, 10000), ",")'看過陣列的值確定沒問題
   
8.         With Range("d2:d" & allr).Validation
   
9.             .Delete
   
10.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
11.             xlBetween, Formula1:=ARR'卡在這邊
    
12.         End With
    
13. End With

複製代碼

PKKO

請問資料驗證的部分有大大能提供好的解決方案嗎?
還有資料驗證要如何輸入空白阿?就是選錯之後,可以再選成空白

HUNGCHILIN

回復 5# PKKO

選錯之後 要再用選的 空白 就要在清單內有一空白選項
就是DATA 要有空白格
就是驗證清單有空白格

您上面的程式就綠色的那行有問題.變成註解就可以執行
Public Sub AAAAAA()
With Me
        cc = .Rows(1).Find("所有單位", Lookat:=xlWhole).Column '代號的Column
        Set myRange = .Range("A2:A" & .Range("A65536").End(xlUp).Row) '資料驗證用
        For Each e In myRange
            ARR = ARR & "," & e
        Next
        
    MsgBox ARR
        
       ' ARR = Split(Mid(ARR, 2, 10000), ",") '看過陣列的值確定沒問題
        With .Range("d2:d10").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=ARR
        End With
End With
End Sub

HUNGCHILIN

With Me
        CC = .Rows(1).Find("所有單位", Lookat:=xlWhole).Column '代號的Column
        
        
        myRange = .[A1].Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1).Value
      
        
        For Each e In myRange
            ARR = ARR & "," & e
        Next

'       ' ARR = Split(Mid(ARR, 2, 10000), ",") '?
        With .Range("d2:d10").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=ARR
        End With
End With

GBKEE

回復 5# PKKO
資料驗證要如何輸入空白,直接清空.

1. '** 資料驗證選單來源
   
2.     '1 資料驗證選單來源是儲存格位置:但需是是同一工作表的儲存格
   
3.     'With Range("d2:d" & allr).Validation
   
4.     '   .Delete
   
5.     '    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
6.     '    xlBetween, Formula1:="=" & Range("A2:A10").Address
   
7.     'End With
   
8.    
   
9.    '2 資料驗證選單來源用 ","連接的字串
   
10.     With Sheets("轉換表")
    
11.         myRange = .Range("s2:s" & .Range("s65536").End(xlUp).Row) '資料驗證用
    
12.     End With
    
13.     '** 陣列轉換成字串
    
14.    
    
15.     '** Join 函數 傳回一個字串，該字串是透過連結某個陣列中的多個子字串而建立的。
    
16.     '** myRange參照儲存格是為二維陣列,需轉成一維陣列方可為Join 函數使用
    
17.     'arr = Join(Application.Transpose(myRange), ",")
    
18.    
    
19.     '** 跑迴圈取得字串
    
20.     'For Each e In myRange
    
21.     '   arr = arr & "," & e
    
22.     'Next
    
23.      
    
24.     '** Split 函數 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
    
25.     '** arr = Split(Mid(arr, 2, 10000), ",") '錯誤的用法,因為 arr 傳回陣列,
    
26.     '** arr 須是 字串.
    
27.    
    
28.     '************************************************
    
29.    
    
30.     With Range("d2:d" & allr).Validation
    
31.         .Delete
    
32.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
33.         xlBetween, Formula1:=Join(Application.Transpose(myRange), ",") '<- arr
    
34.     End With

複製代碼

PKKO

回復 8# GBKEE


    感謝,原來如此!

PKKO

回復 6# HUNGCHILIN

版主大大,可否請教您使用的 With Me => 這個Me 代表的是?