WORDについての質問です。
現在以下のマクロをツールバーのボタンに登録しています。
Sub Macro1()
Dim Para As Paragraph
For Each Para In ActiveDocument.Paragraphs '段落単位で
With Para.Range.Characters
If .First.Text Like "[tk]" Then '先頭を処理
.First.Delete
End If
End With
Next
End Sub
これによって各段落の頭にある「t」と「k」を消去する処理を行っています。
現在作成を試みているのは，上記の処理を行ったあとに，別の作業をしたあと，いったん消してしまった文頭の「t」「k」をやっぱり復活させたいという場合の処理です。
そのようなマクロを作成し，ツールバーのボタンに登録させたいのですが，うまくできません。
どなたか教えていただければ非常に助かります。
どうかよろしくお願いいたします。
含むなら
rs.Filter = "文字列 like '*A*'"
でいけるのですが
rs.Filter = "文字列 not like '*A*'"
だと
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
になります。
rs.Filter = "文字列 not like '%A%"
でもダメでした。
NOTの位置がおかしいのでしょうか？
Sub test1()
Dim tmp As String
tmp = Application.InputBox("testです")
End Sub
Sub test2()
Dim tmp As String
tmp = InputBox("testです")
End Sub
この二つのコードを比較すると、
test1の方は、ダイアログボックスのタイトルに「入力」が表示され、
四角いインプットボックスが表示されます。
test2の方は、私がいつも使っているインプットボックスなのですが、
「tmp =」と 「InputBox」の間に何かコードが省略されてるのでしょうか？
Application.を付ける事によって、形が変わってしまうのでしょうか？
また、オブジェクトブラウザを見ると
【１】Function InputBox(Prompt As String, [Title], [Default], [Left], [T
Excel.Application のメンバ
【２】Function InputBox(Prompt, [Title], [Default], [XPos], [YPos], [Help
VBA.Interaction のメンバ
がありましたが、
test1、test2それぞれどちらの事なのでしょうか？
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, "削除の確認")
If btn = vbYes Then
Application.DisplayAlerts = False
Worksheets(Mid(.list(.ListIndex - 0), InStr(.list(.ListIndex - 0), " ") + 1)).Delete
Application.DisplayAlerts = True
リストボックスの項目削除
End If
End If
Next i
Worksheets(1).Activate
End With
ActiveWorkbook.Save
Application.ScreenUpdating = True
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
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, "削除の確認")
If btn = vbYes Then
Application.DisplayAlerts = False
Worksheets(Mid(.list(.ListIndex - 0), InStr(.list(.ListIndex - 0), " ") + 1)).Delete
Application.DisplayAlerts = True
リストボックスの項目削除
End If
End If
Next i
Worksheets(1).Activate
End With
ActiveWorkbook.Save
Application.ScreenUpdating = True
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
