質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VBA

    1858questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

.Enableをボタンに対して設定したいが、ボタン名が日本語だからか設定ができません。

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 2,968

King_of_Flies

score 298

https://teratail.com/questions/93921
以前の質問で重ねてお聞きします。

実行ボタンを押下したら、内部の処理がすべて終わるまで、
ボタンの押下権限をなくしたいのですが、可能でしょうか。

Sub 実行()
    実行.Enabled = False
    '入力された日付を指定のフォーマットに変更する。
    Call FormatEditor
    'Eセル、Fセルに文字列をセットする。
    Call CellSetter
    'Eセル、Fセルの文字色を初期化する。
    Call ColorReset
    'Eセル、Fセルから遅れのパラメータを持つデータの文字を赤字に変換する。
    Call ColorSetting
    'A1セルをセレクト状態にする。
    Range("A1").Select
    実行.Enabled = True
End Sub


イメージはこんな感じかなあと思っているのですが、
EXCELのボタン名が日本語だからか、
上記のコードではできないようでした。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

そもそもですが

ExcelVBAはシングルスレッドでの実行しかできなかったと思います。
ボタンを押してマクロの処理中に、もう一度ボタンを押すということができないような気がするのですが。
※少なくとも自分の環境Windows7/Office2010ではできなさそうでした。

それはさておき

シート上のボタンを操作する、という意味でアドバイスさせていただきます。

どのようにボタンを作成されたのか記載がありませんが、マクロ名などから察するに、おそらくフォームコントロールのボタンを配置し、そのボタンに「実行」というマクロを割り付けたのではないかと推測します。
さらにそのボタンに表示する文字を「テキストの編集」で「実行」という表示に変えているのではないでしょうか。

上記であると仮定してアドバイスを進めますが、この場合、ボタンの名称はおそらく「実行」ではありません。
表示名(.Caption)は「実行」かもしれませんが、オブジェクト名(.Name)はこれとは別です。
なので実行.Enabled = Falseは関数に対してプロパティを指定しているような解釈となり、そんなものはないと怒られているのではないでしょうか?

試ににボタンのあるシートがアクティブな状態で、以下のマクロを実行してみてください。

Sub 確認()
    Dim sht As Worksheet
    Dim btn As Button
    'Dim i As Integer

    Set sht = Worksheets("sheet1")

    '■コメントアウトされているコードをコメント解除すると、ボタン名などをセルに出力できます。
    'i = 1
    'sht.Cells(1, i) = "Index:"
    'sht.Cells(2, i) = "表示名:"
    'sht.Cells(3, i) = "ボタン名:"

    'Sheet1上のボタンをループ処理
    For Each btn In sht.Buttons
        'i = i + 1
        'sht.Cells(1, i) = btn.Index
        'sht.Cells(2, i) = btn.Caption
        'sht.Cells(3, i) = btn.Name
        MsgBox "Index:" & btn.Index & vbCr & _
               "表示名:" & btn.Caption & vbCr & _
               "ボタン名:" & btn.Name
    Next
End Sub


シート上にあるボタンのインデックス番号と表示名称、ボタンのオブジェクト名称がそれぞれ表示されると思います。

VBAの中では、
 Worksheets("sheet1").Buttons(1).Caption = "hoge"
 Worksheets("sheet1").Buttons("Button 2").Caption = "hoge"
といったようにインデックス番号、またはオブジェクト名を指定して目的のボタンを操作します。

ボタンの無効化

今回行いたいのはボタンの無効化ということですが、結論から言うと残念ながらできないようです。

btn.Captionで表示名の変更
btn.Visibleで表示/非表示の変更
など他のプロパティは問題なく変更できるのですが、
.EnabledIで有効/無効の変更
は変更してもなぜか効果がでないようです。

代案

有効/無効の制御方法が見つからないので代替え案を考えてみます。
.Visible=Falseとしてボタン自体を消してしまうことで物理的に押せなくする
表示/非表示のプロパティは普通に反映されるようですので、ボタンを消してしまうという方法です。
処理中はシート上から実行ボタンが消えてしまいますので、見た目が気に入らないなどの理由で却下ということもあるかもしれません。

②共通変数として実行中フラグを用意し、実行中にボタンが押されても処理を開始しないようにする。
例えば

Private blnJikko As Boolean     '実行中フラグ

