Windows7 Excel2007でマクロ作成中の初心者です。
リストボックスから、シート(顧客名）を選んで削除するマクロです。
削除がうまくいくのですが、「いいえボタン」を押しても
シートが削除されてしまいます。どう修正したらよろしいでしょうか。
Private Sub 顧客削除_Click()
Dim i As Integer
Dim btn
Dim name As String
With 顧客リスト
For i = 0 To .ListCount - 1
If .Selected(i) Then
name = .list(i) '選択されたリストを変数に格納
btn = MsgBox("本当に、 " & name & " さんを削除していいですか？", _
vbYesNo, "削除の確認")
End If
Next i
Application.DisplayAlerts = False
Worksheets(Mid(.list(.ListIndex - 0), InStr(.list(.ListIndex - 0), " ") + 1)).Delete
Application.DisplayAlerts = True
'顧客リスト.RemoveItem (顧客リスト.ListIndex)
'顧客リスト.ListIndex = -1
リストボックスの項目削除
Worksheets(1).Activate
End With
If btn = vbYesNo Then
Exit Sub
End If
ActiveWorkbook.Save
End Sub
-----------------------------------------------
Sub リストボックスの項目削除()
Dim i As Integer
For i = 顧客リスト.ListCount - 1 To 0 Step -1
If 顧客リスト.Selected(i) Then
顧客リスト.RemoveItem (i)
Exit For
End If
Next i
End Sub
お世話になります。
Excel2003バージョンを使っています。
ユーザーフォームで、VLOOKUP関数を使っているのですが、「TEXTBOX2」に間違った文字を入力して該当する検索値がない時は、エラー処理として"範囲外です"とメッセージボックスが出るようにしています。その場合、同時に「TEXTBOX2」に間違って入力した文字もクリアされるようにするにはどうすればいいでしょうか？因みに参照する側のシート名は"名簿"でセルの範囲名が"data"となっています。 何卒よろしくお願いします。
現在のコードは以下の通りです。
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Long
'テキストボックス2の値を取得
x = TextBox2.Value
On Error GoTo ErrHdl
With ActiveSheet
'B列2列目を表示
TextBox3.Value = _
Application.WorksheetFunction.VLookup(x, Worksheets("名簿").Range("data"), 2, False) '参照する表の2列目
'C列目を表示
TextBox4.Value = _
Application.WorksheetFunction.VLookup(x, Worksheets("名簿").Range("data"), 3, False) '参照する表の3列目
'D列目を表示
・・・・・・・
End With
Exit Sub
ErrHdl:
MsgBox "範囲外です"
End Sub
excel2007を使ってマクロ作成の初心者です。
「最新明細」シート上に、ユーザーフォームがあります。
その中のコマンドボタンクリックすると
マクロ２を実行します。
しかし、このマクロは月初めに１回だけ実行し、
再びボタンをクリックしても、マクロ２を実行しないようにしたいです。
いろいろ考えたましたが、思ったように動作させることできず、こまってます。
どうしたらよいのでしょう。
Sub 処理済の確認()
Dim AB3 As Date
Dim AB4 As Date
Sheets("計算").Select
If AB3 = AB4 Then Exit Sub
MsgBox "データは処理済みです。"
Sheets("最新明細").Select
Else
End If
If AB3 <> AB4 Then
マクロ２の実行
End If
End Sub
