Private Sub Form_Load()
With Form1.Text1
.Text = "2"
.Alignment = 2 'CENTER
Call subF(Form1.Text1, 5, 2)
End With
End Sub
Private Sub subF(ByRef TextBox As TextBox, ByVal lngMAX As Long, ByVal lngMIN As Long)
TextBox.MaxLength = lngMAX - lngMIN
End Sub
With～End Withの中で指定しているオブジェクト（例の場合「Form1.Text」）のそれ自身をパラメータとして渡したい場合、
どのように記述すれば良いでしょうか？
Meを指定しましたが当然エラーになります。イメージはMeに近いと思うですが。。。
どうか宜しくお願いします。
期待していない回答（１）
With Form1
.Text1.Text = "2"
.Text1.Alignment = 2 'CENTER
Call subF(.Text1, 5, 2)
End With
期待していない回答（２）
戻り値をMaxLengthの関数にすればよい。等々
With Form1.Text1
.Text = "2"
.Alignment = 2 'CENTER
.MaxLength = functionF(5, 2)
End With
期待していない回答（３）
withステートメントはそもそもプロパティーの設定に使うべきであって、
そのような使い方は間違っている。等々
任意の整数の偶数／奇数を判定するモジュールを開発しています。
納期は連休明けです。
Public Function a(b)
Select Case b
Case 1
a = True
Case 2
a = False
Case 3
a = True
Case 4
a = False
：
(中略)
：
Case 10000
a = False
End Select
End Function
上記のようなプログラムを途中まで書いたところなのですが、コードの行数が長く、どうも効率が悪いような気がしています。
このままでは納期に間に合うか不安です。
効率のよいアルゴリズムをご存知の方、教えてください。
また、現在は、ソースコードをプリントアウトして1行ずつ眼でチェックしていますが、紙を大量に消費しますし、時間もばかになりません。
効率よくバグを検出する方法を教えてください。
連日の深夜残業でかなり参っています。(＞＜)
リストから選択とリストに無い値の入力のリストへの追加をしたく、あちこちの情報をつぎはぎで下記のようにVBAで動かそうとしましたが、うまく動いてくれません。
前（Case A）は動くのですが、あと（Case 2）が機能しません。
それと、3つ以上をSelectCaseで組む場合の方法も合わせてお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim LastR As Long
Select Case Target.Address(0, 0)
Application.EnableEvents = False
Case "D1"
With Worksheets("Sheet2")
LastR = .Range("A36636").End(xlUp).Row
Set c = .Range("A1:A" & LastR).Find( _
Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True)
If c Is Nothing Then
If vbNo = MsgBox("リストに追加しますか？", _
vbYesNo, "追加の確認") Then
Application.EnableEvents = True
Exit Sub
End If
.Range("A" & LastR + 1).Value = Target.Value
.Range("A1:A" & LastR + 1).Name = "リストA"
End If
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=リストA"
.ShowError = False
End With
Case "E1"
With Worksheets("Sheet2")
Set c = .Range("B1:B" & LastR).Find( _
Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True)
If c Is Nothing Then
If vbNo = MsgBox("リストに追加しますか？", _
vbYesNo, "追加の確認") Then
Application.EnableEvents = True
Exit Sub
End If
.Range("B" & LastR + 1).Value = Target.Value
.Range("B1:B" & LastR + 1).Name = "リストB"
End If
End Select
End With
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=リストB"
.ShowError = False
End With
Application.EnableEvents = True
End Sub
