質問: エクセルvba 例として次のような簡単な表があります(左上をセルa1とします) 1日 2日 3日 a商品 100 200 300 b商品 150 250 210 c商品 100 300 500 ユーザーフォームのテキストボックスに***を入力したとき 日付 ** a商品 *** b商品 *** c商品 *** 日付に対応した商品欄に入力させるには どう記述したらいいのでしょうか?
回答: userform に textbox1~textbox4 と commandbutton があるとして private sub commandbutton1_click() dim r, i as integer if textbox1.value = "" then exit sub with activesheet set r = .rows(1).find(what:=textbox1.text, after:=.range("iv1"), _ lookin:=xlvalues, lookat:=xlwhole) if r is nothing then msgbox textbox1.text & "は無い。", vbokonly + vbinformation, "日付" exit sub end if for i = 2 to 4 r.offset(i - 1, 0).value = me.controls("textbox" & i).value next i end with end sub