Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52804 / 76732

←次へ　｜　前へ→


	【28757】Re:チェックボックスを含む行の追加

toki - 05/9/13(火) 23:52 -


	引用なし

	パスワード

▼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月シートに展開されないのは構文の問題でしょうか？

よろしくお願いします。

0 hits

▼

【28685】チェックボックスを含む行の追加 toki 05/9/12(月) 21:27