- ベストアンサー
エクセルVBAでオプションボタンのセル内配置
WWolfの回答
- WWolf
- ベストアンサー率26% (51/192)
オプションボタンを配置させる理由になんらかの座標が存在するはずですから、例えばA列の３（A3)がアクティブになればC3にオプションボタンをつけるなど・・・ そのようなイメージで補足お願いします。 これが分れば質問者さんの思いの通りのロジックが回答できるとおもいますので。
関連するQ&A
- Excelで指定のセル上に図を配置したい
Excel VBAで、シート上に図（四角形）を配置しようと思ってます。 イメージ的には、ALTキーを押しながらセルとぴったりフィットする図形（四角形）を作成したいのですが、マクロで生成したコードを見ると下記のように座標での指定になってます。 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 102#, 210#, 76.5, 15#).Select もしこれをセルで指定する方法がありましたら教えて下さい。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのオプションボタンがうまくいきません
エクセルのＶＢＡでフォームをつくり ３つのオプションボタンを配置し チェックした項目のとき、指定したセルに「レ」の印を書き込ませたいのですが、うまくいきません。 同じフォーム内のテキストボックスやコンボボックスの内容はうまくセルに書き込めるのですが・・・ オプションボタンのグループは設定してあります。 下のように記述したのですが、なぜ思うように動作しないか教えてください。 If オプション(3) = True Then ActiveCell.Value = "レ" ElseIf オプション(1) = True Then Range("H21").Value = "レ" ElseIf オプション(2) = True Then Range("H23").Value = "レ" End If
- ベストアンサー
- オフィス系ソフト
- EXCELのVBAセル操作について
こんばんは、エクセルのセルの操作(vba)についてお知恵をお貸しください。 シートＢに配置してあるボタンをクリックすると、シートＡの”A10”に飛ぶVBAを作りました。 ここで、問題になったのがシートＡの５行目に行を挿入した時に シートＢに配置してあるボタンをクリックすると、シートＡの”A10”に飛ぶのですが A10の内容は行を追加した影響でA9の内容が表示されています。 手作業でA10をA11にすればいいのですが、 このシートAには、このようなモジュールがたくさん貼ってありA10より下の全て行を 手作業で修正するのはしんどいので何かいい案はありますでしょうか？ Sub a10モジュール() Sheets("worksheeta").Select Range("A10").Select End Sub
- ベストアンサー
- Visual Basic
- エクセルVBAでオプションボタンを無効にする方法
フォームで作成したオプションボタンを一定の条件下で無効にするにはどのような記述をすればよいのでしょうか？ たとえばsheets("Sheet1").Range("A1")がFalseのときにShapes("Option Button 1")を無効にするという記述です。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA
お世話になります。 マクロの記録で、下記のようにC列を基準に表内を並べ替えるように記録されました。 Range("C4").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("AQ5:AQ39" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A4:EJ39") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ご教授いただきたい点が2点あります。 1. end行 (今のところ39行め) が毎回変わっても その位置を認識して、対応するようにしたいのですが、 どのように書き換えるとよいのでしょうか？ C4は、タイトル行で、毎回固定です。 やはり、毎回最終行の次の行 (今回のケースでいうと、40行目に)に、 endと手作業で入力する方法しかないでしょうか？ それしかない場合は、その記述の仕方をお願いします。 例えば、最大500行もあればいいので、途中の空白セルは、無視して 並べ替えをしてくれる記述などで教えていただけるとありがたいのですが・・・ 2. 必ず、active なシートを選択しておいてから、マクロを実行するとして、 シート名の sheet1 も可変にしたいです。 よろしくお願いします。m(_ _)m
- ベストアンサー
- SE・インフラ・Webエンジニア
- VBAでオプションボタンなどそれぞれの数を調べたい
エクセル９７です。 ワークシート上にテキストボックス、コンボボックス、オプションボタン、ラベルが配置されています。 すべて、ツールバーのフォームから出したものです。 これら全部の数をもとめるには Sub TEST() Dim x As Integer x = ActiveSheet.Shape.Count MsgBox x End Sub これで出てきますし、テキストボックスならshapesをTextboxes、ラベルならLabelsに変えればいいのですが、オプションボタンやコンボボックスの場合、どう変えれば良いのかわかりません。教えてください。特にオプションボタンは数が多くて困っています。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡでオプションボタン変更によって・・・
エクセルVBAのユーザーフォーム内にあるコンボボックス３つを選択することによりデータ入力を行っています。 この度選択肢を増やすことになり、オプションボタンを２つ追加しようと思っています。 オプションボタンはどちらかを決定することで、コンボボックスの選択内容を変更する予定です。 コンボボックスは大中小分類としており、シート２から抽出したものをシート１に落としている現状をオプションボタン新設により、ボタン１は従来通りシート２から、ボタン２選択時はシート３にあるリストからコンボボックスへ繁栄させようとしたいのですが、方法が分かりません。 どなたか、教えていただけると助かります。 よろしくお願いします。 現在のコードを下記に記します。 Private Sub UserForm_Activate() With UserForm3 .OptionButton1 = True ＊この段階でボタン２を選択時は、シート３にあるリストよりコンボボックスの内容を抽出したい。 以下中小分類も同様としたい。 .ComboBox1.RowSource = "シート２!A3:A15" .ComboBox1.SetFocus End With End Sub Private Sub ComboBox1_Change() Dim myLlist As String myLlist = ComboBox1 With UserForm3 .ComboBox2.Text = "" .ComboBox3.Text = "" Select Case myLlist Case "大１" .ComboBox2.RowSource = "シート２!B21:B26" Case "大２" .ComboBox2.RowSource = "シート２!B27:B28" End Select End With End Sub Private Sub ComboBox2_Change() Dim myMlist As String myMlist = ComboBox2 With UserForm3 .ComboBox3.Text = "" Select Case myMlist Case "中１" .ComboBox3.RowSource = "シート２!C101:C111" Case "中２" .ComboBox3.RowSource = "シート２!C121:C124" End Select End With End Sub Private Sub OKボタン_Click() With UserForm3 ActiveSheet.Unprotect 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm3.ComboBox1.Value Cells(行, 列 + 1) = UserForm3.ComboBox2.Value Cells(行, 列 + 2) = UserForm3.ComboBox3.Value ActiveSheet.Protect End With End Sub
- 締切済み
- Visual Basic
- オプションボタンで○を描いたり消したり
いつもありがとうございます。 今度は下記内容で悩んでいます。 どなたか、助けて下さい。 （したい事） オプションボタン1を押す セルＪ58に○をいっぱいにオートシェイプで描く 同時にセルJ62のオートシェイプがあれば消す オプションボタン2を押す セルＪ62に○をいっぱいにオートシェイプで描く 同時にセルJ58のオートシェイプがあれば消す これと同じ作業ができるシートを10枚作りたいのですが・・・ 各シートはリンクせず、シート内にそれぞれ２つのオプションボタンで対応したいのです。 とりあえず、下記コードを作ったのですが、他のPCですとセルからづれてしまうので セル内に収まるような最大の○を付したいので、どなたかご教授お願い致します。 Sub (1)オプション1_Click() ActiveSheet.Unprotect ActiveSheet.Shapes.AddShape(msoShapeOval, 185, 628, 45.5, 14.5).Select Selection.ShapeRange.Line.Weight = 1 Selection.ShapeRange.Fill.Visible = msoFalse With ActiveSheet For Each ob In .DrawingObjects If Not Intersect(ob.TopLeftCell, .Range("J62")) Is Nothing Then ob.Delete End If Next End With Range("J58").Select ActiveSheet.Protect End Sub
- ベストアンサー
- Visual Basic
- ＶＢＡについて
マクロで指定したセルの中央にボタンを配置したいです。 例 セルＣ３にボタンを配置する方法 ActiveSheet.Buttons.Add(Ｘ，Ｘ，Ｘ，Ｘ).Select Ｘの部分をどう書けばよいのでしょうか？
- 締切済み
- Visual Basic
- エクセル オプションボタン 2＞１セル
Excel 2003 です。 お詳しい方だと簡単と思うのですが・・・オートシェープでボタンらしい物を選び、オプションボタンとして使いたいのですが、その後どうやって動作させたらいいかわかりません。 ・オートシェープで作ったボタンを二つ（それぞれ東日本50Ｈｚ、西日本60Ｈｚと表示）シートのどこかに配置 ・どちらかをクリックする ・ひとつのセル（例えばＡ10）にクリックしたボタンの値 例 （東日本クリック＞Ａ10に 50) (西日本クリック＞Ａ10に 60） が入力される といったものです。 なるべく簡単なマクロかＶＢＡだといいのですが・・・ よろしくお願いいたします。 ＿（＿＿）＿
- ベストアンサー
- 財務・会計・経理
お礼
ありがとうございます。 やりたいことはこういうことなんです。 A列のセルに設問を入れます。 D列がYes、Noのオプションボタンとなります。 仮に設問のあるA５をクリックしたら、D5とD6にオプションボタンがふたつともOFFの状態で出現します。 D5をYES、D6をNoとします。 この二つをグループボックスで囲みます。 どちらかを選ぶと、D5に「Yes」または「No」が表示され、ボタンは消え、次にA8セルに質問が浮かび上がり、D8とD6にオプションボタンがふたつともOFFの状態で出現します。 以下、10回ほど繰り返します。