スズキモータース

（VBA）を使用して、業務を合理化するツールを開発し Officeで簡単に実行できるも…

スズキモータース

（VBA）を使用して、業務を合理化するツールを開発し Officeで簡単に実行できるものを一部を公開しました。 もし「こんな機能があれば助かる」とお考えの場合は、遠慮なく直接ご連絡ください。 https://www.dopnet.jp/
  • 固定された記事

自己紹介

主に、自動車の修理部品を通販しており それにかかわる業務管理システムは自社で構築しております。 その過程で、汎用性があるものをnoteにUPしてゆきます。 実績を積むため「Microsoft Office」で使用する、簡易的な機能開発は 無料で承っておりますので「こんな機能があれば便利だ」とお考えの点を遠慮なくお知らせください。 直接、dop@dopnet.jpまでご連絡ください。 ホームページ 株式スズキモータース ECサイト ・Rakuten ・Yahoo!ショ

スズキモータース

    • AIを使ってお得な商品を探す未来

      最近、人工知能（AI）を活用して商品を探す機会が増えていることから、ChatGPT4とGeminiの二つのAIを比較検討しました。 今回の質問は、外気温が5度以下になった場合に自動的に通電する機能を持つコンセントを探しています。 「凍結を防ぐために、5度以下で作動する自動通電コンセントはありませんか？また、それを販売しているウェブページのURLを教えてください」 という内容です。 このような特定の要求に応える検索能力を試すため、生成機能ではなく検索機能が主役です。 そ

      スズキモータース

      • 大量のJPEGファイルを効率的に小分けするVBA

        Shopifyで画像をアップロードする際には、一度にアップロードできるのは200枚までという制限があります。 そのため、もし一つのフォルダに1000枚の画像がある場合、200枚ずつ選択してアップロードする必要がありますが これはかなり手間のかかる作業です。 この作業を簡単にするため、特定のコードを作成しました。 このコードを使用することで、Excelの「E2」セルに指定したフォルダのパスに従って、自動的に200枚ずつの画像でフォルダを分けることができます。 新しく作成さ

        スズキモータース

        • Excelで条件に基づくセルの色分け VBA

          Lの値が特定の文字列だった場合は その、行の色を変えるという、簡単なコードですが 作業する際に、結構便利です。 Excelで使用します。 下記のコードは L列が「スキャン」だった場合は、薄黄色 L列が「WEB」だった場合は、薄緑色 L列が「データ」だった場合は、薄青色 にするように、しております。 弊社では、帳簿用の銀行データを、一旦Accessで、インボイス番号や 税率、領収書データの取り込み方法、返金先等を、自動出力後に Excelでエクスポートしております

          スズキモータース
        • 固定された記事

        自己紹介

        スズキモータース

          インボイス制度によって複雑化したヤフーショッピングの「受取明細」と「請求明細」を簡単にまとめるシステム

          インボイス制度が始まってから、Yahoo!ショッピングの「受取明細」と「請求明細」が項目ごとに分かれており、整理が難しくなっています。 これが、正確であることは理解しますが、80枚近くもあるPDFファイルから一覧を作成するのは非常に困難です。 税理士に依頼しても、恐らく快くは思われないでしょう。 他の出店者の方々はどのように対応されているのでしょうか? 消費税額も無視できる金額ではないため、PDFからデータを抽出して一覧にまとめるシステムを開発しました。 必要なソフトウェ

          スズキモータース

          インボイス制度によって複雑化したヤフーショッピングの「受取明細」と「請求明細」を簡単にまとめるシステム

          スズキモータース

          「取り寄せ品」休日を除外した、入荷までの平均日数を出す

          「取り寄せ品」の納期確認に関するお問い合わせが多く、これまではお客様からのメールを受け取り次第、メーカーに通知し、その返答をお待ちいただいてからご連絡しておりました。 しかし、お問い合わせの件数が増えたことで、メールを担当するスタッフとメーカーの双方に負担が大きくなってしまい、結果としてお客様にも長時間お待ちいただく状況が生じておりました。 この問題を解決するために、当社では過去2週間の販売データを基に、土日及び祝日を除外した発注から入荷までの平均所要日数を、お知らせするツ

          スズキモータース

          「取り寄せ品」休日を除外した、入荷までの平均日数を出す

          スズキモータース

          Rakuten と Yahoo! 注文管理画面を開くボタンを作成

          知らなかったのですが、Rakuten と Yahoo! ログインしていれば注文管理画面を、URL指定で開くことが出来る様です。 早速、各フォームに実装しました。 ●●●の部分をモールの「注文番号」にするだけです。 ▲▲▲の部分に「ストアアカウント」にするだけです。 ※モールにログインしていなければ開きません。 ・Rakuten https://order-rp.rms.rakuten.co.jp/order-rb/individual-order-detail-sc/in

          スズキモータース

          Rakuten と Yahoo! 注文管理画面を開くボタンを作成

          スズキモータース

          第1土曜日と第3土曜日を特定する VBA

          汎用性あるのか、微妙なためUPするか迷いましたが 自分用のメモとしてUPします。 休業日のレコードを自動生成するコードは作成しましたが 第1土曜日と第3土曜日を特定できず、下記のコードを作成しました。 これで、前回作成したタイマーと組み合わせて、特定の土曜日のみ 自動で実行したい処理が出来そうです。 休日_テーブル 列の「休日」休業日の日付 列の「種類」 ・ 1は土曜日 ・ 2は日曜日 ・ 3～6は祭日等 として、同じ年月で、 土曜日のみ番号を振るります。 これで、第1土

          スズキモータース

          第1土曜日と第3土曜日を特定する VBA

          スズキモータース

          Microsoft Accessで、タイマーを指定して「●時間」後、処理をに実行します

          タスクスケジューラを使用せず Microsoft Accessで、タイマーを指定して「●時間」後 処理をに実行します。 休日等に、実行ボタンを押したい場合、下記のコードを使用して 「１２時間後」等で指定して、実行します。 実行方法 ScheduleTaskをcallして実行してください。 ●●●の部分にcallしたい、モジュール名を入力して下さい。 Dim executeTime As Date Public Sub ScheduleTask() ' ユーザーに何

          スズキモータース

          Microsoft Accessで、タイマーを指定して「●時間」後、処理をに実行します

          スズキモータース

          複数のフォルダーに含まれている (例)「item.csv」を全て、結合して１つのCSVファイルを新たに作成します

          複数のCSVファイルを1つにまとめる必要があり、これも数十件あると手作業では、うんざりするためVBAで作成しました。 ※複数のフォルダーに含まれている (例)「item.csv」を全て、結合して１つのCSVファイルを新たに作成します。 ※サブフォルダーを含めた、全てのフォルダーを検索します。 ※1行目のみタイトルで残して、残りは内容のみ結合されます。 実行方法 ・E１に「フォルダーパス」を入力する 　※例　C:\Users\suzukimotors\Desktop\tes

          スズキモータース

          複数のフォルダーに含まれている (例)「item.csv」を全て、結合して１つのCSVファイルを新たに作成します

          スズキモータース

          Excel VBAで、複数の特定範囲をCSVに保存するマクロ

          会社で使用するために作成したものを、そのまま張り付けましたので ファイル名や、場所は変更して使用してください。 １つの、シート内のデータを複数のcsvファイルに保存するのに便利です。 手作業でも可能ですが、数十件以上あり、さすがに面倒なので作成しました。 実行方法 ・E１に「フォルダーパス」を入力する ・VBAエディタを起動します（Alt + F11キー）。 ・「挿入」メニューから「モジュール」を選択して、新しいモジュールを作　成します。 ・下記のコードをモジュー

          スズキモータース

          Excel VBAで、複数の特定範囲をCSVに保存するマクロ

          スズキモータース

          Excel VBAでフォルダー内の全ファイル名を一括置換

          フォルダー内の大量のファイル名を変更する必要があり 作成しました。 Excel VBAでフォルダー内の全ファイル名を一括置換します ※サブフォルダーも含まれます。 実行方法 ・E１に「フォルダーパス」を入力する ・E2に置換前の文字列を入力する ・E3に置換後の文字列を入力する ・VBAエディタを起動します（Alt + F11キー）。 ・「挿入」メニューから「モジュール」を選択して、新しいモジュールを作成します。 ・下記のコードをモジュールウィンドウに貼り付けます。

          スズキモータース

          Excel VBAでフォルダー内の全ファイル名を一括置換

          スズキモータース

          Excel VBAで「画像データ」と「保管場所」を一覧化する方法

          商品データと保管場所の一覧を作成するために、簡易的なVBAスクリプトを作成しました。 このスクリプトは、「画像ファイルのパスをA列」に、".jpg" 拡張子を持つ「画像ファイルの名前をB列」に入力します。 すべてのフォルダーおよびサブフォルダーを検索してこの情報を収集するようになっています。 ※約43万件のデータを約7分で完了できました。 fileName = Dir(folderPath & "*.jpg") の「.jpg」の部分を変更すれば、別のファイルでもリスト化可能

          スズキモータース

          Excel VBAで「画像データ」と「保管場所」を一覧化する方法

          スズキモータース

          Rakuten SKUプロジェクト「select.csv」変換ツール

          弊社でも Rakuten の SKUプロジェクト が間もなく始まることを受け、関連する各システムの変更作業を急いで行っています。 このプロジェクトの影響を最も受ける部分の一つが、CSVファイルを使用した商品登録プロセスです。 これまで、商品情報を登録する際には「item.csv」と「select.csv」の2種類のファイルを使用していましたが、これからは「normal-item」という形式に統一する必要があります。 「normal-item」形式では、商品の情報を以下の3

          スズキモータース

          Rakuten SKUプロジェクト「select.csv」変換ツール

          スズキモータース

          パンデミック後の、リモートワークの有効活用方法

          新型コロナウイルスのパンデミック後の、リモートワークの有効活用方法を見直し、AIの導入により業務の負担を軽減しつつ賃金を引き上げ、さらに収入を増やしたいスタッフにはより多くの稼ぎの機会を提供することができる仕組みを構築しました。 まずは、私たちの会社で行った人員補充の取り組みについてお話しします。 私たちは、スタッフの負担を減らすために、ただ人員を増やすのではなく、AIの力を活用してみました。 これにより、自社で無駄に感じられていた負担を大きく減らすことができました。 具

          スズキモータース

          パンデミック後の、リモートワークの有効活用方法

          スズキモータース

          (Microsoft Access) SQL文を含むクエリ内で特定の文字列を検索

          Microsoft Accessで使用するVBAを作成しました。 このVBAは、SQL文を含むクエリ内で特定の文字列を検索する機能を持っています。 大量にクエリが存在する場合、テーブル内の一つの項目名を変更するだけでも、非常に時間がかかる作業となることがあります。 しかし、このコードを使用すれば、どのクエリに特定の文字列が含まれているかを簡単に確認することができます。 これにより、確認作業の時間を大幅に短縮し、見落としを防ぐことができます。 さらに、このコードはクエリだけで

          スズキモータース

          (Microsoft Access) SQL文を含むクエリ内で特定の文字列を検索

          スズキモータース