- ベストアンサー
Excelでのチェックマーク作成方法について教えてください
- Excelのセルにチェックマークを作りたいのですが、どのように作ればいいのかわかりません。
- 以前の質問を参考にしようとしましたが、VBAやマクロについての知識がないため、うまくできませんでした。
- Excel 2007とWindows Vistaを使用しています。上級者の方に分かりやすく教えていただけると助かります。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
>excelのセルにチェックマークを作りたいのですが、非常にたくさんありすぎて困っております 現在は、どのような操作で、どのようなチェックマークを作っているのでしょうか。 質問のリンク先は添付画像のA列のようなチェックマークをセルに入力させる方法が紹介されています。 添付画像のB列のフォームコントロールやC列のActiveXコントロールのようなチェックボックスなら、単純に、チェックボックスを含むセルをオートフィルコピー(チェックボックスを含むセルの右下にカーソルを合わせてドラッグ)すれば、簡単にチェックボックスをコピーすることができます。 どのようなチェックボックスを作成したいのか、またその場合にどのような不都合があるのかを具体的に例示されたほうが良いと思います。
その他の回答 (3)
- imogasi
- ベストアンサー率27% (4737/17069)
自分の勉強がいたってないのに、他人に頼んでいて>根気よく説明してくださる・・、というような勝手なことを言っている。 スクールでも行って勉強のこと。 出来なきゃ、やらないのが原則です。 まあ親切な人もいるようだから期待して。 ーー 勉強する点は参考で (1)1つのチェックボックスをシートに貼り付けるコードを調べて、得る これはマクロの記録でコードの大筋が判る。(これさえもたってないのでは) (2)そのボタンの位置を1セルのLEFT,TOP,WIDTH、TOPにあわせて記述し、調節する (3)LinkedCellの設定をする (多分)隣接した複数セルにボックスを入れるのだろうから、セル数分のくり返しをコード化する。 参考 B2:B10セルの各々に入れる場合 Sub test01() For Each cl In Range("B2:B10") MsgBox cl.Top '(ここにボックス1つをVBAで書くコードを入れるコード) '(位置をセルに合わせるコード) Next End Sub
- 某HN クロメート(Chromate)(@CoalTar)
- ベストアンサー率40% (705/1742)
>非常にたくさんありすぎて困っております 何が多くあるのでしょうか? チェックマークの書き方 「チェック」と書いて変換する フォントをWingdings2にして「P」を入力する セルへの入力の仕方 同一列の上の行に書いてあるなら[Alt]+[↓] でリストが出る 入力規則を使う セル範囲を指定して[Ctrl]押しつつ入力を確定する 飛び飛びのセルを選択するときも[Ctrl]キーを押しながら選択します
お礼
ご回答ありがとうございます CoalTar様のご指導通りにしてみたものの、 自身のPCでは変換されませんでした 何故出来ないのかが分からず、色々辿ってみて、 貴方様のおっしゃる通りに出来ましたが、 これでは提出出来ないと上司から却下されました ですが、こういったやり方もあるのだと目から鱗です ありがとうございました
- kuma56
- ベストアンサー率31% (1423/4527)
>こちらのベストアンサーのご指導通りにやってみたいものの、 >VBA?なんでしょうか よくわからず、 何が判らないのか? VBAが判らないのなら、VBAについてWEB上で情報を探してみるなどしましたか? >右クリックしてもコードの表示たるものは見当たりません どこで右クリックしていますか?? エクセルのシートの右下に "Sheet1" "Sheet2" "Sheet3" とか書いてある所にマウスカーソルを併せて右クリックですが、それでも駄目ですか? 何が判らなくて、どこが上手くいかないのかはっきりさせた方が、解決が早いと思いますよ。 丸投げで、口を開けて待っているだけでは上達しないでしょう。
お礼
漠然とした質問で申し訳ありませんでした 迅速な回答を頂いたのにも関わらず、お礼が遅くなったことを 深くお詫び申し上げます kuma56様のご指導通りVBAをggって色々と勉強して参りました 言葉足らずであった事が見る内に理解できました 今回の質問から貴方様の回答は少しずれていたのでベストアンサーに選ぶ事は できませんがマクロについて学ぶいいきっかけとなったので 辛辣なお言葉もありがたく受け取っております
お礼
そうですよね(笑) できなきゃしないが原則なのですがチェックシートを五千個作るように 指示されたのでこちらに助け舟を出したのです はじめから、諸事情を話すべきでした 参考 B2:B10セルの各々に入れる場合 Sub test01() For Each cl In Range("B2:B10") MsgBox cl.Top '(ここにボックス1つをVBAで書くコードを入れるコード) '(位置をセルに合わせるコード) Next End Sub こちらがどうやっても再生されなく、マクロの無効を外しても 上手くいかなくてヤキモキしていたのです 今回の質問とは少しずれた回答でしたのでベストアンサーには選べませんが 感謝しております 辛辣なお言葉が多い中、紳士的な対応ありがとうございました