2015年11月3日火曜日

Error エクセル VBA ドロップダウンリスト 実行時エラー'1004'

実行時エラー'1004'
アプリケーション定義、またはオブジェクト定義のエラーです。

エクセルVBAでドロップダウンリストを自動生成しているときに上記エラーが出ました。
これは、エラーの起きたファイルを開いていると、ほかエクセルファイルでも出ます。
解決方法をいろいろ探ってみましたが、何とかできるのですが、決まったやり方がわかりませんでした。
問題のあるエクセルシートを開かずに、新規のエクセルでコードを実行するとエラーは起きませんので、コードに問題があるわけではありません。
面倒くさいですが、新規エクセルブックに全部コピーするのが最も早い回避方法でした

起きた原因はおそらく、エクセルのオブジェクトの命名規則でバグがあります。
作成しようとするオブジェクトと同じ名前のオブジェクトが完全に消えてなくて、しかも、消すには作成したオブジェクト名で強引に消すという方法しかなく、どこでエラーが起きたか特定するのに非常に時間がかかります。(消したはずのオブジェクトが何かしら残っている感じです。)

ネットではそのオブジェクトをDeleteしてからやればできる。とか、異なるセルをSelectしてからすればできる。などと解決策をかいておりましたが、いずれも駄目でした。

このエラーが起きたら、バックアップから作業を再開というのが最速の手段でした。

エクセル VBA 列数 行数の取得


エクセル VBA で指定行の項目数、指定列の項目数を取得します。

c列の項目数を上から取得します。(空欄で止まります。)
ActiveSheet.Cells(1, c).End(xlDown).Row
c列の項目数を下から取得します。(空欄を含んでいてもOK。)
ActiveSheet.Cells(Rows.Count, c).End(xlUp).Row

r行の項目数を左から取得します。(空欄で止まります。)
ActiveSheet.Cells(r, 1).End(xlToRight).Column
r行の項目数を右から取得します。(空欄を含んでいてもOK。)
ActiveSheet.Cells(r, Columns.Count).End(xlToLeft).Column

エクセル VBA ドロップダウンリスト

リストからドロップダウンリストを作成します。





















2015年10月21日水曜日

Windows10 無償アップデート 2016年7月28日まで

windows10の無償アップデートがいつまでかというと。 開始したのが2015年7月29日なので2016年7月28日までです。
私の管理するPCはwindows10が3台、windows7が4台。。。メンテナンスだけでも時間がかかる。
はやく家族が自分でできるようになってもらわないと。

2015年10月18日日曜日

Vaio Windows10 明るさが調節できない バックライトが暗い

使っているVaio VPCSA2AJ で Window10のUpdateしたところ、バックライトが暗いままで、調節設定が消えていたので、対応しました。
私の場合は下記サイトからVideo Card Driver をダウンロードしてインストール。





インストールしている途中から明るくなりました。Sony(日本)からドライバがダウンロードできないので、ちょっと探しました。
結構この手の情報が少ないですね。

2015年10月12日月曜日

ubuntu pukiwiki立ち上げ pukiwiki プラグイン

いくつか便利なプラグインをインストールします。

折りたたみplugin fold

http://pigs.osdn.jp/wiki/index.php?download

解凍してできた php は pluginへ gif は image へ移動する。

アドレス変換plugin lan

http://dexlab.net/pukiwiki/index.php?Software%2Fwiki%BC%AB%BA%EE%A5%D7%A5%E9%A5%B0%A5%A4%A5%F3%2Flan.inc.php

解凍してできた php を plugin へ移動する。

すべて、周りに合わせて USER/GROUP の設定、パーミッション設定をしておく。

またfoldはマルチラインのスクリプトなので、pukiwiki.ini.php の下記の部分を有効にしておく。

define('PKWKEXP_DISABLE_MULTILINE_PLUGIN_HACK', 1);
                                    ↓
define('PKWKEXP_DISABLE_MULTILINE_PLUGIN_HACK', 0);


ubuntu pukiwiki立ち上げ pukiwiki フロントページ凍結解除

INSTALL.txtに書かれていますが、フロントページの凍結解除はadminpassの設定が必要です。

pukiwikiディレクトリ直下の pukiwiki.ini.php の

// Dafault: always fail
$ adminpass = '{x-php-md5}!';

となっている所を

$ adminpass = '{x-php-md5}' . md5('PasswordYouLike');

というように変更する。パスワードはお好きにどうぞ。