続き

そぉ。夜中に画面が青くなったり、黒くなったり、
何だかガチャガチャしてるなぁと思ったんだけど、
何せ眠たくて、半分以上は夢現だったしね。
で、このニュースを見て、今日恐る恐る電源を入れてみた。
Windowsのアップデートから更新プログラムの確認をして、
KB2…と検索を掛けたら、何とまぁ。
見事に２件ヒットぢゃないの（笑）。
いや、笑い事ぢゃぁないわな。
速攻で削除して再起動。
ま、後は様子見だね。

Windowsの更新プログラム

先日、とあるところでWindowsの更新プログラムをインストールすると最悪ＰＣが動かなくなる・・・
8/13公開のやつだ。
ＫＢ2982791
ＫＢ2970228
ＫＢ2975719
ＫＢ2975331

このうちの一つでもインストールすると最悪止まるって。
あ～、そういえば8/13～8/15は終日電源入れっぱなしだったわ・・・

Excel2010で、右クリックメニューを自分流に作ってみたら

’ThisWorkbookモジュールに書く

Private Sub Workbook_Open()
Application.CommandBars("cell").Reset
Call AddMenu1
Call AddMenu2
Call AddMenu3
Call AddMenu4
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DelMenu1
Call DelMenu2
Call DelMenu3
Call DelMenu4
Application.MoveAfterReturnDirection = xlToRight
End Sub



'標準モジュールに書く
Sub AddMenu1()
Dim Newb1
Set Newb1 = Application.CommandBars("Cell").Controls.Add()
With Newb1
.Caption = "カーソル↓"
.OnAction = "Sample1"
.BeginGroup = False
End With
End Sub

Sub Sample1()
Application.MoveAfterReturnDirection = xlDown
End Sub

Sub DelMenu1()
Application.CommandBars("Cell").Controls("カーソル↓").Delete
End Sub

Sub AddMenu2()
Dim Newb2
Set Newb2 = Application.CommandBars("Cell").Controls.Add()
With Newb2
.Caption = "カーソル→"
.OnAction = "Sample2"
.BeginGroup = False
End With
End Sub

Sub Sample2()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Sub DelMenu2()
Application.CommandBars("Cell").Controls("カーソル→").Delete
End Sub

Sub AddMenu3()
Dim Newb3
Set Newb3 = Application.CommandBars("Cell").Controls.Add()
With Newb3
.Caption = "値変換"
.OnAction = "Sample3"
.BeginGroup = False
End With
End Sub

Sub Sample3()
Dim myrng As Range
On Error GoTo エラー処理
ActiveCell.Value = ActiveCell.Value
エラー処理:
Exit Sub
On Error GoTo 0
End Sub

Sub DelMenu3()
Application.CommandBars("Cell").Controls("値変換").Delete
End Sub

Sub AddMenu4()
Dim Newb4
Set Newb4 = Application.CommandBars("Cell").Controls.Add()
With Newb4
.Caption = "列番号"
.OnAction = "Sample4"
.BeginGroup = False
End With
End Sub

Sub sample4() '列番号をA1形式からR1C1形式に切り替え　又はその逆
If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
Else
If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
End If
End If
End Sub

Sub DelMenu4()
Application.CommandBars("Cell").Controls("列番号").Delete
End Sub

'失敗したとき用に右クリックメニューの全てを削除するためのマクロ（笑）
Sub 右クリックメニュー全削除()
Application.CommandBars("cell").Reset
End Sub


これが、結構便利で。
アドイン作ってリボンに登録してたんだよな～
って考えたら、右クリックに登録した方が、超早いし便利だった。

何でも屋が仕事の今の会社で、如何に早くExcelやWordを済ませるか・・・
マウスよりもショートカットキーの方が速いぞ、
な～んて講釈はたれずにさっさとやっつけて、草取りやどぶ掃除に専念さね。

良かったらマクロをThisWorkbookと標準モジュールにコピペして使ってみてくださいよ。
4つしかメニューは入ってませんが、上2つは便利。
3個目は必要な人は必要で・・・（笑）。

ネタ切れのkameでした（爆）

なんだかねぇ～

今まで何年パソコン触ってたんだろね。
情けないわ。

教えて下さい m(__)m

①Excel2010を使ってるんですが、
　その前には当然のことながら2003あたりを使ってました。
②2010には慣れていなかったので、2003と2010のExcelを一つのパソコンに同居してました。
③使い勝手が良かったので2003で作ったアドインを2010に組み込んで使ってました。
④2010に慣れてきたので、ま、いっか　と思い2003をアンインストールしました。
⑤2010のリボンを開いて「アドイン」リボンを開くと当時使ってた2003のアドインがボタンと共に出現します。
⑥リボンの設定をしても消えません。リセットしても消えません。
⑦パソコンのどこを探しても　.xlbなるファイルはありません。

どうしたらExcel2010のこのリボン上のこのユーザー設定のボタンが消せるのでしょうか・・・
誰か、教えて下さい　m(__)m



こいつを削除したいんです・・・

とりあえず小さい文字で

大きな字が見たければ、マウスでクリクすればいいか。
それに今の会社でPC見過ぎだしね。
だいたい6時間は毎日見てる。ぷぅの時はよく言って
一日3時間くらいだったけどね。それで、視力は悪くなってるしね。

実はそうぢゃなかった

そういえば、アイコンを大か小かを選択出来るなら、
文字のサイズもあるだろ、いや、確かあった筈。
目が悪いから、文字のサイズを中に設定したような。
え～ッと、どこでやるんだっけ？
あれこれ弄くり回してやっと見つけた。
文字のサイズはやっぱり中。
小（標準）に直してリネームソフトを開いたら、
何と、バッチリぢゃないの～。
但し、全てのシーンで文字もアイコンもちっちゃ…

さてさて、どちらをとるか…悩ましい。

ところがby the wayだ

フリーウェアのリネームソフトを入れた。
色々とやってみて、ようやく自分に合ったのを見つけた。
ところが、窓の中の文字が微妙に欠けていたり、
実行ボタンがやたら右のウィンドウ枠に密着してたりとオカシイ。
同じアプリは会社のPCにも入ってるけど、何んの問題もなく使ってる。
勿論Win7にも対応してるから問題なしなんだが。
何回も三回もアンインストールしてはやり直し、諦めかけてふと思い付いた。
画面の解像度が噛んでる…のか？
そう思って画面のブロパティを手繰り、解像度を落としたがダメだった。

だからどぉって事ぢゃないんだけどね

何故かSONYのVAIOを使ってる。画面の解像度は1920×1080のちょっとだけ幅広。
今まで家で使ってきたPCは全部FUJITSUばっかりだった。
とくにAVには興味がないので拘りはなく、使い慣れてるものでって３代続いた。
そして頭が壊れて家でPUになったときにVAIOに替えた。
別に理由はなく、近所にできたKづ電気に息子が気晴らしに連れて行ってくれた時に
10万ポッキリなら買ったるわ・・・ぐらいのつもりで買った奴。

時代がそうなんだろうけど、確かに画面は色も綺麗だ。

おっぺけぺさん、有難う。

Picasaは出始めた時に使ってました。そして久しぶりにダウンロードしてみました。そしてそのPhotoScapeなるソフトをダウンロードしてみました。アイコンは良く似てました。チョット私にはむずいですね。もっとシンプルでいいのですが、要検討ですね。Picasaは画像のプレビューまでの時間はメチャ速いですよ。他のは目ぢゃ無いですね。で、それぞれいいところがあるので使い分けるしか今のところ考えがまとまらないデスね。ズバリってのが今分からないッス。

いいフリーのソフト、知りませんか？

画像処理のソフトなんだけど、リサイズが簡単に出来てさらに画素数も下げて。更に、トリミングが指定の大きさに簡単に出来る奴。一本でそれが簡単に出来る奴、どなたかご存知ないですか？
今自分が使ってるフリーソフトは藤って言うリサイズソフトと、画素を見ながらトリミングするWinVieurだっけ、確か。ただ、トリミングする時って適当な大きさになっちゃうでしょ、あれがあかんのですわ。今切ってるサイズが画面に出ていればいいんだけどさぁ。どなたかご存知ないですか？

何とか行けた

