VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/10(Tue) 11:05
投稿者： hajime
Ｅメール：
ＵＲＬ：
タイトル： さんぷる　

このホームページのサンプルを勉強させていただいているのですが、
ｖｂとエクセルをやり取りの項目のところで、
Option Explicit 'SampleNo=017 WindowsXP VB6.0(SP5) Excel2000　2002.04.19
Private Sub Command1_Click()
'基本的な設定は[ＶＢからエクセルを操作する]を参照して下さい。
　　Dim xlApp　　As Excel.Application
　　Dim xlBook　 As Excel.Workbook
　　Dim xlSheet　As Excel.Worksheet
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Add
　　Set xlSheet = xlBook.Worksheets.Add

　　'Excel のセルに値を代入します。
　　Dim i As Integer
　　Dim j As Integer
　　For i = 2 To 6
　　　　For j = 2 To 6
　　　　　　'３０〜１００の範囲のランダムなデータを作成
　　　　　　xlSheet.Cells(j, i) = CInt(70 * Rnd + 31)←サンプルで定数に値は、代入できませんとでるがどうすればよいでしょうか？
　　　　Next j
　　Next i
　　

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -