Excelで自作関数をセルの式から呼び出す方法＋可変長引数を使う方法（CSV行作成サンプル付き） - レベルエンター山本大のブログ
VBAで自作の関数をセル内の式から呼び出すには、 Public Functionとして標準モジュールに定義してやればよい。 （Subは×、Publicをつけなくても×、標準モジュール以外に定義しても×） それからそれから、可変長の引数をとるような関数を定義するには、 配列で宣言した引数の前に「ParamArray」をつけて定義してやればよい。 以下のサンプルは、セルの式として埋め込み可能で、 複数の引数をとり、引数をCSV形式に変換して表示するシンプルな関数だ。 'VBAの関数をセルの式から呼び出すには、「Public Function」として「標準モジュール」に定義する。 'VBAで「可変長引数」を使うには、配列で宣言した引数の前に「ParamArray」をつける。 Public Function csv(ParamArray args() As Variant) Dim argcsv
シート名一覧を取得する
シート名の一覧を抽出する方法をご紹介します。 ■方法1：名前の定義を使う 「数式」タブ－「名前の定義」をクリック 適当な名前を入力し(例 sName)「参照範囲」に=GET.WORKBOOK(1)と入力して「OK」 シート名を出したいセルに次の数式を入力し、オートフィルする =REPLACE(INDEX(sName,ROW(A1)),1,FIND("]",INDEX(sName,ROW(A1))),"") 補足：get.workbook(1)ではシート名の一覧を取得できます。名前の定義後、=名前を入力すると[ファイル名]シート名が表示されます。 INDEX関数でシート名一覧から○行目…を指定することで1番目のシート、2番目のシート…のように取得できます。○行目はROW(a1)…で指定します。 ■ 方法2：VBA画面に表示（簡単） ALT+F11キーを押す CTRL+Gキーを押して下部に「イ
ExcelからSQLのINSERT文を作成するマクロ - grachroのブログ
エクセルのデータからRDB用のSQLを作成するマクロです。シート名をテーブル名、1行目をテーブルのフィールド名として処理します。 サンプル 作成されるSQL INSERT INTO bookmark (ID,URL,TITLE) values (0,'http://www.google.co.jp/','GOOGLE'); INSERT INTO bookmark (ID,URL,TITLE) values (1,'http://www.yahoo.co.jp/','Yahoo! JAPAN'); マクロ Option Explicit Sub createInsertSql() Dim newbook As Workbook Dim currentCell As Range '前処理 Dim srcSheet As Worksheet Set srcSheet = ActiveSheet
ExcelデータをINSERT文に変換する - Qiita
INSERT ALL INTO HOGE (COL1,COL2,COL3) values('data',1,null) INTO HOGE (COL1,COL2,COL3) values('data',null,null) INTO HOGE (COL1,COL2,COL3) values('data',1,'data') SELECT * FROM dual; Option Explicit Sub INSERT文を生成_Click() Dim ws As Worksheet Set ws = ActiveSheet Dim sql As String sql = "INSERT ALL" Dim head As String head = vbLf & "INTO " & ws.Name & " (" Dim target As Range Set target = ws.UsedRa
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
余計なシートやVBマクロを作らずに、Excel シート名の一覧を抽出する - Qiita
エクセルの全てのシートを一括で再表示させる方法 - コピペでVBA(Excel) | モノクロの彩り
BIGLOBEなんでも相談室サービス終了のお知らせ
https://mayer.jp.net/?tag=excel-html-table-%E5%A4%89%E6%8F%9B-%E3%83%9E%E3%82%AF%E3%83%AD
