• ベストアンサー

チェックボックスのマクロ登録

nishi6の回答

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.2

If CheckBox17.Value = 1 Then　を If CheckBoxes("CheckBox17").Value = 1 Then と変えてみてください。（これで動きました）私のExcelは2000ですが、チェックボックスを貼り付けると名前は『チェック 1』（VBA内ではCheck Box 1）とかになります。『CheckBox17』は後から付けた名前でしょうか。（Excel97はそうだったかもしれませんが） 別法として、チェックボックスを右クリック→コントロールの書式設定→コントロールタブで『リンクするセル』を登録します。これを例えばセルF5として、 If Range("F5") = True Then （このコードはチェックボックスのあるシートのコードウインドウに書いた場合です） としても同じ結果でしょう。これはチェックボックスの名前は関係なくなります。 リンクするセルについては、リンクするセルをチェックボックスが配置されているセルにして、チェックボックスを右クリック→コントロールの書式設定→色と線タブで塗りつぶしの色を自動にする方法もあります。

Neigh
質問者

お礼

ありがとうございますっ やってみますっ

この回答がついた質問に戻る
回答 全件
質問の内容がもう少し明確になれば考えることができますが・・・ （１）…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • チェックボックスでマクロ警告はでますか？

    こんにちは Excelは使いなれているのですが、マクロに関しては あまり詳しくなくて、書式コピーを登録した事がある程度です。 今回質問させていただきたいのはチェックボックスについてです。 ネットshopをやっていて、FAXで注文するための書類を 画像にして印刷してもうらう方法を取っているのですが 毎回使う人用に、Excelデータを作る事にしました。 それで、支払方法などをチェックボックスで選択する様に 作ったのですが、ファイルを開く時にマクロ警告が出てくるようになってしまいました。 最初は、以前作ったマクロが残っているのだろうと ネットで調べてモジュールの開放をやってみたのですが やはり警告が出るので、もしかしてチェックボックスも マクロと言うことなのかな？と 調べた感じではどうもそうらしいのですが、単に私の勘違いなのか良くわからず、こちらで質問させて頂きました マクロであるならば、警告が出るのは当然なのですが、ダウンロードした人はウイルスかどうか悩んでしまうと思うので何か良い方法（マクロでないチェックボックスがある、など）もあればそちらもお願い致します 無理であれば、チェックボックスを単なる"□"（文字）にしようとは思っていますが、出来るだけ簡単に入力していただけるフォームにしたいので、よろしくお願い致します。

  • エクセルのマクロを用いてチェックボックスをまとめてチェックする方法

    エクセルを用いてチェックボックスが縦に並んだ書類を作っているのですが、チェックする項目のパターンが決まっているので毎回同じところにチェックするのが面倒です。 ワンクリックで複数のチェックがかけられるようにしたいのですが、 ツール→マクロ→新しいマクロの記録　で複数のチェック「レ」ができるようにマクロのを登録してみたのですがチェックがかかりません。 何かよい方法は無いでしょうか？

  • マクロの組み方とチェックボックスに関して

    【マクロ】の設定とチェックボックスを一括ではずす方法 １．マクロは新しいマクロの記録しか使ったことがないのですが、以下のことをやるとうまくいきません。 ・「目次」というセル以外を選択 ・Ｂ列を選択し、「ジャンプ」→「セル選択」→空白セルにチェックマーク ・「書式」→「行」→「表示しない」 以上のことをマクロに記録したいです。 マクロでなければうまく反映したのですが、新しいマクロの記録からだとうまく行きません＞＜ ２．チェックボックスを一括（全シート）ではずす方法がありましたら教えて下さい！！ ツールバーから作ったので図形のようになっていて、全シート選択すると○になってしまい選択できないのです。。

  • マクロ　フォームでのチェックボックスについて

    教えてください。 １）フォームでテキストボックス２つ、ボタンで新しい入力フォーム表示 ２）入力フォームでチェックボックス6個、コンボボックス6個を作ります。 ３）チェックボックスにチェック（1個のみ）したら、１）のフォームのテキストボックスにチェックされた、項目とコンボボックスで選択された内容が転記したい。 例）果物にチェック、コンボでブドウと選択 　テキストボックス→果物　ブドウ というようにフォームに転記させたい。 以前、シートでのマクロを教えていただきましたが、フォームだと頭が混乱してしまいました。 簡単で良いので、マクロの記述を教えてください。

  • Excel　マクロでチェックボックスに枠線

    エクセルマクロについて教えて下さい。 Excel2003を使用しています。 1つのシートに、フォームツールボックスからチェックボックスを沢山（300個以上）配置しました。 チェックボックスをクリック（オン）するのと同時にチェックボックスに赤い枠線を付けたいのですが、1つのマクロでチェックボックスのオブジェクト名を取得しながら枠線を付けることは出来ませんでしょうか？ 以下のマクロを試してみたのですが、Application.Callerの所でエラーになってしまいました。 Sub checkon() ActiveSheet.Shapes(Application.Caller).Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 i = ActiveCell.Address(False, False, xlA1) Range(i).Select End Sub 特定のチェックボックスを指定した場合は、問題ないのですが・・。 （例）ActiveSheet.Shapes("Check Box 1").Select どなたか詳しい方、宜しくお願い致します。

  • エクセル　マクロ　フォームのチェックボックス

    エクセルのフォームのチェックボックスで【On】にした際に 「コントロールの書式設定」にある「リンクするセル」のロックをしたいのですが マクロで実現する際、どのようなにできるのでしょうか？ また、フォームのチェックボックスで【Off】にした際に、「リンクするセル」のロックの解除のしたいです。 初心者で下記を記述しましたが、チェックボックスが多いため、すべてのチェックボックスに登録するのが時間がかかるのあで、教授お願いします。 Cells.Locked = False ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.Range("AY29").Locked = True

  • チェックボックスにマクロを入れて印刷する

    チェックボックスにマクロを入れて印刷するやり方について ご教授いただきたく、質問させていただきます。 シート１ 　　A 　　B 　　C 　　 D 1 　あ 　●　　TRUE　　レ 2　　い　　×　　FALSE 3　　う　　▲　　TRUE　　レ エクセルで上記のシートA１,B１にデータを入力し、 Ｄにあるチェックボックスにチェックを入れると A1の「あ」をコピーし、シート２のX1にペーストして VLOOKUPを使ってシート１のＢ１をA1に表示させ、 印刷したいと思っています。 （もちろん、「あ」と「●」の２項目しかないわけではなく、 １行に８項目あり、シート１では横一列に並んでいるものを、 シート２の見栄えのいいフォーマットで、印刷します。 行数は１００行くらいあります。） シート２ 　　　　A 　　　　　X 　1　　●　　　　　　　　　あ マクロの記録で、「チェックを入れる→コピー→ペースト→印刷→シート１に戻る」とし、 　　Application.Run "Book1.xls!印刷" Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("X1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("元").Select となりましたが、チェックを入れても動作しなかったため、 「Application.Run "Book1.xls!印刷"」を削除したところ、 正常に動きました。 問題は・・・・ 　　　チェックを入れると動作する(^_^) 　　　チェックを外す時も動作する(T_T) 　　　1個のチェックボックスにマクロは設定できたけれど、 　　　１００行あったとしたら、１００個のチェックボックスを作成し 　　　１個１個マクロを記録させる？まとめてはできない？ 　　　チェックボックスをコピー＆ペーストしたところ、 　　　うまくいきませんでした。 　　　（チェックを入れると印刷という動作でＯＫで、 　　　　チェックをあらかじめ入れておき、最後に印刷ボタンで 　　　　印刷するというやり方ではありません。 　　　　ＶＬＯＯＫＵＰを使っているので、無理ですよね(・_・;)） 初めてのチェックボックスですが、途中まで簡単にできた！と思ったけど、つまづいてしまいました。 色々調べたのですが、素人同然の私には難しくご質問させていただきました。 皆様お忙しいと思いますが、宜しくお願いいたします。 　　　 　　　 　　　 　　　

  • Excel2002のチェックボックスの設定

    Excel2002のチェックボックスについて教えて下さい。 チェックボックスを「A」と「B」、２つ作り 「A」には「A」のみでチェックを入れられるが、 「B」にチェックを入れると、自動的に「A」にもチェックが入るようにしたいのです。 ・チェックボックスで上記のようなことは設定できるのでしょうか？ ・できるのであれば、マクロなしでできますか？マクロは使えないのです。 ・できないのであれば何かよい代替案ありますか？ 以上、ご存知であれば教えて下さい。

  • エクセルマクロ　チェックボックスの作成

    こんにちわ エクセルマクロを使ってチェックボックスを指定の位置に移動しようと思ったのですが、なぜかずれます。 作ったマクロは↓ For i = 0 To 2 Step 1 For j = 1 To 6 Step 1 ActiveSheet.CheckBoxes.Add(444, 153 + j * 18 + i * 198, 24, 18).Select Selection.Characters.Text = "" Next j next i 数式上縦距離ｊ=1の時点で 171 369 567 （↑この値にしたい） しかし、実行してみると i=2の時点で縦距離が567のはずが563.25の位置にチェックボックスが作られます。 なぜこうなるのか、どうしたら修正できるかわからないので、アドバイスお願いいたします。 ちなみに使っているのはoffice2003エクセルです

  • Wordでマクロを用いたチェックボックスについて

    Word2003までは下記のマクロでチェックボックスを作成することができたのですが、Word2013で作成し実行すると、 　実行時エラー'5941' 　指定されたコレクションのメンバーは存在しません。 となり作成できません。 デバッグをクリックすると、 　Set myRange = Selection.Fields(1).Code の行に印が付きます。 修正方法や、Word2013にてマクロでチェックボックスを作成するコマンドをご存じの方がいらっしゃいましたら、よろしくお願いい致します。 Sub FldCbox() 　Dim myRange As Range 　' 　Set myRange = Selection.Fields(1).Code 　' 　If myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744) Then 　　myRange.Text = "MACROBUTTON FldCbox " & ChrW(9745) 　Else 　　myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744) 　End If 　' 　With Selection 　　.Fields(1).Update 　　.Fields(1).ShowCodes = False 　　.SetRange Selection.End, Selection.End 　End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する