[[20040129130927]]　『訂正線を引きたい』（mgm。）　ページの最後に飛ぶ

『訂正線を引きたい』（mgm。）

オートシェイプでなく訂正線（赤二重線）を引きたいのですが、フォントの設定の文字飾りでは一本線でしかも文字と同じ色の線しかひけませんでした。
何か良い方法がありますか？

 オートシェイプしか思いつかないな・・

 ところでなぜオートシェイプではダメなのでしょうか？

  (INA)

訂正する箇所がすごい量あるんですよぉ～。しかも、後から表をさわる可能性もあるので。

オートシェイプだとコピーすると変なトコにはりついちゃいますよね？

同じ長さで同じ高さで揃えたいので、それを考えるとちとツラいなぁと思いまして。

 マクロを使うことまで考えていらっしゃいますか？

  (INA)

いえ、そこまでは考えていません。

オートシェイプで描いてセルごと複写してみました。

計算式が入っているトコはいいのですが、数値が直接打ち込んであるところは同じようにはいきませんよね？

 ちょっと面倒くさいかもしれませんが、こんな手を考えてみました。
 下記の表を例とします。

     A     B      C
 1 品名   価格  入数
 2 aab    1100   10
 3 aac    1105    8
 4 aad    1500    7
 5 aae    1600    8

 あらかじめ元のシートからコピーシートを作成し、
 罫線や書式設定をクリアしておきます。（値は残す）

     A     B    C 
 1 品名   価格  入数
 2 aab    1100   10    
 3 aac    1105    8    
 4 aad    1500    7    
 5 aae    1600    8

 訂正線を入れたいセルのデータだけ残して他のセルの値はクリアします。
 書式設定のフォント設定でフォントの色を赤、二重下線で設定します。
 この設定の時点で赤字の下線の引かれたデータが残ります。

     A     B    C 
 1 
 2 aab    1100   10    
 3    
 4 aad    1500    7    
 5

 残ったデータのセルへ「=REPT(" ",10)」を「形式を選択して貼り付け」｢数式」
 で貼り付けて行くと赤い二重下線の引かれただけの状態になります。
 （下記は単下線で表現しました）

     A     B    C 
 1
 2 ____ ______ ____    
 3    
 4 ____ ______ ____    
 5

 最後に「ツール」「オプション｣「表示」の「枠線」をOFFにして
 この範囲を「コピー｣します。

 元のシートへ戻って先頭セルを選択して
 Shiftを押しながらメニューの「編集」「図のリンク貼り付け」
 あとは図の位置がうまく重なるように調整してください。
 難点は「=REPT(" ",10)」の繰り返し回数の調整かもしれません。
 列幅にばらつきがあるときは手入力で列幅に合うスペースを入力して
 それをコピーするほうが良いかもしれません
 (KAMIYA)

一度その方法で試みてみます！
INAサンKAMIYAサン、ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20040129130927]] 『訂正線を引きたい』（mgm。） ページの最後に飛ぶ

[[20040129130927]]　『訂正線を引きたい』（mgm。）　ページの最後に飛ぶ