excel vba についてお聞きします

質問

excel vba についてお聞きします

userformを使ってworksheetにデータを登録するといった事をしたいと考えております

userformにはtextboxとcommandbuttonを配置
commandbuttonを押したらtextboxに入力した内容をworksheetに登録させる
同時にworksheetのA列には日付を登録
日付は登録をするその日付を反映させる
同じ日付があった場合は日付の登録はせずにその日付の行、B→C→Dと順に
textboxのデータの登録だけをする。

日付の入るA列以外にデータが入る事になります

また、textboxの内容が既にworksheetに登録済の場合
『既に登録済みです』といったメッセージを出すようにもしたいのです

ご教授の程、よろしくお願いします。

回答No.1

hige_082

こんな感じかな

private sub commandbutton1_click()
dim i as integer
for i=1 to cells(rows.count,1).end(xlup).row
if cells(i,1).value=date then exit for
next i
cells(i,1).value=date
cells(i,cloumns.count).end(xltoleft).offset(,1).value=textbox1.value
end sub

参考まで

お礼

お忙しい中、回答頂きありがとうございます。
返信おそくなりました。
参考にさせて頂きます。