Excelで、マクロを含んだボタンを作成しました。

そこで質問なんですが、ボタンにもセルと同様にコメントをつけることができるのでしょうか。

ボタンの中にはボタンの題名だけを入力して、どういうマクロが含まれているかなどの詳しい説明はコメントをつけて書きたいのです。このようなことは可能なのでしょうか。

分かりにくい説明で申し訳ないですが、よろしくお願いします。

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

A 回答 (2件)

ユーザーフォームのボタンなら、ControlTipTextを使ってできるので、シートに貼り付けたボタンで考えてみました。


多分、VBAのコントロールには機能的には無いと思われるので似たようなことをできるようにしてみました。
ボタンはコントロールツールボックスのボタンとしています。(フォームのボタンではありません)

まず、ボタンで隠れるセルにコメントを書きます(ボタンを動かして)。そのセルを例えば、E5とします。
コメントを非表示にして、ボタンでコメントを書いたセルを隠します。
そのシートのコードウインドウに下記モジュールを貼り付けます。ボタンのコントロール名はCommandButton1です。

マウスをボタンの中央に近づけるとコメントが表示され、ボタンから外れると非表示になるはずです。
コメントの位置は適当に修正します。
マウスがボタンの縦横1/3から2/3にくるとコメントを表示しています。他のコントロールでも可能と思います。
ご参考に。

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim myCommentAddress As String
  myCommentAddress = "E5"       'コメントを書いたセル
  With CommandButton1
    Range(myCommentAddress).Comment.Visible = False
    If (.Width / 3 < X And X < .Width * 2 / 3) Then    '1/3、2/3は例
      If (.Height / 3 < Y And Y < .Height * 2 / 3) Then
        Range(myCommentAddress).Comment.Visible = True
      End If
    End If
  End With
End Sub
    • good
    • 0

ボタンにカーソルを当てた時に噴出しを表示して、そこに説明を表示したいということでしょうか?


もし、このボタンがUserForm上のコントロールであれば、「ControlTipText」プロパティで、入力した文字列を表示することができます。
的をはずしていたらすみません。
    • good
    • 0

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

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

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

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

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

Qエクセル コメントを入れて印刷するには

エクセルで作った表にコメントまで入れましたがそのコメントごと印刷する方法を教えて下さい

印刷してもコメントは印刷されないです、、、

Aベストアンサー

添付した図の場所を確認くださいませ。


で、念のため。
コメントを表示させておきたいセルを右クリック
⇒「コメントの表示(2003の場合)
 「コメントの表示/非表示(2010の場合)
をクリックしておくと、コメントを常に表示してくれます。

(ちなみに同じ操作で非表示に戻せます。)



これらをどちらもやっておかないと、印刷されませんので注意です。

Q[Excelマクロ]コメントが存在するセルに色をつける

コメントが存在するExcelシートがあります。
マウスカーソルをいちいち当ててコメントがあるかを探すのでは、漏れがありそうなので、

例えば「セルを全選択(Ctrl+A)して、何か操作や処理を実行すると、コメントが存在するセルを赤色で塗りつぶし」というような方法がないものかと探しています。

Excel自体の操作、マクロ、どちらでも構いません。
ご存知の方いらっしゃれば、ご回答宜しく御願い致します。

Aベストアンサー

以下の方法は如何でしょうか。

編集→ジャンプ→セル選択→コメントをチェックオン→OKすると該当セルが反転します。
選択セルの移動はtabキーで可能です。

Qエクセル2003 コメント印刷設定できない

エクセル2003でコメントを入れて印刷できません

前回、教えて頂いた『ページ設定→ シート → 印刷 → 印刷するしない←ここを選べません』

コメントを印刷するしないが選べません、、、

なにがいけないのでしょうか?

Aベストアンサー

おはようございます。

印刷プレビュー画面からページ設定ダイアログを出していると、操作できません。
エクセルの通常画面で、ファイルメニューからページ設定を選び、操作します。

Qエクセルのマクロ。 お世話になります。 原紙という名前のシート1に【印刷】や【開始】のマクロボタンの

