ExcelVBAで表の任意セルにデータを入力する

質問

下記のプログラムにより、任意の場所に罫線（表の作成）を引く事が出来ましたが、
その表中の任意の場所に氏名や日付等の入力をInputBoxを使用し、実現したいのですが、
どのようにすれば良いか分かりません。
分かる方がいらっしゃいましたら、御回答の程宜しくお願い致します。

Dim StartP As String, EndP As String

Sub LineAdd()
'表を作成する
StartP = Application.InputBox(prompt:= _
"始点のセル番号を入力して下さい。", _
Title:="表の罫線作成ポイント(始点)")
EndP = Application.InputBox(prompt:= _
"終点のセル番号を入力して下さい。", _
Title:="表の罫線作成ポイント(終点)")

With Sheet1.Range(StartP, EndP).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With
End Sub

回答No.3

neochi_life · ベストアンサー

えと、さっきの場合はユーザーフォームを利用しているもので
質問主様の「inputboxを使って」という条件とは外れすぎかな？と考えなおして
サンプルを書いておきますね。

他にもやり方はありますがここではmsgboxで終了させるまでループという形を取りました

-------------------------------------

Dim StartP, EndP, inputP, inputTx As String
Dim inFlug As Integer

Sub LineAdd()
'表を作成する
StartP = Application.InputBox(prompt:= _
"始点のセル番号を入力して下さい。", _
Title:="表の罫線作成ポイント(始点)")
EndP = Application.InputBox(prompt:= _
"終点のセル番号を入力して下さい。", _
Title:="表の罫線作成ポイント(終点)")

With Sheet3.Range(StartP, EndP).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With

inFlug = MsgBox("処理を継続しますか?", vbYesNo)
' MsbBoxの選択の戻り値が6なら「はい」です

While inFlug = 6 ' 「いいえ」を押すまで繰り返します
Call input_T
inFlug = MsgBox("処理を継続しますか?", vbYesNo)
Wend
End Sub

Sub input_T()
'入力する
inputP = Application.InputBox(prompt:= _
"入力位置のセル番号を入力して下さい。", _
Title:="入力位置")
inputTx = Application.InputBox(prompt:= _
"入力内容を入力してください。", _
Title:="入力内容")
Range(inputP) = inputTx
End Sub

---------------------------------------------

その他、選択するセルをRangeでまとめて、入力もまとめることもできますが、とりあえずこんな感じでどうですか？

お礼

返答が遅くなり、申し訳ございません。
neochi_life様のプログラミングを拝見いたしました。
言葉足らずの事もあり、分かり辛かったとはいえ、
ここまで的確にアドバイスしていただき有難う御座いました。
このプログラムを参考にして、プログラミングしてみたいと思います。

回答No.2

neochi_life

あ、追記ですが
URLをクリックしただけじゃDLできません。
アドレスバーにコピーしてください

回答No.1

neochi_life

質問とは若干違ってますが、以前作ったもので

登録フォームから入力
表に入力したテキストを表示させる

という形の名刺整理帳があります

http://lovepeacelife.web.fc2.com/test_form.xls
これをDLして、ALT+F11で中身見て色々いじってみてください
ファイルでは入力されるセルは半固定になってますが
どこをどう変更したらどうなるかは、恐らく質問主様ならわかると予想します
（たいした根拠はないですが・・・）