エクセルVBAの記述で・・・OTL
エクセルVBAの記述で・・・OTL
VBA初心者です。
まず、私が記述した内容を書きます。
Sub 実践練習()
Dim tuika As String
tuika = Application.InputBox( _
Title:="追加", _
Prompt:="追加する内容を入力して下さい。", _
Left:=650, _
Top:=100, _
Type:=2)
If Worksheets("Sheet2").Range("G10").Value <> " FALSE " Then
MsgBox "ＯＫです", vbOKOnly + vbDefaultButton2, "追加完了"
With Worksheets("Sheet2")
.Range("G10").Value = tuika
LastRow = Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Sheet3").Range("A" & LastRow).Value = Worksheets("Sheet2").Range("G10").Value
End With
Else
MsgBox "入力が不足しています。", vbOKOnly + vbCritical, "入力ミス"
End If
End Sub()
完成させたいことは・・・
Sheet1に存在するInputbox(ボタン)を使用し、
Sheet2のG10にFALSE以外が入力されたときは、
MsgBox追加完了のダイアログを表示してSheet2のG10値をSheet3のA列に順番に転送させる。
もしFALSEが入力されてしまったら、
MsgBox入力ミスを表示させて、
Sheet2のG10の値(FALSE)を削除しなさい。
と、記述したいのです。
勿論、上記の記述は完成していません(泣
どなたか、ご教授の程、何卒宜しくお願い致します。
(上記の完成型をお待ちしてます m(_ _)m )
【環境】
OS：WindowsXP Pro
Excel：2003
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
siteuma 様ありがとうございます。 Insertキーでした。いつも多分何か押してしまっているのだろうと思いながら、いつも急いでいるときになるので、なにを押したか分からずじまいで・・・ Insertキーの使い方も知りませんでした。 これ、使えるときは便利ですね。。。 ありがとうございました。助かりました。 今後ともよろしくお願いします。