エクセルのマクロ。
お世話になります。
原紙という名前のシート1に【印刷】や【開始】のマクロボタンのある見積りデータがあります。

【保存】のマクロ入力で
別シートに保存
ナンバリングして見積りを後から見られるようにしたいです。
ナンバリングはZ1にあるとします。

マクロの記録でシートのコピーをするとボタン名が変わったりうまくいきません。
ナンバリングもできません。

VBAで教えて頂ければ助かります。
言葉足らずな点は補足します。
よろしくお願いします。

Aベストアンサー

ひょっとしてですが、見積もりの件数分だけシートが増えていく構成なのでしょうか?
もし、そうでしたらそちらを見直した方が良いです。
提案
見積もりデータのシートを準備
  A     B    C   D  E  ・・・・
ナンバリング 取引先  品名 数量  単価
・・・・
とデータとなる形で入力していきます。
見積もり書のフォームのシート
Z1にナンバーを入れると、必要なデータが抽出されて
見積書となる。

こちらのマクロ考えた方が良いと思います。
もうひとつ作るとすれば
入力用の見積書のフォーマットを準備してボタンを押すと
見積もりデータのシートに追記されるマクロぐらいでしょうか。

Qエクセルのコメントの赤三角を印刷する方法

エクセルのコメントの赤三角を、画像としてではなく通常のエクセルの印刷時に印刷したいのですが、その方法はありますでしょうか。

Aベストアンサー

エクセルのコメントの赤三角する方法はありませんが、以下の方法ではいかがですか。

(1)コメントを含むセルを選択(列単位または行単位で選択すると簡単に選択できます)
(2)メニューから編集/ジャンプ/セル選択で、コメントを選択してOK
(3)コメントのあるセルが選択されるので、セルの塗りつぶしなどで色をつける。

QExcel VBAで「プログラム実行」ボタンと「プログラム停止」ボタンをつけたい

ExcelでVBAを使いアプリをつくっています。
プログラムを実行させるボタンはもちろんつくれるのですが、
プログラムを停止させるボタンをつくるにはどうしたら良いのかと悩んでいます。

ボタンに登録できるのはひとつのプロシージャですよね。
とすると「他のプロシージャを止める」プロシージャをつくらねばならないのでしょうか。とするとどうやって・・・?

Aベストアンサー

s_husky です。

状況が判明したので再回答!

Public StopNow As Boolean

Public Sub Test()
  Do Until StopNow
    Sheets(1).Cells(1, 1) = Sheets(1).Cells(1, 1) + 1
    Pause 10
  Loop
  If StopNow Then
    MsgBox "Test の実行をストップしました。"
  End If
End Sub

Public Sub Pause(ByVal PauseTime As Single)
  Dim Finish As Single
  
  Finish = Timer + PauseTime
  Do
    DoEvents
  Loop Until Timer > Finish
End Sub

Private Sub CommandButton2_Click()
  StopNow = True
End Sub

Private Sub CommandButton1_Click()
  Test
End Sub

起動したプロシージャを止める必要があるということはループ処理と理解。
ならば、ループの条件を操作すれば宜しいかと。
CommandButton1 で起動した Test は CommandButton1 で止めれます。

Application.OnTime TimeValue("16:30:00"), "Test"

で起動しようと同じ理屈。

Application.OnTime は、一種の起動ツール。
当然に停止機能もあるが、停止を制御するには上記のような仕掛けが必要と思います。

s_husky です。

状況が判明したので再回答!

Public StopNow As Boolean

Public Sub Test()
  Do Until StopNow
    Sheets(1).Cells(1, 1) = Sheets(1).Cells(1, 1) + 1
    Pause 10
  Loop
  If StopNow Then
    MsgBox "Test の実行をストップしました。"
  End If
End Sub

Public Sub Pause(ByVal PauseTime As Single)
  Dim Finish As Single
  
  Finish = Timer + PauseTime
  Do
    DoEvents
  Loop Until Timer > Finish
End Sub

P...続きを読む

Qエクセルでコメントを印刷する

エクセルで表にコメントがついているとき
そのコメントの内容が見えるように 印刷
する方法はありますか?
教えてください!

