Warning: session_start(): open(/home/var/php/5/g/sess_5gtj4p0tj53r4lhetvdjr572g5, O_RDWR) failed: No such file or directory (2) in /home/users/web07/2/1/0219112/phyokin/devlog/controllers/controller.php on line 15

Warning: session_start(): Failed to read session data: files (path: 2;/home/var/php) in /home/users/web07/2/1/0219112/phyokin/devlog/controllers/controller.php on line 15
devlog
MW211 EXIT

devlog
ExcelVBA/配列とOption Base
2018年06月30日
┌──────────────────────────────────────┐
│Dim 配列(2)    '=配列(0 To 2)  =配列(0)と配列(1)と配列(2)  ※配列数3      │
└──────────────────────────────────────┘
VBAの配列定義はくせがあって上記のように配列定義と配列数が一致しない。

┌──────────────────────────────────────┐
│Option Base 0  ' 既定                                                       │
│Dim 配列(2)    '=配列(0 To 2)  =配列(0)と配列(1)と配列(2)                 │
├──────────────────────────────────────┤
│Option Base 1                                                               │
│Dim 配列(2)    '=配列(1 To 2)  =配列(1)と配列(2)                          │
└──────────────────────────────────────┘
「Option Base 1」を最初に宣言すると、1オリジンで、
配列定義=配列数=最大配列添字とすることができる。

なお、セル範囲を配列化した場合は1オリジンなのでこちらと同じになる。

いずれにせよ、C系定義と違いがあるので注意。
分類:ExcelVBA
ExcelVBA/セル範囲と二次元配列
2018年06月29日
特定のセル範囲を配列に格納し、それを特定のセルを左上として貼り付ける処理。
┌──────────────────────────────────────┐
│Dim 配列 As Variant                                                         │
│配列 = セル範囲                                                             │
│セル.Resize(UBound(配列, 1), UBound(配列, 2)) = 配列                        │
└──────────────────────────────────────┘
UBound()の第二引数は次元数を指し、
この場合一次元目がY座標、二次元目がX座標となる。

あっ、だからCells()の引数が(一般的なものと反対の)Y→Xの順なんだろうか。
分類:ExcelVBA
ExcelVBA/ActiveXコントロールのイベント抑止
2018年06月28日
イベント自体の抑止はできないようなので(「Enabled=False」とかでも発生)、
イベント内でフラグ等で制御する他ないようだ。

まず、肝心のシートイベントにて、以下のように設定する。
┌──────────────────────────────────────┐
│Public mIsイベント抑止 As Boolean                                           │
├──────────────────────────────────────┤
│Private Sub ComboBox表示行数_Change()                                       │
│    If mIsイベント抑止 Then                                                 │
│        Exit Sub                                                            │
│    End If                                                                  │
│    Call 処理実行                                                           │
│End Sub                                                                     │
└──────────────────────────────────────┘
グローバル変数でも構わないが、せっかくなのでシートのメンバ変数で制御する。

初期化については、コンストラクタ的なものの記載を試みてもよいかもしれないが
ブックイベントがあるので「ThisWorkbook.cls」の初期化処理にて行う。
┌──────────────────────────────────────┐
│Private Sub Workbook_Open()                                                 │
│    シート.mIsイベント抑止 = False                                          │
│End Sub                                                                     │
└──────────────────────────────────────┘

後は、マクロ処理にて、事前にイベント抑止を宣言してから値を変更してあげればよい。
┌──────────────────────────────────────┐
│    With シート                                                             │
│        .mIsイベント抑止 = True                                             │
│        .ComboBox表示行数.ListIndex = インデックス                          │
│        Call 処理実行                                                       │
│        .mIsイベント抑止 = False                                            │
│    End With                                                                │
└──────────────────────────────────────┘
分類:ExcelVBA
ExcelVBA/列挙型と関数の名前の衝突
2018年06月27日
列挙型と関数では名前が衝突してしまう。
以下のようなエラーが出る。
┌────────────────┐
│コンパイルエラー:               │
│名前が適切ではありません: テスト│
└────────────────┘
以下のような場合にエラーとなるのだ。
┌──────────────────────────────────────┐
│Enum 列挙型                                                                 │
│    テスト                                                                  │
│End Enum                                                                    │
├──────────────────────────────────────┤
│Sub テスト()                                                                │
│    ' 実行するとエラーが出る                                                │
│End Sub                                                                     │
└──────────────────────────────────────┘
一方がPublicなら他方がPrivateでも衝突。
Private同士でも同じスコープに同居したら衝突となる。

但し、シートに関数を記述した場合には大丈夫。
→シート配下の関数となるので衝突が回避できる。

同じくフォームに関数を記述した場合でも大丈夫。
→フォーム配下の関数となるので衝突が回避できる。

もちろんクラス配下のメソッドの場合でも大丈夫。
→クラス(インスタンス)配下の関数となるので衝突が回避できる。

つまり、「.bas」にある関数との衝突に気をつければよい。
分類:ExcelVBA
ExcelVBA/見たままを取得
2018年06月26日
セルの書式設定で「yyyy"年"mm"月"dd"日"」に設定し、
「2018/6/18」を表示した場合、
値は「2018/6/18」だが表示は「2018年06月18日」となる。

ここでこのセルを「.Value」で取得すると値の「2018/6/18」となるが、
「2018年06月18日」として取得したい場合。

「.Text」を使えばよい。

  セル.Value  →  「2018/6/18」
  セル.Text   →  「2018年06月18日」
分類:ExcelVBA
ExcelVBA/エディタ表示がずれる
2018年06月25日
ActiveXコントロールのボタンのキャプションを変えると
VBAエディタ画面の表示がずれる(プロポーショナルっぽくなる)現象に遭遇。