自分のPCで、マイネットワークを開いてIPアドレスの一番右端の数字を一旦別の数字に変えて窓を閉じる。次にエアーステーション設定ツールを使ってIPアドレスを書き換えてしまった無線親機を探す。そして見つけたらIPアドレスを元に戻して設定ツールを閉じる。次にもう一度マイネットワークを開き、先程触った自分のPCのIPアドレスを元の数字に直して窓を閉じる。これで完了だ。PCのIPアドレスと無線親機のIPアドレスが同じなので、ネットワーク上に競合するIPアドレスが存在すると言うエラーメッセージが何回も三回も出てしまったんだ、と勝手に解釈してるけど、ハード的な問題は苦手だし(^^;;
しかし、直って良かった～。

何だかマズイなぁ～

無線LANがある環境で、PCに無線子機を引っ付けてみた。バッファローのエアーステーション。なかなかうまくいかなかったので、設定ツールを使ってこちょこちょやってたら、親機のIPアドレスをパソコンのそれと同じに書き換えてしまったみたい(・・;)
繋がらないわ、ネットワーク上に競合するIPアドレスが有ります、何てメッセージは出ちゃうわでアウト。挙句の果てには、親機が見つからなくなっちゃったし、で、グリコ。何かいい方法無いっすか？

今、何ともならない事

誰か教えてください。
Excelで、あるシートに発注データが入力されています。

部署　依頼日　依頼者　品番　品名　型式等　数量　仕入先　
という順にデータが並び、縦に20行ほど入力されてます。
仕入先はそのうちにダブっているものも、そうでないものも混在しています。

仕入先をキーにして並べ替えは済んでいるのですが、注文書を作らなければならないので、
別のセルに同じ仕入先ごとに集め部署から始まる仕入先までの範囲をコピーし、別のセルに作ってある注文書を印刷する。
印刷したら次の仕入先をキーにして同じ操作を繰り返し、20行ほどのデータの最後まで行ったら終了する。

この一連の同じ作業の繰り返しをマクロを組んで実行したいのだが、全くコードが解らない。

A1に部署　B1に依頼日って具合で実際のデータは
A2から右方向に買いてある。

A2から順番に下方向に向かっていき、A2と同じ仕入先なら右側のデータをコピーして指定したセルに貼り付ける。
同じ仕入先ではなくなったら注文書を印刷して次の仕入先に移って・・・以下同文ってフローなんだけど.
どなたか教えてくださいませんか　m(__)m　　m(__)m　　m(__)m

娘の部屋のリフォームを・・・・

先週の日曜に、車庫に散在していたフローリングを使って、二階の娘の部屋に張ってみた。
まずカーッペットをめくって剥がし、ヘラやワイヤーブラシを使ってボンドのカスを取り除き、
部屋の入り口の方から張り始めた。
でも、フローリング材は全て中途半端な数量と、ザックリと半分に切り落とした長さの物ばかり・・・
まぁ、自分の家だから、適当でいいかって(笑)。





なんと、部屋の1/3までで材料が打ち止めになりました・・・(爆)

クローゼットの扉の床との隙間は、カーペットの厚み分しか無かったので、2枚とも取り外し、
電気のこぎりで５ミリ下端を切り落としました。
左側の押入れの扉は床に揺れ防止のストッパーがあるので、まぁ何もせずにカーペットのまんまってことで(笑)。
中に写り込んでいるのはいるのは娘が付き合ってる野郎で、手伝えと言ったら朝からやってきて、
板を切ったり、ボンドを塗ったりと、マジメに働く男ですわ。
kame家に遊びに来るときは、必ず前もって私にメールをしてくるんですよ(-_-メ)。
帰りの電車の中からも必ずメールをしてくるんですよ(-_-メ)。
一番最初にちょっと脅してやったもんだから・・・

まぁ、ちゃんとお伺いを立てて、きちんとお礼がいえる男だから、近頃の青年にしては珍しく気に入ってはいるんですけどね(-_-)。
でも、言葉は今の子ですなぁ～
ナニゲニ熱いものは苦手ですけど、全然普通にうまいっす・・・
って感じで・・・

しかし、残りの2/3ほどの床はどうしようか・・・