社内システムの自作なら、すず工房へ!!
エクセル仕事術などでIT経営を支援します
  • Home
  • エクセル仕事術
  • クラウド生産管理
  • サービス案内
  • つぶやきました
  • お問合せ
  • すず工房
  • 名刺

右ボタンでのMouseDownイベントには要注意

2012年3月12日

ユーザフォーム上のテキストボックスをマウスでクリックしたとき、さまざまな「イベント」が発生します。

イベントプロシージャの中に、「処理」を記述すれば、ユーザの操作に応じて「仕事」を定義することができます。 

ただし、マウスの右ボタンのときは注意が必要です。

テスト用にイベントの発生状況をチェックするプログラムを作ってみました。

フォームにテキストボックスとイベント表示用のリストボックスを配置しています、

 

テキストボックスのイベントプロシージャは以下の通り、イベント名を表示するだけです。

Private Sub TextBox1_AfterUpdate()
ListBox1.AddItem "AfterUpdate"
End Sub

 

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 

    ListBox1.AddItem "BeforeUpdate"

End Sub

 

Private Sub TextBox1_Change()

    ListBox1.AddItem "Change"

End Sub

 

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    ListBox1.AddItem "DblClick"

End Sub

 

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    ListBox1.AddItem "MouseDown" & "-" & chkLeftRight(Button)

End Sub

 

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    ListBox1.AddItem "MouseUp" & "-" & chkLeftRight(Button)

End Sub

 

Private Function chkLeftRight(tmp As Integer) As Variant

    chkLeftRight = IIf(tmp = 1, "left", _

                    IIf(tmp = 2, "right", ""))

End Function

MouseDownとMouseUpイベントでは、左右どちらのボタンが押されたかを


チェックするようにしています。


図はテキストボックスを

左ボタンでクリックし、

キーボードから

1

2

3

Enter


と入力した場合のイベントの発生状況です。


想像通りで問題ないですね。

ところが、右ボタンでクリックすると図のようになりま す、

MouseDownが2回発生していることがわかります。

以前のバージョンのExcelでも同じようです。

マイクロソフト社は気づいていないとは考えられないので、何らかの理由があって修正できないのかと思いますが、

なんとかしてほしいところです、

幸いなことにMouseUpは一回だけなのでこちらを使うのがいいでしょうね。Downイベントのほうで2回目の時は何もしないでプロシージャを抜けるようにする方法もありますか゜。

  • 仕事に生かすExcel
  • マクロ・VBA
    • Excel2013のSDIへの対応
    • WEBからデータをVBAで取込む
    • 選択したセル範囲を取出すには
    • 消費税率を読込むDLL
    • インターネット上のサイトのデータを読み込む
    • 右ボタンでのMouseDownイベントには要注意
    • CSVファイルを読みこむ(Excel)
    • テキストファイル読込速度比較
    • 進行表示の3つの方法
    • IsDate関数はおかしい‥
    • 別のワークブックのデータを読み込む
    • 2 つの指定した日付の時間間隔と満年齢
    • ワークシートのセルに特定のデータを入力する
    • CSVファイルからデータを取り出す
    • ワークシートからデータを取得する
    • ワークシートにデータをセットする
    • 特定のセル範囲からデータを探す方法を比較する
  • Excelの操作

コンタクト

メール
メール
FaceBook
FaceBook

つぶやきました

見える生産管理2022

2022年 10月 31日 月

久しぶりの投稿になってしまいましたが、「見える生産管理2022」を試用できるようになりました。「クラウド生産管理」メニュからご覧ください。

0 コメント

Webデータベース利用の生産管理

2019年 7月 22日 月

いままでExcel(R)を活用した生産管理システムを構築したり構築支援したりしてきましたが、もっと簡単に生産管理を開始できないかと考え、Webに登場してきたデータベースを利用して生産管理できるシステムを考えました。

 

続きを読む 0 コメント

iPadのSIM

2018年 11月 16日 金

iPad Pro 12.9を外出時の仕事用に使っていたが、自宅のMACにリモートアクセスするのがベストに近いかもと気づき、4G回線経由だがやってみた。

しかしこれがかなり遅い。SIMは前の機種で使ってたイオンモバイルのやつ。これが原因かもと思い、一番早いと噂のUQ  Mobileに変えてみた。体感的にはちょっと早いかなという感じ。これからじっくり検証していこうと思う。

 

インターネット接続の設定でつまづいたので以下に備忘録として残しておく。

 

 

続きを読む
プライバシーポリシー | サイトマップ
Copyright © 2002- すず工房. All Rights Reserved.
ログアウト | 編集
  • Home
  • エクセル仕事術
    • 仕事に生かすExcel
      • Excelでできること
      • ExcelからSQLiteを使う理由
    • マクロ・VBA
      • Excel2013のSDIへの対応
      • WEBからデータをVBAで取込む
      • 選択したセル範囲を取出すには
      • 消費税率を読込むDLL
      • インターネット上のサイトのデータを読み込む
      • 右ボタンでのMouseDownイベントには要注意
      • CSVファイルを読みこむ(Excel)
      • テキストファイル読込速度比較
      • 進行表示の3つの方法
      • IsDate関数はおかしい‥
      • 別のワークブックのデータを読み込む
      • 2 つの指定した日付の時間間隔と満年齢
      • ワークシートのセルに特定のデータを入力する
      • CSVファイルからデータを取り出す
      • ワークシートからデータを取得する
      • ワークシートにデータをセットする
      • 特定のセル範囲からデータを探す方法を比較する
    • Excelの操作
      • ふりがなをつける
      • 行・列を固定してスクロール
      • 他のシートのデータを表示する-カメラ機能
      • 文章を指定範囲に収まるように整形する
  • クラウド生産管理
    • 見える生産管理2022
    • 見える生産管理K(簡易版)
    • 試用申込み
  • サービス案内
    • IT経営
  • つぶやきました
    • MAC
    • IT
    • その他
    • 年月別
      • 2022/10
      • 2019/07
      • 2016/07
      • 2016/04
      • 2015/11
      • 2015/10
      • 2015/08
      • 2015/07
      • 2015/06
      • 2015/03
      • 2015/02
      • 2014/12
      • 2014/03
      • 2013/09
      • 2012/11
      • 2012/09
      • 2010/09
      • 2010/08
      • 2010/07
      • 2010/06
      • 2010/03
      • 2010/02
      • 2009/05
      • 2009/04
  • お問合せ
  • すず工房
    • 企業理念
    • 主な資格
    • 実績
  • 名刺
  • トップへ戻る