人力検索はてな
ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら
i-mobile
http://q.hatena.ne.jp/1188873818

ｴｸｾﾙのVBAについての質問です｡(完全な初心者で申し訳ありません)
上のURLの回答者の方のVBA(※以下に再掲)をｺﾋﾟｰｱﾝﾄﾞﾍﾟｰｽﾄで使わさせていただいていたのですが､
･ｺﾒﾝﾄ＝不可視化
にしようと､あれこれいじっていたのですが､うまくできません｡

※VBA再掲
Sub hoge()
Dim SelCel As Range '選択ｾﾙ
Application.DisplayCommentIndicator = xlCommentAndIndicator
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select 'ｼｰﾄ内のｺﾒﾝﾄが設定されているｾﾙを選択
For Each SelCel In Selection '選択ｾﾙにてﾙｰﾌﾟ
SelCel.Comment.Shape.Select True
With Selection.Font
.Name = "MS 明朝"
.Size = 10
End With
With Selection
.AutoSize = True
End With
Next
End Sub

どなたか､上のVBAでｺﾒﾝﾄを不可視化する方法をお教えいただけないでしょうか？
お手数をおかけし申し訳ありません｡
何卒ご教授ください｡
●質問者: conan5373
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件
▽最新の回答へ
▽1 ● きゃづみぃ
ﾍﾞｽﾄｱﾝｻｰ

SelCel.Comment.Shape.Select True

この行の次に


SelCel.Comment.Visible = False

を 入れればいいです｡

◎質問者からの返答

ご回答いただき､ありがとうございます｡

大変恐縮なのですが､VBAを実行したところ､

実行時ｴﾗｰ'438'

ｵﾌﾞｼﾞｪｸﾄは､このﾌﾟﾛﾊﾟﾃｨまたはﾒｿｯﾄﾞをｻﾎﾟｰﾄしていません｡

というｴﾗｰがでて､

ﾃﾞﾊﾞｯｸﾎﾞﾀﾝを押すと

With Selection

.AutoSize = True

の部分が黄色網掛けで表示されます｡

こちらの操作方法が悪いのでしょうか？

せっかくお答えいただいたにも関わらず､誠に申し訳ありません

▽2 ● きゃづみぃ

その黄色の箇所は 別にいらないと思うから ｺﾒﾝﾄにすればいいです｡

ｺﾒﾝﾄの仕方が わからなければ 削除でもOK

◎質問者からの返答

ありがとうございます｡大変助かりました！

関連質問
●質問をもっと探す●

0.人力検索はてなﾄｯﾌﾟ
8.このﾍﾟｰｼﾞを友達に紹介
9.このﾍﾟｰｼﾞの先頭へ
□対応機種一覧
□お問い合わせ
□ﾍﾙﾌﾟ/お知らせ
□ﾛｸﾞｲﾝ
□無料ﾕｰｻﾞｰ登録
□はてなﾄｯﾌﾟ