便利にスピーディーに！

確定申告@インターネット

インターネットのお得情報

VBAの初心者です。
どうか教えていただきたく知恵袋に掲載しました。
私はVBAの初心者です。
下記のサンプルをインターネットから引き出してきたのですが、私流に変更できません。
変更したいポイント①現在のマクロだと、検索先のファイルを指定しなければならないのですが、私は毎回同じ検索先（サーバー）に変更したい。
②検索結果は表示せずに、見つかった場合じゃ、検索したファイルを自動的に展開したい。
見つからないは「見つかりませんでした。
」などの表示をしたい。
この2つだけですが、何かいい方法はありませんか？
あったら、私にお教えください。
何卒よろしくお願い致します。
Sub Sample() Dim f, buf As String, cnt As Long, FSO Set FSO = CreateObject("Scripting.FileSystemObject") With Application.FileSearch .NewSearch buf = InputBox("検索するファイル名を指定してください") If buf = "" Or buf = "False" Then Exit Sub .Filename = buf buf = GetFolder("検索を開始するフォルダを指定してください") If buf = "" Then Exit Sub .LookIn = buf .SearchSubFolders = True ''サブフォルダも検索する If .Execute() > 0 Then For Each f In .FoundFiles cnt = cnt + 1 Cells(cnt, 1) = f ''パス＋ファイル名 Cells(cnt, 2) = FSO.GetFile(f).Name ''ファイル名 Cells(cnt, 3) = FSO.GetFile(f).ParentFolder ''パス Next f Else MsgBox "見つかりませんでした" End If End With Set FSO = NothingEnd SubFunction GetFolder(msg As String) Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, msg, &H1 + &H10) If Not myPath Is Nothing Then GetFolder = myPath.Items.Item.Path Else GetFolder = "" End If Set Shell = Nothing Set myPath = NothingEnd Function

xlink kaiについて質問です。。
GW-USMicroNでは無線でインターネットができなければ使用出来ないのでしょうか？
回答とよろしくお願いします。。

知人にお金を貸して一年以上たちますが返してくれません。
皆様のお知恵をお借りしたく質問させていただきます。
20年１月19日に５万円ほど貸しました。
その時に借用書ではないですが、私から５万円を借りました。
返済日は21年１月19日までに返済すること。
なお期間内までに返済が無い場合でもこの書類は有効であり返済が無い場合はいかなる処分も厭わない。
てな感じでサインと母印を押してもらった書類をまだ持っています。
ですがいつもいい訳ばかりで返す返すと言いながら１年以上もたちました。
私にとって５万円は大金ですので絶対返してもらいたいのです。
最近不安になってきましたので、インターネットからダウンロードした借用書に書き直してもらおうかと思っています。
基本的に全額返済してもらいたいのですがどのようにしたら良いのでしょうか？
後借用書を書いてもらう時の印鑑は印鑑証明書付きの印鑑がよいのでしょうか？
後何かできる処置はありますでしょうか？
どうか皆様のお知恵をお貸しください。
借用書の書式なんてどんな形でも構いません。
今お持ちの紙（？
）でも金銭の授受と返還約束（当然氏名も）が記載されていれば問題はありません。
それに、その新しいダウンロードした借用書を持って行っても、サインするかどうかは相手の自由です。
大事なことは、その借用書をどう使うかです。
どんな立派な借用書であろうと、当然ただ持っているだけではなんの効力もありません。