質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

Q&A

1回答

221閲覧

VBAコレクションの中身を整形したい

chanrina0920

総合スコア18

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

0グッド

0クリップ

投稿2017/10/31 06:08

###前提・実現したいこと
https://teratail.com/questions/98551で質問させていただいた続きになります。
nullColumnの中に繰り返したい数分のNULLを入れることはできました。
このNULLに対して下記を行いたいです。

下記のようなSQLの形に変形し
NULL,
NULL,
NULL,
・・・一番最後はカンマを入れない

###発生している問題・エラーメッセージ
以前下記のようなソースを提供いただいたのですが
使い方が分からないため、使用できるのか分かりません。

###該当のソースコード
Dim lRept As Long
lRept = Val(tableSheet.Cells(r, テーブル名シート_NULL付与数列).Text)
Dim sNull As String '繰り返す文字列
sNull = "NULL"

Dim nullColumn As String '結合結果の文字列
If lRept > 0 Then
'文字列を指定回数だけ繰り返したした結果をsRetに格納する
nullColumn = WorksheetFunction.Rept(sNull, lRept)
Debug.Print nullColumn

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

Mid関数である位置以降の文字列を取り出すことができますので、

Mid(WorksheetFunction.Rept(",NULL", IRept), 2)

とすると簡単だと思います。

IReptが0の可能性がある場合にはもう少し配慮しなくちゃいけないかな・・・と思ってやってみたら空文字列に対して「2文字目以降を取り出す」という指定をしてもMidはエラーとせずに単に空文字列を返してくれるようですので、単純に上のコードで大丈夫みたいです。

なんとなく、アバウントな関数だなぁと思いました。

投稿2017/10/31 06:19

KSwordOfHaste

総合スコア18394

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問