|
>呼び出し先の dspNameプロシージャのほうは
>どうなっていますか?
人のプログラムを改良している初心者なもんで…
プロシージャみつけました。
Sub dspName(retu As Integer)
Dim temp1 As String
Dim gyo As Integer
gyo = 3
UserForm1.Show(vbModeless)
UserForm1.IstChoice.Clear
With Worksheets("職員情報")
Do Until(.Cells(gyo,retu).Value ="")
If retu = 1 Then
If .Cells(gyo,retu).value<>.Cells(gyo -1,retu).Value Then
UserForm1.IstChoice.AddItem(.Cell(gyo,retu).Value)
End If
Elself retu = 2 Then
tmp1 = Cells(ActiveCell.Row, ActiveCell.Column - 2)
If tmp1 = .Cells(gyo, retu - 1) Then
UserForm1.IstChoice.AddItem(.Cells(gyo,retu).Value)
End If
Elself retu = 4 Then
tmp1 = .Cells(8,5)
If tmp1 = .Cells(gyo, retu - 1) Then
UserForm1.IstChoice.AddItem(.Cells(gyo,retu).Value)
End If
End If
gyo = ryo + 1
Loop
End With
End Sub
となっていました。
もう完全にキャパシティを越えてしまいました。
ご教授願います。
|
|