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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel:コマンドボタンの移動
Excel(エクセル)
-
VBA でのボタンの移動について
その他(プログラミング・Web制作)
-
エクセルのマクロボタンが編集できません
Excel(エクセル)
-
-
4
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
5
Excel フォームで作成したボタンを固定したい
Excel(エクセル)
-
6
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
7
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
8
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
9
EXCELのSheet番号って変更できる!?
Visual Basic(VBA)
-
10
コマンドボタンをクリックでシートからシートに移動させたい
Visual Basic(VBA)
-
11
【Excel VBA】マクロボタンを表のスクロールやフィルタに左右されず固定できないですか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Apple Musicについて CDからMac...
-
【Excel VBA】コマンドボタンの...
-
iTunesからiPodに選択した曲の...
-
iTunesからiPhoneに曲を入れた...
-
windows10 長いファイル名を表...
-
画面のズレの直し方。
-
WEBページの文字が細くて見にく...
-
スパイウェア?
-
デスクトップ画面を初期画面に...
-
Windowsを高速化すると、画面が...
-
Windows 10 で、jpegの解像度(d...
-
アクティブウインドウが勝手に...
-
ネットサーフィンしながら音楽...
-
USBのホータブルデバイスを完全...
-
Excelでセルの部分のみ画面表示...
-
windows10で急に文字が小さくな...
-
パソコン画面がすべて縮小され...
-
Outlook2010 検索履歴の削除方法
-
ゴミ箱の中身をいつも「削除し...
-
PCモニターで映画を見ると画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Apple Musicについて CDからMac...
-
windows10 grooveミュージック...
-
PC. 右クリック 左クリックの違...
-
EXCELファイルを開いたときにブ...
-
QZT ペン型ボイスレコーダーV10
-
【Excel VBA】コマンドボタンの...
-
マウスの右クリック・左クリッ...
-
Lenovo idiapad s100を中古で購...
-
シャットダウンできない、スタ...
-
iPhoneのクレカ情報がなぜか削...
-
最初の画面に貼り付いて取れな...
-
1回しかクリックしなくていいの...
-
音楽をituneで同期できません
-
WinampはCD-TEXTに...
-
曲の保存場所について
-
zoom 初心者です。
-
itunesの初期のプレイリストを...
-
Excel2007のリボンを押しても反...
-
パソコンに音楽をダウンロード...
-
パソコンにiPhoneを接続して、i...
おすすめ情報