Sub 実行()
    '既に実行中の場合は処理中止
    If blnJikko = True Then Exit Sub
    '処理開始時にフラグを立てる
    blnJikko = True

    '---ここから本来の実行処理(省略)---

    '処理を抜ける前にフラグを落とす
    blnJikko = True
End Sub


のように記述し、実行フラグが立っている状態で重ねて処理が起動されるのを防ぐ方法もあります。

参考になれば幸いです。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/09/28 18:25

    ②の案で実装してみようと思います。

    下記その通りです。

    どのようにボタンを作成されたのか記載がありませんが、マクロ名などから察するに、おそらくフォームコントロールのボタンを配置し、そのボタンに「実行」というマクロを割り付けたのではないかと推測します。
    さらにそのボタンに表示する文字を「テキストの編集」で「実行」という表示に変えているのではないでしょうか。

    上記であると仮定してアドバイスを進めますが、この場合、ボタンの名称はおそらく「実行」ではありません。

    今回マクロ実行でボタンの実際の名前を取得するようなことをしてますが、
    プロパティなどの参照で物理名を確かめる方法は存在しないのでしょうか。

    キャンセル

  • 2017/09/28 18:45 編集

    >プロパティなどの参照で物理名を確かめる方法は存在しないのでしょうか。
    VBAからではなくシート上の書式設定などで、ということですよね。

    ボタンを右クリックなどで選択状態にしたときにシート左上(名前ボックス)に表示される名称がオブジェクト名です。
    ここからコピペもできるのでそのままButtonsの引数に貼り付ければ操作対象になると思います。

    キャンセル

  • 2017/09/29 08:34

    右クリックしたときのホンの一瞬だけbutton1って見えるのですが、表示がすぐに実行に変わりますね。

    キャンセル

  • 2017/09/29 08:35

    ゆえにコピペはできなそうです 。・

    キャンセル

  • 2017/09/29 09:20

    フォームコントロールのボタンではなくて、ActiveXコントロールのボタンを使うのがいいと思います。ボタンの物理名もプロパティから変えることもできますし、enableも動作するようです。

    キャンセル

  • 2017/09/29 09:45

    kikukiku>ほんとだ!

    キャンセル

関連した質問

  • 受付中

    VBA cpu使用率取得

    プログラミング初心者のものです。管理者の制約で、学校でタスクマネージャを開くことができません。そこでエクセルvbaでタスクマネージャを再現しようと思い、日々精進しております。学校に

  • 解決済

    Excel VBA のe-learningに関する質問

    Windows7(32ビット) の環境でExcel2010 VBAを使って下記のような e-learningの問題を作りたいと思っていますので、どなたかお分かりになる方、 ご教

  • 解決済

    VBA コード簡略化 下記処理の場合

    お疲れ様です。 私が実装したVBAコードに下記実装があります。 それぞれフォームからのボタン押下で流れる作りになっています。 '**********************

  • 解決済

    VBAでユーザーフォームを最大化ウインドウで表示する方法

    前提・実現したいこと VBAでユーザーフォームを表示するプログラムを作成しています。 ユーザーフォームに最大化、最小化ボタンを付属させるため http://propg.ee-mal

  • 解決済

    VBA ユーザーフォーム内でコマンドボタン等を移動させる方法

    PowerPointのVBAでユーザーフォームを作成しています。 そこで以下のようなプログラムを作成しています。 ①フォーム内のコマンドボタンをクリックすると新たなコマンドボタンを

  • 解決済

    VBAでオブジェクト型の変数をモジュールレベルでコンストラクタするには?

    失礼いたします 帳簿処理用のユーザーフォームいくつかを作っています。 それぞれのフォームの構造が似ているので、イベント時の動作が変わらないコントロールに関してはコントロール名を

  • 解決済

    【VBA】最終行に転記

     前提・実現したいこと (同一book) 【入力】シートに入力したものを【点検履歴】シートの最終行に転記したいです。 ↓入力シート(sheet9) ↓点検履歴(sheet8)

  • 解決済

    VBA 条件分岐 while文?

     VBAで背景色をつけたい。エクセルの範囲を指定せずに、複数の条件分岐を実現したい ここに質問の内容を詳しく書いてください。 かなり長文になると思いますが、色々試した結果、手詰まり

同じタグがついた質問を見る

  • VBA

    1858questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。