埼玉県 さいたま市 または 川口市近辺 新築屋内配線 電気工事士 一人親方様を積極募集中です 2万円～2.5万円/1人工

 埼玉、東京を中心に戸建ての電気配線工事を行っています。

また関東圏内にて「新築戸建て住宅屋内配線」「アンテナ工事」など
電気に関わる工事を全般的におこなっております。

屋内配線においては、当社はハウスメーカー様より
毎月安定的にお仕事を依頼いただいております。
「新築屋内配線のご経験のある一人親方様」を
積極募集中です。ことし１２月より　うごく現場多数！
「スポット的に仕事が欲しい」といったご要望にもお応えできる状況です

まずはお電話またはメールにてご連絡ください
太陽電業株式会社　04-2952-2488（代表）

【月収例】ある一人親方様の場合
新築屋内配線　140万円　＜4棟/月＞　※材料費別

【とくに受注が多い地域】
・埼玉県さいたま市
・埼玉県戸田市
・埼玉県川口市

【募集要項：優遇】
・戸建て経験者　※急募
・インボイス　ありの一人親方様　または　法人

【現場例】　※交通費、残業代、駐車料金含む
　現場名：
・埼玉県さいたま市大宮区...　：￥290,000～￥320，000　（税抜）
・埼玉県〇〇市...〇〇邸：￥320，000～￥467,000（税抜）
・東京都杉並区...？号棟：￥310,000～￥320，000（税抜）

【おしらせ】
「1件の現場にまるごと一社で請け負って働いて頂く」ことをお願いしたい次第です。

「1件の現場の主要人物を当社で用意して、みなさまには補助（お手伝い）として

働いて頂く」という形での働き方は想定しておりません。ご確認の上、ご連絡いただけますと幸いでございます

当社ホームページ　https://taiyodengyo3.stars.ne.jp/

現場にて-太陽電業株式会社

#電気工事 #エアコン　太陽電業株式会社です。本日は現場です。空調服を着用しての作業となります。

防犯カメラ設置 案件お待ちしています -太陽電業株式会社

今年7月　＃エアコン室外機盗難　の　＃注意喚起　が　＃埼玉県警　よりございました。今月8月は

埼玉県内の　＃連続放火　事件能容疑者と思われる

人物が　＃逮捕　されました　埼玉県警は　＃防犯対策の　一つとして　＃防犯カメラ　の設置をあげました　＃埼玉県　の　＃ハウスメーカ様　＃賃貸住宅のオーナー様　案件をお待ちしております。

USB 56K アナログモデム PL-US56K Windows10 まいと～くファックス9 FAXを受信 メンテナンスレポート

太陽電業株式会社です。　R6.7の上旬にFAXが受信しずらい

状況となり、お取引先にご迷惑おかけしてしまいました。

さて、そのメンテナンスレポートです。

同様の環境で、運用中の方のお役に立てれば幸いと思いまとめました

◆運用環境

・モデム：USB 56K アナログモデム  PL-US56K （2009.11ごろ発売）

・OS：Windows10

・アプリケーション：まいと～くファックス9

◆メーカサイト

・まいと～くFAX9Pro/インターコム　（メーカサイト）

https://www.intercom.co.jp/mytalkfax9/

　※オンラインマニュアルが見つけられませんでした...

・USB 56K アナログモデム  PL-US56K 　※販売終了

https://www.planex.co.jp/product/modem/pl-us56k/

・アナログモデムドライブダウンロード　Windows10　※サポート終了

https://www.planex.co.jp/support/download/usb/pl-us56k.shtml

◆FAX利用見直しは....

ところで皆様、企業または事業所単位でＦＡＸご利用ですか？

令和4年12月27日　#河野デジタル大臣　（当時）が記者会見で

「各府省の　#FAX利用　見直し」をお話になって半年以上が経ちますが

弊社、FAX現役でございます。

◆エラーメッセージ　まいと～くFAX　

　//この画面で「このモデムは使用不可です」と出ます

　//設定ボタン（工具のマーク）もクリックできない

※この画面は正常作動時の画面です

◆何が調子が悪い？PCかモデムか？

結論としては、はっきりとはわかりませんでした。

ただ、状況としては

「ここに挿せば認識するが、こちらに挿すと認識しない」

PCにはいくつものUSBポートがありますゆえ....

◆推奨モデムじゃないからダメ？

推奨のモデムがいくつか挙げられていますが、

こちらの製品はその中には属しませんが、

ちゃんと受信できておりましたが...

そして、今回対応した結果受信は可能となっています。

◆モデムは壊れていないかも

・モデムテスト方法：本線ではない電話線を探してつなぐ

・まいと～くFaxで受信テスト

　※ここでいう本線とは社外の方にFAX番号として

　　お伝えしている番号です。弊社は複数回線引いているので

　　このような方法が可能となりました　

//FAX受信テスト

※？モデム壊れていないみたい！と、

　ここでわかったんです。次のステップです。

//USBのポート差込口をあれこれ差し替えて

　正解はこんな感じでした

　

※モデムは壊れていないと信じて、何回も挿して

