Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50545 / 76732

←次へ　｜　前へ→


	【31073】Re:テキストの一部を自動で置換するには

Kein - 05/11/11(金) 12:38 -


	引用なし

	パスワード

マクロでマクロのコードを書き換えるという処理は、ウィルスの動作と全く変わりが
ありませんから、出来ることは出来てもお答えできません。
なので最も単純で簡単な方法を提示してみます。ユーザーからInputBoxでファイル名
の一部を取得する。というものです。

Sub Macro666()
　　Dim Wb1 As Workbook, Wb2 As Workbook
　　Dim MyF As String, GetF1 As String, GetF2 As String

　　Do
　　　 MyF = InputBox("開くブック名に含まれる月の名前を" & vbLf & _
　　　 "「○月～×月」の形で入力して下さい")
　　　 If MyF = "" Then Exit Sub
　　　 GetF1 = Dir("C:\支店\東ﾃﾞｰﾀ（" & MyF & ").xls")
　　　 GetF2 = Dir("C:\支店\西ﾃﾞｰﾀ（" & MyF & ").xls")
　　　 If GetF1 = "" Or GetF2 = "" Then
　　　　　MsgBox "その名前のファイルは見つかりません", 48
　　　 End If
　　Loop While GetF1 = "" Or GetF2 = ""
　　Application.ScreenUpdating = False
　　Set Wb1 = Workbooks.Open("C:\支店\注意事項.xls")　　
　　Set Wb2 = Workbooks.Open("C:\支店\" & GetF1)
　　Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("東実績")
　　Wb2.Close Savechanges:=True: Set Wb2 = Nothing
　　Set Wb2 = Workbooks.Open("C:\支店\" & GetF2)
　　Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("西実績")
　　Wb2.Close Savechanges:=True: Set Wb2 = Nothing
　　Wb1.Close Savechanges:=False: Set Wb1 = Nothing
　　Application.ScreenUpdating = True
End Sub

0 hits

▼

【31068】テキストの一部を自動で置換するには にしもり 05/11/11(金) 10:37