ACCESS テキストボックスを隙間なくきれいに並べたい

質問

単票フォームにテキストボックスを180個用意しています。
隙間無く表示したいと思い、並べてみましたが、きれいになりません。

きれいに並べる方法はありますか？

エクセルやデータシートビューの様に見えれば理想的です。
（180個も表示させる事に関しては無視してください・・・。）

回答No.2

mshr1962 · ベストアンサー

まず、テキストボックスを列または行の単位で選択して
１「書式」「サイズ変更」で高さや幅を統一する。
※プロパティで「高さ」と「幅」に直に入力でも可
２プロパティで「上位置」に直に入力で、上下のテキストボックスが重なるように調整
３「書式」「上下の間隔」「間隔を狭くする」
４プロパティで「左位置」に直に入力で、左右のテキストボックスが重なるように調整
５「書式」「左右の間隔」「間隔を狭くする」
※上下・左右とも重なる場合はテキストボックスがずれるので、必ずどちらか一方で間隔を調整してください。

回答No.3

kurodai2

デザイン時ではなく実行時でよければ・・・
テキスト1からテキスト180が存在するとします。
縦30　横6列にテキストボックスをフォームオープン時に
整列させます。

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
Dim CTR_name As String
For i = 1 To 180
CTR_name = "テキスト" & i
Me(CTR_name).Width = 1728
Me(CTR_name).Height = 270
If i < 31 Then
Me(CTR_name).Left = 576
Else
If i < 61 Then
Me(CTR_name).Left = 576 + 1728
Else
If i < 91 Then
Me(CTR_name).Left = 576 + (1728 * 2)
Else
If i < 121 Then
Me(CTR_name).Left = 576 + (1728 * 3)
Else
If i < 151 Then
Me(CTR_name).Left = 576 + (1728 * 4)
Else
Me(CTR_name).Left = 576 + (1728 * 5)
End If
End If
End If
End If
End If

Me(CTR_name).Top = 576 + IIf(i Mod 30 = 0, 30, i Mod 30) * 270
Next i

End Sub

回答No.1

noname#140971

可能ですが、根気が必要です。

１、立体表示を[なし]にします。
２、境界線スタイルを[実線]にします。
３、次に左端に１個配置します。
４、この時、幅をもう一度調節します。
　　配置したままでは、次のテキストボックスの開始位置と微妙にずれます。
５、これをひたすら繰り返します。
６、最後に左端の一番上だけ微調節。
　　左端=0.019cm
　　幅も再調節。
７、書式（O)を利用して、その他の左端を全て左上端に合わせる。

以上。