|
▼ponpon さん:
本当に助かります。ありがとうございました!
お預かりしたソースを改造して使ってみましたところうまくいきました。
一応、別フォームに検索ボタンと削除用の画面を作り、番号検索をして確認した後、削除という段取りでやりました。
ところで、別の問題があります。
現在、入力しようとしているシートと同じ書式のシートが13枚あります。
残りの13枚にも同様に行追加したいのですが、この場合、ponponさんの下記コードを13個追加しなくてはならないでしょうか?
With .Range("A65536").End(xlUp)
.Offset(1, 0).Value = Me.社員登録ComboBox1.Text
.Offset(1, 1).Value = Me.社員名TextBox1.Text
.Offset(1, 2).Value = Me.社員番号TextBox1.Text
Set myR = .Offset(1, 19)
myTop = myR.Top
myLeft = myR.Left
myWidth = myR.Width
myHeight = myR.Height
End With
Set chcB = .CheckBoxes.Add(myLeft, myTop, myWidth, myHeight)
chcB.Characters.Text = "チェック"
実際にシート”1月”に行追加する場合
With worksheets("1月").Range("A65536").End(xlUp)
.Offset(1, 0).Value = Me.社員登録ComboBox1.Text
.Offset(1, 1).Value = Me.社員名TextBox1.Text
.Offset(1, 2).Value = Me.社員番号TextBox1.Text
Set myR = .Offset(1, 19)
myTop = myR.Top
myLeft = myR.Left
myWidth = myR.Width
myHeight = myR.Height
End With
Set chcB = .CheckBoxes.Add(myLeft, myTop, myWidth, myHeight)
chcB.Characters.Text = "チェック"
を上記コードの下に追加すると、1月のシートにも行が追加されますが、チェックボックス部分が追加されなくなります。
1.複数のシートに展開する場合、ワークシートを配列のように使うことはできるのでしょうか?
2.上記のようにした場合チェックボックスだけ1月シートに展開されないのは構文の問題でしょうか?
よろしくお願いします。
|
|