Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

927 / 76807

←次へ　｜　前へ→


	【81541】特定のフィールドの左3文字を非表示に

YS - 20/11/15(日) 13:17 -


	引用なし

	パスワード

以下のコードでmdbからクエリをexcelに入れて印刷しようとしています。

Dim mycon As ADODB.Connection

Dim fin As String
Dim ador As Excel.Range
Dim adorr As ADODB.Recordset

Set mycon = New ADODB.Connection

fin = "**.mdb"
With New Excel.Application
　 Set ador = .Workbooks.Open("**.xls").ActiveSheet.Range("a2")
　
　
　 .Visible = True
End With
With ador.Worksheet.PageSetup

　 .LeftMargin = 0
　　.RightMargin = 0
　.TopMargin = 0
　　.BottomMargin = 0
　　.CenterHorizontally = True
.CenterVertically = True
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintGridlines = True

　　End With
ador.Worksheet.PrintPreview

With mycon
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=" & fin
.Open
Set adorr = .Execute("** クエリ")
ador.CopyFromRecordset adorr
　With ador.CurrentRegion.Borders

　.LineStyle = xlDouble
End With

adorr.Close
mycon.Close

End With

mdbには商品コードフィールドがありそのフィールドには同じ数字が3桁ありその3文字を非表示にしたいです。商品コード12345678なら45678のように左3文字をフィールド全て非表示にするやり方をご教授お願いいたします。また、印刷に関してもご指摘ありましたら、重ねてお願いいたします。

3 hits

▼

【81541】特定のフィールドの左3文字を非表示に YS 20/11/15(日) 13:17