2007-09-01から1ヶ月間の記事一覧

標準モジュール

Public uCan As Boolean Sub ctrl() Dim i, ans As Integer Range("b3").Select UserForm1.Show If uCan = False Then For i = 0 To 5 If UserForm1.ListBox1.Selected(i) = True Then ans = i End If Next i ActiveCell.Offset(ans, 1).Select Selection.Va…

全くわからないけど見よう見真似でやってみます。 「フォームを使って値をセルに入力する」