Excelですかし文字

質問

Excelで出勤表を作成しています。
各セルに○×を入れているのですが、
そのうしろに日付をすかし文字のように入れたいのですが
無理でしょうか？？
一人1ヶ月に付き横1列の短冊形にして配布したいのですが、
一人一人の間に日付を入れるのも考えたものの、
すかし文字で日付を入れられたらスマートかなと思い
質問させていただきました。

よろしくお願いします。

回答No.1

Hageoyadi · ベストアンサー

○×の入力が、後の計算式にまったく関係ないのでしたら、各セルに日付をいれ、文字の色を薄く設定し、○×はオートシェイプをはりつけることで対応できるかと。
でも○×の貼り付けが面倒なのでしたら、

別法として、表の離れたところ、（別のワークシートでも可）に同じ書式で日付を入力しておきます。
で、その部分をコピーしたあと、現在○×を入力しているセルをアクティブにし、Shiftボタンを押しながら「編集」を押すと開くたれふんどしに「図の貼り付け」や「図のリンク貼り付け」が表れますので、そのどちらかを選択すると、日付部分が画像として張り付きます。前もって日付部分の大きさや色を設定しておく必要がありますので、こちらも楽とはいえないんですけど。

お礼

早速のご回答ありがとうございます。

後者のほうがやりやすかったです。
ただ気になったのがコピーして貼り付けた画像が
元の画像よりもちょっと小さくなってしまうので、
拡大しないといけないところが面倒でした。

でもこうすればすかすことが出来るとわかり
非常に感謝しております。
どうもありがとうございました。

回答No.2

imogasi

（１）日付けのセルの書式を書式－セル－フォント－色
－４０％灰色等を使う。２５％、５０％なんてのもありますね。
（２）○（丸）ですがＶＢＡで
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Top
l = Target.Left
ActiveSheet.Shapes.AddShape(msoShapeOval, l + 20, t, 15, 15).Select
End Sub
の２０（セル枠の左辺からの距離）や１５（直径）やｔを
ｔ＋１にする(上辺から離す）とかして調節してください。
そしてセルをクリックするとそのセルに１つの円が現われます。オートシェイプの書式設定は色－塗りつぶしなし
にしてください。
オートシェイプを全て消すには
Sub test05()
Sheet1.DrawingObjects.Delete
End Sub
を実行してください。
Ｘはやはりオートシェイプでクロス２本線をＶＢＡで書きます。
ActiveSheet.Shapes.AddLine(a1, b1, c1, d1).Select
ActiveSheet.Shapes.AddLine(a2,b2,c2,d2).Select
などですが、a-dをどうするか考え中なので取りあえず判ったところまで。