Excel VBAについて

質問

Excel　VBAについて
VBA初心者ですが、作業で使うファイルを使いやすくしようと思っているのですが行き詰ってしまいました。
是非、知恵をお貸しいただきたいと質問させていただきました。

フォームを使ってデータを打ち込むようにしようと思っています。
日付の列を選択するとフォームが立ち上がり、必要項目を記入するというものです。

日付欄が未記入なら「新規」、記入済みなら「修正」
という風にしたいのですが、うまくいきません・・・

修正しようと入力しなおしても新規として新しい行に書かれてしまいます。

色々と自分で勉強して下のような書き方をしましたが、何がいけないのでしょうか。
ご指摘おねがいいたしますm(__)m

Public Sub KAKIKOMI(GYO As Long)

GYO = ActiveCell.Row

Load UserForm1
With UserForm1
If ((GYO = 17) Or (Cells(GYO, 3).Value = "")) Then
GYO = 17
.hiduke.Text = ""
.bunnrui.Text = ""
.tantou.Text = ""
.gaku.Text = ""
.memo.Text = ""

Else
.hiduke.Text = Cells(GYO, 3).Value
.bunnrui.Text = Cells(GYO, 7).Value
.tantou.Text = Cells(GYO, 8).Value
.gaku.Text = Cells(GYO, 9).Value
.memo.Text = Cells(GYO, 11).Value
.ComboBox1.Text = Cells(GYO, 5).Value

End If
g_swOK = 0
.Show
If g_swOK <> 1 Then GoTo TOUROKU_EXIT
If GYO = 17 Then
GYO = 19
Do While Cells(GYO, 1).Value <> ""
GYO = GYO + 1
Loop
End If

ActiveSheet.Unprotect
Cells(GYO, 3).Value = Trim$(.hiduke.Text)
Cells(GYO, 7).Value = Trim$(.bunnrui.Text)
Cells(GYO, 8).Value = Trim$(.tantou.Text)
Cells(GYO, 9).Value = Trim$(.gaku.Text)
Cells(GYO, 11).Value = Trim$(.memo.Text)
ActiveSheet.Protect
End With

End Sub

ちなみに、17行目が見出しで、3列目が日付欄です。
よろしくお願いします。

回答No.4

DOUGLAS_ · ベストアンサー

＞ご指摘いただいた箇所を直してみましたがダメでした；；
　「g_swOK」・「TOUROKU_EXIT」の意味が分かりませんので、ご質問に書かれた コード 以外の コード も全て呈示していただかなければ、どこが不具合なのかは分かりません。

１）私たち回答者が直ぐに動く コード を書く
のではなくて、
２）catatc さんがお書きになった コード を手直しする
というような スタンス で回答をしたかったので、前回答のような回答を書きました。

　本当は、(２) のような スタンス の方が、catatc さんも勉強になろうかと存じますので、下記をお読みいただいて、なぜ不具合があるのかを catatc さんご自身で考え直してみてください。
　そして、「指摘いただいた箇所を直」す前の、catatc さんが書かれた オリジナル の状態から、１つずつ、見直しをされることをお薦めいたします。

----　　記　　-------------------------------------------------------
　(１) に近いことになってしまいますが、前回答の他に、
Private Sub CommandButton1_Click()
　UserForm1.Hide
End Sub
というような コード が書かれていれば、UserForm1 の CommandButton1 を クリック した タイミング で、データ の追加・訂正が完了するはずです。
　ちなみに、私は UserForm1 の上に「hiduke」・「bunnrui」・「tantou」・「gaku」・「memo」という ５つ の TextBox と ComboBox1・CommandButton1 を配置して テスト しました。

　ただ、ご質問にお書きの コード でしたら、C18 を Select したときに、不具合がありますので、前回答の上に、さらに、
If ((GYO = 17) Or (Cells(GYO, 3).Value = "")) Then
GYO = 17
を
If GYO = 17 Then
にする必要があります。

　さらに、Ｃ列 の未記入欄に入力した際に、空白行が入ることを忌避されるようでしたら、
If GYO = 17 Then
GYO = 19
Do While Cells(GYO, 3).Value <> ""
GYO = GYO + 1
Loop
End If
を
If GYO = 17 Or Cells(GYO, 3).Value = "" Then
GYO = Cells(Rows.Count, 3).End(xlUp).Offset(1).Row
End If
のように訂正する必要もあります。

お礼

丁寧にご回答いただき本当にありがとうございます！
もう一度自分でも勉強しなおし、ご回答を参考にさせていただいたところ
何とか無事解決しました＾＾

自分の勉強不足でした・・・

本当にありがとうございました！！

回答No.3

DOUGLAS_

＞日付の列を選択するとフォームが立ち上がり
ということで、シート モジュール の イベント プロシージャ に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　If Target.Count = 1 And Target.Column = 3 And Target.Row > 16 Then
　　Call KAKIKOMI(ActiveCell.Row)
　End If
End Sub
みたいな コード が書いてあるとして。。。

１）g_swOK = 0
の行と
If g_swOK <> 1 Then GoTo TOUROKU_EXIT
の行を削除（コメントアウト）する。

２）必ずしも A列 に データ が入っていない場合があるとすると、
Do While Cells(GYO, 1).Value <> ""
の行を
Do While Cells(GYO, 3).Value <> ""
としてみる。

でどうにか動きました。

お礼

ご回答ありがとうございます！
ご指摘いただいた箇所を直してみましたがダメでした；；
新規としてどんどんデータを追加していくことは出来るのですが、
修正がうまくいきません・・・
修正行のデータは、その行に上書きしたいのですが最終行に追加されてしまいます；；

回答No.2

kmetu

ANo1です
ちなみに
A列のデータの入っている最終行は
Cells(Rows.Count, 1).End(xlUp).Row
でも求められます。

お礼

この書き方に気付きませんでした・・・
使わせていただきます。
ありがとうございます！

回答No.1

kmetu

g_swOK = 0
.Show
If g_swOK <> 1 Then GoTo TOUROKU_EXIT

ここが良くわかりませんがそれ以外はちゃんと指定どおりに動いてますよ。