FC2ブログ

入力規則の作成

2017–08–01 (Tue) 21:49
入力規則の作成と削除です。

Sub 一二ヶ月_月有り()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 一二ヶ月_月なし()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 苗字()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="月,火,水,木,金,土,日"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 都道府県()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="北海道,青森県,岩手県,宮城県,秋田県,山形県,福島県,茨城県,栃木県,群馬県,埼玉県,千葉県,東京都,神奈川県,新潟県,富山県,石川県,福井県,山梨県,長野県,岐阜県,静岡県,愛知県,三重県,滋賀県,京都府,大阪府,兵庫県,奈良県,和歌山県,鳥取県,島根県,岡山県,広島県,山口県,徳島県,香川県,愛媛県,高知県,福岡県,佐賀県,長崎県,熊本県,大分県,宮崎県,鹿児島県,沖縄県"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 日付_日無し()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 日付_日付き()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="1日,2日,3日,4日,5日,6日,7日,8日,9日,10日,11日,12日,13日,14日,15日,16日,17日,18日,19日,20日,21日,22日,23日,24日,25日,26日,27日,28日,29日,30日,31日"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 昭和平成()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="昭和,平成"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 時間()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 分()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 干支()
On Error Resume Next
Application.ScreenUpdating = False
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
Operator:=xlEqual, _
Formula1:="子 , 丑, 寅, 卯, 辰, 巳, 午, 未, 申, 酉, 戌, 亥"
.ShowError = False
End With
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
スポンサーサイト



« アクセス数グラフ作成 | HOME |  HanaFile_PC »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク