|
なかなか旨く動いてくれずに試行錯誤しています。
コードも載せたいと思いますので、ご教授願います。
▼対象
・選択範囲(*ある条件のセルのみ)全てのセル
*ある条件:セルの書式パターンが網掛け
▼希望動作
・ユーザーフォームのテキストボックスに入力した内容を一部、コメントとしてセルに挿入する。
・ユーザーフォームのテキストボックスに入力した内容を一部、文字列としてセルに挿入する。
▽作ったマクロ
==========================================================
Private Sub CommandButton1_Click()
If Selection.Interior.Pattern = xlGray8 Then
Selection.ClearComments 'コメントのクリア
Selection.AddComment 'コメントの挿入
Selection.Comment.Visible = False 'コメントの非表示
Selection.Comment.Text Text:=UserForm3.TextBox1.Text & vbCrLf & UserForm3.TextBox2.Text & vbCrLf & UserForm3.TextBox3.Text
Selection = UserForm3.TextBox4.Value
Else
End If
End Sub
==========================================================
|
|