　　何度もPCを再起動しました

◆本線につなぎましょう

//まいと～くFaxの「ダイアラ」機能を用いて

　ダイアル発信テスト　

※自分のスマホの電話番号を入力して「発信」クリック

　ダイアル発信できています！これで「修理完了」と思いました。

◆受信テスト

※セブンイレブンのコピー機についている

　FAXから会社にFAXしてみたらできました！

　よかったよかった....しかしPCが新しくなれば

　周辺機器であるこちらのモデムは動かないですから

　買い替えを視野に考えるべきです。

◆乞うご期待

では次回はついでにおこなったPCのメンテナンスです。

タイトルは「起動時の常駐ファイル消してもいいのはどれ？」

と参ります。

今回使った製品：

・株式会社ミヨシ　「電話機コード　6極4芯/2芯　10m　」

https://item.rakuten.co.jp/mcoshop/dc-410/

・株式会社ミヨシ　「コードを延長」

https://www.mco.co.jp/products_tel/da-40/

　※リンク先は類似品となります

さいごまで有難うございました。

太陽電業株式会社 #一人親方様募集中 #埼玉県

太陽電業株式会社です　当社は　只今　#エアコン工事 #テレビアンテナ #木造配線 の　#電気工事　のご経験のある#一人親方様　を募集中です　#埼玉県　または　近郊で　0429522488　にお電話ください

太陽電業株式会社です　当社は　只今　#エアコン工事　#テレビアンテナ　#木造配線 の　#電気工事　のご経験のある#一人親方様　を募集中です　#埼玉県　または　近郊で　お仕事をお探しの方の応募をお待ちしております　0429522488　にお電話ください
11分前

太陽電業株式会社です　当社は　只今　#エアコン工事　#テレビアンテナ　#木造配線 の　#電気工事　のご経験のある#一人親方様　を募集中です　#埼玉県　または　近郊で　お仕事をお探しの方の応募をお待ちしております　0429522488　にお電話ください
11分前

https://www.instagram.com/taiyodengyo.co.jp/

スポーツから目が離せない２０２４年夏テレビの調子はいかがですか-太陽電業株式会社

太陽電業株式会社です　#2024年パリオリンピック　まで数日、#メジャーリーグ　　#大谷選手　４年連続３０号ホームラン達成　夏休み本番！　#暑い夏　#スポーツ　もあつい！です。　#テレビ　から目が離せません　テレビの調子はいかがですか？　#映りが悪い　#ちらつきがある　など　#賃貸住宅オーナー　様　#ハウスメーカ様　#案件　ご相談ください

vba ワークシートの名前を配列から命名する 配列は別ファイル（ここでは名簿.csv）から作成する

//十分なエラーテストは実施していません　ご参考程度に

 Sub makeP_Worksheet()

Dim targetFileName, targetFileName2, myPath, mePath As String

Dim flag As Boolean

Dim mySheetName(), LastRow As Variant

Dim cnt, i, FirstRow, myCnt As Long

Dim myRange, myObj, myFind As Range

Dim wb, wb2, myPeople As String

Dim myWb As Workbook

Dim myWbCnt As Long

On Error Resume Next

Dim bk As Workbook

  For Each bk In Workbooks

    If Not (bk Is ThisWorkbook) Then

      bk.Close SaveChanges:=False

    End If

  Next

myPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)

mePath = ThisWorkbook.Path

targetFileName = mePath & "\" & "集計.xlsx"

targetFileName2 = myPath & "\" & "名簿.csv"

Set wb = Workbooks.Open(targetFileName)

   myWbCnt = wb.Worksheets.Count

Set wb2 = Workbooks.Open(targetFileName2)

    LastRow = wb2.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row

 

 

 If myWbCnt < LastRow Then

  wb.Worksheets.Add After:=Worksheets(1), Count:=LastRow

 End If

 Set myRange = Range(Cells(1, 1), Cells(LastRow, 1))

 Set myObj = myRange.Find(What:="*", SearchOrder:=xlByRows)

 If myObj Is Nothing Then

 

  Exit Sub

  

 End If

 

 wb.Worksheet(2).Name = myObj

' Debug.Print myObj & wb.Name

' Debug.Print myObj

 FirstRow = myObj

'  Debug.Print FirstRow

  

   Set myFind = myObj

   

   

 

 ReDim mySheetName(LastRow)

  mySheetName(0) = myObj

 wb.Worksheets(2).Name = mySheetName(0)

  

  

 

  i = 1

   Do

        '// 次を検索

        Set myFind = myRange.FindNext(After:=myFind)

        mySheetName(i) = myFind

'        Debug.Print myFind(i)

        wb.Worksheets(2 + i).Name = mySheetName(i)

        '// 検索不一致時はループを抜ける

        If myFind Is Nothing Then

            Exit Do

        End If

        '// 最初に検索されたセルが再検索された場合

        If myFind.Address = myObj.Address Then

            Exit Do

        End If

'        Debug.Print myFind

'        mySheetName(i) = myFind

        Debug.Print mySheetName(i)

        i = i + 1

    Loop

End Sub