- ベストアンサー
チェックボックスのマクロ登録
チェックボックスにマクロを登録したのですが、 チェックボックス17のはずが エラーになってしまいます。 おそらく定義をしなくちゃいけないんだろうと思うんですけど、 定義の仕方がわかりません。 ご存知の方、教えてください。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- チェックボックスでマクロ警告はでますか?
こんにちは Excelは使いなれているのですが、マクロに関しては あまり詳しくなくて、書式コピーを登録した事がある程度です。 今回質問させていただきたいのはチェックボックスについてです。 ネットshopをやっていて、FAXで注文するための書類を 画像にして印刷してもうらう方法を取っているのですが 毎回使う人用に、Excelデータを作る事にしました。 それで、支払方法などをチェックボックスで選択する様に 作ったのですが、ファイルを開く時にマクロ警告が出てくるようになってしまいました。 最初は、以前作ったマクロが残っているのだろうと ネットで調べてモジュールの開放をやってみたのですが やはり警告が出るので、もしかしてチェックボックスも マクロと言うことなのかな?と 調べた感じではどうもそうらしいのですが、単に私の勘違いなのか良くわからず、こちらで質問させて頂きました マクロであるならば、警告が出るのは当然なのですが、ダウンロードした人はウイルスかどうか悩んでしまうと思うので何か良い方法(マクロでないチェックボックスがある、など)もあればそちらもお願い致します 無理であれば、チェックボックスを単なる"□"(文字)にしようとは思っていますが、出来るだけ簡単に入力していただけるフォームにしたいので、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロを用いてチェックボックスをまとめてチェックする方法
エクセルを用いてチェックボックスが縦に並んだ書類を作っているのですが、チェックする項目のパターンが決まっているので毎回同じところにチェックするのが面倒です。 ワンクリックで複数のチェックがかけられるようにしたいのですが、 ツール→マクロ→新しいマクロの記録 で複数のチェック「レ」ができるようにマクロのを登録してみたのですがチェックがかかりません。 何かよい方法は無いでしょうか?
- ベストアンサー
- オフィス系ソフト
- マクロの組み方とチェックボックスに関して
【マクロ】の設定とチェックボックスを一括ではずす方法 1.マクロは新しいマクロの記録しか使ったことがないのですが、以下のことをやるとうまくいきません。 ・「目次」というセル以外を選択 ・B列を選択し、「ジャンプ」→「セル選択」→空白セルにチェックマーク ・「書式」→「行」→「表示しない」 以上のことをマクロに記録したいです。 マクロでなければうまく反映したのですが、新しいマクロの記録からだとうまく行きません>< 2.チェックボックスを一括(全シート)ではずす方法がありましたら教えて下さい!! ツールバーから作ったので図形のようになっていて、全シート選択すると○になってしまい選択できないのです。。
- 締切済み
- その他([技術者向] コンピューター)
- マクロ フォームでのチェックボックスについて
教えてください。 1)フォームでテキストボックス2つ、ボタンで新しい入力フォーム表示 2)入力フォームでチェックボックス6個、コンボボックス6個を作ります。 3)チェックボックスにチェック(1個のみ)したら、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
- ベストアンサー
- オフィス系ソフト
- チェックボックスにマクロを入れて印刷する
チェックボックスにマクロを入れて印刷するやり方について ご教授いただきたく、質問させていただきます。 シート1 A B C D 1 あ ● TRUE レ 2 い × FALSE 3 う ▲ TRUE レ エクセルで上記のシートA1,B1にデータを入力し、 Dにあるチェックボックスにチェックを入れると A1の「あ」をコピーし、シート2のX1にペーストして VLOOKUPを使ってシート1のB1をA1に表示させ、 印刷したいと思っています。 (もちろん、「あ」と「●」の2項目しかないわけではなく、 1行に8項目あり、シート1では横一列に並んでいるものを、 シート2の見栄えのいいフォーマットで、印刷します。 行数は100行くらいあります。) シート2 A X 1 ● あ マクロの記録で、「チェックを入れる→コピー→ペースト→印刷→シート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個のチェックボックスにマクロは設定できたけれど、 100行あったとしたら、100個のチェックボックスを作成し 1個1個マクロを記録させる?まとめてはできない? チェックボックスをコピー&ペーストしたところ、 うまくいきませんでした。 (チェックを入れると印刷という動作でOKで、 チェックをあらかじめ入れておき、最後に印刷ボタンで 印刷するというやり方ではありません。 VLOOKUPを使っているので、無理ですよね(・_・;)) 初めてのチェックボックスですが、途中まで簡単にできた!と思ったけど、つまづいてしまいました。 色々調べたのですが、素人同然の私には難しくご質問させていただきました。 皆様お忙しいと思いますが、宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel2002のチェックボックスの設定
Excel2002のチェックボックスについて教えて下さい。 チェックボックスを「A」と「B」、2つ作り 「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 数式上縦距離j=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
- ベストアンサー
- Word(ワード)
お礼
ありがとうございますっ やってみますっ