2009年3月13日金曜日

google ブログに記事のカテゴリーを表示する方法

まず記事にラベルを付ける。　　ラベルは記事の下に入れるところがある
カスタマイズ　ガジェット追加　ラベル
で記事のカテゴリーが表示されるようになる

2009年2月20日金曜日

ネットワークからexelを開くとき異常に遅い

excel2007でネットワーク上のexcel2003 1M程度を開くとき異常に時間がかかる

kingsoft リアルタイムガードを停止したらいつもと同じくらいのスピードで開いた

excelでcsvに保存すると　ダブルコーテーションなしのテキストに書き出され、asの転送　basic順次で受け取れない。excel2007になってworksheet4.0形式で保存できなくなり、可変長で保存してasに転送で聞くなった。
以前にも同様のマクロを作ったがどうしても解析が面倒で使いにくい
余計なマクロの解析なしに、必要なパラメータを渡して asで受け取り可能なcsvを作成することを目的とする

意味
parm1 input excel book full path
parm2 input excel worksheet name
parm3 output csv k3format
parm4 文字属性の指定文字列　Attribute string of characters？　google translate:-)

'使用例とりあえず↓のsub3つをexcel vbaにコピぺして動きを追うと分かりやすいと思います
Sub make0()
Dim strsws As String
'as　転送記述fdfからフィールドの属性情報を書きだす
callfdf "(パス)\TMP421184.FDF", strsws
'家計簿.xlsのdataシートをkaikei.csvに書き出す
callfdf "(パス)\TMP421184.FDF", strsws

'fdfファイルが無い場合は自分で文字列を確認した渡す
'フィールドの属性は1=文字,２=数字で　12121111の８つのフィールド
MAKE_CSV_FILE "(パス)\test.xls", "as書き出し用", "(パス)\TMP421184.TXT" _
, strsws
End Sub
'--------------------------------------------------------------
Sub MAKE_CSV_FILE(inxls As String, sheetname As String, _
outfilecsv As String, strsws As String)
Dim frm(255)
Dim objHANI As Range
Dim startrow As Integer 'データ読込行 1なら2行目から
startrow = 1
bookname = ActiveWorkbook.Name
Workbooks(bookname).Activate '<---マクロ起動のエクセルが同じならコメントにする
Worksheets(sheetname).Activate
len01 = Len(strsws)
name1 = ActiveWorkbook.Name
'転送元範囲セット
endr = Cells(1, 1).End(xlDown).Row
Set objHANI = Range(Cells(2, 1), Cells(endr, len01)) 'excelの２行目からデータ
'Set objHANI = Range(rng)

'定義情報を配列に展開する
GoSub fdf
'ファイルをオープンする
Dim FNO As Integer 'ファイル番号
FNO = FreeFile '空いてるファイル番号を取出す
Open outfilecsv For Output As #FNO 'テキストファイルを新規作成

'行、列でループを作る
Dim y As Integer
Dim x As Integer
For y = startrow To objHANI.Rows.Count '行のループ
'1列目
If frm(1) = "1" Then
Print #FNO, Chr(&H22) & objHANI.Cells(y, 1).Value & Chr(&H22); '先頭項目の出力
Else
Print #FNO, objHANI.Cells(y, 1).Value; '先頭項目の出力
End If
'2列目以降
For x = 2 To objHANI.Columns.Count '列のループ
Print #FNO, ",";
If frm(x) = "1" Then '文字
Print #FNO, Chr(&H22) & objHANI.Cells(y, x).Value & Chr(&H22); '先頭項目の出力
Else '数字
Item1 = objHANI.Cells(y, x).Value
If Item1 = "" Then Item1 = "0"
Print #FNO, Item1; '先頭項目の出力
End If
Next x
Print #FNO, "" '改行のみ出力
Next y

'ファイルをクローズする
Close #FNO
Exit Sub

fdf:
For i = 1 To Len(strsws)
'ReDim frm(1)
frm(i) = Mid(strsws, i, 1)
Next
Return
End Sub

'--------------------------------------------------------------
Sub callfdf(in_file As String, strsws As String)
'fdffile asの転送記述ファイル,
Dim frm(255)

'in_file = "パス\hr01.fdf"

'** ファイルオープン
FNO = FreeFile
Open in_file For Input As FNO Len = 32000

x = 1
Do Until EOF(FNO)
Line Input #FNO, rec
'4行目から処理
If x >= 4 Then
len1 = Len(rec)
Count1 = 0
For i = 1 To Len(rec)
If Mid(rec, len1 - i, 1) = " " Then Count1 = Count1 + 1
'右から読み込んで２番目のスペースの左から１ケタ分読み込む
'PCFL MF 1 1 mf=フィールド名,文字数字種別,桁数　文字数字種別1=文字、2=数字
If Count1 = 2 Then
frm(x - 3) = Mid(rec, len1 - i + 1, 1)
Exit For
End If
Next
End If
x = x + 1
Loop

Dim y As Integer
'読みだした配列を文字列に書き出す
For y = 1 To 255
strsws = strsws & frm(y)
len2 = Len(strsws)
Next
Close FNO
End Sub

2008年12月8日月曜日

会計王8がインストールできない

前回のセットアップ、または他のアプリケーションのセットアップ処理が完了していません。コンピュータを再起動してから再度会計王８のセットアップを起動してください。
というメッセージが出てインストールできない

処置方法
IE 前回のインストールが完了していません
ちなみに入っていた値は　1.tmp
こんなもん走るかぁ (ノ｀Д´)ノ彡┻━┻
ウィルスの仕業でしょう、きっと。。。

Trojan.Ushedixはuser23.dllに感染します

危険性の評価は低ですが、感染後 norton antivirus体験版をいれてシステムスキャンしてウィルスの駆除をしたところ、Trojan.Ushedixは何の警告もなく駆除されました
駆除ファイルにuser32.dllの名前がありました、そしてそれ以降、全てのexeが初期化エラーで開かなくなりました。システム復元がONのままだったことに気付く
RUNDLL32.EXE - アプリケーションエラーアプリケーションを正し初期化できませんでした（0xc0000005)。[OK]をクリックしてアプリケーションを終了してくださいと出ます。
notepadすらこの初期化エラーで立ち上がらなくなる
別のpcのxpからuser32.dllを取ってきてsystem32にコピーしてもすぐタイムスタンプが戻ってしまう
壊れたuser32.dllが復元される(´Д｀)
たぶん再起動したら永遠にｐｃがお亡くなりになりそうだ
winxp homeのcdを入れてみたがsetup.exeが初期化エラーで動かない
覚悟を決めsafe modeで開くと正常に立ち上がった
システム復元オフにして
symantecの駆除手順を実施する
そしてｐｃ再起動
winxpの起動画面がでて祈るような気持ちでログオン画面を待つ
：
：
再起動
：
：
再起動

ダメかよ、ちくしょう(;つД｀)
きっとuser32.dllが壊れたいるせいだろう、、どこにもそういったメッセージは出なかったが
駆除手順５にさりげなく書いてある5. Windows ファイルを抽出して復元する
が回復手順を示唆している
セーフモードからmsconfigでシステムファイルを展開しても使用中で置き換え不能。。。
winxp home のｃｄから立ち上げRで回復コンソールを開く
もとのpcのi386の場所をあらかじめ確認し
expand （パス）:\i386\user32.dl_ c:\windows\system32\
そして再起動して再びログオン画面が出ることを祈る
正常に起動した
Trojan.Ushedix恐るべしというべきかシステムを破壊したnorton antivirusが恐ろしいのか分からないが
とんでもないtrojanであることは確かだ

user32.dllの復元方法はこちら↓に詳しく載ってました
『AVG8.0Free』定義ファイル更新後、WindowsXPが起動できなくなった場合の対処法(HAAYA )

タスクマネージャーが開かない

http://ziddy.japan.zdnet.com/qa1289556.html

その１　gpedit.mscで設定を解除する
以下引用　winxp proなら　home　editionにはgpedit.mscはない
＞スタート→ファイル名を指定して実行に「gpedit.msc」と入力してOKをクリック。
グループポリシーが起動します。
以下を確認してください。
＋ユーザーの構成
　＋管理用テンプレート
　　＋システム
　　　 Ctrl+Alt+Delオプション
「タスクマネージャを削除する」がをダブルクリックして「タスクマネージャを削除するのプロパティ」を開いて設定タブを選択。
「有効」になっていたら、「未構成」か「無効」にしてOKをクリック。

その２　レジストリ　disable taskmgrを0にするかサブキーを削除する
スタート→ファイル名を指定して実行に「regedit」で起動出来ます。
起動させたら、以下を確認。

＋HKEY_CURRENT_USER
　＋Software
　　＋Microsoft
　　　＋Windows
　　　　＋CurrentVersion
　　　　　＋Policies
　　　　　　＋System
　　　　　　　 DisableTaskMgr

この項が存在し、値が「0x00000001(1)」になっていませんか？
なっていたら、「DisableTaskMgr」を右クリックして「修正」を選択。
「値のデータ」を16進で「0」に変更してください。
又は、DisableTaskMgrの項自体を削除してもOK。
元々、この値は標準では存在しませんので。

その３　windowsXp home editionで　trojan.ushedixにやられた場合

PC独り言

TROJ_AGENT.GES

Trojan.Ushedix

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\以下の
"Debugger" = "ntsd -d"がついたサブキーを全て削除
たとえば
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe
taskmgr.exeのサブキーを削除することで taskmgr.exeが起動可能になる
＊レジストリの操作は注意してsymantecの説明をよく読んで行ってください
＊操作上不具合が出ても責任負えません(´Д｀)
Your Image File Name Here without a pathだけは正常な状態で ntsd-dを含んでいるので削除する必要はないと思われます