Excel Pit-In

Visioにはエクセル等の外部データを図形に紐づける機能（データリンク）があります。大量の図形にデータリンクを設定する処理を一括して行います。予め作成しておいた雛型図形を複製しながらデータを設定していきます。

MATCH関数とINDEX関数だけで、オートフィルターの機能を実現します。二つの検索キーを指定して、別シート（注文履歴）から該当データを抽出して請求書を作成します。

宛名ラベルを印刷するツールです。8ラベル/1シートにデータを割り当てます。任意のラベルから割り当てを開始し、次のページからは先頭に戻って割り当てます。

フィルターをかけても番号がとびとびにならず、手入力しなくてもちゃんと連番が保たれる方法をご紹介します。 こんな表を作って、月ごとの請求をまとめたりすることがあります。 たとえば、１０月度を指定してフィルターをかけると、 こんなふうに、請求書の連番がとびとびになってしまいます。かといって、その都度、手入力で連番を振るのは大変です。 そこで、B列にSUBTOTAL関数を入れることによって、フィルターをかけた後に連番が自動的に採番される ようにしてみましょう。 式は次の通りです。 =SUBTOTAL（2, 個数を数える対象になる範囲） 最初の引数 2 はCOUNT すなわち、対象範囲のデータの個数を数えるという意味です。 二番目の引数個数を数える対象になる範囲　には、データの個数を数える範囲を指定します。 上の例では、A列の通し番号をその範囲に指定しています。 具体的に言うと、B2には次の式が入ります。 =SUBTOTAL（2, $A$2:$A:2） この式の意味は、A2からA2に入ってるデータの個数を数えるということです。そうするとデータの個数は必ず

Visioドキュメントに配置したたくさんの図形の中から、ある条件に合うものをだけを抽出してリストアップしたり、グループごとに集計するマクロです。リスト上で選択したものをズームインしたり、まとめて数量や図形データを更新したりできるようにしました。 Visio上に配置されている図形を

数式と値が混在した列を選択して、値が入ったセルだけクリアするお手軽マクロです。 コンテクストメニュー（右クリックメニュー）に入れてよく使ってます。 選択範囲が広い場合、空白かどうかを判定することが重要です。処理速度がかなり違います。 画面がチカチカするのが嫌なので、Application.ScreenUpdating のオンオフを処理前後に行ってます。 Sub clearOnlyValue() Dim intIndex As Long Dim targetRange As Range Set targetRange = Selection Application.ScreenUpdating = False For intIndex = 1 To targetRange.Count ’セルに　数式が入っていない　なおかつ　空白ではない場合 If targetRange(intIndex).HasFormula = False _ And targetRange(in

今回は画像をユーザーフォームにドラッグ＆ドロップして表示させる方法を紹介します。　サンプルファイル 画像をデータベースなどに登録する場合、「開く」ボタンからファイルを指定して行うのが一般的な方法ですが、ドラグ＆ドロップの方が便利な場合もあります。 1. ユーザーフォームにコントロールを配置 まず、ユーザーフォームの上に次の通りコントロールを配置してください。 Image1、lblDropImageHere、lvDropImageHereの順で配置してください。重なる順番が重要です。 lvDropImageHereのプロパティを次の通り設定してください。 Appearance: 1 - ccFlat OLEDropMode: 1 - ccOLEDropManual Visible: False Listviewはその名のとおり、主に文字列をリスト表示する際に使用するもので、リストボックスの代わりに使うことが多いコントロールです。また、ファイルをドロップした時にイベントが発生するのが特徴です。他にドロップ時のイベ

Win32API関数を使います。Userform１のプロシージャーに下のコードをそのまま貼り付けてください。64bit版Excelをお使いの場合は、こちらを参考にしてください。 'Win32APIの関数Private Declare Function FindWindow

Win32 APIを使って、ユーザーフォームの透明度をスライダーで変更できるようにします。ユーザーフォームをワークシート上に常駐させる場合には、とても有効な機能です。