|
分類:[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には、トピックのイメージを。シート２にはその理由をそれぞれ格納したいのです。
ヒントとして
「入力のあるセルが何行あるか調べるには，次の行のセルが空白でないかどうかを調べて行けば良い
If Worksheets("sheet1").Cells(line, column) = "" Then を使う」とあったのですがどのように使えば良いか分かりません。
アドバイスお願いします。
|