VBA

【VBA & HTML】ExcelのテーブルをHTML形式に変換する

Excelを開いて表を見るのは面倒だったりする。 (Excelの起動を待ったり、別作業でExcelを使っていたりするとき) そんなときブラウザで表形式データが見れたら便利だ、というモチベーションでExcelで作成したテーブルをHTMLに変換するプログラムを作ってみ…

【VBA】パラメタを変えてスクリプトを大量生成

VBA

久々にVBA。 R、Python、SAS ... なんでも良いが、 共有ロジックを外部ファンクションや外部マクロにしておいて、 パラメタを変えてぐるぐる回すことがある。 例えば、疾患名を変えて患者数を推移図にするなど。 そんなとき、スクリプトをいちいち作っている…

【SQL Server & VBA】VBAからSQL Serverに接続し、クエリ結果をExcelシートに貼付する(ヘッダ付き)

VBAからSQL Serverに接続してクエリ結果を取得します。 Microsoft ActiveX Data Objects (ADO)を使用したDBへのアクセス方法です。 本記事はWindows認証による方法です。 以下の図のように、C2~4セルにサーバ名、データベース名、SQL文を入れて実行すると、…

【VBA】Excelの文字切れ対策

VBA

Excelの文字切れ。。印刷に困りますね。 以下、簡易な方法です。万能ではありませんが。 ①一度MSゴシックにしてフォントサイズでかくする 。②オートフィットしてから行幅を1.2倍(任意)する。(+15など行幅を足しても良い)③任意のフォントに戻す。 Sub 文…

【VBA】Excelの全シート、A1セルをアクティブにしたい!

VBA

成果物はA1セルをアクティブにするご作法。作業中ではないですよ。の無言の表現。 forループを使ったシンプルな対処法です。シート数 to 1(-1ずつ)で1シートずつA1セルをアクティブにしましょう。 ここで注意なのがwindowの固定。A1セルをselectしただけ…

【VBA】シート名一覧を取得する

VBA

アクティブなシートにシート名一覧を作成。 セル(2,2)から順々にシート名入れていく。 Sub シート名一覧化() Dim wb1 As Workbook, ws1 As Worksheet, i, cnt As Long Set wb1 = ThisWorkbook Set ws1 = wb1.Worksheets(ActiveSheet.Name) cnt = 2 For i = 1…

本ブログは個人メモです。 本ブログの内容によって生じた損害等の一切の責任を負いかねますのでご了承ください。