[[20080402110052]]　『コメントの訂正』（はなこ）　ページの最後に飛ぶ

『コメントの訂正』（はなこ）

 すみません、質問させてください。
 前任者から引き継いだエクセルを操作しているのですが、コメント欄に入力ミスがありました。
 数100件に上るデータが、全て同じミスです。コピーしたようで…
 コメント欄では置換の操作ができないようで、困ってます。１つ作り直して、全部にコピーする、というのも途方に暮れそうな量です(T_T)
 着任期間が短いのですが、次の方の為にも訂正していきたいのですが、一気に訂正できる方法がありましたら、教えてください。

 どれも同じ内容で訂正でOKなのですよね？
 １、１つ訂正した後、そのセルを選択してコピー
 ２、Ctrl＋Gでジャンプ→セル選択→コメント→OK　ここでコメントが設定されたセルを全て選択します
 ３、あとは右クリックの形式を選択して貼付け→コメント

 でどうでしょう？
 (ajiponpon)

 ajiponpon　さん
 ありがとうございます。
 ですが、全て同じ間違いではありますが、コメントは全く同じ、ではないんです。
 うまくできなかったので、今は地道に、コピーして「形式を選択して貼り付け」をしています＞＜。
 いい解決策がありましたら教えてください！
 （はなこ）

 > いい解決策がありましたら教えてください！
 具体的にどのような修正（置換）をしたいのかわからないと
 答えようがないでしょう。
 (seiya)

 あらら…単純な話ではなかったのですね、すみません…。

 下記URLのマクロは応用できるのではないでしょうか？
http://www.hi-ho.ne.jp/cgi-bin/user/tomita/index.cgi?%A5%A8%A5%AF%A5%BB%A5%EB%A4%CE%A5%B3%A5%E1%A5%F3%A5%C8%A4%C7%BA%EE%A4%EB%C3%B1%B8%EC%C4%A2

 一度コメントを他のセルに書き出してから置き換え訂正して元に戻す
 ※【追記】ちなみにこのマクロでの応用の場合、元のコメントは一度削除して
 　何もコメントがない状態で訂正したコメントを戻さないとエラーが出ちゃいますね。

 これ以上は達人の皆様にお願い致します…
 (ajiponpon)

 達人にはほど遠い初心者ですが、マクロでやっつけるならこんな塩梅でっか？
 InputBoxに検索文字＝置き換え文字　と書き込みます。
 ＝は全角でも半角でもいけます。
 　　　　　（弥太郎）

 '--------------------------
 Sub コメント置き換え()
    Dim c As Range
    data = InputBox("検索文字と置き換えしたい文字を=で区切って書き込みませう。")
    data = Replace(data, "＝", "=")
    If data = "" Or Not data Like "*=*" Then Exit Sub
    For Each c In Cells.SpecialCells(xlCellTypeComments)
        c.Comment.Text Text:=Replace(c.Comment.Text, Split(data, "=")(0), Split(data, "=")(1))
    Next c
 End Sub

 弥太郎さん助け舟有難うございます。
 そして私も便利かも！と思いマクロ頂いちゃいます～。
 (ajiponpon)←盗人ｗ

コメント返信：

[ 一覧(最新更新順) ]

[[20080402110052]] 『コメントの訂正』（はなこ） ページの最後に飛ぶ

[[20080402110052]]　『コメントの訂正』（はなこ）　ページの最後に飛ぶ