不可解な現象が起きた。未だ解決していない。 現象 マウスポインタが青い円になって、グルグル回っている。これについて、 グルグルが止まらない。 Excelのセルに対して、グルグルのまま選択・入力できる。 「×」ボタンでファイルを閉じようとした時に発生す…

先日来、２年越しの事件が解決しそうだ。 infoment.hatenablog.com今日は、今回のシリーズのまとめ、最終回。 今回新調した、右クリックメニュー追加用クラスモジュール。 自宅で試して限り上手く行ったのに、職場では期待通りの動作に ならなかった。どうし…

先日来、２年越しの事件が解決しそうだ。 infoment.hatenablog.com先日は、追加しようとする右クリックメニューが追加済みでない場合に限り、追加を実行するところまで作成した。今日は、前回の続きから。 用が済めば、後片付けが必要だ。 そこで、右クリッ…

先日来、２年越しの事件が解決しそうだ。 infoment.hatenablog.com今日は前日までの内容のうち、メニュー追加までを纏めてみる。 何とかの一つ覚え、今回もクラスモジュールにまとめてみた。 クラスモジュール（RightClickCommand） 今回の作戦は、こんな感…

先日来、２年越しの事件が解決しそうだ。 infoment.hatenablog.com 今日も、先日の続きから。 右クリックメニューを追加する際、他のマクロで追加された別メニューの有無に関わらず、今までは毎回バツンとリセットしていた。 Sub Test() Dim LoopIndex As Va…

先日来、２年越しの事件が解決しそうだ。 infoment.hatenablog.com今日は、先日の続きから。 個人的に、追加した右クリックメニューを実行したくなるのは、以下のパターンのとき。 テーブル上のセル又は範囲 ピボットテーブル上のセル又は範囲 上記以外のセ…

約２年前、このような記事を作成した。 infoment.hatenablog.com右クリックメニューに追加したはずのコマンドが表示されない。 でもそれは、改ページプレビューで見たのが原因。そんな感じで 締めくくられている。しかし実際はそうではないことを、先日職場…

前回、このようなテーマに挑戦した。 infoment.hatenablog.com最終的に求める結果は得られたものの、単に値を地道に配列へ放り込むことしか できず、消化不良の感があった。その後探すも時間が無く、探し方も悪いのか、スマートな解決策は得られず。 という…

今日の出来事。 このような表があって、データ部分を配列化することになった。 Sub Test() Dim arr() As Variant arr() = Selection End Sub 普段だったら、滞りなく次の段階に進む。 しかし今回、あるはずのない値が目に留まった。 150？そんな数字、あった…

昨日は、検索して選択したセルがどこにあるかを直感的に理解するために、選択したセルが一番左上になるようにしてみた。 infoment.hatenablog.comしかしこれだと、任意のセルをポチポチと選ぶたび派手にスクロールしてしまい、とても使い勝手が悪い。そこで…

職場で、このような相談を受けた。 「検索」で探した結果、該当するどこかのセルが選ばれているはずなのだが、目で探せないことが多い。何とかならないか？ 例えば、このようなことだ。「馬肉」で検索した結果、「Ａ５」セルが選択されているのだが、気付く…

先日 Excel について、ある調査依頼を受けました。 記号だったはずの文字が、転記すると数字になってしまうというのです。確認したところ、以下の記号が数字になっていました。 ・0E0055 ⇒ 0.00E+00これは偶然にも、同記号が「指数」の表記と一致していたこ…

先日 Excel について、ある調査を依頼されました。カメラ機能で作成した図を含むシートについて、同シートをコピーして新たなブックを作成したところ、この図のサイズが勝手に変わってしまうというのです。この問題について、オブジェクトの固定などで解決を…

昨日は、追加したはずの右クリックメニューが表示されないケースを紹介しました。infoment.hatenablog.comその後しばらくして、また同じ相談が寄せられました。上記の経験があったため、私は直ぐに「標準」表示にするよう伝えました。ところが、それでも解決…

先日 Excel について、ある調査を依頼されました。 追加したはずの右クリックメニューが、表示されなくなったというのです。↓ 以前出ていたメニュー（イメージ）↓ メニュー追加マクロ Sub AddNewMenu(new_caption As String, new_action As String) Dim NewM…

先日 Excel について、ある調査を依頼されました。 【価格表シート】の商品コードに紐づく価格を、上手く転記できないというのです。 そこで確認したところ、まず、元となったマクロは過去に私が作成したものでした。 ※実際のマクロから、一部エッセンスだけ…

先日 Excel について、ある調査を依頼されました。 セル内に記載された品名を、正しく取得できないというのです。このマクロは、例えば 、もし A1 に「六角穴付きボルト」と入力されているならば 「在庫数を確認してください。」 のメッセージを表示する、と…

先日 Excel について、ある調査を依頼されました。 マクロを用いた処理に、やたら時間がかかるというのです。 Sub Sample() Dim Tb As ListObject Dim r As Range Set Tb = ActiveSheet.ListObjects(1) For Each r In Tb.DataBodyRange.Columns(1).Cells rを…