エクセルで印をつけるマクロを作成したい

エクセルのマクロを使ってある条件の時に「印」を設定してみましょう。例題)エクセルシート上に「男」「女」「夫」「妻」など数箇所に選択欄があってそれぞれのいずれかに「○」を設定してください。

間違うかもしれないし・・・
そこで、マクロを使って作成してみたいと思います。以下のようなマクロをVBE上にコーディングしてみてください。

VBEの開き方は、「ALT」+「F11」で開きます。Sub sirusi()
Dim a As Range
If TypeName(Selection) = "Range" Then
Set a = Selection
ActiveSheet.Shapes.AddShape(msoShapeOval, a.Left,_
a.Top, a.Width, a.Height).Select
Selection.ShapeRange.Fill.Visible = msoFalse
a.Select
End If
End Sub
以上です。

この状態で「オプションボタン」などを選択し、ショートカットに任意の文字を入れておきます。ここでは「Y」あたりにしておきます。

エクセル上で適当にセルを選択してCtrl+Yを押下してみてください。そのセルに「○」が表示されるようになっているのを確認してください。

関連情報
自前のブログシステムで日本では主流のMovable Type。 無料ブログだとSeesaaがそうなんですが MTは面倒なことに再構築作業が必要です。 これが結構重い処理なんでページが多くなると時間がかかります。 で、そんな面倒ながない世界の標準ブログシステム ...(続きを読む)
[PRリンク] 冷蔵庫 遺品整理屋 冷蔵庫 日本航空 マイレージ 骨盤 痛い 

【2008/10/02 20:42 】 | 未分類 | コメント(0) | トラックバック(0) | page top↑
<<にきび痕を改善させる方法 | ホーム | 「流星のロックマン」ワザップで次回作の話題!>>
コメント
コメントの投稿












管理者にだけ表示を許可する

トラックバック
トラックバックURL
http://webinformb.blog123.fc2.com/tb.php/369-0cbc150e
この記事にトラックバックする(FC2ブログユーザー)
| ホーム |