teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

5

補足

2021/09/09 15:12

投稿

shinzin
shinzin

スコア4

title CHANGED
@@ -1,1 +1,1 @@
1
- 標準モジュールのプロシージャを特定のシートで呼び出し使いたい
1
+ 標準モジュールのプロシージャを特定のシートで呼び出し使いたい・どこかでコードをまとめたい
body CHANGED
File without changes

4

質問事項をわかりやすく

2021/09/09 15:12

投稿

shinzin
shinzin

スコア4

title CHANGED
File without changes
body CHANGED
@@ -4,10 +4,14 @@
4
4
  標準モジュールで作ったモジュールを特定のシートで呼び出して使いたいのですが、
5
5
  動いてくれません。
6
6
 
7
+ 例えば、Sheet1,Sheet2,..Sheet5が存在していて、
7
- 動かしたいシートに下記の標準モジュールのコードを書けば動くのですが、
8
+ Sheet1,Sheet2,..,Sheet4に下記の標準モジュールのコードを書けば動くのですが、
8
9
  すべて同じ内容を各シートに書くのは、保守性に欠けると思うので
9
10
  どうにかして一つの場所で管理したいと考えております。
10
11
 
12
+ そのうちSheet5には適用しないようにしたいので、
13
+ ブックモジュールには書けないのかなと考えています。
14
+
11
15
  ### 該当のソースコード
12
16
  [標準モジュール(Module1)]
13
17
  Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

3

タイトル変更

2021/09/09 15:10

投稿

shinzin
shinzin

スコア4

title CHANGED
@@ -1,1 +1,1 @@
1
- 標準モジュールのプロシージャをシートで呼び出し使いたい
1
+ 標準モジュールのプロシージャを特定のシートで呼び出し使いたい
body CHANGED
@@ -1,10 +1,10 @@
1
1
  ### 前提・実現したいこと
2
2
 
3
3
  VBA初心者です。
4
- 標準モジュールで作ったモジュールをシートで呼び出して使いたいのですが、
4
+ 標準モジュールで作ったモジュールを特定のシートで呼び出して使いたいのですが、
5
5
  動いてくれません。
6
6
 
7
- シートに下記の標準モジュールのコードを書けば動くのですが、
7
+ 動かしたいシートに下記の標準モジュールのコードを書けば動くのですが、
8
8
  すべて同じ内容を各シートに書くのは、保守性に欠けると思うので
9
9
  どうにかして一つの場所で管理したいと考えております。
10
10
 

2

実現したいことの詳細

2021/09/09 14:27

投稿

shinzin
shinzin

スコア4

title CHANGED
File without changes
body CHANGED
@@ -4,6 +4,10 @@
4
4
  標準モジュールで作ったモジュールを各シートで呼び出して使いたいのですが、
5
5
  動いてくれません。
6
6
 
7
+ 各シートに下記の標準モジュールのコードを書けば動くのですが、
8
+ すべて同じ内容を各シートに書くのは、保守性に欠けると思うので
9
+ どうにかして一つの場所で管理したいと考えております。
10
+
7
11
  ### 該当のソースコード
8
12
  [標準モジュール(Module1)]
9
13
  Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

1

書き間違えあり

2021/09/09 14:00

投稿

shinzin
shinzin

スコア4

title CHANGED
File without changes
body CHANGED
@@ -17,7 +17,7 @@
17
17
  [Sheet1]
18
18
  Private Sub test(ByVal Target As Range)
19
19
 
20
- Call Sheet1.Worksheet_BeforeDoubleClick(Target, True)
20
+ Call Module1.Worksheet_BeforeDoubleClick(Target, True)
21
21
 
22
22
  End Sub
23
23