teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問結合セルの高さを中に入っている字数に応じて見切れないように自動調整したい

編集履歴

質問編集履歴

7

タグの追加

2021/02/11 08:40

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
File without changes

6

2021/02/11 08:40

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
1
  1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
2
- 掲題の作業をVBAで各結合セルに行いたいのですが、行17のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
2
+ 掲題の作業をVBAで各結合セルに行いたいのですが、行16のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
3
3
  ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
4
4
 
5
5
  どなたかご教示いただければ幸いです。
@@ -18,16 +18,17 @@
18
18
  10:Exit Sub
19
19
  11: colWdtLft = allRng(1).ColumnWidth
20
20
 
21
+ 12: For Each echRng In allRng
21
- 12: For Each echRng In allRng 13:colWdtSum = colWdtSum + echRng.ColumnWidth
22
+ 13:colWdtSum = colWdtSum + echRng.ColumnWidth
22
- 15: Next echRng
23
+ 14: Next echRng
23
24
 
24
- 16:allRng.UnMerge
25
+ 15:allRng.UnMerge
25
- 17:allRng(1).EntireColumn.ColumnWidth = colWdtSum
26
+ 16:allRng(1).EntireColumn.ColumnWidth = colWdtSum
26
- 18: allRng(1).WrapText = True
27
+ 17: allRng(1).WrapText = True
27
- 19: allRng(1).EntireRow.AutoFit
28
+ 18: allRng(1).EntireRow.AutoFit
28
- 20: allRng.Merge
29
+ 19: allRng.Merge
29
- 21: allRng(1).ColumnWidth = colWdtLft
30
+ 20: allRng(1).ColumnWidth = colWdtLft
30
31
 
31
- 22: Next
32
+ 21: Next
32
33
 
33
- 23:End Sub
34
+ 22:End Sub

5

2020/11/17 02:41

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
1
  1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
2
- 掲題の作業をVBAで各結合セルに行いたいのですが、行18のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
2
+ 掲題の作業をVBAで各結合セルに行いたいのですが、行17のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
3
3
  ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
4
4
 
5
5
  どなたかご教示いただければ幸いです。
@@ -14,20 +14,20 @@
14
14
  6: For n = 11 To 97
15
15
  7: Set allRng = Range(Cells(n, 3), Cells(n, 11))
16
16
  8: ReDim colWdtArr(allRng.Column To allRng(allRng.Count).Column)
17
- 9: If allRng.Rows.Count > 1 Then 10:Exit Sub
17
+ 9: If allRng.Rows.Count > 1 Then
18
+ 10:Exit Sub
18
- 11: colWdtLft = 12:allRng(1).ColumnWidth
19
+ 11: colWdtLft = allRng(1).ColumnWidth
19
20
 
20
- 13: For Each echRng In allRng
21
- 14: colWdtSum = colWdtSum + 15:echRng.ColumnWidth
21
+ 12: For Each echRng In allRng 13:colWdtSum = colWdtSum + echRng.ColumnWidth
22
- 16: Next echRng
22
+ 15: Next echRng
23
23
 
24
- 17: allRng.UnMerge
24
+ 16:allRng.UnMerge
25
- 18:allRng(1).EntireColumn.ColumnWidth = colWdtSum
25
+ 17:allRng(1).EntireColumn.ColumnWidth = colWdtSum
26
- 19: allRng(1).WrapText = True
26
+ 18: allRng(1).WrapText = True
27
- 20: allRng(1).EntireRow.AutoFit
27
+ 19: allRng(1).EntireRow.AutoFit
28
- 21: allRng.Merge
28
+ 20: allRng.Merge
29
- 22: allRng(1).ColumnWidth = colWdtLft
29
+ 21: allRng(1).ColumnWidth = colWdtLft
30
30
 
31
- 23: Next
31
+ 22: Next
32
32
 
33
- 24:End Sub
33
+ 23:End Sub

4

2020/11/17 02:39

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
1
  1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
2
- 掲題の作業をVBAで各結合セルに行いたいのですが、行19のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
2
+ 掲題の作業をVBAで各結合セルに行いたいのですが、行18のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
3
3
  ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
4
4
 
5
5
  どなたかご教示いただければ幸いです。
@@ -12,22 +12,22 @@
12
12
  5: Dim n As Integer
13
13
 
14
14
  6: For n = 11 To 97
