o_ひろりん_oのブログ一覧

以前エクセルを使っていて、ブック内の全シートを対象に検索したいことがあり、いろいろ探してこのマクロを見つけました(^^)

http://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/VBASAMP/Find.txt

ずっとこのマクロを愛用してきたのですが、実は時々なんだか腑に落ちないびみょ～な感じがありました。でも、それがなんなのかにはずっと気付かずにきました。

ずっと気にはなっていたのですが、本日やっと気がつきました(^_^;
それは、一枚のシートの中で、検索にヒットする部分があると、そのシートの検索はその時点で終了し、検索対象が次のシートに移っていたのでした。
だから、シートＡに実際にはヒットする部分が２ヶ所以上あっても、１ヶ所だけしかヒットしていなかったのです。

そこで、マクロ不得意なワタシがヘルプファイルとにらめっこして、下記のように書き直しました。
（太字の部分が今回の変更部分）

コレなら大丈夫ですよね…たぶん(^_^;


Option Private Module
'********************************************************************
' 全シート検索
'
' 全シートに渡って検索を続けます
'
' Copyright(C) 2000, 魔術幻燈
' http://www.bekkoame.ne.jp/%7Epoetlabo/
' poetlabo@cap.bekkoame.ne.jp
'
'********************************************************************
Sub 全シート検索()
　　Dim ws As Worksheet
　　Dim 検索文字列 As String, 該当 As Range
　　Dim 回数 As Integer

'　検索終了時に元のシート、元のセルをアクティブにするための準備
　　Set 元のシート = ActiveSheet
　　Set 元のセル = ActiveCell

　　検索文字列 = InputBox(Chr(13) & Chr(13) & "　　　検索する文字列は？", "全シート検索")
　　If 検索文字列 = "" Then Exit Sub

　　For Each ws In Worksheets
　　　ws.Select
　　　Set 該当 = ws.UsedRange.Find(What:=検索文字列)
　　　If Not 該当 Is Nothing Then
　　　　firstAddress = 該当.Address
　　　　Do
　　　　　該当.Select
　　　　　回数 = 回数 + 1
　　　　　If MsgBox("検索を続けますか？", 36, "全シート検索") = vbNo Then Exit Sub
　　　　　Set 該当 = ws.UsedRange.FindNext(該当)
　　　　Loop While Not 該当 Is Nothing And 該当.Address <> firstAddress
　　　End If
　　Next

　　If 回数 = 0 Then
　　　MsgBox """" & 検索文字列 & """ はありませんでした。", 48, "全シート検索終了"
　　Else
　　　MsgBox """" & 検索文字列 & """ は" & 回数 & "個ありました。", 64, "全シート検索終了"
　　End If

' 元のシート、セルに戻す
　　元のシート.Select
　　元のセル.Select

End Sub

外付けのＨＤＤ３５０Ｇがだんだんいっぱいになってきたので、安いモノがあったら買おっかなぁ～、とヤマダ電機を覗いてみると…

ん？！
２Ｔで８８００円、更にポイント１０％ですとっ！

聞いたことのないメーカーだったのがちょっと気になりましたが、とりあえずＧＥＴ！
サイズも小さく軽く、なかなかイイ感じです(^^)
通常販売価格は１８８００円なのが、期間限定で８８００円だったようです。

それにしても、２Ｔで８８００円とはねぇ～
ワタシが初めて買ったＨＤＤは４０Ｍで９８０００円だったなぁ～

一瞬、自分が撮られたのかと思いました(^_^;

ココです →　ここ

acerくんの表面って、見事につるつる！
思わずワックス掛けたくなっちゃうくらい(^^)

でも、パソコンの場合、指紋がとっても気になっちゃいます(x_x)
そこで、レザー調のダイノックを貼ってみました(^^)v

先日の外付け光学ドライブとおそろいになりました(^^)人(^^)

さて、もう一つとても気に入っているタッチパッドの設定を紹介します(^^)v


「モーメンタム」

タッチパッドをなぞる際に、すっと軽くはじくように指を動かすと、ぴょ～んと慣性が付いたようにカーソルが動きます！！すげー
トラックボールを使ったことのある方はわかると思いますが、それとそっくりな動きをします。
そういえばおおむかし、きっちゃ店にトラックボールが付いたミサイルを迎撃して街を守るゲーム卓がありましたね。なんていったっけな？？

閑話休題

カーソルが慣性移動中でもタッチパッドに触るとそこでカーソルは停止しますし、慣れてくると目的の移動量に合わせたはじき方ができるようになります。

いや～、これは秀逸ですね(^^)v
マジでやられました。脱帽ですm(_ _)m
こんなステキな機能なのに、これも取説には書いてないんですよ。ワタシが見つけられないだけかもしれませんが…(((((^_^;

ますますacerくんのことを気に入ってきましたよん(*^｡^*)