Excel VBA質問箱 IV

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

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


31637 / 76734 ←次へ | 前へ→

【50344】Re:シート選択ダイアログ
発言  Ned  - 07/7/20(金) 12:42 -

引用なし
パスワード
   ▼太郎 さん:
初心者であっても、やろうとしている事を日本語で書くことはできるでしょう?
>途中にこの処理を入れたい場合は
>...前後はどのような記述をしたらといのでしょうか?
それはユーザーにシート選択を促すものですから、
前後に何をやろうとしてて、どのタイミングで入れたいか、はっきりしないと

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
でユーザーに選択させる必要がない事かもしれません。
ご一考を。
6 hits

【50320】シート選択ダイアログ 太郎 07/7/19(木) 14:58 質問
【50328】Re:シート選択ダイアログ Ned 07/7/19(木) 19:18 発言
【50329】Re:シート選択ダイアログ 太郎 07/7/19(木) 19:28 発言
【50331】Re:シート選択ダイアログ Ned 07/7/19(木) 19:59 発言
【50334】Re:シート選択ダイアログ 太郎 07/7/20(金) 9:25 発言
【50344】Re:シート選択ダイアログ Ned 07/7/20(金) 12:42 発言
【50345】Re:シート選択ダイアログ Jaka 07/7/20(金) 12:47 発言
【50348】解決してたのかな? Jaka 07/7/20(金) 14:02 発言

31637 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free