ボタン

解決済

質問者：rabbitmoko
質問日時：2001/10/11 02:54
回答数：3件

エクセルで作成した表にクリックするとへこむボタン、又は色の変わるボタンを作成したい。
宜しくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「マクロ意味」に関するQ&A：エクセル重複行統合マクロの意味

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： ARC
回答日時：2001/10/11 03:41

[表示]-[ツールバー]-[コントロールツールボックス]で、コントロールツールボックスを表示します。

で、コマンドボタンのアイコンをクリックした後、ワークシート上で、ドラッグ＆ドロップします。

で、出てきたコマンドボタンを右クリック→プロパティでボタンの書式などを設定して、

コマンドボタンをダブルクリックすると、VBAの編集画面になるかと思いますので、ボタンを押したときの動作を記述します。

もう一度Excelの画面に戻ってから、コントロールツールボックスの「デザインモードの終了」(三角定規のアイコン)をクリックします。

以上の操作で、押したらへこむボタンの完成です。

- 1
- 件

通報する

No.3

回答者： maruru01
回答日時：2001/10/11 10:08

こんにちは。

maruru01です。
質問の文面からすると、表の各行にチェックの欄を作りたいんじゃないでしょうか？
それでしたら、No.2の方が書かれている方法で、コントロールツールボックスを表示して、その中からチェックボックスを選択します。
見た目はボタン風じゃないですが、Windowsでよく見るチェックボックスです。
的を外していたらすみません。
では。

- 1
- 件

通報する

No.1

回答者： min128mini
回答日時：2001/10/11 03:30

あまり意味のないマクロを作って、そのボタンのところで右クリック→マクロの登録。

↑こんなんじゃだめですか？

- 0
- 件

通報する

このQ&Aに関連する人気のQ&A

「マクロ意味」に関するQ&A： Excel : テキストボックス中のテキストの検索・置換

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For　～　To　～
　　Worksheets("シートＡ").Activate
　　シートＡの値取得
　　　　　　　：
　　Worksheets("シートＢ").Activate
　　シートＢの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください！

Aベストアンサー

Worksheets("シートＡ").Range("A1")

みたいな感じでできませんか？

他の回答も見る

QExel VBA　別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列　　　　 B列　　　　　C列　　　　　　
商品名　　商品番号　　コード
モータ　　U-1325-L　　
ホルダ　　R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
　Application.ScreenUpdating = False
　Dim I As Long
　Dim xlBook
　Set xlBook = Workbooks....続きを読む

他の回答も見る

QVBAでシートからコンボボックスにデータを設定する方法

VBAにてフォーム起動時にシート内に設定した
値をコンボボックスに取り込みたいのですが・・。
たとえばA列に連続で入力されているデータを
取り込むなど・・。
設定データ数は動的に変化します。

Aベストアンサー

もうほとんど同じですが…

Private Sub UserForm_Initialize()
Dim i As Integer

　ComboBox1.Clear
　For i = 1 To Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
　　ComboBox1.AddItem Worksheets("sheet1").Cells(i, 1).Value
　Next
End Sub

他の回答も見る

Qエクセル　マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか？
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

他の回答も見る

QVBAでInputBoxの再入力をさせるには？

エクセルのVBAでInputBoxの間違えた入力をしてしまった時エラーが出てしまいます。

間違えた入力をした際、エラーではなく、再入力をさせるように促す処理をするにはどうしたらいいですか？

再入力システムにしたいのですが、できずに困っています。
わかる方がいましたら、教えていただけないでしょうか？
よろしくお願いいたします。

Aベストアンサー

#1です。
Sub test01()
p1:
x = InputBox("数字を入力")
If x = "" Then Exit Sub
If Not IsNumeric(x) Then
MsgBox "数字ではありません。再入力 "
GoTo p1
End If
If x > 10 Then '条件を書く
MsgBox "10以下を入力　再入力"
GoTo p1
End If
MsgBox x
'処理
End Sub

他の回答も見る

Q（Excel）あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには？

こんにちは。
質問内容はタイトルのとおりです。

あるワークシートのあるセルに文字を入力すると、ほかのワークシートのセルにも同じ文字が自動的に書き込まれる方法を知りたいです（ブックは同じ）。複数のワークシートを制御するには、やはりマクロを使うのでしょうか？

よろしくお願いします。

Aベストアンサー

clam_chowderさん、こんにちは。

Sheet1のA1にたとえば「100」と入力しますね。
Sheet2のA1に、これと同じ数値を表示するには、
　=Sheet1!A1
でOKです。

数式をいれるのが苦手なら、
Sheet2のA1セルで「=」を入力すると、数式入力状態に入りますから、
ここでSheet1のシートタブをクリックし、
リンクしたいA1セルをクリックしてEnterすると、
自動的にさきほどと同じ式が入ります。

他の回答も見る

QEXCEL VBA で特定の文字に色をつけるマクロを書きたいのですが

コードはどのように書けばよいのでしょうか？

(1)そのようなコードを持っていらっしゃったらいただけないでしょうか？

(2)または、参考になるページがありましたら教えていただけないでしょうか？

現在勉強を始めたところですが、よろしくお願いいたします。

Aベストアンサー

セルの文字列の中に,
たとえば
aaaeeessseee
ssddd
dfg
weeeff
のセルの中の
eeeに赤色文字にする。
セル範囲Range("A1:C6")を対象にしてます。
ーーーー
Sub test01()
Dim cl As Range
For Each cl In Range("a1:c6")
r = InStr(cl, "eee")
If r <> 0 Then
cl.Characters(r, 3).Font.Color = vbRed
End If
Next
End Sub

他の回答も見る

Q【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい

ワークシートに多数（６０個程度）のオートシェイプが配置されています。それらにはひとつひとつ「名前」をつけています。（オートシェイプ１とかを１日とかに変更しました）
これらのオートシェイプをボタン代わりにマクロを割り当てて実行しようとしています。
そこで、例えば”１日”と名前を定義したオートシェイプがクリックされた時にその名前”１日”を取得する方法が解りません。
説明が下手でうまく伝わっているか心配ですがよろしくお願いします。

Aベストアンサー

こんにちは。
そのような場合はCallerプロパティを使います。　

例えば、オートシェイプ１という名前の図形に
以下のマクロを登録して実行すると、
"オートシェイプ１"という文字列を取得できます。

Sub Macro1()
MsgBox Application.Caller
End Sub

他の回答も見る

Q参照先のブックを開かずに内容をコピーしたい

エクセルのマクロ初心者です。
いつもここで他の方のQ&Aを参考にしたり、自分で質問したりしてお世話になっています。

今回は、参照先のブックを開かずにその内容をコピーする方法についてお聞きしたいです。
現在、下記のようなマクロを組んでいます。

Workbooks.Open FileName:="BookA.xls"
Sheets("Sheet1").Activate
Range("B4:H4").Copy
Windows("BookB.xls").Activate
Sheets("Sheet2").Select
Range("B1").Select
Sheets("Sheet2").Paste
Workbooks("BookA").C...続きを読む

Aベストアンサー

＞画面がパラパラと切り替わる時間があって少々うっとおしいのです。
これだけならマクロの最初と最期で
Application.ScreenUpdating = False
処理
Application.ScreenUpdating = True
とすればいいのでは？

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

ページトップ