原因はよくわからず、開発途中に何らかの理由で壊れたようなので
昔の正常だった状態に戻して(そこから差分を追加して)復旧した。

現象的には以下の通り。
・あるボタンをコピーして、文字サイズを変え、太字を標準に変えた
・そしてそのボタンのCaptionに値を入れて保存し、再度開くと現象が発生
  →どうやら起動時に内部イベントでエディタまでおかしくしてしまう模様
・文字サイズを元に戻し、太字に戻したら解消された
  →コピー元と差分があることにより、何らかの内部イベントが発生した?
・ボタンの表示が「MS ゴシック」から「MS 明朝」にしたら解消された
  →エディタ表示が「MS ゴシック」だからそれと関連してしまっていた?

ま、Excelが壊れてしまったら、復旧はあきらめて昔の状態からやり直すのが一番かも。

と思ったら、何かの拍子に再発してしまった。

そこで、メニューバー「ツール>オプション」を起動。
┌──────────────────────────────────────┐
│オプション                                                                  │
├──────────────────────────────────────┤
│┌─┌────────┐─┐─┐                                            │
││  │エディターの設定│  │  │                                            │
│┌─┘                └─────────────────────────┐│
││┌コードの表示色───────────┐  フォント名                    ││
│││┌────────────────┐│  ┌───────────┬─┐││
││││標準コード                      ││  │MS ゴシック(日本語) │▼│││
│││└────────────────┘│  └───────────┴─┘││
│││前景        背景        インジケーター  サイズ                        ││
│││┌──┬─┐┌──┬─┐┌──┬─┐│  ┌──┬─┐                  ││
││││自動│▼││自動│▼││自動│▼││  │10  │▼│                  ││
│││└──┴─┘└──┴─┘└──┴─┘│  └──┴─┘                  ││
││└──────────────────┘                                ││
└──────────────────────────────────────┘
フォント名を一旦「MS 明朝(日本語)」にしてExcelを保存して閉じる。
その後、起動して「MS ゴシック(日本語)」に戻してExcelを保存して閉じたら
なんとか復活できた。
分類:ExcelVBA
jQuery/表示非表示
2018年06月24日
非表示からの~表示!
┌──────────────────────────────────────┐
│#target {                                                                   │
│    display             :none;                                              │
│}                                                                           │
├──────────────────────────────────────┤
│$('#target').show();                                                        │
└──────────────────────────────────────┘
表示からの~非表示!
┌──────────────────────────────────────┐
│#target {                                                                   │
│    display             :block;                                             │
│}                                                                           │
├──────────────────────────────────────┤
│$('#target').hide();                                                        │
└──────────────────────────────────────┘
分類:jQuery
CSS/画面中央に表示
2018年06月23日
┌──────────────────────────────────────┐
│div {                                                                       │
│    position            :absolute;                                          │
│    top                 :50%;                                               │
│    left                :50%;                                               │
│    height              :16px;                                              │
│    width               :160px;                                             │
│    margin-top          :-8px;                                              │
│    margin-left         :-80px;                                             │
│                                                                            │
│    font-size           :16px;                                              │
│}                                                                           │
├──────────────────────────────────────┤
│div {                                                                       │
│    position            :absolute;                                          │
│    top                 :50%;                                               │
│    left                :0;                                                 │
│    height              :16px;                                              │
│    width               :100%;                                              │
│    margin-top          :-8px;                                              │
│                                                                            │
│    font-size           :16px;                                              │
│    text-align          :center;                                            │
│}                                                                           │
└──────────────────────────────────────┘
分類:CSS
ExcelVBA/範囲を文字列に変換
2018年06月22日
┌─┬─┬─┬─┐
│  │  │  │  │
├─┌─┬─┬─┐
│  │a │b │c │  ┌───┐
├─├─┼─┼─┤  │a b c │
│  │d │e │f │→│d e f │
├─├─┼─┼─┤  │g h i │
│  │g │h │i │  └───┘
└─└─┴─┴─┘
セル範囲をテキストエディタに貼り付けて一つの文字列としたような変換のマクロ。
┌──────────────────────────────────────┐
│Const x始 As Long = 2, x終 As Long = 4                                      │
│Const y始 As Long = 2, y終 As Long = 4                                      │
├──────────────────────────────────────┤
│Sub 範囲を文字列に変換()                                                    │
│    Dim y As Long, 配列(y終 - y始) As String                                │
│    For y = y始 To y終                                                      │
│        配列(y - y始) = Join( _                                             │
│            WorksheetFunction.Index( _                                      │
│                Range(Cells(y, x始), Cells(y, x終)).Value, _                │
│                1, _                                                        │
│                0), _                                                       │
│            vbTab _                                                         │
│        )                                                                   │
│    Next y                                                                  │
│    MsgBox Join(配列, vbCrLf)                                               │
│End Sub                                                                     │
└──────────────────────────────────────┘
分類:ExcelVBA
ExcelVBA/コンボボックスの表示と値を別にする方法(続)
2018年06月21日
コンボボックスの表示と値を別にすると、Excelを閉じる時に
毎回当該ComboBoxのChangeイベントが発生してしまうので注意。

値  =BoundColumn=.Value
表示=TextColumn =.Text
の関係にあたるのだが、当該イベントにMsgBoxを仕込んで両者の値を確認してみると
.Text(表示)の値が.Value(値)の値に書き換わっている。

よって、.Textが値が変わったと見做して、Changeイベントが発生してしまうようだ。
(なんで.Textの値を変えるかは不明(事情があるのだろう、全体的にみればバグ?))

なので、コンボボックスの表示と値を別にするのはあまりよろしくないようだ。
分類:ExcelVBA
前へ 1 2 3 次へ