Excel文字切れ対策のめも SASバージョン VBAでの文字切れ対策記事(2020年11月)のあと直ぐ書きたかったが、3年以上寝かせていた。 基本的な考え方はVBAでの文字切れ対策記事を参照。 cochineal19.hatenablog.com %let WB=ファイル名.xlsx; %let WS=シート名; …

古い機能でセキュリティに問題あるため扱いは注意。 以下の資料がとても参考になる。 Excel 4.0 Macro Functions Reference エクセル 4.0 マクロ VBAでは ExecuteExcel4Macro(string) で使用できる。 Application.ExecuteExcel4Macro メソッド (Excel) 例：M…

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

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

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

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

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

アクティブなシートにシート名一覧を作成。 セル(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…