VBA：「動的配列未初期化のチェック」

VBA Excel VBA Access

疲れた・・。しようもない無いところでコケタ。例えば、 Type userTeigiA strA() as string lngB(10) as long intC as integer End Typeなんてのがあるとする。構造体とは呼ばないんだよね・・ユーザ定義だっけ。で、この構造体（って、書いてたらごめん）…

2011-10-04

Excel関数：「曜日を関数だけで表示」

Excel 関数

また、忘れそうなので書いておくと B6 にシリアル値またはそれに該当する日付情報があるとして、 =TEXT(B6,"aaa")とすればOK。要するに書式のフォーマットを表示変換に利用してるわけですが、後ろの aaa ってのと、関数名を忘れそうになる。ヘルプには aaa …

2011-09-29

VBA：「すべての図形を検索」

まぁ、当然開発中に必要になるのがこういうヤツですね。以下３つの投稿を組み合わせているのでおまけで載せときます。追記：＠2011.09.30 16:30 Doevent を挟んでもシェイプの選択描画がうまくいかなかったので、該当セルを着色してどのセルの確認かを見や…

2011-09-29

VBA：「行列番号を指定して、セル名を返す」

カラム番号 To カラム名ってことです。よく使うので書いておきます。 ' セル番号に該当するセル名に返します Public Function rangeToColmunName(lngRow As Long, intCol As Integer) As String Dim strBuf As String strBuf = Cells(lngRow, intCol).Addr…

2011-09-29

VBA：「シェイプの存在確認」

シェイプに何かする前。つまり、シェイプを指定する場合には当然、シェイプが存在している必要があるわけでそれを関数にするとなると色んなやり方がうまれます。都度書くのが面倒なので、以下に残します。 ' 指定したシェイプが存在すればTrueを返します…

2011-09-29

VBA：「シェイプの位置（Rangeアドレス）の取得」

どうせ使うことになるので、書いておきます。 Public Function getShapeRange(strShapeName As String) As String getShapeRange = _ ActiveSheet.Shapes(strShapeName).TopLeftCell.Address(False, False) End Functionまぁ、オフセットでなくRangeで返した…

2011-09-29

VBA：「OnAction で呼び出す関数に引数を渡す方法」

VBA Excel

んだよ。できるんじゃん！すみません。探してみるものです。シェイプにマクロを登録することができるわけですが、そのマクロに引数が渡せないのかと思っておりました。シェイプにマクロを登録すると、そいつをクリックしても Selection にはならないので…

2011-09-29

VBA：「Selection対象がシェイプの場合の注意点」

VBA Excel

例えば、Line のシェイプを選択した状態。つまり、Selection の中身はLineオブジェクト(Object/Line) の場合、あたかもSelection のプロパティに Lineオブジェクトのプロパティも表示されるような気になってはいけない。当たり前だが、内部変数がLineなだ…

2011-09-29

VBA：「イメージコンボボックスの初期選択行指定」

VBA Excel

どこにも記載がないので載せておきます。Me.imageCombobox1.SelectedItem でも、.text でも初期行の選択ができなかったので以下の処理で実現。なんか、これ.NET時代にやった気が・・・。ｗ Me.imageCombobox1.ComboItems(intIndex).Selected = True参考ま…

2011-09-28

VBA：「シェイプの書式変更」

VBA Excel

シェイプの書式変更をコモンダイアログから設定する方法。以下は、指定したシェイプ名の書式を変更します。 ※ Line シェイプじゃないと動作しないようにしています。 ' 選択したオブジェクトの色をダイアログから設定させます。 Public Sub colorSetFromDia…

2011-09-28

VBA全般：「シェイプの書式複写」

VBA Excel

シェイプのコピーではなく、書式のみの複写をしたい場合どうするか。もう・・こんなことすら覚えてない時点で俺の馬鹿馬鹿馬鹿！！で、自作してしまったわけですが・・。 ※ 面倒なのでテストしてませんが、以下の Selection.ShapeRange.IncrementLeft sngY…

2011-09-27

VBA全般：「画像付のコンボボックス表示」

VBA Excel

ガントチャートを作る作業をちまちまやってるわけですが、昨日くらいからどうでもよいところに躓いてます。まぁ、気にしなきゃよいのですがちょっと画像処理系（？）弱いなぁと思うのでがんばってます。昨日は、・オートシェイプをフォームに表示したい …

2011-09-24

VBA Excel：「ガントチャートをグラフで作る」

VBA Excel プロジェクト管理

元ネタはこちらのサイトです。参考：お手製簡易ガントチャートをグラフで作ってみる。 http://edutainment-fun.com/excel/example/ganttchart.htmlここで記載されていたほかの方法は試したことがあるのですが、これは面白そうなので試してみたらスゴイ苦労…

2011-09-23

Excel関数：「セル内の特定文字のカウント」

Excel 関数

ふと作ってみたくなったのだが、頭が硬直してわからんでしたので、検索してみたらマイクロソフトが公開していた。 =SUM(LEN(A2:A7)-LEN(SUBSTITUTE(A2:A7,"p","")))これは、範囲だけれど =LEN(A2)-LEN(SUBSTITUTE(A2,"p",""))とすれば、当然、セル範囲内の…

2011-09-02

標準化：「クエリの散在をどう防ぐか」

標準化

言語は何でもよいのですが、クエリの散在をどう防ぐかという仕組みやルールが必要になります。FW を使うとFWで適用されないようなかなり簡易なレベルのクエリや逆に複雑なレベルのクエリをどう散在させず管理するか。いずれにしても発行出入口をひとつにす…

2011-08-19

書籍案内：「Visual Basic 6.0 Desktop」

資格試験というのが嫌いです。なので、資格取得のために試験勉強を中心にエンジニアの技術ナレッジを構築している人を見るとかなり嫌気がさします。が、体系的に技術を抑えたいときに役立つのは、試験本だと最近思ったので購入してみました。古い本です…

2011-08-19

VB6：「規約：可読性の問題宣言部のあり方」

VB6

VBで現役PGをしていた頃の話ですが、嫌いなコーディングを見かけることがありました。その代表例が、 dim a dim b,c as String b=c a=b d=b If d = b then dim z z = b End If変なサンプルになってしまいましたが、かなりイラッとキマせんか？１）まず、a 及…

2011-08-13

VB6：「サンプル：指定文字列内に検索文字数がいくつあるか」

VB6

え？こんな関数が用意されていないのか・・？はて？まぁいいや、とりあえずオブジェクトを生成して作るとかメンドクサイというか、それは情けないのでさくっと書いてみた。驚きだったので載せておきます。VB6 というより、VB系のネタ全般で存在しない関数…

2011-08-08

VB6：「Null 判定の不思議」

VB6

Isnullでその変数値がnullであるかを確認することができますが、実際にはisNull でしかnull を確認することはできない。という不思議。例えば、 if a = null then debug.print "通らない" else debug.print "通る" end ifとあれば、実際には a の変数値がnu…