15
- 7: Set allRng = Range(Cells(n, 3), 8:Cells(n, 11))
15
+ 7: Set allRng = Range(Cells(n, 3), Cells(n, 11))
16
- 9: ReDim colWdtArr(allRng.Column To allRng(allRng.Count).Column)
16
+ 8: ReDim colWdtArr(allRng.Column To allRng(allRng.Count).Column)
17
- 10: If allRng.Rows.Count > 1 Then 11:Exit Sub
17
+ 9: If allRng.Rows.Count > 1 Then 10:Exit Sub
18
- 12: colWdtLft = 13:allRng(1).ColumnWidth
18
+ 11: colWdtLft = 12:allRng(1).ColumnWidth
19
19
 
20
- 14: For Each echRng In allRng
20
+ 13: For Each echRng In allRng
21
- 15: colWdtSum = colWdtSum + 16:echRng.ColumnWidth
21
+ 14: colWdtSum = colWdtSum + 15:echRng.ColumnWidth
22
- 17: Next echRng
22
+ 16: Next echRng
23
23
 
24
- 18: allRng.UnMerge
24
+ 17: allRng.UnMerge
25
- 19:allRng(1).EntireColumn.ColumnWidth = colWdtSum
25
+ 18:allRng(1).EntireColumn.ColumnWidth = colWdtSum
26
- 20: allRng(1).WrapText = True
26
+ 19: allRng(1).WrapText = True
27
- 21: allRng(1).EntireRow.AutoFit
27
+ 20: allRng(1).EntireRow.AutoFit
28
- 22: allRng.Merge
28
+ 21: allRng.Merge
29
- 23: allRng(1).ColumnWidth = colWdtLft
29
+ 22: allRng(1).ColumnWidth = colWdtLft
30
30
 
31
- 24: Next
31
+ 23: Next
32
32
 
33
- 25:End Sub
33
+ 24:End Sub

3

2020/11/17 02:37

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
1
  1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
2
- 掲題の作業をVBAで各結合セルに行いたいのですが、行20のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
2
+ 掲題の作業をVBAで各結合セルに行いたいのですが、行19のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
3
3
  ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
4
4
 
5
5
  どなたかご教示いただければ幸いです。
@@ -13,21 +13,21 @@
13
13
 
14
14
  6: For n = 11 To 97
15
15
  7: Set allRng = Range(Cells(n, 3), 8:Cells(n, 11))
16
- 9: ReDim colWdtArr(allRng.Column To 10:allRng(allRng.Count).Column)
16
+ 9: ReDim colWdtArr(allRng.Column To allRng(allRng.Count).Column)
17
- 11: If allRng.Rows.Count > 1 Then 12:Exit Sub
17
+ 10: If allRng.Rows.Count > 1 Then 11:Exit Sub
18
- 13: colWdtLft = 14:allRng(1).ColumnWidth
18
+ 12: colWdtLft = 13:allRng(1).ColumnWidth
19
19
 
20
- 15: For Each echRng In allRng
20
+ 14: For Each echRng In allRng
21
- 16: colWdtSum = colWdtSum + 17:echRng.ColumnWidth
21
+ 15: colWdtSum = colWdtSum + 16:echRng.ColumnWidth
22
- 18: Next echRng
22
+ 17: Next echRng
23
23
 
24
- 19: allRng.UnMerge
24
+ 18: allRng.UnMerge
25
- 20:allRng(1).EntireColumn.ColumnWidth = colWdtSum
25
+ 19:allRng(1).EntireColumn.ColumnWidth = colWdtSum
26
- 21: allRng(1).WrapText = True
26
+ 20: allRng(1).WrapText = True
27
- 22: allRng(1).EntireRow.AutoFit
27
+ 21: allRng(1).EntireRow.AutoFit
28
- 23: allRng.Merge
28
+ 22: allRng.Merge
29
- 24: allRng(1).ColumnWidth = colWdtLft
29
+ 23: allRng(1).ColumnWidth = colWdtLft
30
30
 
31
- 25: Next
31
+ 24: Next
32
32
 
33
- 26:End Sub
33
+ 25:End Sub

2

2020/11/17 02:35

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -1,6 +1,6 @@
1
1
  1行ずつCからK列のセルを結合した欄があります。VBAで各結合セルにコメントを転記しているので、内容が見切れてしまうセルが出てきます。
2
2
  掲題の作業をVBAで各結合セルに行いたいのですが、行20のコードで「RangeクラスのColumnwidthプロパティを設定できません」とエラーになります。
3
- ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
3
+ ちなみにネットから拾ってきたオリジナルのプロシージャーはfor　next構文で各結合セルに処理を行わず、行7のコードのRangeをダイレクトに設定しています。＜Range("C11:K11")等＞その為うまくいくのですが、1行分の結合セルだけに対しての処理になります。
4
4
 
5
5
  どなたかご教示いただければ幸いです。
6
6
 

1

2020/11/17 02:34

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
File without changes