|
ponpon さん 違います違います(焦)
すれ違いです!!
質問者さんの過去ログ見て、参考サイト探して、パンチして投稿したら
ponpon さんの方が早かったんです。マジです
名前を使うマクロ
Sub Macro1()
Dim List1 As String
With Sheets("SheetA")
List1 = "=SheetA!" & .Range(.Range("A1"), .Range("A1").End(xlDown)).Address
End With
ActiveWorkbook.Names.Add Name:="範囲1", RefersToLocal:=List1
With Sheets("SheetB").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=範囲1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
私が書いた一般機能の方法を記録に取って、ちょっと加工しました
|
|