アクセステーブルの項目をセンタリングするには？ (ID:87464)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Form_Load() With DataGrid1.Columns For lLp = 0 To .Count - 1 .Item(lLp).Alignment = dbgCenter Next End With DataGrid1.Columns(2).Width = 400 DataGrid1.Columns(3).Width = 1500 DataGrid1.Columns(4).Width = 1000 DataGrid1.Columns(5).Width = 1000 DataGrid1.Columns(6).Width = 1200 DataGrid1.Columns(7).Width = 2850 DataGrid1.Columns(2).Alignment = dbgCenter DataGrid1.Columns(3).Alignment = dbgLeft DataGrid1.Columns(4).Alignment = dbgRight DataGrid1.Columns(5).Alignment = dbgRight DataGrid1.Columns(6).Alignment = dbgRight DataGrid1.Columns(7).Alignment = dbgLeft DataGrid1.Columns(0).Visible = False DataGrid1.Columns(1).Visible = False DataGrid1.Columns(2).Locked = False DataGrid1.Columns(3).Locked = False DataGrid1.Columns(4).Locked = False DataGrid1.Columns(5).Locked = False DataGrid1.Columns(6).Locked = True DataGrid1.Columns(7).Locked = False DataGrid1.Columns(8).Visible = False DataGrid1.Columns(9).Visible = False DataGrid1.Columns(10).Visible = False DataGrid1.Visible = True With rs .CursorType = adOpenDynamic .LockType = adLockPessimistic .Open "select * from 収支入力", cn End With End Sub lLpの定義はすべての一番上の行に追加しました。 これで試してみるとできないのですが。