VBA、新しい行を挿入し、ユーザがデ細胞以下

Question

fhjdajhkfdakjhfdjkhdfjhkdfsjhkafdshjkdfajhkafdsjkhfdajhkafsd

Answer 1

にする必要が値を入力することができるボックスを表示するには、いくつかの値を入力するようにユーザに促すであろういくつかのコードです。私が持っている問題は、あなたの要件を理解することです。あるケースでは、行を追加したいが、コードはCOLUMNを追加するとします。どちらですか？そして、ユーザー入力を満たすにはいくつのセルが必要ですか？それらはすべて同じ行または同じ列にありますか？ 3つ以上のセルが満たされるようにするには、ユーザーに3つ以上の質問をするのは恐ろしいことです。ユーザーに各セルの値を区切らせることができれば（つまり、|、|、...など）、それはうまくいくでしょう。

質問の上に明確にしてください...

Sub Button6_Click() 
Dim strUserValue As String 
    ' Ask user to enter a value. If you need values for several cells, then either 
    ' ask several questions, or pars the value they enter (i.e. 'John:Doe:Jr.' could 
    ' be split into three cells. 
    strUserValue = InputBox("Enter Value", "Provide value for cells") 
    Sheets("Results").Range("C5").Select    ' You are selecting this row & column 
    ActiveCell.EntireColumn.Insert Shift:=xlRight  ' This shifts the column right 
    ActiveCell.Offset(1).EntireRow.Insert    ' This inserts a new row relative to where you are (Active cell) 
    Cells(6, 3) = strUserValue       ' What row/column do you want to enter data in???? 
End Sub