PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-2 18:21 | 只看該作者

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

想請教大大們為何會失敗呢~?
'自訂區域
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

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

2^#

發表於 2015-1-6 20:34 | 只看該作者

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

高手大大們~求助求助~

PKKO

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2015-1-6 22:27 | 只看該作者

回復 2# PKKO

改這樣試試

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

複製代碼

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

4^#

發表於 2015-1-7 18:03 | 只看該作者

我改成以下,仍無法使用

With Sheets("轉換表")
cc = .Rows(1).Find("所有單位", Lookat:=xlWhole).Column '代號的Column
Set myRange = .Range("T2:T" & .Range("T65536").End(xlUp).Row) '資料驗證用
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
End With

複製代碼

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

5^#

發表於 2015-3-1 22:47 | 只看該作者

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

PKKO

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

6^#

發表於 2015-3-1 23:13 | 只看該作者

本帖最後由 HUNGCHILIN 於 2015-3-1 23:53 編輯

回復 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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2015-3-2 00:10 | 只看該作者

本帖最後由 HUNGCHILIN 於 2015-3-2 00:11 編輯

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

GBKEE