質問: nothing unload me end sub わかる方ご教授願います
回答: const 開始行 = 1 const 開始列 = 1 private sub commandbutton1_click() dim i as integer dim n as integer dim stremployees() as string stremployees() = split(dbselect("select 担当者名 from 担当者"), ";") n = ubound(stremployees()) for i = 0 to n me.cells(開始行, 開始列 + i) = stremployees(i) next i end sub <実行結果> 01: ○○ ○○__02: ○○ ○○__03: ○○ ○○ エクセルは操作したこともない門外漢ですが・・・。 一応、これでa1、a2、a3に取得したデータが表示されます。 for-next文を使う初手の手法です。 この手法を使うには、一応、dbselect関数の自作が必要です。 このような手法で構わなければ dbselect関数を補足します。