質問: selection.count ・・・(1) end sub *************************************************************** ワークシートで選択されたセルの個数を上のようにして、textbox1に表示させています。 そこで、例えば 1. sheet1.range(cells(8, x), cells(8, y))が選択された場合、 ・(1)によって、textbox1に「y-x+1」を表示 ・textbox2に、sheet1.cells(4, x) & cells(4, y))の値を表示 2. sheet1.range(cells(10, x), cells(10, y))が選択された場合、 ・(1)によって、textbox1に「y-x+1」を表示 ・textbox2に、sheet1.cells(4, x) & cells(4, y))の値を表示 させたいのですが、どのようにしたらよいのでしょうか?
回答: どんな事を実現されたいのか良く理解出来ませんが、、、 こんな意味でしょか? private sub worksheet_selectionchange(byval target as range) dim y as integer, x as integer with selection if .areas.count = 1 then y = .cells(1, .columns.count).column x = .cells(1, 1).column userform1.textbox1.value = y - x + 1 'userform1.textbox1.value = .columns.count '←でも y-x+1と同じ? userform1.textbox2.text = "" for i = x to y userform1.textbox2.text = _ userform1.textbox2.text & sheet1.cells(4, i).text next i end if end with end sub