C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 24 を表示中)
■10692 / )  アドバイスください
□投稿者/ 猿 (1回)-(2007/11/23(Fri) 22:20:52)

分類:[VB.NET/VB2005] 

Sub a1()

Dim line As Integer, column As Integer
Dim a As Integer, b As Integer
line = 2
For a = 1 To 10
Randomize

column = Int(Rnd * 4) + 1

Sheet1.Cells(line, column) = InputBox(Sheet1.Cells(1, column) & "についてどう思いますか?")

Sheet2.Cells(line, column) = InputBox("なぜ" & Sheet1.Cells(line, column) & " だとおもうのですか?")


Next a

End Sub
Function count_line(column As Integer) As Long

If Worksheets("sheet1").Cells(line, column + 1) = " " Then

End If


End Function

Function input_ans(sheet As Integer, line As Long, column As Integer, input_str As String)


End Function


エクセルシートを簡易データベースとしてコンピュータと会話するプログラムを作成したいのですが、うまくいきません。

シート1,2の1行目(1,1)(1,2)(1,3)(1,4)にはそれぞれトピックとなる異なる名詞を予め入力しておきます。
シート1には、トピックのイメージを。シート2にはその理由をそれぞれ格納したいのです。

ヒントとして
「入力のあるセルが何行あるか調べるには,次の行のセルが空白でないかどうかを調べて行けば良い
If Worksheets("sheet1").Cells(line, column) = "" Then を使う」とあったのですがどのように使えば良いか分かりません。

アドバイスお願いします。

返信 編集キー/


管理者用

- Child Tree -