Excel2003を使用しています。
以前、こちらで教えていただいて、1クリックで1ページ分移動するコマンドボタンを作成しました。
左クリックでDown、右クリックでUpし、Sheet2モジュールに下記のコードを記述しています。
このコマンドボタン自体を選択して、現在配置している場所(セル上)から移動させたい場合、どのように操作すればいいでしょうか?
右クリック、左クリック両方にページ移動が設定されているため、コマンドボタン自体を選択することができません…。
マクロが動作しないよう、一旦、コードを削除して、ボタンをクリックしてみたのですが、選択状態になりませんでした。
よろしくお願いします。
-------------------------------------------------------
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'左クリック-進む-Down
'右クリック-戻る-Up
CommandButton1.Caption = "左-Down, 右-Up"
Dim WinTop As Long
Dim i As Long
i = Int((ActiveCell.Row) / 26) + 1
If Button = 1 Then
Application.Goto Cells(i * 26 + 1, 1), True
ElseIf Button = 2 Then
If i > 1 Then
Application.Goto Cells((i - 2) * 26 + 1, 1), True
End If
End If
WinTop = ActiveWindow.VisibleRange.Top + 2 '(2は縦の位置調整)
CommandButton1.Top = WinTop
End Sub
No.3
- 回答日時:
こんばんは。
>クリックイベントにも何か記述が必要ということなのでしょうか?
もともと、そのコマンドボタンは、何をするためでしょうか?
単に動くだけではなくて、クリックして何をするか、ということですね。
移動するだけではないと思いますけれど……。
私の場合は、最下行にデータを貼り付けるようにしています。
ただ、移動の方法が、ボタンクリックではなくて、
Private Sub Worksheet_SelectionChange
で動くようにしています。
おはようございます。
お礼が遅くなり、申し訳ありません。
>もともと、そのコマンドボタンは、何をするためでしょうか?
コマンドボタンをクリックすると1ページ分移動するというもので、教えていただいた動くボタンで、そのページ移動にコマンドボタンもついてきます。
No.2
- 回答日時:
こんばんは。
>デザインモードに切り替えて、移動させることができました。
そういうことでしたか。
コントロールツールやVBEのツールバーの「青い三角定規と鉛筆と定規」のアイコンをオンにすれば、デザインモードになりますから、移動や加工は可能になります。
そのコードの元は、私の書いたものだと思いますが、右クリックも、左クリックもあるけれども、Clickイベントとして、動かすマクロが生きていないのではありませんか?
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'左クリック-進む-Down
'右クリック-戻る-Up
CommandButton1.Caption = "左-Down, 右-Up"
Dim WinTop As Long
Dim i As Long
If Shift = 0 Then Exit Sub '←ここに一行加える
・
・
Shift キーかControl キーを押さえながら、右クリック・左クリックで、動くようになります。
そうすれば、
Private Sub CommandButton1_Click()
を使えます。
Wendy02 さん、こんにちは。
お久しぶりです。
1年程前になりますが、Wendy02 さんから、この“動くボタン”を教えていただいて、大変便利に使わせていただいていましたが、最近、ボタンの位置を少し変えようかなと思い、試してみたところ、上記の質問のような状態で…というわけです。
どうしても移動させたいといけないわけでもなかったのですが、できないことが逆に気になって、質問させていただいた次第です。
>Clickイベントとして、動かすマクロが生きていないのではありませんか?
恥ずかしながら、ちょっと意味がわからなかったのですが、アドバイスをいただいたように、
If Shift = 0 Then Exit Sub
↑1行加えてみたところ、右クリック・左クリックしてもページ移動しなくなりました。
>そうすれば、
Private Sub CommandButton1_Click()
を使えます。
とのことで、クリックイベントにも何か記述が必要ということなのでしょうか?
もし、お時間が取れましたら、教えていただけると嬉しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel:コマンドボタンの移動
Excel(エクセル)
-
VBA でのボタンの移動について
その他(プログラミング・Web制作)
-
エクセルのマクロボタンが編集できません
Excel(エクセル)
-
-
4
Excel フォームで作成したボタンを固定したい
Excel(エクセル)
-
5
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
6
EXCELのSheet番号って変更できる!?
Visual Basic(VBA)
-
7
コマンドボタンをクリックでシートからシートに移動させたい
Visual Basic(VBA)
-
8
エクセルのコマンドボタンの位置をVBAで指定できませんか?
Excel(エクセル)
-
9
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
10
【Excel VBA】マクロボタンを表のスクロールやフィルタに左右されず固定できないですか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Apple Musicについて CDからMac...
-
Excel2007のリボンを押しても反...
-
Norton製品について
-
QZT ペン型ボイスレコーダーV10
-
音楽をituneで同期できません
-
PC. 右クリック 左クリックの違...
-
【Excel VBA】コマンドボタンの...
-
windows10 grooveミュージック...
-
windows10 長いファイル名を表...
-
パソコンの画面が半分しか表示...
-
パソコン画面がすべて縮小され...
-
画面のズレの直し方。
-
最小化したウインドウを元に戻...
-
windows10で急に文字が小さくな...
-
Outlook2010 検索履歴の削除方法
-
デスクトップ画面を初期画面に...
-
ウインドウス11プロ初期設定のM...
-
Windows Media Player 11 で歌...
-
ウィンドウ上部が画面からはみ...
-
アクティブウインドウが勝手に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PC. 右クリック 左クリックの違...
-
Apple Musicについて CDからMac...
-
【Excel VBA】コマンドボタンの...
-
zoom 初心者です。
-
windows10 grooveミュージック...
-
マウスの右クリック・左クリッ...
-
音楽をituneで同期できません
-
au music port
-
EXCELファイルを開いたときにブ...
-
Windoes7 パソコンが動かなく...
-
iTunesの引っ越し方法を教えて...
-
Appleミュージック聴くよりYouT...
-
Windows10で、パソコンの終了ボ...
-
iTunesからiPhoneに曲を入れた...
-
現在、windows7がインストール...
-
画面がうつらない
-
この回答は参考になったをクリ...
-
マイミュージックに入っている...
-
買ったアルバムのタイトルが入...
-
最初の画面に貼り付いて取れな...
おすすめ情報