一個清單驗證問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 一個清單驗證問題

返回列表下一主題上一主題發帖

一個清單驗證問題

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

7^# 跳轉到 »

發表於 2012-1-13 10:32 | 只看該作者

回復 5# GBKEE

請問G大
會不會是因為我的陣列資料內有空值
而發生的錯誤

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

6^#

發表於 2012-1-13 10:24 | 只看該作者

回復 5# GBKEE

請問G大我執行到這一段會出現錯誤
Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="=" & bb
會出現錯誤

Sub 清單明細()
If ActiveCell.Cells.Column <> "4" Then Exit Sub
aa = ActiveCell
If aa = "" Then Exit Sub

g = Worksheets("清單明細").Cells(65536, 1).End(xlUp).Row
For i = 1 To g
If Worksheets("清單明細").Cells(i, 1) = aa Then
b = 0
For a = 4 To 34
      kk(b) = Worksheets("清單明細").Cells(i, a)
      b = b + 1
Next a
bb = Join(kk, ",")

'bb = Worksheets("清單明細").Cells(i, 3)

ActiveCell.Cells(, 4).Select
Exit For
End If
Next i
With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="=" & bb
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = True
End With

End Sub

超級版主 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兔年全勤獎章

5^#

發表於 2012-1-13 09:01 | 只看該作者

回復 4# dafa

Option Explicit
Sub Ex()
Dim BB(5 To 30), i As Integer
For i = 5 To 30
BB(i) = i + 2
Next
MsgBox Join(BB, ",")
End Sub

複製代碼

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

4^#

發表於 2012-1-13 08:41 | 只看該作者

回復 2# GBKEE

再請問G大一個問題
陣列BB(30)內30可以是變數嗎?

中學生 Rank: 2

帖子: 49
主題: 6
精華: 0
積分: 97
點名: 0
作業系統: xp
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2023-12-24

3^#

發表於 2012-1-12 18:49 | 只看該作者

回復 2# GBKEE

感謝G大的回覆
我去試試看

超級版主 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^#

發表於 2012-1-12 18:24 | 只看該作者

回復 1# dafa

Sub Ex()
Dim BB(3), CC
BB(0) = 1
BB(1) = 3
BB(2) = 4
BB(3) = 5
'CC = Join(BB, ",") '陣列
CC = "=" & [A1:A5].Address '儲存格
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=CC
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

複製代碼

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題