グリッドについて，エクセルのアドインについて

質問

• グリッド上で文字を直接入力する方法や、エクセルのようにグリッド上をクリックしたらテキスト入力モードになる方法について教えてください。
• 垂直スクロールバーの幅を得る方法を教えてください。スクロールバーを表示させるとグリッドの右端が切れてしまうため、幅を調整する必要があります。
• ＶＢからエクセルのソルバーアドインを使用することはできますか？複雑な回帰分析を行いたいので、エクセルのアドインをそのまま活用したいです。

回答No.4

TAGOSAKU7

学生さんなんですね。。。てっきりどこかの研究所だと思ってました。。。
向上心のある学生さん大歓迎です。

DataGridのサンプルです。

サンプル開発環境
VB6/SP5
開発参考用
Access2000

データはフィールドは関数creLogDbで「adInteger」で設定しているために、半角数字しか対応してません。
フィールドタイプを変更したい時は、
http://www.microsoft.com/JAPAN/developer/library/odeopg/deovrcreatingmodifyingaccesstables.htm
を参考にしてください。

データ項目は常に上書きモードになってます。
編集／追加をする時はカレントのグリッドの上で数字を打ち込み、Enterで確定します。
カーソルキーで、データグリッド内のグリッドを移動します。
データの削除は、行ヘッダをクリックして、削除したい行を選択後に、「DELETEキー」でデータの削除が行えます。

Accessが入っていたら、定数logFileデータベース内のlogTblテーブルを編集することにより、データを直接編集することができます。

フォームに以下のコードを貼り付けてください。

必要なコンポーネント
Microsoft ADO Data Control 6.0 (SP4) (OLEDB)
Microsoft DataGrid Control 6.0 (SP5) (OLEDB)
必要な参照設定
Microsoft ActiveX Data Objects 2.5 Library
Microsoft ADO Ext 2.5 for DDL and Security

必要なオブジェクト/コントロール
フォーム[Form1]
DataGrid[DataGrid1]
ADODC[ADODC1]
各コントロールは適当に貼り付けてください。プログラム中で初期設定を行ってます。

Option Explicit

'アクセスDBとの接続のお決まり言葉
Private Const ConnectConst　As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

'ログDBファイル名
Private Const logFile　 As String = "C:\LOG.mdb"
'ログテーブル
Private Const logTbl　　As String = "LogTbl"

'カレントグリッドが移った時に現在の位置をADODC1に表示する
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
　　Dim wkCnt　 As Long
　　Dim wkStr　 As String
　　With Me
　　　　'レコードカウントを得る
　　　　wkCnt = pRecordset.RecordCount

　　　　'データが存在しない
　　　　If wkCnt = 0 Then
　　　　　　wkStr = "データが存在しません"

　　　　'データが存在するとき、ADODBにカレントレコード情報を表示
　　　　Else
　　　　　　wkStr = pRecordset.AbsolutePosition & "/" & wkCnt
　　　　End If
　　　　.Adodc1.Caption = wkStr
　　End With
End Sub

'フォームロード
Private Sub Form_Load()
　　Dim wkVal　 As Variant

　　'ログDBファイルが存在しない時、ログDBファイルの作成を行う
　　If Not FileExt(logFile) Then
　　　　'項目名をセット
　　　　wkVal = Array("項目1", "項目2", "項目3")
　　　　Call creLogDb(logFile, logTbl, wkVal)
　　End If

　　With Me
　　　　'フォームの初期設定
　　　　.ScaleMode = vbPixels

　　　　With Adodc1
　　　　　　'ADODCをフォーム下に位置付ける
　　　　　　.Align = vbAlignBottom

　　　　　　'ログDBファイルに接続
　　　　　　.ConnectionString = ConnectConst & logFile
　　　　　　.RecordSource = "select * from " & logTbl
　　　　　　.Refresh
　　　　End With

　　　　'データグリッドの初期設定
　　　　With .DataGrid1
　　　　　　'追加/更新/削除の許可
　　　　　　.AllowAddNew = True
　　　　　　.AllowUpdate = True
　　　　　　.AllowDelete = True
　　　　End With

　　　　'データグリッドに反映
　　　　Set .DataGrid1.DataSource = .Adodc1
　　　　.DataGrid1.ReBind
　　End With
End Sub

'フォームのサイズ変更時
Private Sub Form_Resize()
　　'フォームサイズが変更されたらデータグリッドのサイズも変更してあげる
　　With Me
　　　　.DataGrid1.Left = 0
　　　　.DataGrid1.Top = 0
　　　　.DataGrid1.Width = .ScaleWidth
　　　　.DataGrid1.Height = .ScaleHeight - .Adodc1.Height
　　End With
End Sub

'--------------------------------------------------------
'　 関数名　: FileExt
'　 用途　　: ファイルが存在するかどうか調べる
'　 引数　　: strPathName ファイル・ディレトクリ(パス)名
'　 戻り値　: True ファイルは存在する
'　　　　　　 False ファイルは存在しない
'--------------------------------------------------------
Public Function FileExt(strPathName As String) As Boolean

　　'引数のサイズを格納/ファイル番号を格納
　　Dim lngPNameSize As Long

　　'エラーを無効にしておく
　　On Error Resume Next

　　'引数のファイル名・パス名がセットされていない
　　If strPathName = "" Then
　　　　'関数を抜ける
　　　　Exit Function
　　End If

　　'パス名の最後にディレクトリ記号がある場合は削除
　　If Right(strPathName, 1) = "\" Then
　　　　'パスのサイズ-1を格納
　　　　lngPNameSize = Len(strPathName) - 1
　　　　'最後の一文字を取り除く
　　　　strPathName = Left(strPathName, lngPNameSize)
　　End If

　　'ファイルを開いて、エラーかどうか確かめる
　　'現在使用可能なファイル番号を割り振る
　　lngPNameSize = FreeFile

　　'では、開く
　　Open strPathName For Input As lngPNameSize
　　FileExt = (Err.Number = 0)
　　Close lngPNameSize

　　'エラー値を初期化
　　Err.Clear

End Function

'ログDBファイルを作成
Private Sub creLogDb(inFileName As String, inTblName As String, valFieldAry As Variant)
　　Dim Cat As ADOX.Catalog
　　Dim Tbl As ADOX.Table
　　Dim valWork As Variant

　　'DBファイル作成
　　Set Cat = New ADOX.Catalog
　　Cat.Create ConnectConst & inFileName

　　'テーブル情報／フィールド作成
　　Set Tbl = New ADOX.Table
　　Tbl.Name = inTblName
　　For Each valWork In valFieldAry
　　　　'ここは整数型でデータフィールドを作成してます
　　　　Tbl.Columns.Append valWork, adInteger
　　　　Debug.Print Tbl.Columns.Count
　　Next valWork
　　'このタイミングでテーブル作成
　　Cat.Tables.Append Tbl

　　Set Tbl = Nothing
　　Set Cat = Nothing
End Sub