新しい職場で使用されているデータベースがあるのですが、オートフィルタによる絞り込み後のデータのみ(可視セルのみ)の差込印刷ができなくて困っています。
データベースは「date.xls」ファイルに各データが格納され、「入力及び印刷.xls」ファイルのコマンドボタンにて入力・プリントアウトを行っています。
現状でも印刷ボタンはあるのですが、オートフィルタされたデータの一番上から一番下までのデータが全て印刷されてしまうようです(不可視セルも含めて)
以下に関係してそうなコードを記載します。
【印刷】
Private Sub CommandButton3_Click() '印刷
Dim Msg
Dim i As Long, k As Long, eflag As Long
UserForm1.Hide
If StartData = 0 Or SaisyuData = 0 Then Exit Sub
' エラーが発生したら、エラー メッセージを作成
On Error Resume Next ' エラーのトラップを留保
Fukusya (StartData)
ActiveWindow.SelectedSheets.PrintPreview
'commandpos
If MsgBox("選択" & RowCount & "件 だけ印刷 ", vbOKCancel) <> vbCancel Then
For i = StartData To SaisyuData
Fukusya (i)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.View = xlNormalView
' エラーの発生をチェックした後、メッセージを表示
If Err.Number <> 0 Then
Msg = "エラー番号 " & Str(Err.Number) & Err.Source & " でエラーが発生" & Chr(13) & Err.Description
MsgBox Msg, , "エラー", Err.HelpFile, Err.HelpContext
End If
Next
'commandpos
End If
Fukusya (SaisyuData)
Calculate
End Sub
【印刷コード内の各単語に関するもの】
Private Function StartData()
Dim i As Long, k As Long, eflag As Long
Dim start As Long
k = Retu
start = 0
For i = 3 To k
If Workbooks("data.xls").Worksheets("data").Rows(i).Hidden = False Then
start = i
Exit For
End If
Next
StartData = start
End Function
Private Function SaisyuData()
Dim i As Long, k As Long, eflag As Long
Dim stp As Long
k = Retu
stp = 0
For i = k To 3 Step -1
If Workbooks("data.xls").Worksheets("data").Rows(i).Hidden = False Then
stp = i
Exit For
End If
Next
SaisyuData = stp
End Function
Private Sub Fukusya(mm As Long) 'data複写
Dim i As Long, j As Long, k As Long
Dim nn As String
nn = RowCount
UserForm1.TextBox1.Value = nn
UserForm1.TextBox4.Value = TourokuSoSu - 2
UserForm1.TextBox5.Value = Myretu - 2
k = Koumokusu
j = mm
'データシートから配列に読み込み
With Workbooks("data.xls").Worksheets("data")
For i = 0 To k
kou(3, i) = .Cells(j, i + 1).Value
Next
GazoSize(0) = .Cells(j, k + 3).Value
GazoName(0) = .Cells(j, k + 2).Value
GazoSize(1) = .Cells(j, k + 5).Value
GazoName(1) = .Cells(j, k + 4).Value
End With
'配列からフォームに読み込み
With Worksheets("入力")
For i = 0 To k
If kou(1, i) = "" Then Exit For
.Range(kou(1, i)).Value = kou(3, i)
Next
End With
image1
image2
End Sub
長くなって申し訳ありません。以上のようなコードになっています。
なんとか「date.xls」上で絞り込んだ可視セルのみを、「入力及び印刷.xls」ファイルに差し込んで印刷したいです。よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷工程について
-
In Design 見開きページのノド...
-
Excelでの作成物に印刷時に連番...
-
K50%のグレーをCMYKで表現する...
-
Illustratorでの 網掛けと透明...
-
QRコード運用方法について詳し...
-
Vector Works10で印刷がずれる
-
Excelのマクロについて(契約書...
-
CADに貼り付けたイメージが印刷...
-
パンフレットの作成について最...
-
少数部数対応の業者さん
-
DVD-R表面の文字を消す方法
-
e-taxで申告した確定申告のデー...
-
アクセス2016で不一致クエリか...
-
パワーポイントからイラストレ...
-
AutoCADで作成した図面を印刷す...
-
JWWで文字をカラー印刷するのは...
-
WordでA3の2倍分に印刷する方法
-
【白黒のモノラル画像データ】...
-
JwCad用紙の向き
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷工程について
-
DVD-R表面の文字を消す方法
-
e-taxで申告した確定申告のデー...
-
【DTP】スミアミ80%とは【困っ...
-
In Design 見開きページのノド...
-
CMYKモードで作成してK100の色...
-
CADに貼り付けたイメージが印刷...
-
K50%のグレーをCMYKで表現する...
-
Illustratorでの 網掛けと透明...
-
リーフレットに名刺をはさむ切...
-
面付ソフトを使わずに面付けし...
-
pdfをindesignで作成した際の文字
-
AUTO CAD 印刷時に入力していな...
-
Excelでの作成物に印刷時に連番...
-
マックユーザーです。パワーポ...
-
印刷見積の取り方(用紙と面付...
-
印刷が途中で切れる(PM-4000PX)
-
IllustratorにCSVなどからテキ...
-
Wordで色のついたページだけを...
-
新聞記事のQ数、Pt、フォント(...
おすすめ情報