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

回答編集履歴

3

こちらかがいいかも

2020/07/31 05:35

投稿

mako1972
mako1972

スコア383

answer CHANGED
@@ -5,9 +5,11 @@
5
5
 
6
6
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
7
7
  Targetを受けっとって
8
- Target.MergeCellsで判定・記述すると思いますが。
8
+ Target.MergeCellsで判定・記述すると思いますが・・
9
9
 
10
+ [参考:Office TANAKA様 結合セルを調べる](http://officetanaka.net/excel/vba/tips/tips50.htm)
10
11
 
12
+
11
13
  ```VBA
12
14
  Sub Sample()
13
15
 

2

こちらかがいいかも

2020/07/31 05:35

投稿

mako1972
mako1972

スコア383

answer CHANGED
@@ -1,9 +1,13 @@
1
1
  目的のコードとは違いますが、B1が(A1などと)結合されているか否かを判定して
2
2
  〇を入力するとこういうコードみたいですね。
3
3
 
4
- 実際は、Target .MergeCellsで判定・記述すると思いますが。
4
+ 実際は、ワークシートイベントの
5
5
 
6
+ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
7
+ Targetを受けっとって
8
+ Target.MergeCellsで判定・記述すると思いますが。
6
9
 
10
+
7
11
  ```VBA
8
12
  Sub Sample()
9
13
 

1

こちらかがいいかも

2020/07/31 03:32

投稿

mako1972
mako1972

スコア383

answer CHANGED
@@ -1,7 +1,7 @@
1
1
  目的のコードとは違いますが、B1が(A1などと)結合されているか否かを判定して
2
2
  〇を入力するとこういうコードみたいですね。
3
3
 
4
- 実際は、ループしながらcells(X,Y).MergeCellsで判定・記述すると思いますが。
4
+ 実際は、Target .MergeCellsで判定・記述すると思いますが。
5
5
 
6
6
 
7
7
  ```VBA