クロス集計表の作り方 ログイン Firefox のこのバージョンはサポートが終了しました。 サポートされているブラウザ にアップグレードしてください。 閉じる
PasteSpecial Paste:=xlPasteValues Sheets("表紙"). ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=SPath & "\" & "鑑" & Sheets("表紙")("E5") & "" Sheets(Sheets("集計表")("B" & i)). ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=SPath & "\" & "明細" & Sheets("集計表")("B" & i) & "" 'ここから下に問題あり Sheets(Sheets("集計表")("B" & i)) End If Next i MsgBox "指定の請求書のPDF変換が完了しました。" Sheets("集計表") reenUpdating = True End Sub No. 1 ベストアンサー 回答者: yoreyore 回答日時: 2020/12/20 17:14 これで動きませんか? 分類別集計の仕方 (ページ 1) / 初心者のFileMaker pro Q&A / 初心者のFileMaker pro Q&A. Set wb = ActiveWorkbook Dim wsh As Worksheet 存在しない顧客 = "" If Sheets("集計表")("I" & i) Then 顧客コード = Trim(Sheets("集計表")("B" & i)) flag = False For Each wsh In Worksheets If = 顧客コード Then flag = True Sheets("表紙")("E5") = 顧客コード Filename:=SPath & "\" & "鑑" & 顧客コード & "" Sheets(顧客コード). ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=SPath & "\" & "明細" & 顧客コード & "" Sheets(顧客コード) Next wsh If flag = False Then 存在しない顧客 = 存在しない顧客 & ", " & 顧客コード If 存在しない顧客 <> "" Then MsgBox "顧客コードが? ?です" & vbCrLf & 存在しない顧客 0 件 この回答へのお礼 yoreyoreさん ベスト回答ありがとうございます。 希望通りの動きで、大変満足しています。 勉強になりました。 お礼日時:2020/12/20 23:26 お探しのQ&Aが見つからない時は、教えて!
if[Get ( ウインドウモード) = 0] 色々な処理 end if と書くほうがわかりやすいですよ。 #22 2021-06-25 16:26:56 すいません、誤解を招く記載でした。 ボタン設定してるところはドロップダウンリストになっていて 値一覧による日付を設定しています。 検索モードにして、選択するとスクリプトは止まっている?のですがドロップダウンリストが表示されません。 #23 2021-06-25 16:28:31 Shin様 デバッカーで動かすと完全停止になります。 なのでドロップダウンリストを選択毎に先に進まないというオチでした・・・ #24 2021-06-25 16:30:02 スクリプトの処理の中で、そのフィールドへ移動するステップが入っているのでは。 if[Get ( ウインドウモード) = 0] 色々な処理 else if[Get ( ウインドウモード) = 2] フィールドへ移動 end if としてみればいいでしょう。 #25 2021-06-25 16:45:47 Shin様 >if[Get ( ウインドウモード) = 0] 色々な処理 else if[Get ( ウインドウモード) = 2] フィールドへ移動 end if としてみればいいでしょう。 上記内容で設定してみたのですが、ドロップダウンリストは表示されないです・・・