Excel VBA質問箱 IV

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

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


4828 / 76735 ←次へ | 前へ→

【77522】コメントサイズの自動調整エラー
質問  くまさん  - 15/10/19(月) 15:14 -

引用なし
パスワード
   はじめまして、自己流でVBA学習中の者です。
コメントサイズの自動調整(XXX.Comment.Visible = True)でエラーが発生し、自己解決が出来そうにないので、質問させていだきます。使用環境はEXCEL2013です。

内容としては、1つ目のファイルでは製品の売上と出荷履歴の管理、2つ目のファイルには主要な製品の出荷管理をしています。
1つ目のファイルに売上の詳細を記入し印刷を押下すると、このファイルに記述されているVBAが呼び出され以下の動作をします。

1.出荷数をまとめた別のワークシートに、注文が入った製品の出荷量を記載する。
2.そのセルにコメント(客先や出荷数など)を記入する。
3.コメントの枠のサイズを自動的に調整する。

主要な製品の場合、2つ目のファイルが呼び出され、上記VBAが再度実行されます。
問題はこの2つ目のエクセルにコメント記入後、サイズを自動調整した際に起こります。
以下がコメントを記入する部分のコードです。

Sub WComment(xlSheet As Worksheet, WMon As Long, WItem As Long, item() As Object, i As Long)
Dim xlRange As Range
Dim ComTxt As String

’ActiviSheetは1つ目のファイルにある売上詳細を記入したワークシートです。
With ActiveSheet
xlSheetは出荷数をまとめたシートです。WMonは出荷月、WItemは売上製品です。(シートには出荷月・売上製品ごとに出荷数をまとめています。)
Set xlRange = xlSheet.Cells(WMon, WItem)
'xlRangeに既に数字(出荷数)が記入されている場合、加算します。
xlRange = .Range("F" & item(i).Row).Value + xlRange.Value
'ComTxt(コメント内容)はActiveSheet(売上詳細のシート)に記載されている日付、客先、出荷数を記載します。
ComTxt = .Range("B5") & " " & .Range("D5") & " " & .Range("F" & item(i).Row).Value & "PC"
'もし、xlRangeにコメントがない場合は新規でコメントを追加します。
If xlRange.Comment Is Nothing Then
xlRange.AddComment Text:=ComTxt
'すでに、xlRangeにコメントがある場合、現在のコメントを改行し、新しいコメントを追記します。
Else
xlRange.Comment.Text Text:=xlRange.Comment.Text & vbCrLf & ComTxt
End If
'コメント欄のサイズを自動調整します。ここでエラー発生(2回めのみ)。
xlRange.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

エラーメッセージは次のように表示されます。
”アプリケーション定義またはオブジェクト定義のエラーです。”

1つ目のファイルに書き込む際はエラーが起きていないので、別のファイルに書き込むのが問題ないのでしょうか?

以上、ご教授よろしくお願いします。

0 hits

【77522】コメントサイズの自動調整エラー くまさん 15/10/19(月) 15:14 質問[未読]
【77524】Re:コメントサイズの自動調整エラー ウッシ 15/10/19(月) 16:13 回答[未読]
【77525】Re:コメントサイズの自動調整エラー くまさん 15/10/19(月) 17:08 発言[未読]
【77526】Re:コメントサイズの自動調整エラー ウッシ 15/10/19(月) 17:12 回答[未読]
【77527】Re:コメントサイズの自動調整エラー くまさん 15/10/19(月) 17:41 発言[未読]
【77528】Re:コメントサイズの自動調整エラー β 15/10/19(月) 21:48 発言[未読]
【77532】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 9:11 発言[未読]
【77534】Re:コメントサイズの自動調整エラー β 15/10/20(火) 9:57 発言[未読]
【77535】Re:コメントサイズの自動調整エラー β 15/10/20(火) 10:04 発言[未読]
【77537】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 10:34 発言[未読]
【77561】Re:コメントサイズの自動調整エラー くまさん 15/10/22(木) 16:51 お礼[未読]
【77533】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 9:35 発言[未読]
【77536】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 10:18 回答[未読]
【77538】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 10:40 発言[未読]
【77539】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 11:03 回答[未読]
【77540】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 11:24 発言[未読]
【77541】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 11:29 回答[未読]
【77542】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 11:54 発言[未読]
【77543】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 12:05 回答[未読]
【77544】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 13:22 発言[未読]
【77545】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 13:58 回答[未読]
【77546】Re:コメントサイズの自動調整エラー くまさん 15/10/20(火) 14:25 発言[未読]
【77547】Re:コメントサイズの自動調整エラー ウッシ 15/10/20(火) 15:31 回答[未読]
【77550】Re:コメントサイズの自動調整エラー くまさん 15/10/21(水) 16:18 発言[未読]
【77551】Re:コメントサイズの自動調整エラー ウッシ 15/10/21(水) 16:48 回答[未読]
【77552】Re:コメントサイズの自動調整エラー くまさん 15/10/21(水) 18:11 発言[未読]
【77553】Re:コメントサイズの自動調整エラー ウッシ 15/10/21(水) 18:45 回答[未読]
【77557】Re:コメントサイズの自動調整エラー くまさん 15/10/22(木) 15:22 お礼[未読]
【77558】Re:コメントサイズの自動調整エラー ウッシ 15/10/22(木) 15:56 回答[未読]
【77560】Re:コメントサイズの自動調整エラー くまさん 15/10/22(木) 16:49 お礼[未読]

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