Excel VBAで アンケート集計をしたいと思い、プログラムを作ったのですが、J列までは入力がうまくいくのですが、K列にデータを入れて次の行にデータを入れると もともと存在していたKれつのデータが消えてしまします。
どう修正すれば ちゃんとデータが残ってくれるのでしょうか?
誰か教えてください
Option Explicit
Private Sub UserForm_Initialize()
Dim チェックボックス As Control
With cboBlood
.AddItem "A型"
.AddItem "B型"
.AddItem "O型"
.AddItem "AB型"
End With
cboBlood.ListIndex = -1
txtNo.Value = WorksheetFunction.Max( _
[Database].Resize(, 1)) + 1
txtNo.Enabled = False
txtName.Text = ""
optMale.Value = True
txtAge.Value = 0
For Each チェックボックス In fraOS.Controls
チェックボックス.Value = False
Next
txtName.SetFocus
End Sub
Private Sub cmdEntry_Click()
Dim 行 As Long
Dim 確認 As Integer
確認 = MsgBox("データを登録します。" _
& "よろしいですか?", vbYesNo)
If 確認 <> vbYes Then Exit Sub
行 = [Database].Rows.Count + 1
[Database].Cells(行 - 1, 1).EntireRow.Insert
[Database].Offset(行 - 1).Resize(1).Copy _
[Database].Cells(行 - 1, 1)
[Database].Offset(行 - 1).Resize(1).ClearContents
[Database].Cells(行, 1) = txtNo.Value
[Database].Cells(行, 2) = txtName.Text
If optMale.Value = True Then
[Database].Cells(行, 3) = "男性"
Else
[Database].Cells(行, 3) = "女性"
End If
[Database].Cells(行, 4) = cboBlood.Text
[Database].Cells(行, 5) = txtAge.Value
If chkWin.Value = True Then _
[Database].Cells(行, 6) = "○"
If chkMac.Value = True Then _
[Database].Cells(行, 7) = "○"
If chkLinux.Value = True Then _
[Database].Cells(行, 8) = "○"
If chkOther.Value = True Then _
[Database].Cells(行, 9) = "○"
If chkOther.Value = True Then _
[Database].Cells(行, 10) = "○"
Unload frmNew
End Sub
Private Sub cmdCancel_Click()
Unload frmNew
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INDIRECT関数の代替方法は?
-
【Transact-sql】 where条件、i...
-
BULK INSERT時のNull許容について
-
EXCEL VBA
-
WHERE句で結合。INNER JOINとの...
-
Accessの「IIF」に相当するSQL...
-
PLSQLのTO_CHARについて
-
Accessで複数(3以上)...
-
DBの定義のサイズを大きくし過...
-
SELECT文で、指定カラム以外の...
-
now()かCURRENT_TIMESTAMPか
-
一部のカラムでdistinctし全て...
-
MySQLで先頭にカラムを追加
-
DBエラーの意味
-
GREATESTで NULLをスルーする方...
-
カラムとコラムの使い分け
-
SQLでカラムを追加し、条件に合...
-
End Ifに対応するIfブロックが...
-
SQLServerでNULLを挿入したいです
-
SQL,値の大きい順に値を取得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT関数の代替方法は?
-
【Transact-sql】 where条件、i...
-
BULK INSERT時のNull許容について
-
create tableのフィールド名
-
Accessの「IIF」に相当するSQL...
-
WHERE句の速度について
-
SQLiteで「UPDATE table1 SET c...
-
自分自身のテーブルを参照して更新
-
WHERE句で結合。INNER JOINとの...
-
列を行に表示する方法は?
-
Oracleの制約について
-
PLSQLのTO_CHARについて
-
ACCESS SQLのデータ変換。
-
sqlite3でrowid以外にid必要で...
-
【SQL文】 where (colA & colB)...
-
ADOによる検索条件の書き方(ア...
-
EXCEL VBA
-
DBの定義のサイズを大きくし過...
-
テーブルの列数を調べたい
-
一部のカラムでdistinctし全て...
おすすめ情報