質問: 4 with userform1.combobox1 .additem "aaaa 11111111111" .additem "bbbb 22222222222" .additem "cccc 333333333" .additem "dddd 444444" .additem "eeee 5555555555" .additem "ffff 666" .additem "gggg 7777777" .additem "hhhh 88888" .additem "iiiii 999999999" .additem "jjjj 0000000000000" .additem "kkkk 1111" .additem "llll 222222" .additem "mmmm 3333" end with end sub
回答: 1.コンボボックスの表示を折り返すことは出来ません。 2.今はどうやら入力するごとにシートの入力行を+1ずつしているようですが,ちなみに「5行目」「6行目」とはもうちょっとエクセル上の姿としてどこの事を言ってるのですか? 文字通りにとらえるとcntを+1するのではなく「ある行数単位」ずつ足し上げていき,「何々の時はcnt+5行」「これこれの時は+7行」のように作り込んでいくような事かなと思いますが。 3.テキストボックスの1から6それぞれにafterupdateなどを取り付けて,逐一合計を取ってはテキストボックス7に記入していきます。 簡単なサンプル: private sub textbox1_afterupdate() dim i dim res for i = 1 to 6 res = res + val(me.controls("textbox" & i).value) next i textbox7 = res end sub その際,実際には >自動で...表示されるようにしたい 「自動」ってもうちょっと具体的に一体何をどんなタイミングでどうしたときにそうしたいのかに応じて,どのイベントを使うのか選びます。 それこそテキストボックスに「1文字書き入れるたびに」更新をかけるような事だって,それが必要なら出来ます。 具体的に一体何が出来るのか,オブジェクトブラウザでtextboxを見て配下のイベントを確認し,それぞれのヘルプを熟読して検討してみて下さい。