AutoFit

前回、ACCESSで出庫リクエストに対して在庫数の不足している品目リストをPDFで出力する様にしました。 各部署へ配布するには都合が良いのですが、それに対する作成状況を把握するのにEXCELへもデータを出力する事にしました。 本日はその機能を実装です。 取り合えず、メインの取引先２社分の不足数作成依頼リスト、適正在庫数を確保する為の作成依頼リストの計3つのリストを出力します。 不足数作成依頼リストは前回のクエリがあるので簡単簡単 ^_~ クエリからデータを取得するSQLを引数としたFunction Procedureを作成。 後は取得するるリスト毎にSQLを替えるだけ。 このFunction …

VBA初心者がWebスクレイピングをしてみました ExcelのVBA（マクロ）機能を使用して、Webから取得した情報をExcelに落とし込むプログラムを作成しました。 VBAは便利だということは噂では聞いていたのですが、なかなか手を出せずにいて、最近時間ができたので勉強を始めました。 全くの素人の状態から適当に購入した一冊の本とインターネットの情報を頼りに、何とか目指していた形に仕上げることができました。 質の低いプログラムになっていると思いますが、VBAを使い始めた最初の記録として残しておきたいと思います。 プログラム概要 株式の情報が記載されている株探のHP（https://kabutan…

一覧（個人的に使用しそうなものを抜粋） メニュー サブメニュー Alt, Menu SubMenu 編集 【クリップボード】ウィザード E,B Edit Office Clipboard 表示 グリッド線の表示/非表示 V,G View Gridlines 挿入 【改ページ】 I,B Insert Break 書式 【フォント】 O,F Format Font 【段落】 O,P Paragraph 【タブとリーダー】 O,T Tabs 拡張書式＞【縦中横】 O,L,T Asian Layout > Horizontal In Vertical 【書式の詳細設定】ウィザード O,V Reveal…

Web検索は、日常的に行っているので、私たちの生活に欠かせないものとなっています。しかし、検索結果をどこかに保存する必要がある場合はどうでしょうか？例えばスプレッドシートに？これは、データを操作するのにとても便利な方法です。このブログ記事では、Google検索の結果をスプレッドシートに挿入するONLYOFFICEマクロを作成する方法をご紹介します。

こんにちは！株式会社アドグローブのゲーム事業部３Dデザイナーの董（とう）です。 今回はUV展開専用ソフト《RizomUV》についてご紹介します。 https://www.rizom-lab.com/ １- RizomUVを使う理由 動作OS 連動対応ツール ライセンスの種類 ライセンスの選択 ２- 簡単な操作説明 1.RizomUVホットキー 2.Rizomワークフロー 3.例として、簡単なモデルをUV展開してみましょう。 ３- RizomUV 2022 の新機能 ４- おわりに 参考URL １- RizomUVを使う理由 なぜわざわざUV専門ソフト使うのかというと… 業務では多くの場合May…

パワポのデバッグ・確認資料として、ハイパーリンクの一覧を作成したく、 ハイパーリンクのオブジェクトを探るが、 しっくりこなかったお話です。知恵袋の質問 detail.chiebukuro.yahoo.co.jp の回答用に作成する、他の回答者がシンプルなコードを先にUPしているのでそちらも参考にしてみてください。下記、いつもの あのあの そのその 解説動画です。参考程度に聞き流してください。 www.youtube.com https://www.youtube.com/watch?v=t_qd3K2jhcw 目次 00:00 1.Slideの下に.Hyperlinks 04:29 2.Exc…

こないだの付録記事・キャラの関係性分析ネタで、「Frankさんの公開資料にもう少し詳しい話があるので、またおまけのおまけで見させてもらおうかと思う」と書いていましたが、今回はそちらに触れてみようかと思います。 前半の、Pythonプログラミング・コードの話とかは不要かなと思いましたが、まぁせっかくなので（ただ説明文を日本語にして、コードはコピペしただけですが）こちらもそのまま掲載しておきました。 途中、こないだの記事と同じ内容があるけどまぁそれもそのまま貼るとして、数字込みのグラフがやはり面白いネタといえそうですね。 意外とかなりボリュームがあったので（コードを無視しても、結構な量）、早速参り…

Sub 各シート調整() 'シート番号変数宣言 Dim シート番号 As Long '3枚目のシートから最終シートまで同じ処理 For シート番号 = 4 To Worksheets.Count 'メールアドレス転記 Worksheets(シート番号).Range("A3") = Worksheets(シート番号).Range("D6") 'メールアドレス列削除 Worksheets(シート番号).Range("D:D").Delete '列幅調整 Worksheets(シート番号).Columns("A:C").AutoFit Next シート番号 End Sub

ExcelからPowerPointのテキストを取得したい 過去の記事:A列のデータをパワポへ ken3memo.hatenablog.com ＞これの逆(パワポのスライドタイトルをExcelへ)ってできますか？ とコメントが来たので、パワポのテキストを取得してみたいと思います下記、作成した解説動画です。ソースコードと合わせてみてください。 youtu.be https://youtu.be/FZovWjt0xtQ 目次 00:00 質問内容 00:20 実行結果を見せながら説明する 01:37 1.Set ppApp = GetObject(, "PowerPoint.Application"…

Movable Type形式のエクスポートデータから記事一覧をExcelシートに出力するマクロ 昨日まで作成してきました記事一覧の各記事の題名にハイパーリンクを設定する処理を追加しました。 Excel シートに記事一覧を追加した後に、シートを上から１記事ずつハイパーリンクを追加しています。（ActiveSheet.Hyperlinks.Add を利用しています） 一点注意して頂きたいのが設定するＵＲＬの書き換えです。 動かす前に、プロシージャ「Sub ハイパーリンク設定(textCell, urlCell, rw) 」のfixURL = "https://www.自分のブログのURL/entr…

昨日のコードの訂正です。 行の始まりが「--------」(- が8個連続) であると、それを記事の終了部分と認識し、1記事分の空白行を作るようになっていました。 上記のような状態だと、以下のように空白行ができてしまいます。 そこで新たに、記事の終了確認処理を新たに追加しました。「--------」(- が8個連続) だけで、記事の終りと判断せず、・1行分の文字が(- が8個連続) のみか・BASENAME (URL) に既に値が入っているか の2点を確認して1記事分の完了と判断するようにしています。 '◆============================================…