Aベストアンサー

こんにちは。

エクセルの画面で【ツール】⇒【オプション】で
【表示】タブの「コメント」「コメントとコメントマーク」にチェックを入れて、
【ファイル】⇒【ページ設定】
【シート】タブの【印刷】でコメントの右の下向▼で
「なし」「シートの末尾」「画面表示イメージ」を選択できます。

間違っているかもしれませんが参考になれば幸いです。

Qマクロ組んだエクセルをCDに焼き違うパソコンでCDを開きマクロボタンを押すとエラーがでます.

マクロ組んだエクセルをCDに焼き、別のパソコンでCDをあけようとするとマクロが起動しなくなります。

エクセルのマクロを押すとデスクトップのフォルダ〔指導要綱〕の中のフォルダ〔大阪府〕の中のフォルダ〔能勢町〕へいきフォルダ〔能勢町〕の中にPDFがたくさん入ってるんですがその一覧が出るというマクロ

Sub ボタン49_Click()
'
' ボタン49_Click Macro
' マクロ記録日 : 2010/2/18 ユーザー名 : masako-m
'
Shell "explorer.exe ""C:\Documents and Settings\masako\デスクトップ\指導要綱\091104\大阪府\能勢町""", 3
'

End Sub

自分のパソコンでマクロボタンを押すときちんと能勢町一覧でるのですが、違うパソコンでみようとすると添付画像画面がでます。
どないかして起動させたいのですが。。。

Aベストアンサー

おや、まぁ、myRangeです。

回答は出てますが、、、、

その別のパソコンで、
"能勢町"のフォルダーを開くと、
アドレスバーに、パスが表示されますよね。
それをコピペしてやれば確実です。

以上です。
 

Qエクセル コメント 表示と印刷が微妙に違う。

宜しくお願い申し上げます。m(_ _)m

・エクセルのコメントを、表の邪魔にならない様に、大きさと位置を調整しました。
・いざ印刷すると、表示内容と印刷されたものが違います。
コメントに入力し、表示では収まっていたはずの文字が、
印刷するとコメント内からはみ出しており、全ての文字が印刷されていません。

かなりのコメントの数なので、今からは大きさや配置は調整出来ません。

表示と印刷結果が、同じになるようにはどうしたら、良いでしょうか?

教えて下さい。お願い申し上げます。m(_ _)m

Aベストアンサー

残念ながら、それはエクセルの仕様です。
高速化のために画面表示の処理を簡略化した結果、出力(印刷)が厳密ではなくなったそうです。

1つ1つ大きめに調整していくしかありません。
プレビューも画面表示よりはマシになるものの完全には信用できません。
プレビューでは収まっていても印刷するとはみ出すことがあります。

http://pc.nikkeibp.co.jp/article/NPC/20070601/273364/

Qマクロボタンを作ってのマクロ実行ができない

ある条件に一致したシートのみ印刷するというマクロを作成しました。
そのマクロをメニューバーから実行させると、うまく実行されるのですが、
マクロボタンを作って、そのボタンをクリックすると、きちんと実行されないのです。
何が間違っているのでしょうか。

図形で四角形を描く → 図形上で右クリック → マクロの登録 → 登録したいマクロを選択

このようにマクロボタンを作りました。他のマクロは、ボタンをクリックしても動くのに、印刷するマクロのみ、動かないのです。メニューバーからの実行は、動くのに・・・
なぜでしょうか。
どうぞよろしくお願い致します。

Aベストアンサー

冗長ですが、
Sub 納品書印刷2()
 Dim myRow As Long
 Dim AKS As Worksheet
 Set AKS = ActiveSheet
 For myRow = 7 To Cells(Rows.Count, 18).End(xlUp).Row
   If Cells(myRow, 18).Value = "●" Then
     Sheets(Cells(myRow, 17).Value).Select
     calculate
     ActiveWindow.SelectedSheets.PrintOut
     AKS.Select
   End If
 Next myRow
End Sub
としてみるとか(地震ないけど)
他には繰り返し構文の前にプレビューを入れてみるとか


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング