プリンタドライバ使用中のためインストールできませんでした

症状
インストール途中で上記メッセージが出て失敗する
環境
win10 64bit
docucentre-Ⅳ3370

失敗の原因
解凍後のフォルダがある状態だと、使用中のため～になる
解凍前のexeでも、cwns\csw\csw..exeを直接走らせてもだめ

処置
解凍後のフォルダを削除して、解凍前のexeを実行


試したこと
ネットワークの共有フォルダから実行・・・失敗
ローカルにcwnsフォルダをコピーして、その中のcsw.exeを実行してもだめ
管理者で実行・・失敗
再起動・・失敗

adp 実行時エラーが発生したため

現象
adpをaccess runtimeで使おうとすると、特定のユーザーでフォームから、レコードを呼び出すとき
「実行時エラーが発生したため、このアプリケーションの実行は中断しました。」
と出て、中断される
また、正規のaccessを入れても
「実行時エラー'2467'指定した式で、閉じているかまたは存在しないオブジェクトを参照しています。」が出ます


処置
adpの接続を、windows NTの統合セキュリティから
特定のユーザーとパスワードに変更、データベースにアクセス権のあるユーザーに設定

原因
windwsログインユーザーでデータベースへアクセスしようとしていて、そのユーザーに権限がなくてコケた

vba 致命的なエラーの一因

原因 キックするexeのプロパティに、互換モード、管理者として実行するにチェックが入っている
 

 

 経緯
win7 32bit
１．特定のｐｃだけ mibarcodeをvbaで動かすプログラムで、activexコンポーネントが作成出来ないエラーが出ていた
簡単なサンプルプログラムを作ると、
Sub TEST()
Dim MiBar As Mibarcd.Auto
Set MiBar = New Mibarcd.Auto ’<<<<この部分でエラー
Set MiBar = Nothing
End Sub

２．現行のmibarcodeをアンイストール、最新のバージョンのmibarcodeのインストールしたところ、「致命的なエラー」が出るようになった。
他のpc、winxp win764bit win7 32bitとも、同じプログラムでエラーは出ない

３．mibarcode.exeを直接クリックすると、エラーになるｐｃだけ、ユーザーアカウント制御の警告が出ることが分かった
４．mibarcode.exeのプロパティを確認したとこと、互換モードと、管理者としてこのプログラムを実行するにチェックが入っていたので、外したら、ユーザーアカウント制御は出なくなり、vbaの「致命的なエラー」もactivexコンポーネントが作成できないエラーも出なくなった

'－'の近くに無効な構文があります

現象
excel2010からmsqueryでsqlserver2000のクエリファイルを引っ張ろうとすると
'-' の近くに無効な構文があります、とでる

原因
クエリのファイル名に全角の－を入れていたため出た模様
再現性あり
クエリのファイル名から－を除いたらでなくなった

SQL Server2000 - 8.00.2039　=sp4

半角ハイフンのクエリ名はOKでした

accessの参照設定にMicrosoft Excel 15.0 Object Libraryがない

現象






accessの参照設定にMicrosoft Excel 15.0 Object Libraryがない
処置
コントロールパネル－プログラムと機能－変更－クイック修理をしたら、accessの参照設定にMicrosoft Excel 15.0 Object Libraryが現れた。

しょーもないですが、なおったので記載します。

やったこと
access2000で出なかったので、access2003をインストール、結果☓
excel vbaの参照設定には、Microsoft Excel 15.0 Object Libraryがあった。
再インストールしようかと思ったがその前にクイック修復でなおった

sqlserver2000 エラー:14274:msxサーバーからのジョブ、ステップ、スケジュールの追加、更新、または削除はできません

現象
os windws2003 sqlsever2000sp3か4
ジョブを削除しようとすると、上記メッセージが出て削除できない。
sqlサーバーは、サーバーが壊れたため移管したもの

原因
msdbのsysjobsテーブルのジョブ指定のサーバー名が稼動しているサーバー名と違うため

クエリアナライザで、select * @@servernameとしても見れます

処理
original_serverのフィールドを動いているサーバー名と一緒のものに手で打ち変えたら、ジョブが削除できるようになりました。
参考
 SQL SERVER – Fix : Error 14274: Cannot add, update, or delete a job (or its steps or schedules) that originated from an MSX server. The job was not saved.
のgoogle翻訳
http://translate.google.co.jp/translate?hl=ja&sl=en&u=http://blog.sqlauthority.com/2006/12/20/sql-server-fix-error-14274-cannot-add-update-or-delete-a-job-or-its-steps-or-schedules-that-originated-from-an-msx-server-the-job-was-not-saved/&prev=/search%3Fq%3D%25E3%2582%25A8%25E3%2583%25A9%25E3%2583%25BC14274%2Bmsx%25E3%2582%25B5%25E3%2583%25BC%25E3%2583%2590%25E3%2583%25BC%26biw%3D810%26bih%3D375#

microsofの記事「[PRB] サーバーの名前を変更した後で SQL Server エージェント ジョブを更新するとエラー 14274 が発生する」は参考にならなかった
サーバーを元の名前に戻して、ジョブを削除して正しいサーバーに再度戻してジョブを再設定って、もとのサーバーの名前が分からないという。上のようなサーバー名状態だったら無理だ。パソコンの購入時の名前と旧サーバー名が混在してるし。

「使用者は他のユーザーです」の対処 csvファイルを開こうとして

現象
ローカルｐｃのcsvを開くと、このメッセージが出た
windowsのログオフログインしても変わらずロックがかかったまま
ローカルなので共有していない

処理
マイコンピュータ－右クリック－管理
共有フォルダ－開いているファイルで、該当のファイルがあったので
右クリックで、「開いているファイルを閉じる」をしました

組み込み可能なＩＳＡＭドライバは見つかりませんでした。

現象
os winxpsp3 excel2003sp3 vbaで
DAOでcsvをオープンしようとき発生

こんなコード
Set objDB = OpenDatabase(DEF_LOCALDBDIR, False, False, _
                             "Text;DATABASE=\\サーバーファイルパス\;hdr=NO;IMEX=1")

解決
参照設定がmicrosoft DAO3.51になってたのをDAO3.6に変えたら症状が出なくなりました。

他やったこと
http://blogs.yahoo.co.jp/abukuma2005/45320694.html
のVisual Studio 6.0 Service Pack 5
を入手してインストールでは解決しなかった
vb6runtimeのインストール

http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200509/05090075.txt
JET 4.0 Service Pack 8を適用

発生の経緯
ドメイン参加のｐｃでvbaをテストしてOKで、ドメイン非参加の環境で試すために、ワークグループに変更して症状が出ました。vbaの参照設定を追加する際DAOのバージョンを間違えたようです
まあ、こういうこともあるということで。。

janestyleからevernoteに貼り付ける方法（しょーもないですが）

問題概要

• 2chスレッドのレスをevernoteに簡単ににコピペしたい

janestyleで2chのスレッドを追っていると、これは記録したいというレス（発言）に出会うことがあります。
そういうとき、janestyleには、直接レスの内容をevernoteに送るコマンドがないので、
どうするかというと、一旦、該当のレスとコピーして、evernoteをたちあげて、新規ノートを作って貼り付けていました。
しかし、めんどい
もっと簡単にコピペ出来る方法を探しました

方法1 evenoteのショートカットを利用する

evernoteを起動
janestyleの該当レスを選択して「コピー」
win+a
Evernoteをもっと使いこなす！　ショートカットキー一覧（Windows編）

方法２ janestyleのツール－設定－コマンドに

コマンド名 （任意）evernoteに追加　win7の場合
実行するコマンド "C:\Program Files (x86)\Evernote\Evernote\Evernote.exe" "/Task:PasteClipboard"
と登録

xpの場合は
"C:\Program Files\Evernote\Evernote\Evernote.exe" "/Task:PasteClipboard"

janestyleの該当レスを選択して「コピー」
右クリックのメニュからevernoteに追加を選ぶ
でevernoteにコピー出来ました
Windows - Evernote Developers http://dev.evernote.com/intl/jp/doc/articles/enscript.php

*コピー操作後でないと転送されません。
*方法１のevernoteのショートカットを使う方法は、evernoteが起動していることが前提です
なので方法１は一手間ステップが多いです
*方法２のコマンドとオプションの間はスペースがひとつ入ります

vba 結合セルから単一セルにコピーするには

複数行を一つにした結合セルから単一セルにコピーすると行数値が飛んでしまう
うーん、わかりにくい。
3


1


2


のようになってしまう。
クリップボードで空白行を削除してコピーして
3
1
2
のようにしたい。
いろいろフリーのクリップボードを操作するものを探したんですが、コマンドラインから操作するものがみつからないんですよね

で、クリップボードから３行毎に読み込んで、貼り付けるvbaを作りました
参考
excel クリップボード(yahoo知恵袋）
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1453559284

使い方は、結合セルの行をコピーして、コピー先の先頭セルにカーソルを置いて
下記vbaを走らせる。
マクロ cntl+a など割り当てて、使ってもらうといいと思います

プログラムの説明
①step 3は結合セルが３行分なので、３行ごとに読み込むとちょうど数字を読み込める
UBound(v2) - 3 uboundは配列数を算出  -3は、該当行をコピーすると、一番最後に""という余分な配列が出来たため、一回分減らしています
"2.0"
" "
" "
""  ←余分
②If Len(v2(i)) = 1 Then v2(i) = 0 は、数字の入っていない行が""で作られ if v2(i)=""でなぜかfalseになって文字長1で判定されるためそのようにしました。数字が入ったセルは3.0や1.0のような形で読み込まれています。””だと次の③で型エラーになったので０に変換。
③Cells(r + rec1, c) = v2(i) * 1は、配列の数字が文字列で書き出されるため*1で数字に直しています


Sub test()
Set CB = New DataObject
CB.GetFromClipboard
v1 = CB.GetText
v2 = Split(v1, Chr(10))  ’←これがすごく参考になった、複数行のクリップボードの内容を配列に格納する
r = ActiveCell.Row
c = ActiveCell.Column
rec1 = 0
For i = 0 To UBound(v2) - 3 Step'①
If Len(v2(i)) = 1 Then v2(i) = 0 '②
Cells(r + rec1, c) = v2(i) * 1 '③
rec1 = rec1 + 1
Next i
End Sub

背景
残業をだすシートの人の並びが結合セルで作ってあり、残業をグラフにするブックのセルが1行毎だったので、コピーだと3行ごとに飛んでしまい、それで、毎回手でグラフのシートに数字を入れていました。
空白行をを削除する、休んだ人も空白行のなるため、一人分飛んでしまう。
それで、3行ごとに読み込む形にしました。
このvbaならコピぺするする感覚でできるのでわかりやすいかなと
残業の人の並びと、グラフの人の並びが同じという前提です。
もともと手で入れていたので、並びも一致させています。

サイボーズ 「14603 このフォルダは既に削除されています」とでる

現象
サイボーズにログインしようとすると、「14603 このフォルダは既に削除されています」と出る。
どのユーザーでログインしても、同様の画面になり、戻るを押して、ログイン画面に戻るしかない

他のｐｃでは正常にログインできる

原因
ブックマークしているurlが
http://（サーバー名）/cbag/ag.exe?page=MyFolderIndex&fid=31
でだった
処理
 http://（サーバー名）/cbag/ag.exe
に直したら入れるようになりました

連続でバーコード印刷をすると実行すると、アクティブXコンポーネントはオブジェクトを作成できません になる。vba mibarcode

現象
レコードを読むたびに
Set MiBar = New Mibarcd.Auto
set MiiBar=nothingしていたら
アクティブXコンポーネントはオブジェクトを作成できません
というエラーが、何レコード目かで出る現象が発生。
何レコード目で出るかは不定、また、ｐｃによってエラーが出たり出なかったりした。
このエラーが出る前兆は３０秒ほど固また後、上記エラーが出る。
デバッグからvbe（エディター画面）にいってf5を押すと再開される

変更後
バーコード表示用のレコードを読む先頭でSet MiBar = New Mibarcd.Autoを入れて
 読み込み終了でset MiiBar=nothingしていたら、処理も早くなってこけなくなった

変更後のサンプルコード
worksheets("納品書").Activate
mai = 0
'レコードを読む前にセット
'Mibarcodeのオートメーションサーバオブジェクトを作成
     Set MiBar = New Mibarcd.Auto

x = 0
    For Count1 = 0 To co - 1
'レコードを読み込んで納品書シートに書き込み＋バーコード作成
        GoSub meisub
    Next Count1
'印刷範囲を設定する
    GoSub prtara
’終了したときオブジェクト破棄
    Set MiBar = Nothing
Exit Sub

meisub:
’あらかじめ前のスクリプトで、配列変数にレコード一式読み込んでます。
    newdt = ndt(Count1)
    newfct = fct(Count1)
    newdn = dncd(Count1)
    newfct = fct(Count1)
'日付と受け入れ先が変わったら次の伝票へ。日付と受け入れ先が変わるとバーコード変数も変わるようにあらかじめデータをセットしています。
    If olddt <> newdt Or x = 6 Or oldfct <> newfct Or olddn <> newdn _
    Or oldfct <> newfct Then
'変わったら伝票にバーコードを入れる
    GoSub breaksub
    End If
'伝票の明細部分の書き出し   
    Cells((mai - 1) * 14 + x + 5, 1) = hncd(Count1)
    Cells((mai - 1) * 14 + x + 5, 2) = hnnm(Count1)
    Cells((mai - 1) * 14 + x + 5, 3) = sury(Count1)
    Cells((mai - 1) * 14 + x + 5, 4) = tani(Count1)
    'Cells((mai - 1) * 14 + x + 5, 5) = tnka(count1)
    olddt = newdt
    oldfct = newfct
    olddn = newdn
    oldfct = newfct
    x = x + 1
Return
breaksub:
'伝票のヘッダ部分の書き出し
        Cells((mai) * 14 + 2, 7) = dncd(Count1)
        Cells((mai) * 14 + 12, 2) = hdt(Count1)
        Cells((mai) * 14 + 3, 6) = tknm1(Count1)
        Cells((mai) * 14 + 4, 7) = tkcd1(Count1)
        Cells((mai) * 14 + 4, 2) = ndt(Count1)
        Cells((mai) * 14 + 4, 5) = fct(Count1)
'        ymdh=date(year(hdt(count1),"0000"),month(hdt(count1),"00"),day(hdt(count1),"00"))
    
'バーコード作成
        GoSub barcode1
    x = 1
        mai = mai + 1

Return
prtara:
   Worksheets("納品書").Activate
   prtendr = (mai - 1) * 14 + 14
    rangestr = Range(Cells(1, 1), Cells(prtendr, 7)).Address(ReferenceStyle:=xlA1)
    ActiveSheet.PageSetup.PrintArea = rangestr
Return
'------------------------------------------------------------------------
barcode1:
 ' 変更前はここでSet MiBar = New Mibarcd.Autoしていた
    MiBar.CodeType = 2 '2:code39,12:QR2コード
    '基本オプションを設定
    MiBar.Show (0) 'ウィンドウを隠す
'    MiBar.CodeType = 2 '2:code39,12:QR2コード
 'バーコード文字列の表示(0=非表示，1=表示)
    MiBar.AddCodeChar = 1
    'サイズ（倍率）2倍
     MiBar.BarScale = 1
    'バーコードの高さ
    MiBar.Height = 60
    '上下マージン
    MiBar.HMargin = 5
    '左右マージン
    MiBar.VMargin = 5
    'エラーレベル
    MiBar.QRErrLevel = 3
    'チェックデジットあり
    MiBar.CheckDigit = 0

    Code = ""
    'データを取得
    Code = dncd(Count1)


        'コードをセット
    MiBar.Code = Code
    'バーコードを作成
    MiBar.Execute
        'カーソルをセットする処理
      Cells((mai) * 14 + 13, 1).Activate
        'カーソル位置に貼り付け
        ActiveCell.PasteSpecial
’変更前はここで Set MiBar = Nothingしていた。

 Return

end01tag:
End Sub

＞おまけ。シートのオブジェクトと変数をクリア、contentsをすべてクリア開いた後、別のシートの枠を貼り付ける。

Sub CLEARDATA()
Application.DisplayAlerts = False
Worksheets("納品書").Activate
endr = Cells(1, 8).End(xlDown).Row

Range(Rows(1), Rows(endr)).Select
Selection.ClearContents
'図形削除
If ActiveSheet.Shapes.Count > 0 Then
Set 対象シート = ActiveSheet        'オブジェクトへの参照を変数に代入する
    対象シート.Shapes.SelectAll         'すべての図形を選択する
    Selection.Delete
End If
Worksheets("雛形").Activate
endr = Cells(1, 8).End(xlDown).Row
Range(Rows(1), Rows(endr)).Copy
Worksheets("納品書").Activate
For start1 = 0 To 8
Cells(start1 * 42 + 1, 1).Activate
ActiveSheet.Paste
Next start1
Application.DisplayAlerts = True

End Sub

sqlserver2008のピボットテーブルの更新をすると、「データソース名および指定された既定のドライバが見つかりません」となる

現象
sqlserver2008のピボットテーブルをエクセルで作って、他のｐｃに配布して実行すると、
「データソース名および指定された既定のドライバが見つかりません」とエラーになって
データが取り出せない

原因
その端末に、SQL Server Native Client がインストールされていない
処置
①SQL Server Native Client をインストールする
microsoft download centerで検索語、"Microsoft SQL Server 2008 用 Feature Pack"で出てきます
sqlserver2008で検索しても出てこないのが謎です
①の通りにするとインストールできます

端末ごとにクライアントをインストールしなきゃいけないなんて面倒だな、
なんか、他にいい方法があるかもしれないけど、動いたからいいか。。

やってダメだったこと
動作するｐｃからodc記述を動かないｐｃにコピーしたがダメだった。

mibarcode.exeを立ち上げると、「システムリソースが足りません」とでる

Mibarcd.iniを削除したら出なくなりました。
Mibarcd.iniは、Mibarcd.exeを立ち上げると自動で作られます

Mibarcd.exeを違うフォルダに移すと正常に立ち上がるようになることから気づきました。

正常なiniファイルと比べてみるとfontsizeが異常なのが分かる

ダメなiniファイル	正常なiniファイル
[Options]	[Options]
TaskTary=0	TaskTary=0
CodeType=2	CodeType=1
ThinWidth=0	ThinWidth=0
CheckDigit=0	CheckDigit=0
AddCodeChar=1	AddCodeChar=0
FormType=1	FormType=1
FormStyle=1	FormStyle=0
AutoCopy=1	AutoCopy=0
CopyToMf=0	CopyToMf=0
CopyToEMf=1	CopyToEMf=1
CopyToBm=0	CopyToBm=0
CBWatch=0	CBWatch=0
BarHeight=60	BarHeight=50
LeftMargin=20	LeftMargin=20
TopMargin=10	TopMargin=5
Font.Name=MS UI Gothic	Font.Name=Tahoma
Font.Size=-8733	Font.Size=8
Font.Style=49	Font.Style=0
Font.Color=0x006F0047	Font.Color=0xFF000008
BoxDraw=0	BoxDraw=0
Comment=0	Comment=0
ComntPos=1	ComntPos=1
ComntAl=1	ComntAl=1
ComntStr=	ComntStr=
QRVersion=4	QRVersion=4
QRErrLebel=0	QRErrLebel=0
Trim_Space=0	Trim_Space=0
PasteErr=0	PasteErr=0
[Desktop]	[Desktop]
Windows.Flags=0	Windows.Flags=0
Windows.Show=1	Windows.Show=1
Windows.MaxX=-1	Windows.MaxX=-1
Windows.MaxY=-1	Windows.MaxY=-1
Windows.X=176	Windows.X=154
Windows.Y=232	Windows.Y=203
Windows.XSize=533	Windows.XSize=511
Windows.YSize=599	Windows.YSize=570
LastStr="/EXIT"	LastStr=""
[History]	[History]
Count=-1	Count=-1

vbaで連続でバーコードを走らせてなぜかexitが効かずに止まる場合に発生（再現１００％）
手動でf8でスキップさせると発生しない
なぜだー

注意↓複数回走らせると、cpu100%になって動かなくなります。ctrl+atl+delでタスクマネージャーを立ち上げログオフするしか手がなくなります。タスクマネージャーのプロセスタブに、mibarcd.exeがたくさん貯まった状態になります。　プロセスが終了するまで待つプログラムを検討中です。。
少数のレコードで試すとmibarcd.exeがタスクマネージャーに溜まったのが見れます。

＞プログラム1 順番が前後しますが、何を走らせてそうなったか

Sub MiBarCall()
    Dim Temp
    Dim Code

    'データを取得
    Set Code = Range("A1")
    '/HTxxx  バーコードの高さ。xxxに高さを指定。（例：/HT80）
    '/LMxxx  バーコードの両脇マージン。xxxにマージン指定。（例：/LM15）
    '/TMxxx  バーコードの上下マージン。xxxにマージン指定。（例：/TM10）
    '/ITF    ITFコードを使用します。
    '/TN2    サイズ２倍
    '/BC0    ITFコードの外枠なし。
    Worksheets("sheet1").Activate
    For i = 1 To 1
    Code = "A00001"
    Temp = Shell("C:\temp\Mibarcd.exe /S /HT60 /LM20 /TM10 /C39 /TN1 /cd0 /cc1 " + Trim(Code), 1)
    Cells(i, 1).PasteSpecial
    Temp = Shell("c:\temp\MiBarcd.exe /EXIT", 0)
   
    Next i
End Sub

原因を推測するに、バーコード表示が起動している最中に、exitが走って無視されてしまうんでしょうね

dnsが勝手にmshome.netになる

現象
社内ipではないip 192.168.0.*のようなipになっている
サイボーズが使えない
dnsがmshome.netになっている
windows7 pro

解決
サービスの、dhcp clientとdns clientを再起動

原因の予測
lanケーブルの口の断線でネット接続が切れたため、社内のdnsを使わない設定になってしまったのかもしれない。

excel2010 情報を回復しています

os windows7
症状：上書き保存しようとすると、「情報を回復しています」というメッセージが出てフリーズする
解消した方法：
線などのオートシェイプ図形が大量に入っていると、現象が発生するようです。
図形を消すか、シートを別のブックに保存しようとしたらできました。

その他試したこと
excel.exe /safe から、該当のファイルを開いてもエラーで保存出来ず
com.アドイン  send to bloutoothがありチェックを外しても保存出来ず
xlstartには何も入っていなかった
windows xp excel2010の自分のデスクトップｐｃでは再現せず

ｐｃ ボタン電池の交換方法

pc
dell gx270　デスクトップ
windowsxp sp3

PC不具合への対処その１：
出た症状

• 朝見てみると、電源ランプが、電源をつけてないのにオレンジ色に明滅していて、電源ボタンを押しても反応がない→ 電源コードを抜いて挿すと電源が入り起動する
• ｐｃの時計が狂って毎回時計の変更が必要
• （ドメインに）ログインできなくなったり するようになった
• この症状と同じ→「「ネットワークとこのコンピュータの現在の時刻が一致しません。・・・」とドメインユーザーでログオンできないパソコンが・・・。」 Haya’s Note→この症状は参照先でも書いてあるとおり、ローカルの（アドミン？）ユーザで入って時計を修正したら、ドメインユーザーで入れるようになった。
• アクセスのフォームに枠だけ表示されてフィールドが表示されない現象もでました。別のｐｃからは正常に表示される→再起動したらなおった。ボタン電池の消耗が原因かわかりません
• パソコンの起動画面にPress F1 to continue,F2 to enter SETUP 　と毎回表示

診断
時刻が一致しなくてログオンできなくなるのは明らかに、ボタン電池の消耗で内部の時間が保てなくなってることが疑われる

処置
ボタン電池の交換(^_^;)

困ったこと
ノッチみたいなところを広げてやったら簡単に取れるやろと思ってたけど、ノッチがない(^_^;)
指で抑えを広げて取ろうとしたが硬くて取れない(；´Д｀)
抑えの爪が折れて取り返しがつかない事態も予想されたので、色々調べました。

↓ボタン電池の交換方法


CMOSバッテリ（ボタン電池）の交換方法

good






 bad







  bad






  ボールペンを上の方向から差し込んだら簡単にとれました。(指でも取れた）

 電池交換例１：
デスクトップパソコンのボタン電池（リチウム・バッテリー/コイン型バッテリー）の交換　奮闘記～　マザーボードの電池交換で失敗しないために　～

猫に触って？静電気により立ち上がらなくなった。
時刻が狂っていて、時刻を参照して削除するプログラムが走って、必要なメールを削除してしまった。 電池交換で失敗しないための心得がかいてあり、参考になりました。


 電池交換例２：
DELL GX270 SFF再生計画　その１（あ～んなモノやこ～んなコト）

・・・・バックアップ電池を止める爪が折れた!! (ノ｀Д´)ノ彡┻━┻ 仕方ないので、バックアップ電池はテープで止める(かっこわりー)

折れてもテープで止めたら、なんとか復帰できるんですね(^_^;) dell gw270コンデンサが錆びて吹くという不具合があるそうですが、自分のところは、割りときれいでした。 ｇｘ270 ユーザーズガイド　バッテリー（ボタン電池） マニュアルには、非金属の道具で取るよう推奨してますね

注意： 先端の鋭くない道具を使用してバッテリーをソケットから取り出す場合、道具がシステム基板に触れないよう注意してください。 必ず、バッテリーとソケットの間に道具を確実に挿入してから、バッテリーを外してください。 これらの手順を踏まないと、バッテリーソケットが外れたり、システム基板の回路を切断するなど、システム基板に損傷を与える恐れがあります。

 プラスチック製のスクリュードライバなど先端部の鋭くない非導電性の道具、または指を使ってバッテリーをバッテリーソケットから取り外します。

PC不具合への対処その２：
結局、次の日も、電源ランプがオレンジに点滅する現象が再発 gx270 ユーザーズガイド

電源ライトが橙色に点灯している場合 ― コンピュータに電力は供給されていますが、内部電力に問題がある可能性があります。

• マイクロプロセッサの電源ケーブルが、システム基板にしっかりと接続されているか確認します。

電源ライトが橙色に点滅している場合 ― デバイスが誤動作しているか、正しく取り付けられていない可能性があります。

• メモリモジュールを取り外してから取り付けなおします。
• すべてのカードを取り外してから取り付けなおします。
• ビデオカードを取り付けている場合、取り外してから取り付けなおします。
• コンピュータの背面にある電圧切り替えスイッチを切り替えます。
• 問題が解決しない場合、デルにお問い合わせください。

電気的な妨害を解消します ― コンピュータと同じ回路に接続されているか、コンピュータの近くで動作している電化製品が電気的な妨害の原因になることがあります。 その他の原因には、次のものがあります。

• 電源延長ケーブル
• キーボードおよびマウス延長ケーブル
• ひとつの電源タップに接続しているデバイスの数が多すぎる場合
• ひとつのコンセントに複数の電源タップが接続されている場合

何回電源を抜き差ししても、症状が改善せず 別の部屋Ｂで、電源につないだら起動した 元の場所Ａに戻したら、また、オレンジ明滅 また、さっきの部屋Ｂに戻ったら、オレンジ明滅、またはオレンジ点灯で起動せず ボタン電池をはずしたら、起動した（・∀・） ボタン電池を再度つけたら、起動 bios設定で日付と時刻を再設定、起動OK 本来の設置場所Ａにもって行って、起動OK 昨日場所Ａに設置したときは、電源ＯＮ、再起動して正常に立ち上がったら、ボタン電池がちゃんとついてなかったということは、ないと思うんだけど。。 本来の設置場所Ａの電源タップに５口の所、８個電源が刺さってるのよね(-_-;)
口数の少ないところから電源を取ったら、改善される可能性もあるけど、
場所Ｂでも症状が出ていることから、安定して使うのは無理と判断したほうが良さそうDEATH。。

excel2007、グラフの凡例の文字が印刷されない

解決した方法
【EXL】Excelのグラフで凡例の文字が印刷されない：ステラﾚおばさんのひとりごと
コントロールパネル－プログラムの追加と削除
更新プログラムの表示をチェック

Microsoft Office Excel 2007 (KB2596596) の更新プログラム を「削除」
特に警告メッセージも再起動も促されず正常に印刷出来るようになりましたつД｀)

一部加工してありますが、凡例が印刷されないグラフがあります


更新プログラムの削除なんて、怖くてやりたくなかったけど、成功例が載っていたので試す気になれました。
参照先のしっとりしまねさんには感謝感謝です（＿＿）






やって駄目だったこと
primopdfで印刷したがPDFの段階で凡例表示されず
凡例ボックスのフォント変更、ボックスサイズ変更、塗りつぶしなし-->結果×
レイアウトー簡易印刷はオフ－－関係なし

2011 年 10 月以降に公開された Excel 2007 の更新プログラムを適用すると表示通りに印刷できない
６つの更新番号
（KB2596535）
（KB2596539）
（KB2596545）
（KB2596596）
（KB2596991）
（KB2597045）
を削除するよう書いてあるが１つでいけた。

＊このページの誤記や改善方法によって、おかしくなっても責任もてません。更新プログラムの削除ですしね。マイクロソフトのページを直接参照して処置してください（＿＿）

symantec antivirus corporate editionがアンインストールできない

 現象
コントロールパネル－プログラムの追加と削除から symantec antivirusをアンインストールしようとすると

「製品 : Symantec AntiVirus -- エラー 1921。  サービス 'Symantec AntiVirus' (Symantec AntiVirus) を停止できませんでした。システム サービスを停止する権限を持っていることを確認してください。」

というメッセージが出てアンインストールできない

ユーザーは管理者権限を持っている
os:winxp sp3
hdd空き容量 18G以上
メモリ 448MB

処置
サービスを表示して、symantecと書いてあるプロセスを全て無効にする
窓の手で　vptrayの自動起動を外す（アンチウイルスソフトがしつこく立ち上がってきたら嫌なので）
再起動
cntl+alt+delタスクマネージャーでsymantec関連のプロセスがないのを確認
再び、コントロールパネルからアンインストールでいけました

マクロ を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

解決した処置方法
r1c1で始まるマクロ名はクイックアクセスツールバーから走らない。
vbeから動かすと動く
コマンドボタンからは動く
マクロ名をr1c1から始まらない名前にしたら動いた

状況
excelの表示形式　a1とr1c1の切り替えを簡単にしようとして、
pesonal.xlsにr1c1chgというvbaを記述し

クイックアクセスツールバーで登録して呼び出したらエラーで走らなかった

 リボンのマクロから見てみるとr1c1で始まるマクロ名を選択すると「実行」ボタンが淡色になっている

マクロ名をchgr1c1と、r1c1で始まらないファイル名にすると　実行ボタンが押せるようになった

ｒ１ｃ１で始まらないマクロ名でクイックアクセスツールバーに追加したら動くようになった

 メニューバーの上の部分に登録しました

excelのr1c1とアルファベット形式をワンタッチで変えるvba
サンプルコード
Sub chgr1c1()
If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
Else
Application.ReferenceStyle = xlA1
End If
End Sub

xlstartにpesonal.xlsを作って呼び出すようにしたけど、excelを開くたびに、pesonal.xlsが開いて気持よくない。。
ただ、r1c1とa1を切り替えることは、結構あるのでこれで使い勝手が良くなった

win7だとC:\Users\（ユーザー名）\AppData\Roaming\Microsoft\Excel\XLSTART
にPERSONAL.XLSBを作り、vbeからこのマクロを追加すると、余計なブックが開かなくていいい。

PERSONAL.XLSBを作りといったが、作っただけで動くかどうか確証がない。
はじめ、personal.xlsbというファイル名でこのコードを入れたものを作ったが、エクセルを開くとき、
「PERSONAL.XLSB を開くことができません。ファイル形式または拡張子が正しくありません。」というメッセージが毎回表示される」というメッセージが表示されるようになってしまった。
okを押して、ファイルーオプションーアドイン－設定でpersonalを追加すれば、エクセル起動時、このコードをクイックアクセスバーに登録して使うことはできた。
できたが、毎回警告が出るので邪魔臭い。
出ないようにするには、マクロ記録から、保存先、個人用マクロブックを選んで保存。
XLSTARTフォルダにPERSONAL.XLSBが作られるので、そこのvbeに上のコードを追加して保存。
という手順で、上記コードを、余計なブックを開かずに実行できるようになった。
リボンから開発タブ－マクロを押したとき出てくるマクロの保存先には、個人用マクロブックは現れない。マクロ記録を押すと、保存先に個人用マクロブックが現れます。
はじめから、 大文字でPERSONAL.XLSBを作ったらいけたのかもしれない。。