- ベストアンサー
シートにテンキーを表示させたい
https://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/772459_5773ce0765a11/M.jpg 上記の画像のようにシートにテンキーを表示させたいと思い、検索しましたところ以下のがみつかりました。 https://oshiete.goo.ne.jp/qa/9325096.html 分からない点 ・このフォームはどうやって作成するのでしょうか？ 開発→挿入 このようなテンキーはなかったのですが… ・参考サイトでは一つのセルに対してですが、全てのセルに対応するにはどうしたら良いでしょうか？ 宜しくお願いします。
- nkmyr
- お礼率67% (403/600)
- Excel（エクセル）
- 回答数4
- ありがとう数1
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- merrysun
- ベストアンサー率27% (1167/4305)
- Nobu-W
- ベストアンサー率39% (725/1832)
EXCELのVBAを使ってユ～ザ～フォ～ムというものを作成します https://tonari-it.com/vba-manual/ まずは上記サイト参考にして下さい m(_ _)m 解らない時は、またＯＫＷＥＢで質問され、一つ一つ習得して下さい
補足
- kkkkkm
- ベストアンサー率65% (1633/2478)
Private Sub CommandButton1_Click() で操作していますので、コマンドボタンを必要なだけフォームに配置します。 選択しているセルに対応するのでしたら Selection.Value = Me.TextBox1
補足
開発→挿入→Activexコントロールでボタンを10コ配置 各ボタン Private Sub CommandButton1_Click() TextBox1.Value = TextBox1.Value & "1" End Sub Private Sub CommandButton2_Click() TextBox1.Value = TextBox1.Value & "2" End Sub 9まで同様に作成 送信ボタン Private Sub CommandButton10_Click() Selection.Value = Me.TextBox1 End Sub 結果 1ボタンをクリックしたら 「実行時エラー'424': オブジェクトが必要です」 とエラーメッセージが出ます。 どこが間違っておりますか？
関連するQ&A
- この方のお名前分かりませんか？？
タイトル通りです。 アダルトな女優さんみたいなのですが… 男性諸君、記憶をたどって頂きたい。。。↓ https://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/542875209_5c86625e2e8ec/M.png
- ベストアンサー
- その他（芸能人・有名人）
- 【マクロ】Excelでコンタクトシートを作成
Excelを用いコンタクトシートのような配列で 画像を挿入（複数）させるマクロを作成したいのですが 「縦５枚×横３枚」のような配列にする時に 「横３枚」挿入させる方法がわかりません。 ご教授お願い申し上げます。 Ｑ：下記のような配列で画像を挿入するには？ ------------------------------------------- A B C D E F 1 01.jpg 02.jpg 03.jpg 2 3 04.jpg 05.jpg 06.jpg 4 5 07.jpg 08.jpg 09.jpg 6 7 10.jpg 11.jpg 12.jpg 8 9 13.jpg 14.jpg 15.jpg 10 ---次ページ--- 11 16.jpg 17.jpg 18.jpg 12 13 19.jpg 20.jpg 21.jpg 14 15 22.jpg 23.jpg 24.jpg 16 17 25.jpg 26.jpg 27.jpg 18 19 28.jpg 29.jpg 30.jpg 20 ---次ページ--- 21 31.jpg 32.jpg 33.jpg 22 23 34.jpg 35.jpg 36.jpg 24 25 37.jpg 38.jpg 39.jpg ・ ・ ・ ・ ------------------------------------------- ※画像挿入のマクロに関してはこちら↓の質問を参考にしています。 質問番号：4676078 「エクセルで写真挿入 マクロ」 http://oshiete1.goo.ne.jp/qa4676078.html ※画像はJPG形式に限りません。（BMP、GIF等も） ※コンタクトシート作成ソフトは使いませんので 必ずExcelでマクロを使用する方法をご回答願います。
- ベストアンサー
- オフィス系ソフト
- EXCELで、複数シートの同じセルを一覧にして表示する方法
EXCELで、複数シートの同じセル（たとえば、複数シートのB5）を、べつの1枚のシートに特定の列に表示する方法を教えてください。シートには名前が付いていますが、コピーしたい順に左から並んでいます。 下記にINDIRECT関数を使用する方法が記載されていましたが、マクロを使用した方法を教えてください。 マクロに関しては全くの素人ですが宜しくお願いいたします。 http://oshiete1.goo.ne.jp/qa1727203.html
- 締切済み
- Windows XP
- EXCELで、別シートの同位置のセルをまとめて表示させたい
EXCELで、SHEETごとに同じ内容のデータがあります。 データの入っているSHEETは、50としまう。 必要な同じ位置（たとえばA1ならA1だけ、A2ならA2だけ）のデータを、SHEET51に、１行ごとに表示させたいと思っております。SHEET１のA1のデータをSHEET51のA1、SHEET2のA1のデータをSHEET51のA2に。 方法は、ないでしょうか？ 別件の質問が別にありますので、こちらもよろしくお願いします。 色の付いたセルだけをカウントしたい。 http://oshiete1.goo.ne.jp/qa2538192.html
- ベストアンサー
- オフィス系ソフト
- ExcelでVBAにおけるシートの保護に関して・・・
ユーザーフォームで入力した値がシートのセルに入力 されるというものを作っています。 そこで、シートの列挿入及び列削除を禁止しておきたい のですが、そのままシートを保護してしまうとユーザー フォームが開かなくなるので、VBAにてユーザーフォーム が開く前に保護を解除し、閉じるときに再び保護をかける ようにしました。 ただ、この方法だと、シート保護の項目全て（初期設定） に対して保護されてしまうため、例えば行挿入や行削除、 あるいはオートフィルタや並べ替えといったことまでが 出来なくなってしまいます。（手動で保護を解除すれば できるのですが、一々解除しなければならないのは面倒 なので何とか避けたいのです。） 禁止したいのは、列削除及び列挿入のみなのですが、 他によい方法はないでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルでシート名を自動入力したい。
いつもお世話になります。 エクセルのシート名の入力について質問です。 「A1」に「あああ」と入力したらシート１の 名前が「あああ」となるようにしたい。 さらに「B1」に「いいい」と入力したらシート２の 名前が「いいい」となるようにしたい。 この質問が↓近いのですが、A1のみ？ http://oshiete1.goo.ne.jp/qa2025849.html A1、B1、C1・・・・もしくは、A1、A2、A3・・・と 行で続いても列で続いてもいいのですが・・・ 更にもう一つ質問がございます。 別のシートに連番を割り振ることは、可能でしょうか？ 例えばシート１～シート２０まで有るとします。 シート１のセルA5に「101」と数字を入力し シート２のセルA5には「102」、シート３のセルA5には「103」と 連番を一挙にコピーできますでしょうか？ どうぞ宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- VBA シートがなかったら「シートがない」と表示
P1セルに「テスト」の名称を付ける。 P2セルにVLOOKUP計算式を入れる。最後尾までオートフィルでコピー。 といったコードです。 Sub テスト() Range("P1").Select ActiveCell.FormulaR1C1 = "テスト" nLast = Cells(Rows.Count, 1).End(xlUp).Row Range("P2:P" & nLast).Formula = "=VLOOKUP(K2,履歴!D:E,2,0)" End Sub もし「履歴」というシートがなかったら、「シートがありません」というメッセージウィンドウを」表示したいです。 https://oshiete.goo.ne.jp/qa/1043563.html を参考に Sub テスト() On Error GoTo err_handle Range("P1").Select ActiveCell.FormulaR1C1 = "テスト" nLast = Cells(Rows.Count, 1).End(xlUp).Row Range("P2:P" & nLast).Formula = "=VLOOKUP(K2,履歴!D:E,2,0)" err_handle: If Err = 9 Then MsgBox "シートAAAが存在しません。" Exit Sub End If End Sub と記述しましたが、エラーメッセージは表示しませんでした。 どのように追記したら良いでしょうか？ 宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel ユーザーフォームをモードレスで表示後
Excel 2000を使用しています。 ユーザーフォームをモードレスで表示後すぐ、ワークシートの操作が可能なように ワークシートをクリックしたのと同じような効果を与える、やり方ってありますか？ ユーザーフォームは、アクティブセルとその周辺のセルの値を使った計算の結果 を表示するのがメインで、できればマウスでクリックしない限り前面に出てきてほしくない のです。 ユーザーフォームのActivateイベントルーチンに、アクティブでないセルをActivateしたり、 Selectしたりするコードを挿入してみましたが、効果ありませんでした。
- ベストアンサー
- Visual Basic
- 【Excel】数式をそのまま他のシートにコピーする方法
タイトルの通りです。 http://oshiete1.goo.ne.jp/qa4132116.html 検索したらこの過去質問があったのですが、コピーしたいセルが複数あり、さらにファイルが大量にあるので、この方法ですと手間がかかってしまいます。 せめてシート単位でコピーしたいのですが、何か方法はないでしょうか。
- ベストアンサー
- その他MS Office製品
- シート保護後のコメント挿入
エクセルなのですが、保護をかけた後のシートに対し、 コメントを入れられるようにしたいのです。 以前の質問にマクロを使ってやる方法が載っていたのですが、 具体的にどういう手順で作業すればいいのかわかりません。 ＜過去質問：エクセル シート保護後コメント挿入ができない＞ http://oshiete1.goo.ne.jp/qa1260481.html また、これ以外でできる方法はありませんか？ ご存知の方がいらっしゃいましたら、教えてください。 よろしくお願い致します。 なお、使用ソフト等は「windows XP／Excel2003」です。
- ベストアンサー
- オフィス系ソフト
お礼
TextBox1というテキストボックスを作ることで表示できました。 おっしゃる通りセルに直接入れたいので、各ボタンに以下を入れることでできました。 ありがとうございました。 Private Sub CommandButton1_Click() Selection.Value = Selection.Value & "1" End Sub