| |
▼太郎 さん：
初心者であっても、やろうとしている事を日本語で書くことはできるでしょう？
>途中にこの処理を入れたい場合は
>...前後はどのような記述をしたらといのでしょうか？
それはユーザーにシート選択を促すものですから、
前後に何をやろうとしてて、どのタイミングで入れたいか、はっきりしないと
CommandBars("Workbook tabs").ShowPopup
ActiveSheet.Range("A1").Select
ActiveSheet.Range("A1").Value = "移動しました"
などと無責任な的を得てないかもしれないレスをする事になってしまいます。
もしくは、
例えばSheet1のA1セルに何か入れておいてください。
Sub test1()
Sheets("sheet1").Range("A1").Copy
CommandBars("Workbook tabs").ShowPopup
ActiveSheet.Paste Destination:=Range("A1")
Application.CutCopyMode = False
End Sub
Sub test2()
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = ActiveSheet
CommandBars("Workbook tabs").ShowPopup
Set ws1 = ActiveSheet
ws.Activate
Sheets("sheet1").Range("A1").Copy Destination:=ws1.Range("A1")
Set ws = Nothing
Set ws1 = Nothing
End Sub
どちらも同じような結果が得られます。
『やりたいこと』によってアドバイスも変わってきます。
それがわからないとあてずっぽうでレスをする事になります。
内容によっては
CommandBars("Workbook tabs").ShowPopup
でユーザーに選択させる必要がない事かもしれません。
ご一考を。
|
|
Ned
- 07/7/20(金) 12:42 -
